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/compiler/TopLevel/viscomp/generic-vc.sig
ViewVC logotype

View of /sml/trunk/src/compiler/TopLevel/viscomp/generic-vc.sig

Parent Directory Parent Directory | Revision Log Revision Log


Revision 165 - (download) (as text) (annotate)
Sat Nov 7 20:10:46 1998 UTC (20 years, 9 months ago) by monnier
File size: 1419 byte(s)
Initial revision
(*
 * Copyright 1998 by Bell Laboratories
 *  generic-vc.sig -- machine independent part of viscomp
 *
 * by Matthias Blume (10/1998)
 *)

signature PRINTHOOKS = sig
    (* all output goes to Control.Print.out *)
    val prAbsyn : StaticEnv.staticEnv -> Absyn.dec -> unit
end

signature GENERIC_VC = sig
    structure Stats : STATS
    structure Control : CONTROL
    structure Source : SOURCE
    structure SourceMap : SOURCE_MAP
    structure ErrorMsg : ERRORMSG
    structure Symbol : SYMBOL
    structure StaticEnv : STATICENV
    structure DynamicEnv : DYNENV
    structure BareEnvironment : ENVIRONMENT
    structure Environment : ENVIRONMENT = CMEnv.Env
    structure CoerceEnv : COERCE_ENV
    structure EnvRef : ENVREF
    structure ModuleId : MODULE_ID
    structure CMStaticEnv : CMSTATICENV
    structure PersStamps : PERSSTAMPS
    structure PrettyPrint : PRETTYPRINT
    structure PPTable : sig
	val install_pp : string list -> 
	    (PrettyPrint.ppstream -> 'a -> unit) -> unit
    end
    structure MakePid : sig
	val makePid : CMStaticEnv.staticEnv * CMStaticEnv.staticEnv
	    -> PersStamps.persstamp
    end
    structure Ast : AST

    structure PrintHooks : PRINTHOOKS

    val version : {
		   system : string,      	(* the system title *)
		   version_id : int list,	(* the version number *)
		   date : string         	(* date of creation *)
		   }
    val banner : string
end


(*
 * $Log$
 *)

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