/usr/share/yaz/ill/ill.tcl is in libyaz4-dev 4.2.30-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | # Config File for ILL
# ----------------------------------------------------------
# Prefix Specifications
#
# 1: C function prefix
# 2: C type prefix
# 3: C preprocessor prefix
# Default prefix
set default-prefix {ill_ ILL_ ILL_}
# ----------------------------------------------------------
set m ISO-10161-ILL-1
# Filename
set filename($m) ill-core
# Header initialization code
set init($m,h) "
"
# Header body code
set body($m,h) "
#ifdef __cplusplus
extern \"C\" \{
#endif
#ifdef __cplusplus
\}
#endif
"
# C body code
set body($m,c) "
"
# Some mappings - that map ill_ILL_<name> to ill_<name>
set map($m,ILL-APDU) APDU
set map($m,ILL-Request) Request
set map($m,ILL-Answer) Answer
set map($m,ILL-String) String
set map($m,ILL-APDU-Type) APDU_Type
set map($m,ILL-Service-Type) Service_Type
set map($m,Service_Date_Time_0) Service_Date_this
set map($m,Service_Date_Time_1) Service_Date_original
set map($m,Overdue_0) Overdue_ExtensionS
set membermap($m,APDU,ILL-Request) {APDU_ILL_Request illRequest}
set membermap($m,APDU,ILL-Answer) {APDU_ILL_Answer illAnswer}
# ----------------------------------------------------------
set m OCLCILLRequestExtension
# Filename
set filename($m) oclc-ill-req-ext
# ----------------------------------------------------------
set m Z39.50-extendedService-ItemOrder-ItemRequest-1
# Filename
set filename($m) item-req
# Mappings of a few basic types
proc asnBasicPrintableString {} {
return {odr_visiblestring char}
}
proc asnBasicANY {} {
return {odr_any Odr_any}
}
|