Mercurial > hg > sonic-visualiser
comparison vext @ 1746:bf4a7015033e
Update vext
author | Chris Cannam |
---|---|
date | Fri, 06 Oct 2017 13:28:35 +0100 |
parents | 669bd699082d |
children | 128c4544036d |
comparison
equal
deleted
inserted
replaced
1745:3587df7758e7 | 1746:bf4a7015033e |
---|---|
60 sml="mlton" | 60 sml="mlton" |
61 else cat 1>&2 <<EOF | 61 else cat 1>&2 <<EOF |
62 | 62 |
63 ERROR: No supported SML compiler or interpreter found | 63 ERROR: No supported SML compiler or interpreter found |
64 EOF | 64 EOF |
65 cat <<EOF | 65 cat 1>&2 <<EOF |
66 | 66 |
67 The Vext external source code manager needs a Standard ML (SML) | 67 The Vext external source code manager needs a Standard ML (SML) |
68 compiler or interpreter to run. | 68 compiler or interpreter to run. |
69 | 69 |
70 Please ensure you have one of the following SML implementations | 70 Please ensure you have one of the following SML implementations |
88 fi | 88 fi |
89 | 89 |
90 arglist="" | 90 arglist="" |
91 for arg in "$@"; do | 91 for arg in "$@"; do |
92 if [ -n "$arglist" ]; then arglist="$arglist,"; fi | 92 if [ -n "$arglist" ]; then arglist="$arglist,"; fi |
93 if echo "$arg" | grep -q '[^a-z]' ; then | 93 if echo "$arg" | grep -q '["'"'"']' ; then |
94 arglist="$arglist\"usage\"" | 94 arglist="$arglist\"usage\"" |
95 else | 95 else |
96 arglist="$arglist\"$arg\"" | 96 arglist="$arglist\"$arg\"" |
97 fi | 97 fi |
98 done | 98 done |
108 echo 'use "'"$program"'"; vext ['"$arglist"'];' | | 108 echo 'use "'"$program"'"; vext ['"$arglist"'];' | |
109 poly -q --error-exit | 109 poly -q --error-exit |
110 fi ;; | 110 fi ;; |
111 mlton) | 111 mlton) |
112 if [ ! -x "$gen_out" ]; then | 112 if [ ! -x "$gen_out" ]; then |
113 echo "[Precompiling Vext binary...]" 1>&2 | |
113 echo "val _ = main ()" | cat "$program" - > "$gen_sml" | 114 echo "val _ = main ()" | cat "$program" - > "$gen_sml" |
114 mlton -output "$gen_out" "$gen_sml" | 115 mlton -output "$gen_out" "$gen_sml" |
115 fi | 116 fi |
116 "$gen_out" "$@" ;; | 117 "$gen_out" "$@" ;; |
117 smlnj) | 118 smlnj) |
139 val _ = OS.Process.exit (OS.Process.success); | 140 val _ = OS.Process.exit (OS.Process.success); |
140 EOF | 141 EOF |
141 ) > "$gen_sml" | 142 ) > "$gen_sml" |
142 CM_VERBOSE=false sml "$gen_sml" ;; | 143 CM_VERBOSE=false sml "$gen_sml" ;; |
143 *) | 144 *) |
144 echo "Unknown SML implementation name: $sml"; | 145 echo "ERROR: Unknown SML implementation name: $sml" 1>&2; |
145 exit 2 ;; | 146 exit 2 ;; |
146 esac | 147 esac |
147 | 148 |