123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990 |
- #! /bin/sh
- echo build core module $1 for architecture $2
- a=$0
- c=unknown
- case $a in
- /* )
- c=$a
- ;;
- */* )
- case $a in
- ./* )
- a=`echo $a | sed -e s+./++`
- ;;
- esac
- c=`pwd`/$a
- ;;
- * )
- for d in $PATH
- do
- if test -x $d/$a
- then
- c=$d/$a
- fi
- done
- if test $c = "unknown" ;then
- echo "Unable to find full path for script. Please re-try"
- echo "launching it using a fully rooted path."
- exit 1
- fi
- ;;
- esac
- cpsldir=`echo $c | sed -e 's+/[^/]*$++'`
- creduce=$cpsldir/..
- if test -x /usr/bin/cygpath
- then
- psldir=`cygpath -m "$cpsldir"`
- reduce=`cygpath -m "$creduce"`
- else
- psldir="$cpsldir"
- reduce="$creduce"
- fi
- fasl=red
- if test -f psl/64
- then
- STORE=500
- else
- STORE=64000000
- fi
- export fasl psldir reduce
- psl/bpsl -td $STORE -f red/bootstrap.img <<XXX > buildlogs/$1.blg
- symbolic;
- load compiler;
- errorset('(load compat),nil,nil); % PSL compiler support.
- on verboseload;
- load remake;
- !*argnochk := t;
- begin
- scalar w, i, s;
- i := open("$reduce/packages/package.map", 'input);
- s := rds i;
- w := read();
- rds s;
- close i;
- for each x in w do put(car x, 'folder, cadr x)
- end;
-
- package!-remake '$1;
- if !*faslp
- then system "touch $reduce/psl/mkreduce";
- bye;
- XXX
- grep -q '^\*\*\*\*\* ' buildlogs/$1.blg && echo Possible error building noncore module $1 - check buildlogs/$1.blg && exit 1
- exit 0
|