MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 17
Entry points (cont)
• I/O redirection specific approach:
PARM p1 … # no “entry” parm defined
if HPSTDIN = “$STDIN” then
# assume “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