<script src="secd_cod.js"></script>
<script>
function main() {
document.getElementById("fout").value="initialize ...\n";
setTimeout(main2,100);
}
function main2() {
init();
printf("Reading compiler code ...\n");
flush();
setTimeout(main3,100);
}
function main3() {
readSFrom("compiler.secd", c);
printf("Reading compiler source ...\n");
flush();
setTimeout(main4,100);
}
function main4() {
readSFrom("compiler.lisp", s);
setAtom(w1, null, 0); cons(s, w1, s); cons(s, w1, s);
showStat();
printf("Compiling compiler ...\n");
flush();
time = new Date().getTime();
setTimeout(main5,0);
}
var time;
function main5() {
var n = secdLoop()
printf(".");
flush();
if (n == "next") setTimeout(main5,0)
else setTimeout(main6,0);
}
function main6() {
printf("\n");
showStat();
car(s, s);
printf("time="+(new Date().getTime() - time) + "ms");
writeSTo("compiler.secd.new", s);
flush();
}
</script>
<body onload="main()">
<textarea style="width:100%;height:100%" id="fout"></textarea>
<textarea style="width:100%;height:100%" id="compiler.secd.new"></textarea>
</body>