MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 101
Where (cont)
. . .
# loop through hppath
setvar _wh_i 0
while setvar(_wh_tok,word(hppath,”,; “,setvar(_wh_i,_wh_i+1)))<>”” do
if delimpos(_wh_tok,”/.”) = 1 then
# we have a POSIX path element
setvar _wh_tok "!_wh_tok/!_wh_cmd”
elseif _wh_mpe_ok then
# we have an MPE syntax HPPATH element with an unqualified _tok
setvar _wh_tok "!_wh_cmd.!_wh_tok”
endif
errclear
if _wh_wild then
continue
listfile !_wh_tok,6 >prntlf
elseif finfo(_wh_tok,'exists') then
# write to same output file as listfile uses above
echo ![fqualify(_wh_tok)] >prntlf
else
setvar hpcierr -1
endif
if hpcierr = 0 then
xeq !hpfile !_wh_tok entry=process_listf <prntlf
endif
endwhile
deletevar _wh_@
return
. . . continued. . .