Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/branches/primop-branch-3/cm/depend/from-portable.sml
ViewVC logotype

Annotation of /sml/branches/primop-branch-3/cm/depend/from-portable.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2221 - (view) (download)

1 : blume 977 structure FromPortable : sig
2 :     val import : PortableGraph.graph *
3 :     { grouppath: SrcPath.t,
4 :     sublibs: GroupGraph.subgrouplist,
5 :     required: GroupGraph.privileges,
6 :     wrapped: GroupGraph.privileges,
7 :     version: Version.t option } ->
8 :     GroupGraph.group
9 :     end = struct
10 :    
11 :     structure P = PortableGraph
12 :     structure DG = DependencyGraph
13 :     structure GG = GroupGraph
14 :    
15 :     fun import (P.GRAPH { imports, defs, export }, actuals) = let
16 :     val { grouppath, sublibs, required, wrapped, version } = actuals
17 :    
18 :     val exports = xxx
19 :     val sources = xxx
20 :     in
21 :     GG.GROUP { exports = exports,
22 :     kind = GG.LIB { version = version,
23 :     kind = GG.DEVELOPED { wrapped = wrapped,
24 :     subgroups = [] },
25 :     required = required },
26 :     grouppath = grouppath,
27 :     sources = sources,
28 :     sublibs = sublibs }
29 :     end
30 :     end

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