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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 651 - (view) (download)

1 : monnier 249 (* COPYRIGHT (c) 1996 Bell Laboratories, Lucent Technologies
2 :     *
3 :     * loads C interface and the binaryC convertor
4 :     *)
5 :    
6 :     val cd = Posix.FileSys.chdir;
7 :     val getcwd = Posix.FileSys.getcwd;
8 :    
9 :     val CIdir = "../../";
10 :     fun CIuse s = use (CIdir^s);
11 :    
12 :     val _ = print "loading info about C types...\n";
13 :    
14 :     app CIuse ["cc-info.sig.sml",
15 :     "cc-info.defaults.sml",
16 :     "cc-info.cc-mipseb-irix5.sml",
17 :     "cc-info.gcc-x86-linux.sml",
18 :     "cc-info.gcc-sparc-sunos.sml"
19 :     ];
20 :    
21 :     val _ = print "loading C interface...\n";
22 :     app CIuse ["c-calls.sig.sml",
23 :     "c-calls.sml",
24 :     "cutil.sig.sml",
25 :     "cutil.sml"];
26 :    
27 :    
28 :     val _ = print "instantiating CCalls for a default compiler\n";
29 :     structure CI = CCalls(structure CCInfo = CCInfoDefaults);
30 :     val _ = print "instantiating CUtil\n";
31 :     structure CU = CUtil(structure C = CI);
32 :    
33 :     val _ = app use ["binary-C-file.sig.sml",
34 :     "binary-C-file.sml"
35 :     ];
36 :    
37 :     structure BCF = BinaryC(structure C = CI);
38 :    
39 :    

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