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/trunk/src/eXene/graph-util/bitmap-io.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/graph-util/bitmap-io.sml

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

revision 1861, Mon Nov 7 18:17:09 2005 UTC revision 1862, Mon Nov 7 23:03:18 2005 UTC
# Line 51  Line 51 
51                   of NONE => raise BitmapFileInvalid                   of NONE => raise BitmapFileInvalid
52                    | SOME s => s                    | SOME s => s
53                  (* end case *))                  (* end case *))
54            val inputSS = SS.all o inputLine            val inputSS = SS.full o inputLine
55            fun setWid ({wid, ht, x_hot, y_hot}, w) =            fun setWid ({wid, ht, x_hot, y_hot}, w) =
56                  {wid=SOME w, ht=ht, x_hot=x_hot, y_hot=y_hot}                  {wid=SOME w, ht=ht, x_hot=x_hot, y_hot=y_hot}
57            fun setHt ({wid, ht, x_hot, y_hot}, h) =            fun setHt ({wid, ht, x_hot, y_hot}, h) =

Legend:
Removed from v.1861  
changed lines
  Added in v.1862

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