Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/branches/SMLNJ/src/eXene/examples/bricks/badbricks.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/eXene/examples/bricks/badbricks.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7, Sun Jan 18 00:59:30 1998 UTC revision 8, Sun Jan 18 01:01:29 1998 UTC
# Line 5  Line 5 
5    
6  structure BadBricks : sig  structure BadBricks : sig
7    
8      val badBricks : string -> OS.Process.status      val doit' : (string list * string * Int32.int) -> OS.Process.status
9        val doit  : string -> OS.Process.status
10      val main : (string * string list) -> OS.Process.status      val main : (string * string list) -> OS.Process.status
11    
12    end = struct    end = struct
# Line 16  Line 16 
16      val XSize = 10      val XSize = 10
17      val YSize = 30      val YSize = 30
18    
19      fun doit server = let      fun badBricks server = let
20        val root = mkRoot (server,NONE)        val root = mkRoot (server,NONE)
21        val wall = Wall.mkWall root (XSize, YSize)        val wall = Wall.mkWall root (XSize, YSize)
22        (* fun doGC () = System.Unsafe.CInterface.gc 2 *)        (* fun doGC () = System.Unsafe.CInterface.gc 2 *)
# Line 69  Line 69 
69          loop ()          loop ()
70        end        end
71    
72      fun badBricks server =      fun doit' (flgs, dpy, tq) = (
73            RunCML.doit(fn () => doit server, SOME(Time.fromMilliseconds 20))            XDebug.init flgs;
74              RunCML.doit (
75                fn () => (XDebug.xspawn("badBricks", fn () => badBricks dpy); ()),
76                SOME(Time.fromMilliseconds tq)))
77    
78        fun doit s = doit' ([], s, 20)
79    
80      fun main (prog, "-display" :: server :: _) = doit server      fun main (prog, "-display" :: server :: _) = doit server
81        | main _ = doit ""        | main _ = doit ""

Legend:
Removed from v.7  
changed lines
  Added in v.8

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0