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/branches/SMLNJ/src/compiler/makeml
ViewVC logotype

Annotation of /sml/branches/SMLNJ/src/compiler/makeml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 113 - (view) (download)

1 : monnier 89 #!/bin/ksh
2 :     #
3 :    
4 :     FULL=""
5 :     ALLOC=1M
6 :    
7 :     ARCH=sparc
8 :     OPSYS=solaris
9 :     RUN_DIR=../../bin/.run
10 :     OBJS_DIR=../runtime/objs
11 :     HEAP_IMAGE=""
12 :     RUN=""
13 :     RUN_ARGS=""
14 :     SET_FLAGS=""
15 : monnier 113 REBUILD=""
16 : monnier 89
17 :     #
18 :     # use the arch-n-opsys script to determine the ARCH/OS if possible
19 :     #
20 :     if [ -f ../../bin/.arch-n-opsys ]; then
21 :     ARCH_N_OPSYS=`../../bin/.arch-n-opsys`
22 :     if [ "$?" = "0" ]; then
23 :     eval $ARCH_N_OPSYS
24 :     fi
25 :     fi
26 :    
27 :     while [ "$#" != "0" ]
28 :     do
29 :     arg=$1; shift
30 :     case $arg in
31 :     -full) FULL="@SMLfull" ;;
32 : monnier 113 -rebuild)
33 :     if [ "$#" = "0" ]; then
34 :     echo "makeml: missing argument for \"-rebuild\" option"
35 :     exit 1
36 :     fi
37 :     REBUILD="@SMLrebuild=$1"; shift
38 :     ;;
39 : monnier 89 -arch)
40 :     if [ "$#" = "0" ]; then
41 : monnier 106 echo "makeml: missing argument for \"-arch\" option"
42 : monnier 89 exit 1
43 :     fi
44 :     ARCH=$1; shift
45 :     ;;
46 :     -opsys)
47 :     if [ "$#" = "0" ]; then
48 : monnier 106 echo "makeml: missing argument for \"-opsys\" option"
49 : monnier 89 exit 1
50 :     fi
51 :     OPSYS=$1; shift
52 :     ;;
53 :     -o)
54 :     if [ "$#" = "0" ]; then
55 : monnier 106 echo "makeml: missing argument for \"-o\" option"
56 : monnier 89 exit 1
57 :     fi
58 :     HEAP_IMAGE=$1; shift
59 :     ;;
60 :     -run)
61 :     if [ "$#" = "0" ]; then
62 : monnier 106 echo "makeml: missing argument for \"-run\" option"
63 : monnier 89 exit 1
64 :     fi
65 :     RUN=$1; shift
66 :     ;;
67 :     -alloc)
68 :     if [ "$#" = "0" ]; then
69 : monnier 106 echo "makeml: missing argument for \"-alloc\" option"
70 : monnier 89 exit 1
71 :     fi
72 :     ALLOC=$1; shift
73 :     ;;
74 :     -boot)
75 :     if [ "$#" = "0" ]; then
76 : monnier 106 echo "makeml: missing argument for \"-boot\" option"
77 : monnier 89 exit 1
78 :     fi
79 :     BOOT_DIR=$1; shift
80 :     ;;
81 :     @SML*)
82 :     RUN_ARGS="$RUN_ARGS $arg"
83 :     ;;
84 : monnier 106 *) echo "makeml: unknown argument \"$arg\""
85 : monnier 89 exit 1
86 :     ;;
87 :     esac
88 :     done
89 :    
90 :     case $OPSYS in
91 :     solaris) MAKE=/usr/ccs/bin/make ;;
92 :     esac
93 :    
94 :     if [ "$RUN" = "" ]; then
95 :     if [ "$OPSYS" = "win32" ]; then
96 :     RUN_CMD="run.$ARCH-$OPSYS.exe"
97 :     else
98 :     RUN_CMD="run.$ARCH-$OPSYS"
99 :     fi
100 :     if [ -x "$RUN_DIR/$RUN_CMD" ]; then
101 :     RUN="$RUN_DIR/$RUN_CMD"
102 :     elif [ -x "$OBJS_DIR/$RUN_CMD" ]; then
103 :     RUN="$OBJS_DIR/$RUN_CMD"
104 :     else
105 : monnier 106 echo "makeml: unable to find run-time system \"$RUN_CMD\""
106 : monnier 89 exit 1
107 :     fi
108 :     fi
109 :    
110 :     if [ "$HEAP_IMAGE" = "" ]; then
111 :     if [ "$FULL" = "" ]; then
112 :     HEAP_IMAGE="sml"
113 :     else
114 :     HEAP_IMAGE="sml-full"
115 :     fi
116 :     fi
117 :    
118 :     if [ "$BOOT_DIR" = "" ]; then
119 :     BOOT_DIR="./bin.$ARCH-unix"
120 :     fi
121 :    
122 :     if [ ! -d ./bin.$ARCH-unix ]; then
123 :     ln -s $BOOT_DIR ./bin.$ARCH-unix
124 :     fi
125 :    
126 : monnier 113 #echo "$RUN @SMLboot=$BOOT_DIR @SMLalloc=$ALLOC $RUN_ARGS $FULL -b $BOOT_DIR"
127 :     #$RUN @SMLboot=$BOOT_DIR @SMLalloc=$ALLOC $RUN_ARGS $FULL -b $BOOT_DIR <<XXXX
128 :     echo "$RUN @SMLboot=$BOOT_DIR @SMLalloc=$ALLOC $RUN_ARGS $FULL $REBUILD"
129 :     $RUN @SMLboot=$BOOT_DIR @SMLalloc=$ALLOC $RUN_ARGS $FULL $REBUILD <<XXXX
130 : monnier 89 $SET_FLAGS
131 : monnier 106 val use = Compiler.Interact.useFile;
132 : monnier 89 val _ = (SMLofNJ.exportML "$HEAP_IMAGE";
133 : monnier 113 print Compiler.banner;
134 :     print "\n");
135 : monnier 89 XXXX
136 :    
137 :     if [ -L ./bin.$ARCH-unix ]; then
138 :     rm -f ./bin.$ARCH-unix
139 :     fi

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