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 304, Mon May 31 09:10:08 1999 UTC revision 305, Mon May 31 15:00:06 1999 UTC
# Line 10  Line 10 
10  signature SMLINFO = sig  signature SMLINFO = sig
11    
12      type info      type info
13        type ord_key = info
14    
15      type complainer = GenericVC.ErrorMsg.complainer      type complainer = GenericVC.ErrorMsg.complainer
16      type ast = GenericVC.Ast.dec      type ast = GenericVC.Ast.dec
# Line 47  Line 48 
48      val fullSpec : info -> string       (* gspec(sspec) *)      val fullSpec : info -> string       (* gspec(sspec) *)
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
53  end  end
54    
55  structure SmlInfo :> SMLINFO = struct  structure SmlInfo :> SMLINFO = struct
# Line 74  Line 77 
77                    persinfo: persinfo,                    persinfo: persinfo,
78                    share: bool option }                    share: bool option }
79    
80        type ord_key = info
81    
82      fun sourcepath (INFO { sourcepath = sp, ... }) = sp      fun sourcepath (INFO { sourcepath = sp, ... }) = sp
83      fun share (INFO { share = s, ... }) = s      fun share (INFO { share = s, ... }) = s
84    
# Line 249  Line 254 
254      fun name (INFO { sourcepath, ... }) = AbsPath.name sourcepath      fun name (INFO { sourcepath, ... }) = AbsPath.name sourcepath
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
259            val { persinfo = PERS { group, ... }, sourcepath, share, ... } = i
260        in
261            BinInfo.new { group = group,
262                          spec = AbsPath.spec sourcepath,
263                          offset = offset,
264                          share = share }
265        end
266  end  end

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

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