if rc\=0 then call lineout logfile,"image close rc" rc
rc=ImgUndo()
if rc\=0 then call lineout logfile,"image undo rc" rc
end /* do */
call lineout html,"</TR>"
end /* do */
rc=lineout(html,"</TABLE></CENTER>")
rc=lineout(html,"</BODY></HTML>")
rc=stream(html,"C","Close")
rc=ImgCloseAllImages()
/* call lineout logfile,"close all images" rc */
/* ClosePgm doesn't seem to have any effect ? */
rc=ImgClosePgm()
FINAL:
/* Schlussroutinen */
rc=lineout(logfile,"WebSlice ended")
rc=stream(logfile,"C","close")
say " "
say "WebSlice ended"
exit
ERRFILE:
/* Error Routine */
say " "
say "Please enter image file name including FULL path:"
say '1B'x||'[33;40m'||'1B'x||'[1;m'||'WebSlice X:\path\imagefile.typ'||'1B'x||'[37;40m'||'1B'x||'[1;m'
say ""
say "Optionally add tile dimensions in pixels:"
say '1B'x||'[33;40m'||'1B'x||'[1;m'||'WebSlice X:\path\imagefile.typ' '1B'x||'[36;40m'||'1B'x||'[1;m'||'slice_width slice_height'||'1B'x||'[37;40m'||'1B'x||'[1;m'
say ""
say "Default tile size is 200 x 150 pixel"
say ""
say; say "Program ended with error"
exit
/* Error Routinen nach Wolek p114 */
SYNTAX:
say "Syntax- oder Laufzeitfehler in Zeile " sigl
say "Fehlercode: " rc
say "Fehlertext: " errortext(rc)
say ""
say "Text der Quellzeile : >>> " sourceline(sigl) "<<<"
exit
NOVALUE:
say "Die Variable " condition("D") " in Zeile " sigl " ist nicht initialisiert"
say "Text der Quellzeile : >>> " sourceline(sigl) "<<<"
exit
HALT:
say "soll die Prozedur beendet werden (j/n)? "
pull antw
if antw="j" then
exit
else
return
ERROR:
say "Unbekannter Befehl oder Argumentfehler in Zeile "sigl||":"
say "Komponente:" condition("D")
say ""
say "Text der Quellzeile : >>> " sourceline(sigl) "<<<"