home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / rexx1.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  5.2 KB  |  135 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "LISP"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  6.    (REXX-RUN-COMMAND REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND REXX-DO-COMMAND
  7.      REXX-LOOP *REXX-IGNORE-ERRORS*
  8.   ))
  9. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  10.    "SYSTEM"
  11.   )
  12. #Y(#:TOP-LEVEL-FORM-4
  13.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
  14.        )
  15.    (SPECIAL *REXX-OUTMSG-LIST*) *REXX-OUTMSG-LIST*
  16.   )
  17. #Y(#:TOP-LEVEL-FORM-5
  18.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  19.    REXX-ADD-INDEX REMOVE-OLD-DEFINITIONS
  20.    #Y(REXX-ADD-INDEX
  21.       #22Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 9D 79 0E 00 5C 0F 00 19 03)
  22.       *REXX-OUTMSG-LIST*
  23.   )  )
  24. #Y(#:TOP-LEVEL-FORM-6
  25.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  26.    REXX-FIND-INDEX REMOVE-OLD-DEFINITIONS
  27.    #Y(REXX-FIND-INDEX
  28.       #20Y(00 00 00 00 01 00 00 00 00 02 AB 6A 00 D9 37 02 30 BF 19 02)
  29.       *REXX-OUTMSG-LIST* #.#'EQUAL
  30.   )  )
  31. #Y(#:TOP-LEVEL-FORM-7
  32.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  33.    REXX-DELETE-ENTRY REMOVE-OLD-DEFINITIONS
  34.    #Y(REXX-DELETE-ENTRY
  35.       #23Y(00 00 00 00 01 00 00 00 00 02 AB 6A 00 37 07 C4 F8 31 54 0F 00 19 02
  36.           )
  37.       *REXX-OUTMSG-LIST* #.#'EQ
  38.   )  )
  39. #Y(#:TOP-LEVEL-FORM-8
  40.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 84 C3
  41.         19 01
  42.        )
  43.    REXX-SEND-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  44.    "Starts asynchronous execution of a rexx command." %SET-DOCUMENTATION
  45.    #Y(REXX-SEND-COMMAND
  46.       #32Y(00 00 00 00 01 00 00 00 81 00 05 00 00 00 98 05 B2 A3 76 01 91 00 03
  47.            00 19 09 14 2E 06 15 19 08
  48.           )
  49.       :RESULT :STRING :TOKEN :ASYNC :IO %REXX-PUT REXX-ADD-INDEX
  50.   )  )
  51. #Y(#:TOP-LEVEL-FORM-9
  52.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  53.    REXX-NEXT-EVENT REMOVE-OLD-DEFINITIONS
  54.    #Y(REXX-NEXT-EVENT
  55.       #24Y(00 00 00 00 00 00 00 00 00 01 1A 04 16 01 2D 01 2D 00 14 92 00 76 19
  56.            02
  57.           )
  58.       %REXX-GET %REXX-WAIT-INPUT
  59.   )  )
  60. #Y(#:TOP-LEVEL-FORM-10
  61.    #30Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 63 30 56 D9 DA DB
  62.         2C 03 04 C4 19 01
  63.        )
  64.    (SPECIAL *REXX-IGNORE-ERRORS*) *REXX-IGNORE-ERRORS* VARIABLE
  65.    "If T silently ignore errors, if NIL invoke normal *error-handler*,
  66.   otherwise must be a function that is bound to *error-handler*"
  67.    %SET-DOCUMENTATION
  68.   )
  69. #Y(#:TOP-LEVEL-FORM-11
  70.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 84 C3
  71.         19 01
  72.        )
  73.    REXX-LOOP REMOVE-OLD-DEFINITIONS FUNCTION
  74.    "Rexx driver loop. Optional message to wait for." %SET-DOCUMENTATION
  75.    #Y(REXX-LOOP
  76.       #32Y(02 00 01 00 00 00 01 00 00 07 00 2A 01 3A 02 01 00 0B 00 00 46 00 07
  77.            AD AD 6C 01 02 30 59 19 03
  78.           )
  79.       REXX-LOOP
  80.       #Y(LISP::REXX-LOOP-1
  81.          #151Y(07 00 03 00 00 00 00 00 00 01 2D 02 14 9B 5B 77 8D 0B 80 45 62
  82.                52 80 68 46 04 80 63 37 01 71 78 52 23 6A 05 8D 20 80 4A 0E 05
  83.                1C 80 4A AF 2B 07 01 10 06 A7 5B 77 37 05 70 83 70 5F B0 30 89
  84.                11 AC 31 79 3E 53 66 00 00 00 37 01 31 7F 54 16 01 FB 47 53 1A
  85.                2B 9B 5B 48 01 93 00 6E 03 92 00 05 14 94 02 30 AF 16 01 93 00
  86.                68 00 01 8D 05 66 00 19 02 0E 05 1A FF BA 0E 06 1A FF B5 CB 1A
  87.                0D 53 05 00 00 01 77 05 00 00 00 1B 71 CC 14 66 00 00 00 2C 03
  88.                0A 54 19 03
  89.               )
  90.          NIL NIL REXX-NEXT-EVENT REXX-FIND-INDEX TRY-REP *REXX-IGNORE-ERRORS*
  91.          *ERROR-HANDLER*
  92.          #Y(LISP::REXX-LOOP-1-1 #13Y(00 00 00 00 00 00 00 00 01 16 00 48 00)
  93.             NIL
  94.            )
  95.          0. 5. %REXX-REPLY
  96.   )  )  )
  97. #Y(#:TOP-LEVEL-FORM-12
  98.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 84 C3
  99.         19 01
  100.        )
  101.    REXX-WAIT-SENT-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  102.    "Waits for command termination." %SET-DOCUMENTATION
  103.    #Y(REXX-WAIT-SENT-COMMAND
  104.       #41Y(00 00 00 00 01 00 00 00 00 02 AB 6E 00 91 00 0E D9 DA DB DC 6D 03 05
  105.            AE 32 01 1F AC 2E 07 9B 5B 1C 79 AA 2E 06 9B 5B 19 03
  106.           )
  107.       REXX-FIND-INDEX ERROR "No waiting for ~S possible."
  108.       "Kein Warten auf ~S m÷glich." "Pas d'attente de ~S possible." LANGUAGE
  109.       REXX-DELETE-ENTRY REXX-LOOP
  110.   )  )
  111. #Y(#:TOP-LEVEL-FORM-13
  112.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 84 C3
  113.         19 01
  114.        )
  115.    REXX-DO-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  116.    "Executes command, waiting for result." %SET-DOCUMENTATION
  117.    #Y(REXX-DO-COMMAND
  118.       #31Y(00 00 00 00 01 00 00 00 C1 00 00 00 00 00 98 00 AD 9E 76 01 91 00 03
  119.            00 19 04 14 2E 01 19 04
  120.           )
  121.       REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND
  122.   )  )
  123. #Y(#:TOP-LEVEL-FORM-14
  124.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA DB 2C 03 04 D8 DD 31 84 C3
  125.         19 01
  126.        )
  127.    REXX-RUN-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
  128.    "Runs a rexx command asynchronously, no return code." %SET-DOCUMENTATION
  129.    #Y(REXX-RUN-COMMAND
  130.       #36Y(00 00 00 00 01 00 00 00 80 1C 02 00 00 00 3C 02 3C 01 AD D8 AE D9 AF
  131.            DA 63 2C 07 03 1B 03 00 19 04 02 19 04
  132.           )
  133.       :STRING :TOKEN :ASYNC REXX-DO-COMMAND
  134.   )  )
  135.