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 305, Mon May 31 15:00:06 1999 UTC revision 306, Tue Jun 1 08:25:21 1999 UTC
# Line 49  Line 49 
49      val name : info -> string           (* sname *)      val name : info -> string           (* sname *)
50      val fullName : info -> string       (* gname(sspec) *)      val fullName : info -> string       (* gname(sspec) *)
51    
52      val mkBinInfo : info -> int -> BinInfo.info      val errorLocation : GeneralParams.info -> info -> string
53  end  end
54    
55  structure SmlInfo :> SMLINFO = struct  structure SmlInfo :> SMLINFO = struct
# Line 255  Line 255 
255      fun fullName (INFO { sourcepath, persinfo = PERS { group, ... }, ... }) =      fun fullName (INFO { sourcepath, persinfo = PERS { group, ... }, ... }) =
256          concat [AbsPath.name (#1 group), "(", AbsPath.spec sourcepath, ")"]          concat [AbsPath.name (#1 group), "(", AbsPath.spec sourcepath, ")"]
257    
258      fun mkBinInfo (INFO i) offset = let      fun errorLocation (gp: GeneralParams.info) (INFO i) = let
259          val { persinfo = PERS { group, ... }, sourcepath, share, ... } = i          val { persinfo = PERS { group = (group, reg), ... }, ... } = i
260      in      in
261          BinInfo.new { group = group,          EM.matchErrorString (GroupReg.lookup (#groupreg gp) group) reg
                       spec = AbsPath.spec sourcepath,  
                       offset = offset,  
                       share = share }  
262      end      end
263  end  end

Legend:
Removed from v.305  
changed lines
  Added in v.306

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