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/smlnj-c/libs/binC2ML/load.sml
ViewVC logotype

View of /sml/trunk/src/smlnj-c/libs/binC2ML/load.sml

Parent Directory Parent Directory | Revision Log Revision Log

Revision 651 - (download) (annotate)
Thu Jun 1 18:34:03 2000 UTC (21 years ago) by monnier
File size: 896 byte(s)
bring revisions from the vendor branch to the trunk
(* COPYRIGHT (c) 1996  Bell Laboratories, Lucent Technologies
 * loads C interface and the binaryC convertor

val cd = Posix.FileSys.chdir;
val getcwd = Posix.FileSys.getcwd;

val CIdir = "../../";
fun CIuse s = use (CIdir^s);

val _ = print "loading info about C types...\n";

app CIuse ["cc-info.sig.sml",

val _ = print "loading C interface...\n";
app CIuse ["c-calls.sig.sml",

val _ = print "instantiating CCalls for a default compiler\n";
structure CI = CCalls(structure CCInfo = CCInfoDefaults);
val _ = print "instantiating CUtil\n";
structure CU = CUtil(structure C = CI);

val _ = app use ["binary-C-file.sig.sml",

structure BCF = BinaryC(structure C = CI);

ViewVC Help
Powered by ViewVC 1.0.0