mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-07-31 12:59:32 +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
32 lines
408 B
Rexx
Executable File
32 lines
408 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 "." .
|
|
|
|
if ( args = "" ) then ,
|
|
coun = 1
|
|
else ,
|
|
coun = args
|
|
|
|
say _who " started " coun
|
|
if ( coun > 0 ) then do
|
|
"exec " _who coun-1
|
|
end
|
|
say _who " ended " coun
|
|
|
|
exit 0
|
|
|
|
|
|
|