# YC Sample Config File for Z39.50
-# $Id: z.tcl,v 1.1 1999-06-08 10:10:16 adam Exp $
+# $Id: z.tcl,v 1.8 2002-08-28 19:12:30 adam Exp $
# ----------------------------------------------------------
# Prefix Specifications
#
# 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}
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);
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
# ----
set m ResourceReport-Format-Universe-1
set filename($m) z-univ
-
+# ----
+set m ESFormat-Admin
+set filename($m) zes-admin
+set map($m,EsRequest) ESAdminRequest
+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.
-proc asnBasicGeneralString {} {
- return {odr_generalstring char}
-}
-
-proc asnBasicVisibleString {} {
- return {odr_visiblestring char}
-}
-
-proc asnBasicGeneralizedTime {} {
- return {odr_generalizedtime char}
-}
-
proc asnBasicEXTERNAL {} {
return {z_External Z_External}
}