home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR24
/
CLISP.ZIP
/
REXX.FAS
< prev
next >
Wrap
Text File
|
1993-09-13
|
4KB
|
79 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
(REXX-RUN-COMMAND REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND REXX-DO-COMMAND REXX-LOOP)
)
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-4 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
(SPECIAL *REXX-OUTMSG-LIST*) *REXX-OUTMSG-LIST*
)
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REXX-ADD-INDEX
REMOVE-OLD-DEFINITIONS
#Y(REXX-ADD-INDEX #18Y(01 00 01 00 00 08 3C 01 A9 9A 76 0E 00 58 0F 00 19 03) *REXX-OUTMSG-LIST*
) )
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REXX-FIND-INDEX
REMOVE-OLD-DEFINITIONS
#Y(REXX-FIND-INDEX #16Y(01 00 00 00 00 02 A8 67 00 D6 37 02 30 BA 19 02) *REXX-OUTMSG-LIST*
#.#'EQUAL
) )
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REXX-DELETE-ENTRY
REMOVE-OLD-DEFINITIONS
#Y(REXX-DELETE-ENTRY #19Y(01 00 00 00 00 02 A8 67 00 37 07 C1 F8 31 4B 0F 00 19 02)
*REXX-OUTMSG-LIST* #.#'EQ
) )
#Y(#:TOP-LEVEL-FORM-8 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
REXX-SEND-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
"Starts asynchronous execution of a rexx command." %SET-DOCUMENTATION
#Y(REXX-SEND-COMMAND
#28Y(01 00 00 00 81 00 05 00 00 00 95 05 AF A0 73 01 8E 00 03 00 19 09 14 2E 06 15 19 08)
:RESULT :STRING :TOKEN :ASYNC :IO %REXX-PUT REXX-ADD-INDEX
) )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REXX-NEXT-EVENT
REMOVE-OLD-DEFINITIONS
#Y(REXX-NEXT-EVENT #20Y(00 00 00 00 00 01 1A 04 16 01 2D 01 2D 00 14 8F 00 76 19 02) %REXX-GET
%REXX-WAIT-INPUT
) )
#Y(#:TOP-LEVEL-FORM-10 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
REXX-LOOP REMOVE-OLD-DEFINITIONS FUNCTION "Rexx driver loop. Optional message to wait for."
%SET-DOCUMENTATION
#Y(REXX-LOOP
#31Y(00 00 01 00 00 07 00 2A 01 3A 02 01 00 0B 00 00 46 00 0A AA AA 69 01 02 30 56 47 19 03
19 03
)
REXX-LOOP
#Y(LISP::REXX-LOOP-1
#121Y(00 00 00 00 00 01 2D 02 14 98 57 74 8A 05 39 5F 50 80 52 46 04 80 4D 37 01 6E 69 50
18 AC 2B 05 01 10 06 A4 57 74 37 05 6D 7E 6D 5C AD 30 84 11 A9 31 6A 3E 51 63 00 00
37 01 31 6F 52 16 01 FB 47 51 1A 21 98 57 48 01 90 00 6B 03 8F 00 05 14 91 02 30 AA
16 01 90 00 65 00 01 88 FF 66 00 19 02 C7 1A 0B 51 05 00 01 74 05 00 00 1B 73 C8 14
63 00 00 2C 03 09 52 19 03
)
NIL NIL REXX-NEXT-EVENT REXX-FIND-INDEX TRY-REP
#Y(LISP::REXX-LOOP-1-1 #9Y(00 00 00 00 01 16 00 48 00) NIL) *ERROR-HANDLER* 0. 5.
%REXX-REPLY
) ) )
#Y(#:TOP-LEVEL-FORM-11 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
REXX-WAIT-SENT-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION "Waits for command termination."
%SET-DOCUMENTATION
#Y(REXX-WAIT-SENT-COMMAND
#34Y(01 00 00 00 00 02 1A 09 D6 AA 5E 01 A9 2E 03 16 01 A8 6B 00 8F 00 71 98 57 1C 71 A7 2E
02 98 57 19 03
)
REXX-FIND-INDEX "No waiting for ~S possible." REXX-DELETE-ENTRY REXX-LOOP
) )
#Y(#:TOP-LEVEL-FORM-12 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
REXX-DO-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION "Executes command, waiting for result."
%SET-DOCUMENTATION
#Y(REXX-DO-COMMAND
#27Y(01 00 00 00 C1 00 00 00 00 00 95 00 AA 9B 73 01 8E 00 03 00 19 04 14 2E 01 19 04)
REXX-SEND-COMMAND REXX-WAIT-SENT-COMMAND
) )
#Y(#:TOP-LEVEL-FORM-13 #22Y(00 00 00 00 00 01 D5 2E 01 D5 D7 D8 2C 03 04 D5 DA 31 74 C0 19 01)
REXX-RUN-COMMAND REMOVE-OLD-DEFINITIONS FUNCTION
"Runs a rexx command asynchronously, no return code." %SET-DOCUMENTATION
#Y(REXX-RUN-COMMAND
#32Y(01 00 00 00 80 1C 02 00 00 00 3C 02 3C 01 AA D5 AB D6 AC D7 60 2C 07 03 1B 03 00 19 04
02 19 04
)
:STRING :TOKEN :ASYNC REXX-DO-COMMAND
) )