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

SCM Repository

[diderot] Diff of /branches/opencl/src/compiler/common/paths_sml.in
ViewVC logotype

Diff of /branches/opencl/src/compiler/common/paths_sml.in

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

revision 1891, Fri May 25 16:28:56 2012 UTC revision 1892, Fri May 25 16:34:03 2012 UTC
# Line 42  Line 42 
42              in              in
43                 String.fields (fn #":" => true | _ => false) path                 String.fields (fn #":" => true | _ => false) path
44              end (* getPath *)              end (* getPath *)
45        fun findExe (paths, name) = (case PathUtil.findExe paths name  (* FIXME: won't need the isAbsolute check in 110.75 *)
46          fun findExe (paths, name) = if OS.Path.isAbsolute name
47                then name
48                else (case PathUtil.findExe paths name
49               of SOME p => p               of SOME p => p
50                | NONE => raise Fail(concat["unable to find ", name, " executable"])                | NONE => raise Fail(concat["unable to find ", name, " executable"])
51              (* end case *))              (* end case *))

Legend:
Removed from v.1891  
changed lines
  Added in v.1892

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