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 281, Tue May 18 14:57:00 1999 UTC revision 282, Wed May 19 05:14:03 1999 UTC
# Line 1  Line 1 
1  (*  (*
2   * Bundling all information pertaining to one SML source file.   * Bundling information pertaining to one SML source file.
3     *   - only includes information that does not require running
4     *     the machine-dependent part of the compiler
5   *   *
6   * (C) 1999 Lucent Technologies, Bell Laboratories   * (C) 1999 Lucent Technologies, Bell Laboratories
7   *   *
# Line 11  Line 13 
13    
14      type policy = Policy.policy      type policy = Policy.policy
15      type complainer = string -> (PrettyPrint.ppstream -> unit) -> unit      type complainer = string -> (PrettyPrint.ppstream -> unit) -> unit
16        type parsetree = GenericVC.Ast.dec
17    
18      val resync : unit -> unit      val resync : unit -> unit           (* rebuild internal table *)
19    
20      val eq : info * info -> bool        (* compares sourcepaths *)      val eq : info * info -> bool        (* compares sourcepaths *)
21      val compare : info * info -> order  (* compares sourcepaths *)      val compare : info * info -> order  (* compares sourcepaths *)
# Line 28  Line 31 
31      val sourcepath : info -> AbsPath.t      val sourcepath : info -> AbsPath.t
32      val error : info -> complainer      val error : info -> complainer
33    
34        val parsetree : info -> parsetree option
35      val exports : info  -> SymbolSet.set      val exports : info  -> SymbolSet.set
36      val skeleton : info -> Skeleton.decl      val skeleton : info -> Skeleton.decl
37    
# Line 206  Line 210 
210      val exports = SkelExports.exports o (skeleton0 false)      val exports = SkelExports.exports o (skeleton0 false)
211      val skeleton = skeleton0 true      val skeleton = skeleton0 true
212    
213        fun parsetree i = Option.map #tree (getParseTree (i, true, true))
214    
215      fun spec (INFO { sourcepath, ... }) = AbsPath.spec sourcepath      fun spec (INFO { sourcepath, ... }) = AbsPath.spec sourcepath
216      fun fullSpec (INFO { group, sourcepath, ... }) =      fun fullSpec (INFO { group, sourcepath, ... }) =
217          concat [AbsPath.spec group, "(", AbsPath.spec sourcepath, ")"]          concat [AbsPath.spec group, "(", AbsPath.spec sourcepath, ")"]

Legend:
Removed from v.281  
changed lines
  Added in v.282

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