MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 103
Where (cont)
…
elseif "!entry" = "process_listf" then
# input redirected from the output of listfile,6 or a simple filename
setvar _wh_eof finfo(hpstdin,'eof')
while setvar(_wh_eof,_wh_eof-1) >= 0 do
setvar _wh_fc "”
if setvar(_wh_fc, finfo(setvar(_wh_tok,ltrim(rtrim(input()))),'fmtfcode')) = ””
setvar _wh_fc 'script’
elseif _wh_fc <> 'NMPRG' and _wh_fc <> 'PROG' then
setvar _wh_fc "”
endif
if _wh_fc <> "" and finfo(_wh_tok,'eof') > 0 then
setvar _wh_lnk “”
if _wh_fc = “script” and finfo(_wh_tok,'filetype') = 'SYMLINK' then
setvar _wh_fc 'symlink’
# get target of the symlink
file lf7tmp;msg
continue
listfile !_wh_tok,7 >*lf7tmp
if hpcierr = 0 then
# discard first 4 records
input _wh_lnk <*lf7tmp
input _wh_lnk <*lf7tmp
input _wh_lnk <*lf7tmp
input _wh_lnk <*lf7tmp
input _wh_lnk <*lf7tmp
setvar _wh_lnk "--!> " + word(_wh_lnk,,-1)
endif
endif