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 271, Tue May 11 07:48:55 1999 UTC revision 272, Wed May 12 07:09:28 1999 UTC
# Line 18  Line 18 
18    
19      val name : t -> string      val name : t -> string
20      val compare : t * t -> order      val compare : t * t -> order
21        val context : t -> context
22        val spec : t -> string
23        val contextName : context -> string
24    
25      val native : { context: context, spec: string } -> t      val native : { context: context, spec: string } -> t
26      val standard : { context: context, spec: string } -> t      val standard : { context: context, spec: string } -> t
# Line 170  Line 173 
173          (* get the name as a string (calls elab, so don't cache externally!) *)          (* get the name as a string (calls elab, so don't cache externally!) *)
174          fun name p = #name (elab p)          fun name p = #name (elab p)
175    
176            (* get the context back *)
177            fun context (PATH { context = c, ... }) = c
178            fun contextName c = #name (elabContext c)
179    
180            (* get the spec back *)
181            fun spec (PATH { spec = s, ... }) = s
182    
183          (* compare pathnames efficiently *)          (* compare pathnames efficiently *)
184          fun compare (p1, p2) = compareId (id p1, id p2)          fun compare (p1, p2) = compareId (id p1, id p2)
185    

Legend:
Removed from v.271  
changed lines
  Added in v.272

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