YAZ  5.23.1
ill.tcl
Go to the documentation of this file.
1 # Config File for ILL
2 # ----------------------------------------------------------
3 # Prefix Specifications
4 #
5 # 1: C function prefix
6 # 2: C type prefix
7 # 3: C preprocessor prefix
8 
9 # Default prefix
10 set default-prefix {ill_ ILL_ ILL_}
11 
12 # ----------------------------------------------------------
13 set m ISO-10161-ILL-1
14 
15 # Filename
16 set filename($m) ill-core
17 
18 # Header initialization code
19 set init($m,h) "
20 "
21 
22 # Header body code
23 set body($m,h) "
24 #ifdef __cplusplus
25 extern \"C\" \{
26 #endif
27 
28 #ifdef __cplusplus
29 \}
30 #endif
31 "
32 
33 # C body code
34 set body($m,c) "
35 "
36 
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}
49 
50 # ----------------------------------------------------------
51 set m OCLCILLRequestExtension
52 # Filename
53 set filename($m) oclc-ill-req-ext
54 
55 # ----------------------------------------------------------
56 set m Z39.50-extendedService-ItemOrder-ItemRequest-1
57 # Filename
58 set filename($m) item-req
59 
60 # Mappings of a few basic types
61 proc asnBasicPrintableString {} {
62  return {odr_visiblestring char}
63 }
64 
65 proc asnBasicANY {} {
66  return {odr_any Odr_any}
67 }