1 | # Config File for ILL
|
---|
2 | # $Id: ill.tcl 1343 2000-08-03 03:12:39Z johnmcp $
|
---|
3 | # ----------------------------------------------------------
|
---|
4 | # Prefix Specifications
|
---|
5 | #
|
---|
6 | # 1: C function prefix
|
---|
7 | # 2: C type prefix
|
---|
8 | # 3: C preprocessor prefix
|
---|
9 |
|
---|
10 | # Default prefix
|
---|
11 | set default-prefix {ill_ ILL_ ILL_}
|
---|
12 |
|
---|
13 | # ----------------------------------------------------------
|
---|
14 | set m ISO-10161-ILL-1
|
---|
15 |
|
---|
16 | # Filename
|
---|
17 | set filename($m) ill-core
|
---|
18 |
|
---|
19 | # Header initialization code
|
---|
20 | set init($m,h) "
|
---|
21 | "
|
---|
22 |
|
---|
23 | # Header body code
|
---|
24 | set body($m,h) "
|
---|
25 | #ifdef __cplusplus
|
---|
26 | extern \"C\" \{
|
---|
27 | #endif
|
---|
28 |
|
---|
29 | #ifdef __cplusplus
|
---|
30 | \}
|
---|
31 | #endif
|
---|
32 | "
|
---|
33 |
|
---|
34 | # C body code
|
---|
35 | set body($m,c) "
|
---|
36 | "
|
---|
37 |
|
---|
38 | # Some mappings - that map ill_ILL_<name> to ill_<name>
|
---|
39 | set map($m,ILL-APDU) APDU
|
---|
40 | set map($m,ILL-Request) Request
|
---|
41 | set map($m,ILL-Answer) Answer
|
---|
42 | set map($m,ILL-String) String
|
---|
43 | set map($m,ILL-APDU-Type) APDU_Type
|
---|
44 | set map($m,ILL-Service-Type) Service_Type
|
---|
45 | set map($m,Service_Date_Time_0) Service_Date_this
|
---|
46 | set map($m,Service_Date_Time_1) Service_Date_original
|
---|
47 | set map($m,Overdue_0) Overdue_Extension
|
---|
48 |
|
---|
49 | # ----------------------------------------------------------
|
---|
50 | set m Z39.50-extendedService-ItemOrder-ItemRequest-1
|
---|
51 | # Filename
|
---|
52 | set filename($m) item-req
|
---|
53 |
|
---|
54 | # Mappings of a few basic types
|
---|
55 | proc asnBasicPrintableString {} {
|
---|
56 | return {odr_visiblestring char}
|
---|
57 | }
|
---|
58 |
|
---|
59 | proc asnBasicANY {} {
|
---|
60 | return {odr_any Odr_any}
|
---|
61 | }
|
---|