SxxMachine/make.sh at master · DouglasRMiles/SxxMachine · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#!/bin/bash

echo "$0 $@"
stty sane


if [ $# -eq 0 ]
  then

    export JSRCDIR=.

    (cls 2>/dev/null)
    clear
    echo "No arguments supplied outping to $JSRCDIR"
    echo ""
    #find $JSRCDIR -name "*.java" -delete -print
    echo ""
 find jsrc*/ -name "*.pl.am" -delete -print
    echo ""

find ./jsrc-pass10 -type f -name "*.pl" ! -path '*compiler*' -exec $0 $JSRCDIR "{}" jsrc-pass10 \;
find ./jsrc-pass20 -type f -name "*.pl" ! -path '*compiler*' -exec $0 $JSRCDIR "{}" jsrc-pass20 \;
#find ./jsrc-gen1 -type f -name "*.pl" -path '*compiler*' -exec $0 $JSRCDIR "{}" jsrc-gen1 \;
#find ./jsrc-gen2/tabling_dra -maxdepth 1 -type f -name "dra.pl" ! -path '*-*' -exec $0 $JSRCDIR "{}" jsrc-gen2 \;
 #find ./prolog/compiler -type f -name "*.pl" ! -path '*-*' -exec $0 $JSRCDIR "{}" jsrc-gen1-minimal \;

 #find ./library -type f -name "*.pl" ! -path '*-*' ! -path '*/http/*' ! -path '*/pldoc/*'  ! -path '*/doc_*'  ! -path '*/semweb/*' -exec $0 "{}" \;
 #find ./boot -type f -name "*.pl" ! -path '*-*' -exec $0 "{}" \;

    # $0 ./am2j.pl
    # $0 ./pl2am.pl


  else

    export BCMD="swipl -l ./jsrc-pass10/compiler/am2j.pl -- --plfile $2 --dir $1/$3"
    echo "$BCMD"
    stty sane
    $BCMD
    stty sane

fi