X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=z39.50%2Fz.tcl;h=47bb1c39b2a8dbf17f0f026436c4e1eae7d70e4e;hb=db585d7fcb8319fa86543eb062df7fdaf16858c6;hp=7100253bdbaa7c3e3fd009c5f19a71684e505e74;hpb=c34d71d35aceed27cf7e30e6b329a235b48b9ccd;p=yaz-moved-to-github.git diff --git a/z39.50/z.tcl b/z39.50/z.tcl index 7100253..47bb1c3 100644 --- a/z39.50/z.tcl +++ b/z39.50/z.tcl @@ -1,5 +1,5 @@ # YC Sample Config File for Z39.50 -# $Id: z.tcl,v 1.6 2002-02-11 23:25:27 adam Exp $ +# $Id: z.tcl,v 1.10 2003-02-17 21:23:31 adam Exp $ # ---------------------------------------------------------- # Prefix Specifications # @@ -134,6 +134,7 @@ set unionmap($m,OtherInformationUnit,information) {which information OtherInfo} set unionmap($m,OtherInformation) {num_elements list} set unionmap($m,Specification,elementSpec) {} set map($m,Specification_0) ElementSpec +set unionmap($m,Specification,schema) {which schema Schema} # ---- set m DiagnosticFormatDiag1 @@ -205,7 +206,7 @@ set m RecordSyntax-SUTRS set filename($m) z-sutrs #set map($m,SutrsRecord) SUTRS set body($m,c) { -int z_SUTRS (ODR o, Odr_oct **p, int opt) +int z_SUTRS (ODR o, Odr_oct **p, int opt, const char *name) { return odr_implicit(o, odr_octetstring, p, ODR_UNIVERSAL, ODR_GENERALSTRING, opt); @@ -214,7 +215,7 @@ int z_SUTRS (ODR o, Odr_oct **p, int opt) set init($m,h) { typedef Odr_oct Z_SUTRS; -YAZ_EXPORT int z_SUTRS (ODR o, Odr_oct **p, int opt); +YAZ_EXPORT int z_SUTRS (ODR o, Odr_oct **p, int opt, const char *name); } # ---- set m RecordSyntax-opac @@ -321,6 +322,9 @@ set map($m,Z3950DateSeason) DateSeason set map($m,Date_0) DateFlags set unionmap($m,DateFlags,era) {} # ---- +set m UserInfoFormat-multipleSearchTerms-2 +set filename($m) z-mterm2 +# ---- set m ResourceReport-Format-Universe-1 set filename($m) z-univ # ---- @@ -334,7 +338,8 @@ set map($m,TargetPart) ESAdminTargetPart # ---- set m NegotiationRecordDefinition-charSetandLanguageNegotiation-3 set filename($m) z-charneg - +set membermap($m,OriginProposal_0,private) {OriginProposal_0_private zprivate} +set membermap($m,TargetResponse,private) {TargetResponse_private zprivate} # ---------------------------------------------------------- # "Constructed" types defined by means of C-types are declared here. # Each function returns the C-handler and the C-type.