src/ill.tcl

   1 # Config File for ILL
   2 # $Id: ill.tcl,v 1.1 2003-10-27 12:21:30 adam Exp $
   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_ExtensionS
  48 set membermap($m,APDU,ILL-Request) {APDU_ILL_Request illRequest}
  49 set membermap($m,APDU,ILL-Answer) {APDU_ILL_Answer illAnswer}
  50
  51 # ----------------------------------------------------------
  52 set m Z39.50-extendedService-ItemOrder-ItemRequest-1
  53 # Filename
  54 set filename($m) item-req
  55
  56 # Mappings of a few basic types
  57 proc asnBasicPrintableString {} {
  58     return {odr_visiblestring char}
  59 }
  60
  61 proc asnBasicANY {} {
  62     return {odr_any Odr_any}
  63 }