2 # ----------------------------------------------------------
3 # Prefix Specifications
7 # 3: C preprocessor prefix
10 set default-prefix {ill_ ILL_ ILL_}
12 # ----------------------------------------------------------
16 set filename($m) ill-core
18 # Header initialization code
37 # Some mappings - that map ill_ILL_<name> to ill_<name>
38 set map($m,ILL-APDU) APDU
39 set map($m,ILL-Request) Request
40 set map($m,ILL-Answer) Answer
41 set map($m,ILL-String) String
42 set map($m,ILL-APDU-Type) APDU_Type
43 set map($m,ILL-Service-Type) Service_Type
44 set map($m,Service_Date_Time_0) Service_Date_this
45 set map($m,Service_Date_Time_1) Service_Date_original
46 set map($m,Overdue_0) Overdue_ExtensionS
47 set membermap($m,APDU,ILL-Request) {APDU_ILL_Request illRequest}
48 set membermap($m,APDU,ILL-Answer) {APDU_ILL_Answer illAnswer}
50 # ----------------------------------------------------------
51 set m OCLCILLRequestExtension
53 set filename($m) oclc-ill-req-ext
55 # ----------------------------------------------------------
56 set m Z39.50-extendedService-ItemOrder-ItemRequest-1
58 set filename($m) item-req
60 # Mappings of a few basic types
61 proc asnBasicPrintableString {} {
62 return {odr_visiblestring char}
66 return {odr_any Odr_any}