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 }