Refactor yaz_match-routines to separate source
[yaz-moved-to-github.git] / src / ill.tcl
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 }