MPE CI Programming for 7.5

July 22, 2008
Page 22
hp e3000
strategy
entry points (cont)
• i/o redirection specific approach:
PARM p1 … # no “entry” parm defined
if HPSTDIN = “$STDIN” then
… (“main” entry -- initialize etc…)
xeq !HPFILE !p1, … <somefile
… (cleanup etc…)
return
else # no elseif since only 1 alternate
# execute the entry to read “somefile”
setvar eof FINFO(hpstdin, “eof”)
…
return
endif