Scheme

Library: form $form: " . $errmsg . "
\n"; } else{ $successes++; } } else{ echo "Library: form $form: " . $errmsg . "
\n"; break; } $form++; } } else{ echo "" . "Couldn't load library: $lname" . "
\n"; } if($successes){ echo "" . "Library: $lname: loaded $successes " . "form" . ($succeses==1 ? '' : 's') . "." . "
\n"; } $stacktrace = $stflag; } $program = stripslashes($program); tokenize($program); $form = 1; $imageindex = 0; while(isset($tokens[$base])){ $exp = readexp(); if(is_array($exp)){ echo "

Form $form

\n"; $form++; $str = tohtmlstring2($exp); echo "\n"; echo $str; echo "
\n"; $bcode = array(array('start')); $bc=1; compile($exp); if($showbytecodes){ for($b=0; $b\n"; } echo "
\n"; } $imagedata = array(0, 0, 0, 0, array()); echo "
";
      $outputstr = '';
      if(run()){
	echo "" . $errmsg  . "
\n"; } printargstack(); echo "
\n"; if(strlen($outputstr)>0){ echo "

Output\n"; echo "

" . 
	  htmlspecialchars($outputstr) . 
	  "
\n"; } echo "

\n"; if(count($imagedata[4])>0){ $images[$imageindex] = $imagedata; echo "
\n"; echo "\n"; echo "
\n"; $imageindex++; } } else{ echo "" . $errmsg . "
\n"; break; } } } ?>



Show byte codes > Show stack trace > Load library >