Annotation of researchv10no/cmd/lcc/gen3/run, revision 1.1.1.1

1.1       root        1: #!/bin/sh
                      2: # ../run target os test [ remotehost ]
                      3: 
                      4: # set -x
                      5: target=$1 os=$2 test=$3 remotehost=${4-$REMOTEHOST}
                      6: 
                      7: cd tst
                      8: if [ ! -r "../../../include/${target}_$os" -o "$target" != vax ]; then
                      9:        echo 2>&1 $0: unknown target-system combination '"'$target-$os'"'
                     10: fi
                     11: 
                     12: echo $target-$os $3: 1>&2
                     13: cc -E -I../../../include/${target}_$os ../../../tst/$3.c | ../rcc >$3.s 2>$3.2
                     14: if [ $? != 0 ]; then remotehost=noexecute; fi
                     15: diff ../../../tst/$3.2 $3.2
                     16: if [ ! -r $3.s.bak ]; then
                     17:        mv $3.s $3.s.bak
                     18:        cp $3.s.bak $3.s
                     19: else
                     20:        if diff $3.s.bak $3.s; then exit 0; fi
                     21: fi
                     22: 
                     23: case "$remotehost" in
                     24: noexecute)     exit 0 ;;
                     25: "")    cc -o $3 $3.s -lm; ./$3 <../../../tst/$3.0 >$3.1 ;;
                     26: *)     rcp $3.s $remotehost:
                     27:        if expr "$remotehost" : '.*@' >/dev/null ; then
                     28:                remotehost="`expr $remotehost : '.*@\(.*\)'` -l `expr $remotehost : '\(.*\)@'`"
                     29:        fi
                     30:        rsh $remotehost "cc -o $3 $3.s -ll -lm;./$3;rm $3 $3.[so]" <../../../tst/$3.0 >$3.1
                     31:        ;;
                     32: esac
                     33: diff $3.1.bak $3.1
                     34: exit $?

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.