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 /eXene/releases/release-110.63/graph-util/bitmap-io.sml
ViewVC logotype

Diff of /eXene/releases/release-110.63/graph-util/bitmap-io.sml

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

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 1368, Sat Sep 13 04:44:43 2003 UTC
# Line 48  Line 48 
48    
49      fun readBitmap inStrm = let      fun readBitmap inStrm = let
50            fun inputLine () = (case TextIO.inputLine inStrm            fun inputLine () = (case TextIO.inputLine inStrm
51                   of "" => raise BitmapFileInvalid                   of NONE => raise BitmapFileInvalid
52                    | s => s                    | SOME s => s
53                  (* end case *))                  (* end case *))
54            val inputSS = SS.all o inputLine            val inputSS = SS.all o inputLine
55            fun setWid ({wid, ht, x_hot, y_hot}, w) =            fun setWid ({wid, ht, x_hot, y_hot}, w) =

Legend:
Removed from v.651  
changed lines
  Added in v.1368

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