2025-03-13 22:04:25 +00:00
|
|
|
#!/usr/bin/env rexx
|
|
|
|
|
|
2025-03-17 23:22:49 +00:00
|
|
|
|
2025-03-13 22:04:25 +00:00
|
|
|
/* Rexx */
|
|
|
|
|
Address system
|
|
|
|
|
parse arg parms
|
|
|
|
|
|
2025-03-17 23:22:49 +00:00
|
|
|
Address system "pwd" with output stem pwd.
|
|
|
|
|
say pwd.1
|
|
|
|
|
|
|
|
|
|
|
2025-03-13 22:04:25 +00:00
|
|
|
call parse_argv
|
|
|
|
|
|
|
|
|
|
say "Instruction: " || instr
|
|
|
|
|
say "Parameter : " || parm
|
|
|
|
|
|
|
|
|
|
exit
|
|
|
|
|
|
|
|
|
|
parse_argv: procedure expose parms instr parm
|
|
|
|
|
parse var parms instr "(" parm ")"
|
|
|
|
|
if instr="" & parm="" then call HELP
|
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
HELP:
|
2025-03-17 23:22:49 +00:00
|
|
|
/* "clear" */
|
2025-03-13 22:04:25 +00:00
|
|
|
say "********************************************************"
|
|
|
|
|
say "* YOUR STRINGS WERE EMPTY. HOW DARE YOU. *"
|
|
|
|
|
say "********************************************************"
|
|
|
|
|
exit 1
|
