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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/fields/run-dnorm_sml.in
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/fields/run-dnorm_sml.in

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

revision 707, Tue Mar 29 20:42:41 2011 UTC revision 708, Wed Mar 30 16:41:18 2011 UTC
# Line 32  Line 32 
32              (* end case *)              (* end case *)
33            end            end
34    
35      fun run srcFile = let      fun run srcFile = if OS.FileSys.access(srcFile, [OS.FileSys.A_READ])
36              then let
37            val proc = Unix.execute (findExe(), ["-h", "-i", srcFile])            val proc = Unix.execute (findExe(), ["-h", "-i", srcFile])
38            val inS = Unix.textInstreamOf proc            val inS = Unix.textInstreamOf proc
39            fun stripWS ss = SS.string (SS.dropl Char.isSpace (SS.dropr Char.isSpace ss))            fun stripWS ss = SS.string (SS.dropl Char.isSpace (SS.dropr Char.isSpace ss))
# Line 59  Line 60 
60                then info                then info
61                else raise Fail "error running dnorm"                else raise Fail "error running dnorm"
62            end            end
63              else raise Fail(concat["image file \"", srcFile, "\" not found"])
64    end    end

Legend:
Removed from v.707  
changed lines
  Added in v.708

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