X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=z39.50%2Fz.tcl;h=a1dc994afeb86eb07cbe40c69afd508370677b32;hb=941c141092dc2ea6a2b6f5cc7bac181798113ae7;hp=cdb08cafbab2eb711017c9b05bcbd160165eb995;hpb=e5324215018e129dd19734acd0e683e5af748423;p=yaz-moved-to-github.git

diff --git a/z39.50/z.tcl b/z39.50/z.tcl
index cdb08ca..a1dc994 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.4 2001-02-21 13:46:54 adam Exp $
+# $Id: z.tcl,v 1.8 2002-08-28 19:12:30 adam Exp $
 # ----------------------------------------------------------
 # Prefix Specifications
 #  
@@ -59,7 +59,7 @@ int z_ANY_type_0 (ODR o, void **p, int opt)
 set map($m,PDU) APDU
 set membermap($m,Operator,and) {Operator_and op_and}
 set membermap($m,Operator,or) {Operator_or op_or}
-set membermap($m,Operator,and-not) {Operator_and_not op_and_not}
+#set membermap($m,Operator,and-not) {Operator_and_not op_and_not}
 set map($m,AttributeElement_complex) ComplexAttribute
 set map($m,DeleteSetStatus) DeleteStatus
 set membermap($m,ProximityOperator,private) {ProximityOperator_private zprivate}
@@ -205,7 +205,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 +214,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
@@ -331,7 +331,11 @@ set map($m,TaskPackage) ESAdminTaskPackage
 set map($m,OriginPartToKeep) ESAdminOriginPartToKeep
 set map($m,OriginPartNotToKeep) ESAdminOriginPartNotToKeep
 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.