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

SCM Repository

[smlnj] View of /sml/trunk/src/cm/depend/from-portable.sml
ViewVC logotype

View of /sml/trunk/src/cm/depend/from-portable.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 977 - (download) (annotate)
Wed Nov 14 16:53:16 2001 UTC (17 years, 9 months ago) by blume
File size: 819 byte(s)
srcname routed to mlriscgen;
more fiddling with pgraph (portable library graph) code
structure FromPortable : sig
    val import : PortableGraph.graph *
		 { grouppath: SrcPath.t,
		   sublibs: GroupGraph.subgrouplist,
		   required: GroupGraph.privileges,
		   wrapped: GroupGraph.privileges,
		   version: Version.t option } ->
		 GroupGraph.group
end = struct

    structure P = PortableGraph
    structure DG = DependencyGraph
    structure GG = GroupGraph

    fun import (P.GRAPH { imports, defs, export }, actuals) = let
	val { grouppath, sublibs, required, wrapped, version } = actuals

	val exports = xxx
	val sources = xxx
    in
	GG.GROUP { exports = exports,
		   kind = GG.LIB { version = version,
				   kind = GG.DEVELOPED { wrapped = wrapped,
							 subgroups = [] },
				   required = required },
		   grouppath = grouppath,
		   sources = sources,
		   sublibs = sublibs }
    end
end

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