Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/fields/image-info.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/fields/image-info.sml

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

revision 202, Tue Aug 3 13:06:03 2010 UTC revision 238, Thu Aug 5 23:17:46 2010 UTC
# Line 44  Line 44 
44      fun getInfo fileName = let      fun getInfo fileName = let
45            val {version, header} = RunDNorm.run fileName            val {version, header} = RunDNorm.run fileName
46            in            in
47                Log.msg (concat[fileName, " file header:\n"]);
48                List.app (fn (tag, value) => Log.msg(concat["  ", tag, ": ", value, "\n"])) header;
49  (* FIXME*)raise Fail "getInfo"  (* FIXME*)raise Fail "getInfo"
50            end            end
51    

Legend:
Removed from v.202  
changed lines
  Added in v.238

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