Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Annotation of /branches/vis15/src/compiler/gen/fragments/mkfrags_sh.in
ViewVC logotype

Annotation of /branches/vis15/src/compiler/gen/fragments/mkfrags_sh.in

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3817 - (view) (download)

1 : jhr 3773 #!/bin/sh
2 :     #
3 : jhr 3816 # wrapper script for MkFrags.mkFragments function
4 : jhr 3773 #
5 :    
6 : jhr 3817 PROG=mkfrags
7 :    
8 : jhr 3773 if [ $# != 1 ] ; then
9 : jhr 3817 echo "usage: $PROG.sh <dir>"
10 : jhr 3773 exit 1
11 :     fi
12 :    
13 :     DIR=$1
14 :    
15 :     SRC=@DIDEROT_SRCDIR@/compiler/gen/fragments/mkfrags.sml
16 :    
17 : jhr 3817 if test "@SML@" = "smlnj" ; then
18 :     @SMLNJ_CMD@ $SRC 2> /dev/null 1>/dev/null <<XXXX
19 : jhr 3816 MkFrags.mkFragments "$DIR";
20 : jhr 3773 XXXX
21 : jhr 3816 exit $?
22 : jhr 3817 elif test "@SML@" = "mlton" ; then
23 :     HERE=$(pwd)
24 :     cd @DIDEROT_SRCDIR@/compiler/gen/fragments
25 :     @MLTON@ -output $PROG sources.mlb || exit $1
26 :     cd $HERE
27 :     @DIDEROT_SRCDIR@/compiler/gen/fragments/$PROG $DIR || exit $1
28 :     rm -f @DIDEROT_SRCDIR@/compiler/gen/fragments/$PROG
29 :     exit 0
30 :     else
31 :     echo "unknown SML implementation"
32 :     exit 1
33 :     fi

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