mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-07-30 04:19:35 +02:00
Enrico Sorichetti
10573a033a
fixed some header checking, added the scripts directory ( makefile and friends later ) added the README.REXX.V2 when the whole thing has been reasonably tested I will cleanup enjoy
40 lines
688 B
Rexx
Executable File
40 lines
688 B
Rexx
Executable File
#! /bin/cat
|
|
|
|
Trace "O"
|
|
|
|
parse arg args
|
|
args = space(args)
|
|
argc = words(args)
|
|
|
|
parse version _ver
|
|
parse source _src
|
|
_env = Address()
|
|
|
|
parse var _src . . _cmd
|
|
_who = filespec("n",_cmd)
|
|
parse var _who _who "." .
|
|
|
|
|
|
say _who "started "
|
|
say _who "version " _ver
|
|
say _who "source " _src
|
|
say _who "HOSTENV " _env
|
|
say _who "date " date()
|
|
say _who "time " time()
|
|
|
|
Address HOSTEMU "EXECIO * DISKR '"_cmd"' ( stem stmt. finis "
|
|
if RC \= 0 then ,
|
|
say _who " EXECIO RC("RC") "
|
|
else ,
|
|
do i = 1 to stmt.0
|
|
if strip(stmt.i) = "" then ,
|
|
iterate
|
|
say _who "("right(i,4)") : "stmt.i
|
|
end
|
|
|
|
say _who " ended"
|
|
|
|
exit 0
|
|
|
|
::requires hostemu LIBRARY
|