Annotation of /sml/trunk/src/compiler/xmakeml

Parent Directory | Revision Log

---

Revision 16 - (view) (download)

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

---

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