Mercurial > urweb

comparison src/demo.sml @ 773:74a090ff296e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
constraints demo
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 May 2009 12:01:55 -0400
parents efceae06df17
children 412ccd97ab71
comparison
equal deleted inserted replaced
772:8ed1261f838c 773:74a090ff296e
42 42
43 val fname = OS.Path.joinDirFile {dir = outDir, 43 val fname = OS.Path.joinDirFile {dir = outDir,
44 file = "index.html"} 44 file = "index.html"}
45 45
46 val out = TextIO.openOut fname 46 val out = TextIO.openOut fname
47 val () = (TextIO.output (out, "<frameset cols=\"10%,90%\">\n"); 47 val () = (TextIO.output (out, "<frameset cols=\"15%,85%\">\n");
48 TextIO.output (out, "<frame src=\"demos.html\">\n"); 48 TextIO.output (out, "<frame src=\"demos.html\">\n");
49 TextIO.output (out, "<frame src=\"intro.html\" name=\"staging\">\n"); 49 TextIO.output (out, "<frame src=\"intro.html\" name=\"staging\">\n");
50 TextIO.output (out, "</frameset>\n"); 50 TextIO.output (out, "</frameset>\n");
51 TextIO.closeOut out) 51 TextIO.closeOut out)
52 52