SCM Repository
Diff of /sml/trunk/src/compiler/xmakeml
Parent Directory
| 
Revision Log
| 
Patch
| revision 51, Sun Mar 22 23:08:44 1998 UTC | revision 52, Mon Mar 23 03:59:51 1998 UTC | |
|---|---|---|
| # | Line 5 | Line 5 |
| 5 | FULL="" | FULL="" |
| 6 | ALLOC=1M | ALLOC=1M |
| 7 | ||
| 8 | ARCH=sparc | ARCH=x86 |
| 9 | OPSYS=solaris | OPSYS=linux |
| 10 | RUN_DIR=../../bin/.run | RUN_DIR=../../bin/.run |
| 11 | OBJS_DIR=../runtime/objs | OBJS_DIR=../runtime/objs |
| 12 | HEAP_IMAGE="" | HEAP_IMAGE="" |
| # | Line 29 | Line 29 |
| 29 | arg=$1; shift | arg=$1; shift |
| 30 | case $arg in | case $arg in |
| 31 | -elab) ELAB="@SMLelab" ;; | -elab) ELAB="@SMLelab" ;; |
| 32 | -full) FULL="@SMLfull" ;; | -full) |
| 33 | FULL="@SMLfull" | |
| 34 | NOTE="[-full]\n$NOTE" | |
| 35 | ;; | |
| 36 | -note) | |
| 37 | if [ "$#" = "0" ]; then | |
| 38 | echo "xmakeml: missing argument for \"-note\" option" | |
| 39 | exit 1 | |
| 40 | fi | |
| 41 | NOTE="$1\n"; shift | |
| 42 | ;; | |
| 43 | -arch) | -arch) |
| 44 | if [ "$#" = "0" ]; then | if [ "$#" = "0" ]; then |
| 45 | echo "xmakeml: missing argument for \"-arch\" option" | echo "xmakeml: missing argument for \"-arch\" option" |
| # | Line 96 | Line 106 |
| 106 | elif [ -x "$OBJS_DIR/$RUN_CMD" ]; then | elif [ -x "$OBJS_DIR/$RUN_CMD" ]; then |
| 107 | RUN="$OBJS_DIR/$RUN_CMD" | RUN="$OBJS_DIR/$RUN_CMD" |
| 108 | else | else |
| 109 | echo "xmakeml: unable to find run-time system \"$RUN_CMD\"" | echo "xmakeml: unable to find run-time system \"$RUN_DIR/$RUN_CMD\"" |
| 110 | exit 1 | exit 1 |
| 111 | fi | fi |
| 112 | fi | fi |
| # | Line 122 | Line 132 |
| 132 | echo "$RUN @SMLboot=$BOOT_DIR @SMLalloc=$ALLOC $RUN_ARGS $ELAB $FULL" | echo "$RUN @SMLboot=$BOOT_DIR @SMLalloc=$ALLOC $RUN_ARGS $ELAB $FULL" |
| 133 | $RUN @SMLboot=$BOOT_DIR @SMLalloc=$ALLOC $RUN_ARGS $ELAB $FULL <<XXXX | $RUN @SMLboot=$BOOT_DIR @SMLalloc=$ALLOC $RUN_ARGS $ELAB $FULL <<XXXX |
| 134 | $SET_FLAGS | $SET_FLAGS |
| 135 | val use = Compiler.Interact.useFile | val use = Compiler.Interact.useFile; |
| 136 | val _ = (SMLofNJ.exportML "$HEAP_IMAGE"; | val _ = (SMLofNJ.exportML "$HEAP_IMAGE"; |
| 137 | print Compiler.banner; print "\n"); | print Compiler.banner; print "\n"; |
| 138 | print "[built `date`]\n"; print "$NOTE"); | |
| 139 | XXXX | XXXX |
| 140 | echo "" | |
| 141 | if [ -L ./bin.$ARCH-unix ]; then | if [ -L ./bin.$ARCH-unix ]; then |
| 142 | rm -f ./bin.$ARCH-unix | rm -f ./bin.$ARCH-unix |
| 143 | fi | fi |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
