# YC Sample Config File for Z39.50
-# $Id: z.tcl,v 1.7 2002-02-12 21:11:49 adam Exp $
+# $Id: z.tcl,v 1.11 2003-05-20 19:55:30 adam Exp $
# ----------------------------------------------------------
# Prefix Specifications
#
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
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);
+ return odr_implicit_tag(o, odr_octetstring, p, ODR_UNIVERSAL,
+ ODR_GENERALSTRING, opt, name);
}
}
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 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
# ----