#309 regina rexx file <support> broken after issuing an external

open
nobody
None
5
2010-05-28
2010-05-28
Enrico
No

after three years time to post again on the same issue
( PR 1466142, PR1657847 )

looking at PR 1657847 it says fixed,
but I checked again last night with the latest svn
THE ISSUE IS STILL THERE

ok voluntary effort but meditate please ...

somebody my ask...
why complain after three years
well since I was in a hurry I used some workaround and used rexx inline
functions instead of external commands
now every rexx has to include many hundreds of lines that could be
spared if ...
ADDRESS COMMAND
and the other LEGAL form
result = "somecommand"(someparms)
( second form preferred since no stem is involved )
did not break file positioning

first symptom ...
after the external command
lines() and chars() return always ZERO
file position is lost..

if anybody is willing to guide me I have no problems
in helping to debug the issue

let me know what documentation You need to proceed

thanks for listening

regards
enrico

ps here is again the sample used to test () the external command used is irrelevant )

#!/opt/regina-rexx/bin/rexx
Trace "O"

parse source _src
parse version _ver

say "parse source _src" _src
say "parse version _ver" _ver

parse arg file

do while ( lines(file) > 0 )
buff = linein(file)
say "*****" buff

/*
list = "ls"()
say list
*/

end
exit

tested on SNOW leopard

uncommenting the LS stuff will print just the first line

Discussion


Log in to post a comment.