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 /smlnj-c/releases/release-110.65/load.sml
ViewVC logotype

Annotation of /smlnj-c/releases/release-110.65/load.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2712 - (view) (download)

1 : monnier 249 (* load.sml
2 :     *
3 :     * COPYRIGHT (c) 1996 Bell Laboratories, Lucent Technologies
4 :     *
5 :     * constructs an SML/NJ C interface for a specific C compiler
6 :     *)
7 :    
8 :     val cd = OS.FileSys.chDir;
9 :    
10 :     val _ = print "loading info about C types...\n";
11 :     app use ["cc-info.sig.sml",
12 :     "cc-info.defaults.sml",
13 :     "cc-info.cc-mipseb-irix5.sml",
14 :     "cc-info.gcc-x86-linux.sml",
15 :     "cc-info.gcc-sparc-sunos.sml"
16 :     ];
17 :    
18 :     val _ = print "loading C interface...\n";
19 :     app use ["c-calls.sig.sml",
20 :     "c-calls.sml",
21 :     "cutil.sig.sml",
22 :     "cutil.sml"];
23 :    
24 :     (*
25 :     val _ = print "instantiating CCalls for CC on MipsebIrix5\n";
26 :     structure CI = CCalls(structure CCInfo = CCInfoMipsebIrix5);
27 :     *)
28 :     (*
29 :     val _ = print "instantiating CCalls for GCC on X86Linux\n";
30 :     structure CI = CCalls(structure CCInfo = GCCInfoX86Linux);
31 :     *)
32 :     (*
33 :     val _ = print "instantiating CCalls for GCC on SparcSunOS\n";
34 :     structure CI = CCalls(structure CCInfo = GCCInfoSparcSunOS);
35 :     *)
36 :     (* *)
37 :     val _ = print "instantiating CCalls for a default compiler\n";
38 :     structure CI = CCalls(structure CCInfo = CCInfoDefaults);
39 :     (* *)
40 :    
41 :     val _ = print "instantiating CUtil\n";
42 :     structure CU = CUtil(structure C = CI);

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