[1343] | 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 | }
|
---|