2 # $Id: ill.tcl,v 1.1 1999-12-16 23:36:19 adam Exp $
3 # ----------------------------------------------------------
4 # Prefix Specifications
8 # 3: C preprocessor prefix
11 set default-prefix {ill_ ILL_ ILL_}
13 # ----------------------------------------------------------
17 set filename($m) ill-core
19 # Header initialization code
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
46 # ----------------------------------------------------------
47 set m Z39.50-extendedService-ItemOrder-ItemRequest-1
49 set filename($m) item-req
51 # Mappings of a few basic types
52 proc asnBasicPrintableString {} {
53 return {odr_visiblestring char}
57 return {odr_any Odr_any}