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/system/smlnj/cmb/current.cm
ViewVC logotype

Annotation of /sml/trunk/src/system/smlnj/cmb/current.cm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 819 - (view) (download)

1 : blume 819 (*
2 :     * Library exporting structure CMB, the bootstrap compiler for the
3 :     * current architecture.
4 :     *
5 :     * (C) 2001 Lucent Technologies, Bell Laboratories
6 :     *
7 :     * Author: Matthias Blume (blume@research.bell-labs.com)
8 :     *)
9 : blume 573 Library
10 : blume 734 signature CMB
11 : blume 573 structure CMB
12 :     is
13 : blume 734 $smlnj/internal/cm-sig-lib.cm
14 :    
15 : blume 573 (* based on current architecture and OS, select CMB *)
16 :    
17 :     # if defined(ARCH_ALPHA)
18 : blume 643 $smlnj/cmb/alpha32-unix.cm
19 : blume 573 select-alpha32-unix.sml
20 :     # elif defined(ARCH_MIPS)
21 :     # if defined(BIG_ENDIAN)
22 : blume 643 $smlnj/cmb/mipseb-unix.cm
23 : blume 573 select-mipseb-unix.sml
24 :     # else
25 : blume 643 $smlnj/cmb/mipsel-unix.cm
26 : blume 573 select-mipsel-unix.sml
27 :     # endif
28 :     # elif defined(ARCH_HPPA)
29 : blume 643 $smlnj/cmb/hppa-unix.cm
30 : blume 573 select-hppa-unix.sml
31 :     # elif defined(ARCH_RS6000)
32 : blume 643 $smlnj/cmb/rs6000-unix.cm
33 : blume 573 select-rs6000-unix.sml
34 :     # elif defined(ARCH_PPC)
35 :     # if defined(OS_MACOS)
36 : blume 643 $smlnj/cmb/ppc-macos.cm
37 : blume 573 select-ppc-macos.sml
38 :     # else
39 : blume 643 $smlnj/cmb/ppc-unix.cm
40 : blume 573 select-ppc-unix.sml
41 :     # endif
42 :     # elif defined(ARCH_SPARC)
43 : blume 643 $smlnj/cmb/sparc-unix.cm
44 : blume 573 select-sparc-unix.sml
45 :     # elif defined(ARCH_X86)
46 :     # if defined(OS_WIN32)
47 : blume 643 $smlnj/cmb/x86-win32.cm
48 : blume 573 select-x86-win32.sml
49 :     # else
50 : blume 643 $smlnj/cmb/x86-unix.cm
51 : blume 573 select-x86-unix.sml
52 :     # endif
53 :     # else
54 :     # error Strange architecture and/or OS!
55 :     # endif

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