mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-04-10 14:13:48 +02:00
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
37 lines
581 B
Rexx
Executable File
37 lines
581 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()
|
|
if args = "" then do
|
|
say _who " " "No arguments given "
|
|
_ret = 0
|
|
end
|
|
else do
|
|
say _who " args " ">>>"args"<<<"
|
|
_ret = args
|
|
end
|
|
say _who " ended "
|
|
|
|
exit _ret
|
|
|
|
|