X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=z39.50%2Fz.tcl;h=919fd745c7beb0d6e3eaa78ea7f252fcdd029f95;hb=b3a9e58543972f70ed7729d8aee2dab0814b023d;hp=48b403830be1013077a09e8465c90cabbda4f0e7;hpb=cf784482d7256a192c0b4f95e4746ed12efb3bab;p=yaz-moved-to-github.git

diff --git a/z39.50/z.tcl b/z39.50/z.tcl
index 48b4038..919fd74 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.3 2000-03-14 09:22:15 ian Exp $
+# $Id: z.tcl,v 1.7 2002-02-12 21:11:49 adam Exp $
 # ----------------------------------------------------------
 # Prefix Specifications
 #  
@@ -57,6 +57,9 @@ int z_ANY_type_0 (ODR o, void **p, int opt)
 
 # Type Name overrides
 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 map($m,AttributeElement_complex) ComplexAttribute
 set map($m,DeleteSetStatus) DeleteStatus
 set membermap($m,ProximityOperator,private) {ProximityOperator_private zprivate}
@@ -328,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.