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 /sml/trunk/src/cm/paths/abspath.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/paths/abspath.sml

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

revision 354, Fri Jun 25 08:36:12 1999 UTC revision 357, Mon Jun 28 08:46:30 1999 UTC
# Line 165  Line 165 
165          and elab (PATH { context, spec, cache }) =          and elab (PATH { context, spec, cache }) =
166              case validElab (!cache) of              case validElab (!cache) of
167                  SOME e => e                  SOME e => e
168                | NONE => let                | NONE => mkElab (cache,
169                      val name = P.mkCanonical                                  P.mkCanonical (P.concat
170                          (P.concat (#name (elabContext context),                                           (#name (elabContext context), spec)))
                                    spec))  
                 in  
                     mkElab (cache, name)  
                 end  
171    
172          (* get the file id (calls elab, so don't cache externally!) *)          (* get the file id (calls elab, so don't cache externally!) *)
173          fun id p = let          fun id p = let
# Line 283  Line 279 
279    
280          fun descr (PATH { spec, context, ... }) = let          fun descr (PATH { spec, context, ... }) = let
281              fun dir (x, l) =              fun dir (x, l) =
282                  case OS.Path.dir x of                  case P.dir x of
283                      "" => l                      "" => l
284                    | d => d :: "/" :: l                    | d => d :: "/" :: l
285              fun d_c (CONFIG_ANCHOR { config_name = n, ... }, l) =              fun d_c (CONFIG_ANCHOR { config_name = n, ... }, l) =

Legend:
Removed from v.354  
changed lines
  Added in v.357

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