home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-ki.lha / fd / asl-ffi.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-08-23  |  9.2 KB  |  215 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) "FFI-DEMOS")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DF 19 01) "FFI")
  4. #Y(#:TOP-LEVEL-FORM-3
  5.    #27Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 6E 04 DD DE DF 6F 08 6D 04 09 31 82
  6.         C3 19 01
  7.        )
  8.    ALLOCASLREQUEST SYSTEM::REMOVE-OLD-DEFINITIONS #1="AllocAslRequest"
  9.    #2="asl.library" FFI::FOREIGN-LIBRARY -48.
  10.    (#3=(:RETURN-TYPE C-POINTER :NONE)
  11.      #4=(:ARGUMENTS (REQTYPE UINT32 :IN :NONE :D0)
  12.           (TAGLIST UINT32 :IN :ALLOCA :A0)
  13.         )
  14.      #5=(:OFFSET -48.)
  15.    )
  16.    (DEF-LIB-CALL-OUT ALLOCASLREQUEST #2# (:NAME #1#) #5# #4# #3#)
  17.    FFI::PARSE-C-FUNCTION FFI::FOREIGN-LIBRARY-FUNCTION
  18.   )
  19. #Y(#:TOP-LEVEL-FORM-4
  20.    #27Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 6E 04 DD DE DF 6F 08 6D 04 09 31 82
  21.         C3 19 01
  22.        )
  23.    FREEASLREQUEST SYSTEM::REMOVE-OLD-DEFINITIONS #1="FreeAslRequest"
  24.    #2="asl.library" FFI::FOREIGN-LIBRARY -54.
  25.    (#3=(:RETURN-TYPE NIL :NONE)
  26.      #4=(:ARGUMENTS (REQUESTER C-POINTER :IN :NONE :A0)) #5=(:OFFSET -54.)
  27.    )
  28.    (DEF-LIB-CALL-OUT FREEASLREQUEST #2# (:NAME #1#) #5# #4# #3#)
  29.    FFI::PARSE-C-FUNCTION FFI::FOREIGN-LIBRARY-FUNCTION
  30.   )
  31. #Y(#:TOP-LEVEL-FORM-5
  32.    #27Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 6E 04 DD DE DF 6F 08 6D 04 09 31 82
  33.         C3 19 01
  34.        )
  35.    ASLREQUEST SYSTEM::REMOVE-OLD-DEFINITIONS #1="RequestFile" #2="asl.library"
  36.    FFI::FOREIGN-LIBRARY -60.
  37.    (#3=(:RETURN-TYPE BOOLEAN :NONE)
  38.      #4=(:ARGUMENTS (REQUESTER C-POINTER :IN :NONE :A0)
  39.           (TAGLIST UINT32 :IN :ALLOCA :A1)
  40.         )
  41.      #5=(:OFFSET -60.)
  42.    )
  43.    (DEF-LIB-CALL-OUT ASLREQUEST #2# (:NAME #1#) #5# #4# #3#)
  44.    FFI::PARSE-C-FUNCTION FFI::FOREIGN-LIBRARY-FUNCTION
  45.   )
  46. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  47.    ADDPART2 SYSTEM::REMOVE-OLD-DEFINITIONS
  48.    #Y(ADDPART2
  49.       #42Y(00 02 00 00 00 03 D8 AD AE 71 48 8D 92 16 AE AF 71 48 71 98 70 34 D9
  50.            37 06 8D 5D 0B C5 14 AE 32 03 25 19 03 00 1A 76 00 1A 73
  51.           )
  52.       STRING ":/" "/"
  53.   )  )
  54. #Y(#:TOP-LEVEL-FORM-7-1
  55.    #138Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
  56.          88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
  57.          2E 01 E6 E2 E7 31 88 E6 E8 31 82 E9 30 5D EA 30 5D EB 2E 01 EB E2 EC
  58.          31 88 EB ED 31 82 EE 30 5D EF 30 5D F0 2E 01 F0 E2 F1 31 88 F0 F2 31
  59.          82 EB F3 F4 03 1D 79 31 88 EB 64 1E 62 2C 03 1F F0 F3 F4 03 20 79 31
  60.          88 F0 64 1E 62 2C 03 1F DB 64 21 62 2C 03 1F DB 64 22 31 89 3D 19 01
  61.         )
  62.    MAKE-FR-FILE-DRAWER SYSTEM::REMOVE-OLD-DEFINITIONS
  63.    #Y(MAKE-FR-FILE-DRAWER
  64.       #33Y(00 00 00 00 80 1B 00 02 00 00 3C 02 3C 01 DA DB 71 33 DC AB DD B0 31
  65.            32 DC AB DE AF 31 32 15 19 03
  66.           )
  67.       :FILE :DRAWER #1=(FR-FILE-DRAWER) 3. FR-FILE-DRAWER 1. 2.
  68.      )
  69.    FR-FILE-DRAWER SYSTEM::DEFSTRUCT-DESCRIPTION #1#
  70.    ((FILE 1. NIL T NIL) (DRAWER 2. NIL T NIL)) CLOS::DEFINE-STRUCTURE-CLASS
  71.    (INLINE FR-FILE-DRAWER-P) FR-FILE-DRAWER-P SYSTEM::INLINE-EXPANSION
  72.    ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN FR-FILE-DRAWER-P))
  73.      (BLOCK FR-FILE-DRAWER-P
  74.        (SYSTEM::%STRUCTURE-TYPE-P 'FR-FILE-DRAWER SYSTEM::OBJECT)
  75.    ) )
  76.    #Y(FR-FILE-DRAWER-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02) FR-FILE-DRAWER
  77.      )
  78.    (INLINE COPY-FR-FILE-DRAWER) COPY-FR-FILE-DRAWER
  79.    ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-FR-FILE-DRAWER))
  80.      (BLOCK COPY-FR-FILE-DRAWER (SYSTEM::%COPY-STRUCTURE STRUCTURE))
  81.    )
  82.    #Y(COPY-FR-FILE-DRAWER #11Y(00 01 00 00 00 02 AB 31 34 19 02))
  83.    (FUNCTION FR-FILE-DRAWER-FILE (FR-FILE-DRAWER) T)
  84.    (INLINE FR-FILE-DRAWER-FILE) FR-FILE-DRAWER-FILE
  85.    (#2=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN FR-FILE-DRAWER-FILE))
  86.      (BLOCK FR-FILE-DRAWER-FILE
  87.        (THE T (SYSTEM::%STRUCTURE-REF 'FR-FILE-DRAWER SYSTEM::OBJECT 1.))
  88.    ) )
  89.    #Y(FR-FILE-DRAWER-FILE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
  90.       FR-FILE-DRAWER 1.
  91.      )
  92.    (FUNCTION FR-FILE-DRAWER-DRAWER (FR-FILE-DRAWER) T)
  93.    (INLINE FR-FILE-DRAWER-DRAWER) FR-FILE-DRAWER-DRAWER
  94.    (#2# (DECLARE (SYSTEM::IN-DEFUN FR-FILE-DRAWER-DRAWER))
  95.      (BLOCK FR-FILE-DRAWER-DRAWER
  96.        (THE T (SYSTEM::%STRUCTURE-REF 'FR-FILE-DRAWER SYSTEM::OBJECT 2.))
  97.    ) )
  98.    #Y(FR-FILE-DRAWER-DRAWER #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
  99.       FR-FILE-DRAWER 2.
  100.      )
  101.    SYSTEM::SETF-EXPANDER -1.
  102.    #Y(SETF-FR-FILE-DRAWER-FILE
  103.       #18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  104.       SYSTEM::%STRUCTURE-STORE 'FR-FILE-DRAWER 1.
  105.      )
  106.    SETF SYSTEM::%SET-DOCUMENTATION
  107.    #Y(SETF-FR-FILE-DRAWER-DRAWER
  108.       #18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
  109.       SYSTEM::%STRUCTURE-STORE 'FR-FILE-DRAWER 2.
  110.      )
  111.    STRUCTURE SYSTEM::STRUCTURE-PRINT
  112.   )
  113. #Y(#:TOP-LEVEL-FORM-7-2-1 #13Y(00 00 00 00 00 01 D8 D9 2F 02 3D 19 01)
  114.    (C-STRUCT FR-FILE-DRAWER (FILE C-STRING) (DRAWER C-STRING)) FR-FILE-DRAWER
  115.    FFI::PARSE-C-TYPE
  116.   )
  117. #Y(#:TOP-LEVEL-FORM-7-2-2 #9Y(00 00 00 00 00 01 C3 19 01) FR-FILE-DRAWER)
  118. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  119.    ASLFILEREQUEST2 SYSTEM::REMOVE-OLD-DEFINITIONS
  120.    #Y(ASLFILEREQUEST2
  121.       #54Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
  122.            0B 54 19 02 DB AD DC DD 6D 04 06 6E 07 E0 AE E1 DD 6D 04 06 6E 07 AA
  123.            AC 2F 0A 16 02 53 1A 5D
  124.           )
  125.       0. ALLOCASLREQUEST ASLREQUEST "file" 4. C-STRING
  126.       FFI::FOREIGN-ADDRESS-VARIABLE FFI::FOREIGN-VALUE "drawer" 8. ADDPART2
  127.       FREEASLREQUEST
  128.   )  )
  129. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  130.    ASLFILEREQUEST3 SYSTEM::REMOVE-OLD-DEFINITIONS
  131.    #Y(ASLFILEREQUEST3
  132.       #57Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
  133.            0D 54 19 02 DB AD DC DD 6E 06 6D 04 07 AA E0 6F 09 6E 0A AB E3 6F 09
  134.            6E 0A AA AC 2F 0C 16 03 53 1A 5A
  135.           )
  136.       0. ALLOCASLREQUEST ASLREQUEST "f+d" 4. FR-FILE-DRAWER FFI::PARSE-C-TYPE
  137.       FFI::FOREIGN-ADDRESS-VARIABLE FILE FFI::%SLOT FFI::FOREIGN-VALUE DRAWER
  138.       ADDPART2 FREEASLREQUEST
  139.   )  )
  140. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  141.    ASLFILEREQUEST5 SYSTEM::REMOVE-OLD-DEFINITIONS
  142.    #Y(ASLFILEREQUEST5
  143.       #57Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
  144.            0C 54 19 02 DB AD DC DD 6E 06 6D 04 07 6E 08 DD AB E1 71 31 DD AC E2
  145.            71 31 AA AC 2F 0B 16 03 53 1A 5A
  146.           )
  147.       0. ALLOCASLREQUEST ASLREQUEST "f+d" 4. FR-FILE-DRAWER FFI::PARSE-C-TYPE
  148.       FFI::FOREIGN-ADDRESS-VARIABLE FFI::FOREIGN-VALUE 1. 2. ADDPART2
  149.       FREEASLREQUEST
  150.   )  )
  151. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  152.    ASLFILEREQUEST7 SYSTEM::REMOVE-OLD-DEFINITIONS
  153.    #Y(ASLFILEREQUEST7
  154.       #55Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
  155.            0C 54 19 02 DB AD DC DD 6D 04 06 AA DF 6F 08 6E 09 AB E2 6F 08 6E 09
  156.            AA AC 2F 0B 16 03 53 1A 5C
  157.           )
  158.       0. ALLOCASLREQUEST ASLREQUEST "f+d" 4.
  159.       #(C-STRUCT #(FILE DRAWER)
  160.         #Y(:LAMBDA
  161.            #22Y(00 02 00 00 00 03 62 6E 00 AA D9 AF 31 3F AA DA AE 31 3F 15 19
  162.                 03
  163.                )
  164.            CLOS:MAKE-INSTANCE FILE DRAWER
  165.           )
  166.         C-STRING C-STRING
  167.        )
  168.       FFI::FOREIGN-ADDRESS-VARIABLE FILE FFI::%SLOT FFI::FOREIGN-VALUE DRAWER
  169.       ADDPART2 FREEASLREQUEST
  170.   )  )
  171. #Y(#:TOP-LEVEL-FORM-12
  172.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
  173.    WITH-FOREIGN-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  174.    #Y(WITH-FOREIGN-VALUE
  175.       #107Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 80 48 9D 5B 5A 77 9E 5B 5A
  176.             5B 77 9F 5B 5A 5B 5B 77 A0 5B 5A 5B 5B 5B 1B 36 C5 14 A1 5B 78 37
  177.             01 71 90 DB AB DC DD B2 B1 A4 20 2D DF DE B5 60 02 14 7A 02 7A 05
  178.             7A 02 7A 01 E0 B2 E1 AF 7A 02 7A 02 7A 01 A0 7B 02 60 03 19 09 AC
  179.             2E 01 19 03 A0 5B 5A 5B 5B 5B 5A 1A 42 DE B4 2E 07 1A 52
  180.            )
  181.       2. SYSTEM::MACRO-CALL-ERROR 0. LET FFI::FOREIGN-ADDRESS-VARIABLE
  182.       "unnamed" QUOTE FFI::PARSE-C-TYPE SYMBOL-MACROLET FFI::FOREIGN-VALUE
  183.   )  )
  184. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  185.    ASLFILEREQUEST8 SYSTEM::REMOVE-OLD-DEFINITIONS
  186.    #Y(ASLFILEREQUEST8
  187.       #53Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
  188.            0C 54 19 02 DB AD DC DD 6D 04 06 AA DF 6F 08 6E 09 AB E2 6F 08 6E 09
  189.            2F 0B 16 01 53 1A 5E
  190.           )
  191.       0. ALLOCASLREQUEST ASLREQUEST "unnamed" 4.
  192.       #(C-STRUCT #(FILE DRAWER)
  193.         #Y(:LAMBDA
  194.            #22Y(00 02 00 00 00 03 62 6E 00 AA D9 AF 31 3F AA DA AE 31 3F 15 19
  195.                 03
  196.                )
  197.            CLOS:MAKE-INSTANCE FILE DRAWER
  198.           )
  199.         C-STRING C-STRING
  200.        )
  201.       FFI::FOREIGN-ADDRESS-VARIABLE DRAWER FFI::%SLOT FFI::FOREIGN-VALUE FILE
  202.       ADDPART2 FREEASLREQUEST
  203.   )  )
  204. #Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  205.    ASLFILEREQUEST9 SYSTEM::REMOVE-OLD-DEFINITIONS
  206.    #Y(ASLFILEREQUEST9
  207.       #55Y(00 00 00 00 00 01 D8 D8 6F 01 52 07 AC D8 89 02 0A 00 53 66 00 00 2E
  208.            0D 54 19 02 DB AD DC DD 6E 06 6D 04 07 AA E0 6F 09 6E 0A AB E3 6F 09
  209.            6E 0A 2F 0C 16 01 53 1A 5C
  210.           )
  211.       0. ALLOCASLREQUEST ASLREQUEST "unnamed" 4. FR-FILE-DRAWER
  212.       FFI::PARSE-C-TYPE FFI::FOREIGN-ADDRESS-VARIABLE DRAWER FFI::%SLOT
  213.       FFI::FOREIGN-VALUE FILE ADDPART2 FREEASLREQUEST
  214.   )  )
  215.