I'm running ooRexx on OpenSuSE 13.1, x86_64. The version is
> $rexx -v
> Open Object Rexx Version 4.2.0
> Build date: Dec 29 2013
> Addressing Mode: 64
I wanted to use the invocation method to determine how to route my
output.
On the mainframe, parse source tells me that, and the ooRexx Language
Reference appears to tell me that it will work here as well; but even though
I called my program as a subprogram via the call command, it
returned 'COMMAND', so I wrote a little program to test the parse source
instruction.
> $cat testParseSource
> #!/usr/bin/rexx
> /*
> ╔════════════════════════════════════════════════════════════════╗
> ║testParseSource: Test the ooRexx "parse source" instruction. ║
> ║ ║
> ║Usage: ║
> ║▶▶─testParseSource┬─────────┬─────────────────────────────────▶◀║
> ║ └[─Help┬─┬┘ ║
> ║ └]┘ ║
> ║where ║
> ║ Help ║
> ║ causes this information to be displayed. ║
> ╚════════════════════════════════════════════════════════════════╝
> */
> if usage(arg(1)) = 'exit' then
> exit 0
>
> trace normal
> --Give the routines something to do.
> cmd. = ''
> cmd.pwd = '/usr/bin/pwd'
> cmd.rxqueue = '|/usr/bin/rxqueue'
>
> parse source . invoke.main .
> say 'Mainline: Invoked via' invoke.main'.'
> cmd.pwd,
> cmd.rxqueue
> parse pull thisDir
> say 'Mainline: ' thisDir
> call subprogram
> say 'Subprogram: Invoked via' result'.'
> say 'Function: Invoked via' function()'.'
> call routine
> say 'Routine: Invoked via' result'.'
> say 'Routine: Invoked via' routine()'.'
> exit 0
>
> subprogram: procedure expose cmd.
> trace normal
> parse source . invoke .
> cmd.pwd,
> cmd.rxqueue
> parse pull thisDir
> say 'Subprogram:' thisDir
> return invoke
>
> function: procedure expose cmd.
> trace normal
> parse source . invoke .
> cmd.pwd,
> cmd.rxqueue
> parse pull thisDir
> say 'Function: ' thisDir
> return invoke
>
> ::routine routine
> expose cmd.
> trace normal
> cmd.pwd,
> cmd.rxqueue
> parse pull thisDir
> parse source . invoke .
> say 'Routine: ' thisDir
> return invoke
>
> ::routine usage
> trace normal
> parse arg . '[' options ']' .
>
> do o = 1 to options ~ words
> if abbrev('help',word(options,o),1) then
> do
> do l = 3 by 1
> line = sourceline(l)
>
> if line = '*/' then
> return 'exit'
>
> parse var line 'E29591'x line 'E29591'x .
> say line
> end
> end
> end
> return 'continue'
When I run it, I get these results:
> $testParseSource
> Mainline: Invoked via COMMAND.
> Mainline: /home/leslie/bin/rexx
> Subprogram: /home/leslie/bin/rexx
> Subprogram: Invoked via COMMAND.
> Function: /home/leslie/bin/rexx
> Function: Invoked via COMMAND.
> 57 *-* expose cmd.
> 33 *-* call routine
> REX0099E: Error 99 running /home/leslie/bin/rexx/testParseSource line 57:
Translation error
> REX0512E: Error 99.907: EXPOSE must be the first instruction executed after
a method invocation
So, either I'm doing something wrong, or parse source is broken. Help!
Leslie
--
A Caution to Everybody
Consider the Auk;
Becoming extinct because he forgot how to fly, and could only walk.
Consider man, who may well become extinct
Because he forgot how to walk and learned how to fly before he thinked.
-- Ogden Nash
------------------------------------------------------------------------------
_______________________________________________
Oorexx-users mailing list
Oorexx-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-users
