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/depend/graph.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/depend/graph.sml

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

revision 269, Mon May 10 13:34:43 1999 UTC revision 270, Tue May 11 07:45:42 1999 UTC
# Line 1  Line 1 
1    (*
2     * Internal data structure representing a CM dependency graph.
3     *
4     * (C) 1999 Lucent Technologies, Bell Laboratories
5     *
6     * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
7     *)
8  structure DependencyGraph = struct  structure DependencyGraph = struct
9    
10      type smlinfo = unit      type groupinfo = Dummy.t
11      type groupinfo = unit      type primitive = Dummy.t
     type primitive = unit  
12    
13      type filter = SymbolSet.set option      type filter = SymbolSet.set option
14    
15      datatype node =      datatype node =
16          PNODE of primitive          PNODE of primitive
17        | NODE of { smlinfo: smlinfo,        | NODE of { smlinfo: SmlInfo.info,
18                    localimports: node list,                    localimports: node list,
19                    globalimports: farnode list }                    globalimports: farnode list }
20    
# Line 23  Line 29 
29                     exports: farnode SymbolMap.map,                     exports: farnode SymbolMap.map,
30                     dangling: node list }                     dangling: node list }
31    
32    
33        fun describeNode (PNODE p) = Dummy.f ()
34          | describeNode (NODE { smlinfo, ... }) = SmlInfo.describe smlinfo
35  end  end

Legend:
Removed from v.269  
changed lines
  Added in v.270

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