home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / src / archive / clisp.faslsp.lha / rexx1.fas < prev    next >
Text File  |  1996-06-17  |  5KB  |  109 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) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  4.    (REXX-RUN-COMMAND REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND REXX-DO-COMMAND
  5.      REXX-LOOP *REXX-IGNORE-ERRORS*
  6.   ))
  7. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  8. #Y(#:TOP-LEVEL-FORM-4
  9.    #20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
  10.    (SPECIAL *REXX-OUTMSG-LIST*) *REXX-OUTMSG-LIST*
  11.   )
  12. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  13.    REXX-ADD-INDEX REMOVE-OLD-DEFINITIONS
  14.    #Y(REXX-ADD-INDEX
  15.       #18Y(00 01 00 01 00 08 3C 01 AC 9D 79 0E 00 5C 0F 00 19 03)
  16.       *REXX-OUTMSG-LIST*
  17.   )  )
  18. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  19.    REXX-FIND-INDEX REMOVE-OLD-DEFINITIONS
  20.    #Y(REXX-FIND-INDEX #16Y(00 01 00 00 00 02 AB 6A 00 D9 37 02 30 BE 19 02)
  21.       *REXX-OUTMSG-LIST* #.#'EQUALP
  22.   )  )
  23. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  24.    REXX-DELETE-ENTRY REMOVE-OLD-DEFINITIONS
  25.    #Y(REXX-DELETE-ENTRY
  26.       #19Y(00 01 00 00 00 02 AB 6A 00 37 07 C4 F8 31 52 0F 00 19 02)
  27.       *REXX-OUTMSG-LIST* #.#'EQ
  28.   )  )
  29. #Y(#:TOP-LEVEL-FORM-8
  30.    #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 82 C3 19 01)
  31.    REXX-SEND-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  32.    "Starts asynchronous execution of a rexx command." %SET-DOCUMENTATION
  33.    #Y(REXX-SEND-COMMAND
  34.       #27Y(00 01 00 00 81 00 00 05 00 00 DD B2 A3 76 01 91 00 03 00 19 09 14 2E
  35.            06 15 19 08
  36.           )
  37.       :RESULT :STRING :TOKEN :ASYNC :IO #.#'%REXX-PUT REXX-ADD-INDEX
  38.   )  )
  39. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  40.    REXX-NEXT-EVENT REMOVE-OLD-DEFINITIONS
  41.    #Y(REXX-NEXT-EVENT
  42.       #20Y(00 00 00 00 00 01 1A 04 16 01 2D 01 2D 00 14 92 00 76 19 02)
  43.       %REXX-GET %REXX-WAIT-INPUT
  44.   )  )
  45. #Y(#:TOP-LEVEL-FORM-10
  46.    #26Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 63 30 55 D9 DA DB 2C 03 04 C4
  47.         19 01
  48.        )
  49.    (SPECIAL *REXX-IGNORE-ERRORS*) *REXX-IGNORE-ERRORS* VARIABLE
  50.    "If T silently ignore errors, if NIL invoke normal *error-handler*,
  51.   otherwise must be a function that is bound to *error-handler*"
  52.    %SET-DOCUMENTATION
  53.   )
  54. #Y(#:TOP-LEVEL-FORM-11
  55.    #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 82 C3 19 01)
  56.    REXX-LOOP REMOVE-OLD-DEFINITIONS FUNCTION
  57.    "Rexx driver loop. Optional message to wait for." %SET-DOCUMENTATION
  58.    #Y(REXX-LOOP
  59.       #28Y(00 00 00 01 00 07 00 2A 01 3A 02 01 00 0B 00 00 46 00 07 AD AD 6C 01
  60.            02 30 58 19 03
  61.           )
  62.       REXX-LOOP
  63.       #Y(LISP::REXX-LOOP-1
  64.          #143Y(00 00 00 00 00 01 2D 02 14 9B 5B 77 8D 0A 80 44 62 52 80 67 46
  65.                04 80 62 37 01 71 76 52 23 6A 05 8D 1F 80 49 0E 05 1C 80 49 AF
  66.                2B 07 01 10 06 A7 5B 77 37 05 70 82 70 5E B0 30 88 11 AC 31 77
  67.                3E 53 66 00 00 37 01 31 7D 54 16 01 FB 47 53 1A 2B 9B 5B 48 01
  68.                93 00 6E 03 92 00 05 14 94 02 30 AE 16 01 93 00 68 00 01 8D 05
  69.                66 00 19 02 0E 05 1A FF BB 0E 06 1A FF B6 CB 1A 0B 53 05 00 01
  70.                77 05 00 00 1B 73 CC 14 66 00 00 2C 03 0A 54 19 03
  71.               )
  72.          NIL NIL REXX-NEXT-EVENT REXX-FIND-INDEX TRY-REP *REXX-IGNORE-ERRORS*
  73.          *ERROR-HANDLER*
  74.          #Y(LISP::REXX-LOOP-1-1 #9Y(00 00 00 00 01 16 00 48 00) NIL) 0. 5.
  75.          %REXX-REPLY
  76.   )  )  )
  77. #Y(#:TOP-LEVEL-FORM-12
  78.    #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 82 C3 19 01)
  79.    REXX-WAIT-SENT-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  80.    "Waits for command termination." %SET-DOCUMENTATION
  81.    #Y(REXX-WAIT-SENT-COMMAND
  82.       #37Y(00 01 00 00 00 02 AB 6E 00 91 00 0E D9 DA DB DC 6D 03 05 AE 32 01 1F
  83.            AC 2E 07 9B 5B 1C 79 AA 2E 06 9B 5B 19 03
  84.           )
  85.       REXX-FIND-INDEX ERROR "No waiting for ~S possible."
  86.       "Kein Warten auf ~S möglich." "Pas d'attente de ~S possible." LANGUAGE
  87.       REXX-DELETE-ENTRY REXX-LOOP
  88.   )  )
  89. #Y(#:TOP-LEVEL-FORM-13
  90.    #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 82 C3 19 01)
  91.    REXX-DO-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  92.    "Executes command, waiting for result." %SET-DOCUMENTATION
  93.    #Y(REXX-DO-COMMAND
  94.       #27Y(00 01 00 00 C1 00 00 00 00 00 98 00 AD 9E 76 01 91 00 03 00 19 04 14
  95.            2E 01 19 04
  96.           )
  97.       REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND
  98.   )  )
  99. #Y(#:TOP-LEVEL-FORM-14
  100.    #22Y(00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 82 C3 19 01)
  101.    REXX-RUN-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  102.    "Runs a rexx command asynchronously, no return code." %SET-DOCUMENTATION
  103.    #Y(REXX-RUN-COMMAND
  104.       #32Y(00 01 00 00 80 1C 00 02 00 00 3C 02 3C 01 AD D8 AE D9 AF DA 63 2C 07
  105.            03 1B 03 00 19 04 02 19 04
  106.           )
  107.       :STRING :TOKEN :ASYNC REXX-DO-COMMAND
  108.   )  )
  109.