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/smlfile/smlinfo.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/smlfile/smlinfo.sml

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

revision 345, Sun Jun 20 11:55:26 1999 UTC revision 353, Thu Jun 24 09:43:28 1999 UTC
# Line 259  Line 259 
259    
260      fun parsetree gp i = getParseTree gp (i, true, true)      fun parsetree gp i = getParseTree gp (i, true, true)
261    
262      fun spec (INFO { sourcepath, ... }) = AbsPath.spec sourcepath      fun spec (INFO { sourcepath, ... }) = AbsPath.specOf sourcepath
263      fun fullSpec (INFO { sourcepath, persinfo = PERS { group, ... }, ... }) =      fun fullSpec (INFO { sourcepath, persinfo = PERS { group, ... }, ... }) =
264          concat [AbsPath.spec (#1 group), "(", AbsPath.spec sourcepath, ")"]          concat [AbsPath.specOf (#1 group), "(", AbsPath.specOf sourcepath, ")"]
265      fun name (INFO { sourcepath, ... }) = AbsPath.name sourcepath      fun name (INFO { sourcepath, ... }) = AbsPath.name sourcepath
266      fun fullName (INFO { sourcepath, persinfo = PERS { group, ... }, ... }) =      fun fullName (INFO { sourcepath, persinfo = PERS { group, ... }, ... }) =
267          concat [AbsPath.name (#1 group), "(", AbsPath.spec sourcepath, ")"]          concat [AbsPath.name (#1 group), "(", AbsPath.specOf sourcepath, ")"]
268    
269      fun errorLocation (gp: GeneralParams.info) (INFO i) = let      fun errorLocation (gp: GeneralParams.info) (INFO i) = let
270          val { persinfo = PERS { group = (group, reg), ... }, ... } = i          val { persinfo = PERS { group = (group, reg), ... }, ... } = i

Legend:
Removed from v.345  
changed lines
  Added in v.353

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