home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-w.lha / fd / read-fd.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-08-12  |  6.9 KB  |  154 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "AFFI")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  4.    MAKE-PARTIAL-AFFI-FILE
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  7.    READ-FD-DIRECTIVE SYSTEM::REMOVE-OLD-DEFINITIONS
  8.    #Y(READ-FD-DIRECTIVE
  9.       #53Y(00 02 00 00 00 03 6A 00 0E 01 22 23 DB 70 CF 6A 00 6E 04 9C 10 05 52
  10.            0C 6A 00 DE 2F 07 B3 63 62 63 30 78 53 6A 00 66 00 03 2F 07 54 11 19
  11.            05 DA 6A 00 32 01 1E
  12.           )
  13.       *READTABLE* *FD-READTABLE* "Not the FD-readtable: ~S" "KEYWORD"
  14.       READTABLE-CASE *PACKAGE* :UPCASE SYSTEM::SET-READTABLE-CASE
  15.   )  )
  16. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  17.    MAKE-FD-READTABLE SYSTEM::REMOVE-OLD-DEFINITIONS
  18.    #Y(MAKE-FD-READTABLE
  19.       #51Y(00 00 00 01 00 07 3A 01 02 C3 F7 62 37 01 70 71 D9 DA AC 37 01 30 72
  20.            DB DA AC 37 01 30 72 DC DD AC 37 01 30 72 DE 98 07 63 AD 30 73 AA AD
  21.            2F 08 15 19 02
  22.           )
  23.       :UPCASE #\, #\Space #\/ #\* #\; #\# READ-FD-DIRECTIVE
  24.       SYSTEM::SET-READTABLE-CASE
  25.   )  )
  26. #Y(#:TOP-LEVEL-FORM-5
  27.    #22Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 06 D9 2D 02 14 30 55 C4 19 01)
  28.    (SPECIAL *FD-READTABLE*) *FD-READTABLE* MAKE-FD-READTABLE
  29.   )
  30. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  31.    READ-FROM-FD SYSTEM::REMOVE-OLD-DEFINITIONS
  32.    #Y(READ-FROM-FD
  33.       #42Y(00 01 00 01 00 08 3A 01 02 7D 01 0E 00 10 01 AF 62 DA 37 01 30 78 11
  34.            14 AA 23 02 08 15 19 03 DB AE 32 01 1E 91 02 78 C7 19 04
  35.           )
  36.       *FD-READTABLE* *READTABLE* "EoF" "FD file ~S ended" :END
  37.   )  )
  38. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  39.    READ-FD-FUNCTIONS SYSTEM::REMOVE-OLD-DEFINITIONS
  40.    #Y(READ-FD-FUNCTIONS
  41.       #142Y(00 04 00 00 00 05 AE 62 6F 00 AA 8D 8D 16 AA 8D 08 80 47 DB DC AC
  42.             DD E9 DF E0 E1 6D 03 0A D5 14 B1 32 06 1F 9B 25 01 14 DA 32 00 1E
  43.             AF 6E 00 81 00 36 03 1A 17 7C 04 1A 13 9D 19 06 DB DC AC DD DE DF
  44.             E0 E1 6D 03 0A CE 1A 55 7D 04 AF AF AF AF 28 04 0A FF B1 E4 B2 9E
  45.             1A 11 AF 6E 00 B0 6E 00 AB 8E 0D 71 AA 8D 0D 0D E5 B2 9D 14 32 02
  46.             1E B1 28 04 0C FF 91 B1 B1 E6 B2 72 02 35 91 09 70 AF B3 AF E7 2F
  47.             10 7B 02 A3 79 28 04 0C FF 78
  48.            )
  49.       READ-FROM-FD
  50.       #S(HASH-TABLE EQ (:END . 18.) (:PRIVATE . 35.) (:PUBLIC . 14.)
  51.          (:BIAS . 5.) (:BASE . 1.)
  52.         )
  53.       "##base only allowed once: ~S" TYPE-ERROR :DATUM :EXPECTED-TYPE
  54.       (MEMBER :BASE :BIAS :PUBLIC :PRIVATE :END) "~A~%The value is: ~S"
  55.       "~A~%Der Wert ist: ~S" "~A~%La valeur est : ~S" SYSTEM::LANGUAGE
  56.       "Der Wert von TAG muß einer der folgenden sein: :BASE, :BIAS, :PUBLIC, :PRIVATE, :END"
  57.       "No FFI variable names read from ~S: ~S"
  58.       "No FFI register specification read from ~S: ~S" -6.
  59.       #Y(READ-FD-FUNCTIONS-1
  60.          #16Y(00 02 00 00 00 03 AC AC 71 8C 37 04 30 3E 19 03)
  61.         )
  62.       CALC-REGISTER-MASK (OR KEYWORD SYMBOL)
  63.       "Der Wert von TAG muß einem der Typen KEYWORD, SYMBOL angehören."
  64.   )  )
  65. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  66.    PARSE-FD SYSTEM::REMOVE-OLD-DEFINITIONS
  67.    #Y(PARSE-FD
  68.       #114Y(00 01 00 00 00 02 AB D8 37 03 70 FB 52 80 57 C4 44 C5 10 03 B0 6E
  69.             04 24 05 33 B0 6E 04 AA 8E 08 31 AA 71 8C E0 70 35 E1 8F 01 07 2C
  70.             9B 14 B2 62 E3 62 2C 04 0C 5C 16 01 11 40 05 00 02 1C 05 14 37 01
  71.             31 7D 45 53 05 00 00 1C 24 1A 1E DE B1 32 01 1E DF AB B3 32 02 1E
  72.             AA 71 8C E2 37 01 71 46 37 01 30 D7 1A 47 05 00 00 1C 04 14 63 31
  73.             7D 54 19 03
  74.            )
  75.       :INPUT #.#'VALUES #.(SYSTEM::%FIND-PACKAGE "AFFI") *PACKAGE* READ-FROM-FD
  76.       :BASE "FD file does not start with ##base: ~S"
  77.       "Not a library base name: ~S in ~S" 0. #\_ 1. -30. READ-FD-FUNCTIONS
  78.   )  )
  79. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  80.    SHOW-LARGE-MASKS SYSTEM::REMOVE-OLD-DEFINITIONS
  81.    #Y(SHOW-LARGE-MASKS
  82.       #75Y(00 01 00 00 00 02 AB 62 1A 3A 86 01 00 78 62 1A 2B AA 71 D4 D8 32 01
  83.            31 16 01 1C 15 1A 1C 86 01 00 5B 78 AA 8E 0E 06 AA 31 94 58 1B 64 16
  84.            01 1B 09 63 D9 93 02 93 05 2C 04 02 82 01 AB 8C 96 5E 16 02 82 01 AB
  85.            8C 96 42 00 19 04
  86.           )
  87.       32.
  88.       #Y(SHOW-LARGE-MASKS-1
  89.          #35Y(00 03 00 00 01 19 AE 30 90 D8 AF 37 02 30 8D AD AF 30 88 D9 AF 37
  90.               02 30 8D AC AF 30 88 AE 30 8F 9C 19 05
  91.              )
  92.          ";;Maybe too big mask for " " in "
  93.         )
  94.       FORMAT
  95.   )  )
  96. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  97.    MAKE-PARTIAL-AFFI-FILE SYSTEM::REMOVE-OLD-DEFINITIONS
  98.    #Y(MAKE-PARTIAL-AFFI-FILE
  99.       #212Y(00 01 00 00 00 02 62 D8 AD 37 01 70 ED 6D 03 01 6E 02 C6 10 04 AF
  100.             37 07 C8 F7 70 F5 37 01 70 F6 DE 37 03 CA F7 70 FB 52 80 9B CB 44
  101.             E1 AE 30 88 AD 30 8F AD E2 93 09 B6 2C 04 01 AD E3 B5 2C 03 01 94
  102.             07 71 4A 62 1A 80 58 AA 71 D4 E4 32 01 31 16 01 1C 15 1A 1A 86 01
  103.             00 5B 78 AA 8E 0E 06 AA 31 94 58 1B 64 16 01 1B 07 E5 B0 30 88 AF
  104.             30 8F AF E6 93 02 93 0C 9F 5B 77 A0 5B 78 2C 06 01 E7 9C 5B 78 71
  105.             D4 E8 71 B5 1A 06 E9 B2 30 88 84 01 AB AB 90 01 32 74 16 02 EA B0
  106.             30 88 AF 30 8F 82 01 AB 8C 96 FF B0 16 02 AD EB B5 2C 03 01 AD 30
  107.             E9 40 05 00 02 1C 05 14 37 01 31 7D 45 53 05 00 00 1C 0B 1A 05 05
  108.             00 00 1C 04 14 63 31 7D 54 16 01 11 19 03
  109.            )
  110.       #Y(MAKE-PARTIAL-AFFI-FILE-1
  111.          #25Y(00 02 00 00 01 18 D8 AE 37 02 30 8D AC AE 30 88 D9 AE 37 02 30 8D
  112.               9C 19 04
  113.              )
  114.          "FD:" "_lib.fd"
  115.         )
  116.       FORMAT PARSE-FD #.(SYSTEM::%FIND-PACKAGE "AFFI") *PACKAGE* "affi" :OUTPUT
  117.       :ERROR #.#'VALUES "(in-package \"AFFI\")"
  118.       #Y(MAKE-PARTIAL-AFFI-FILE-2
  119.          #33Y(00 03 00 00 01 19 D8 AF 37 02 30 8D AD AF 30 88 D9 AF 30 8C AC AF
  120.               30 85 DA AF 37 02 30 8D 9C 19 05
  121.              )
  122.          "(declare-library-base :" #\Space
  123.          ")
  124. "
  125.         )
  126.       #Y(MAKE-PARTIAL-AFFI-FILE-3
  127.          #25Y(00 02 00 00 01 18 D8 AE 37 02 30 8D AC AE 30 85 D9 AE 37 02 30 8D
  128.               9C 19 04
  129.              )
  130.          "(format *error-output* \"~&;;; Warning: Please adapt the prototypes for ~S manually!~%\" "
  131.          ")
  132.  
  133. "
  134.         )
  135.       32. ";; This mask may be too large for AFFI:"
  136.       #Y(MAKE-PARTIAL-AFFI-FILE-4
  137.          #59Y(00 05 00 00 01 00 D8 B1 37 02 30 8D AF B1 30 85 D9 B1 37 02 30 8D
  138.               AE B1 30 85 DA B1 30 8C B0 01 06 B4 2C 08 03 DC B1 37 02 30 8D B0
  139.               01 06 B3 2C 08 05 DE B1 37 02 30 8D 9C 19 07
  140.              )
  141.          ";(defflibfun '" " '" #\Space SYSTEM::DO-FORMAT-DECIMAL " #x"
  142.          SYSTEM::DO-FORMAT-HEXADECIMAL " '*"
  143.         )
  144.       0. 4. " '*" ")"
  145.       #Y(MAKE-PARTIAL-AFFI-FILE-5
  146.          #25Y(00 02 00 00 01 18 D8 AE 37 02 30 8D AC AE 30 85 D9 AE 37 02 30 8D
  147.               9C 19 04
  148.              )
  149.          "
  150. (provide "
  151.          ")
  152. "
  153.   )  )  )
  154.