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

SCM Repository

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

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

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

revision 2433, Fri Sep 20 17:44:37 2013 UTC revision 2434, Fri Sep 20 22:06:47 2013 UTC
# Line 42  Line 42 
42        fun resolveTeemDir subDir = (case !teemDir        fun resolveTeemDir subDir = (case !teemDir
43               of SOME dir => dir // subDir               of SOME dir => dir // subDir
44                | NONE => let                | NONE => let
45                    val unuPath = findExe (["@TEEM_DIR@" // "bin"], "unu")                  (* extra places to look for unu *)
46                      val extraPaths = let
47                            val pl = ["@TEEM_DIR@" // "bin"]
48                            in
49                              case OS.Process.getEnv "DIDEROT_TEEM_DIR"
50                               of SOME p => (p // "bin") :: pl
51                                | NONE => pl
52                            end
53                      val unuPath = findExe (extraPaths, "unu")
54                    val dir = OS.Path.getParent(#dir(OS.Path.splitDirFile unuPath))                    val dir = OS.Path.getParent(#dir(OS.Path.splitDirFile unuPath))
55                    in                    in
56                      teemDir := SOME dir;                      teemDir := SOME dir;

Legend:
Removed from v.2433  
changed lines
  Added in v.2434

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