MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 102
Where (cont)
…
elseif "!entry" = "process_udcs" then
# input redirected from the output of showcatalog
setvar _wh_udcf rtrim(input())
setvar _wh_eof finfo(hpstdin,”eof”) -1
while setvar(_wh_eof,_wh_eof-1) >= 0 do
if lft(setvar(_wh_rec,rtrim(input())),1) = " " then
# a UDC command name line
if pmatch(ups(_wh_cmd),setvar(_wh_tok,word(_wh_rec))) then
# display: UDC_command_name UDC_level UDC_filename
echo !_wh_tok ![rpt(" ",26-len(_wh_tok))] &
![setvar(_wh_tok2,word(_wh_rec,,-1))+rpt(" ",7-len(_wh_tok2))] &
UDC in !_wh_udcf
endif
else
# a UDC filename line
setvar _wh_udcf _wh_rec
endif
endwhile
return