[p5sagit/p5-mst-13.2.git] / hints / catamount.sh

#
# Hints for the Cray XT4 Catamount/Qk system:
# cross-compilation host is a SuSE x86_64-linux,
# execution at the target with the 'yod' utility,
# linux.sh will run this hints file when necessary.
#
# cc.sh: compiles the code with the cross-compiler, patches main/exit/_exit
# (and traps signals) to be wrappers that echo the exit code.
#
# run.sh: runs the executable with yod and collects the exit status,
# and exits with that status.
#
# You probably should do the compilation in non-Lustre filesystem
# because Lustre does not support all the POSIX system calls, which may
# cause weird errors during the Perl build:
# 1182003549.604836:3-24:(super.c:1516:llu_iop_fcntl()): unsupported fcntl cmd 2
#
# As of 2007-Sep (pre-5.10) miniperl, libperl.a, and perl can be successfully
# built; no extensions are built.  It would be hard since Perl cannot run
# anything external (pipes, system(), backticks or fork/exec, or globbing)
# (which breaks MakeMaker, and confuses ext/util/make_ext).
#
# To build:
#
#   sh Configure -des -Dusedevel
#   make perl
#
# The -Dusedevel is required for Perl 5.9, it is not required for the Perl
# 5.10 sources, once they come out.  "make install" won't work since it
# assumes file globbing (see above).  You can try the following manually:
#
# mkdir -p /opt/perl-catamount
# mkdir -p /opt/perl-catamount/include
# mkdir -p /opt/perl-catamount/lib
# mkdir -p /opt/perl-catamount/lib/perl5/5.9.5
# mkdir -p /opt/perl-catamount/bin
# cp *.h /opt/perl-catamount/include
# cp libperl.a /opt/perl-catamount/lib
# cp -pr lib/* /opt/perl-catamount/lib/perl5/5.9.5
# cp miniperl perl run.sh cc.sh /opt/perl-catamount/lib
#
# (For Perl 5.10.0 do the obvious renaming above.)
# With the headers and the libperl.a you can embed Perl to your Catamount
# application, see pod/perlembed.pod.  You can do for example:
#
# cc -I/opt/perl-catamount/include -L/opt/perl-catamount/lib -o embed embed.c
# yod -sz 1 ./embed -le 'print sqrt(2)'
#
# You might want to have the run.sh execution wrapper around (it gets created
# in the Perl build directory) if you want to run the miniperl or perl in
# the XT4.  It collects the exit status (note that yod is run with "-sz 1",
# so only one instance is run), and possible crash status (bare yod does
# not collect the exit status).  For example:
#
#   sh /opt/perl-catamount/bin/run.sh /opt/perl-catamount/bin/perl -le 'print 42'
# 
# or if you are still in the build directory:
#
#   sh run.sh ./perl -le 'print 2*3*7'
#
# The cc.sh is a wrapper for the Catamount cc used when building Perl
# (and before that, when running Configure), it arranges for the main()
# exit(), _exit() to be wrapped so that the exit/crash status can be
# collected (by run.sh).
# 

case "$prefix" in
'') prefix=/opt/perl-catamount ;;
esac
cat >&4 <<__EOF1__
***
*** You seem to be compiling in Linux for the Catamount/Qk environment.
*** I'm therefore not going to install perl as /usr/bin/perl.
*** Perl will be installed under $prefix.
***
__EOF1__

archname='x86_64-catamount'
archobjs='catalib.o'
d_mmap='undef'
d_setlocale='undef' # There is setlocale() but no locales.
d_vprintf='define'
hintfile='catamount'
i_arpainet='undef'
i_db='undef'
i_netdb='undef'
i_niin='undef'
incpth=' '
installusrbinperl='undef'
libswanted="m crypt c"
libpth=' '
locincpth=' '
nonxs_ext=' '
osname='catamount'
procselfexe='undef'
static_ext=' '
usedl='undef'
useithreads='undef'
uselargefiles='define'
usenm='undef'
usethreads='undef'
use64bitall='define'

BUILD=$PWD

case "`yod -Version 2>&1`" in
Red*) ;; # E.g. "Red Storm Protocol Release 2.1.0"
*) echo >&4 "Could not find 'yod', aborting."
   exit 1 ;;
esac
run=$BUILD/run.sh
cat > $run <<'__EOF2__'
#!/bin/sh
#
# $run
#
yod -sz 1 "$@" 2> .yod$$e > .yod$$o
status=`awk '/^cata: exe .* pid [0-9][0-9]* (main|exit|_exit) [0-9][0-9]*$/ {print $NF}' .yod$$o|tail -1`
grep -v "sz is 1" .yod$$e
grep -v "^cata: exe .* pid [0-9][0-9]* " .yod$$o
grep "^cata: exe .* signal " .yod$$o
rm -f .yod$$o .yod$$e
exit $status
__EOF2__
chmod 755 $run
case "`cc -V 2>&1`" in
*catamount*) ;; # E.g. "/opt/xt-pe/1.5.41/bin/snos64/cc: INFO: catamount target is being used"
*) echo "Could not find 'cc' for catamount, aborting."
   exit 1 ;;
esac

cc=$BUILD/cc.sh
cat > $cc <<__EOF3a__
#!/bin/sh
#
# $0
#
# This is essentially a frontend driver for the Catamount cc.
# We arrange for (1) the main(), exit(), _exit() being wrapped (cpp-defined)
# catamain(), cataexit(), and _cataexit() (2) the actual main() etc. are in
# cata.c, and cata*.o are linked in when needed (3) signals being caught
# All this mostly for being able to catch the exit status (or crash cause).
#
argv=''
srco=''
srct=''
exe=''
defs='-Dmain=catamain -Dexit=cataexit -D_exit=_cataexit'
argv=''
BUILD=/wrk/jhi/perl-5.9.x@31393+cata
__EOF3a__
cat >> $cc <<'__EOF3b__'
case "$1" in
--cata_o) ;;
*) if test ! -f catalib.o
   then
     if test ! -f catalib.c
     then
       if test -f ../catalib.c # If compiling in UU during Configure.
       then
         cp ../catalib.c catalib.c
         cp ../catamain.c catamain.c
         cp ../cata.h cata.h
       fi
     fi
     $0 --cata_o -c catalib.c || exit 1
     $0 --cata_o -c catamain.c || exit 1
   fi
   ;;
esac
while test $# -ne 0
do
  i=$1
  shift
  case "$i" in
  --cata_o) ;;
  *.c)
    argv="$argv $defs"
    defs=""
    if test ! -f $i
    then
      echo "$0: $i: No such file or directory"
      exit 1
    fi
    j=$i$$.c
    rm -f $j
    if grep -q -s '#include "cata.h"' $i
    then
      :
    else
      cat >>$j<<__EOF4__
#include "cata.h"
# 1 "$i"
__EOF4__
    fi
    cat $i >>$j
    if grep -q -s 'int main()' $i
    then
      argv="$argv -Dmain0"
    else
      if grep -q -s 'int main([^,]*,[^,]*)' $i
      then
        argv="$argv -Dmain2"
      else
        if grep -q -s 'int main([^,]*,[^,]*,[^,]*)' $i
        then
          argv="$argv -Dmain3"
        fi
      fi
    fi
    argv="$argv $j"
    srct="$j"
    srco="$i"
    ;;
  *.o)
    if test ! -f "$i"
    then
      c=$(echo $i|sed 's/\.o$/.c/')
      $0 -c $c || exit 1
    fi
    argv="$argv $i"
    ;;
  -o)
    exe="$1"
    argv="$argv -o $exe -Dargv0=$exe"
    shift
    ;;
  *)
    argv="$argv $i"
    ;;
  esac
done
case "$exe" in
'') ;;
*) case "$argv" in
   *catalib.o*|*" perlmain.o "*) ;;
   *) argv="$argv catalib.o" ;;
   esac
   case "$argv" in
   *catamain.o*) ;;
   *) argv="$argv catamain.o" ;;
   esac
   ;;
esac
cc -I$BUILD $argv 2> .cc$$e > .cc$$o
status=$?
egrep -v 'catamount target|'$$'\.c:$' .cc$$e 1>&2
case "`grep "is not implemented" .cc$$e`" in
*"will always fail"*) status=1 ;;
esac
cat .cc$$o
rm -f .cc$$o
case "$status" in
0) rm -f .cc$$e $srct
   ;;
esac
objt=`echo $srct|sed -e 's/\.c$/.o/'`
objo=`echo $srco|sed -e 's/\.c$/.o/'`
if test -n "$objt" -a -f "$objt"
then
  mv -f $objt $objo
fi
exit $status
__EOF3b__
chmod 755 $cc

cat >cata.h<<__EOF6__
#ifndef CATA_H
#define CATA_H
void cataexit(int status);
void _cataexit(int status);
void catasigsetup();
void catasighandle(int signum);
#ifdef main0
int catamain();
#else
#ifdef main2
int main(int argc, char **argv);
#else
int main(int argc, char **argv, char **env);
#endif
#endif
#endif
#ifdef argv0
#define ARGV0 STRINGIFY(argv0)
#else
#define ARGV0 argv0
#endif
__EOF6__

cat >catalib.c<<__EOF7__
#include <stdio.h>
#include <signal.h>
#undef printf
#undef main
#undef exit
#undef _exit
#include "cata.h"
char* argv0;
void cataexit(int status) {
  printf("cata: exe %s pid %d exit %d\n", ARGV0, getpid(), status);
  exit(status);
}
void _cataexit(int status) {
  printf("cata: exe %s pid %d _exit %d\n", ARGV0, getpid(), status);
  _exit(status);
}
void catasighandle(int signum) {
  int core = 0;
  printf("cata: exe %s pid %d signal %d\n", ARGV0, getpid(), signum);
  switch (signum) {
  case SIGQUIT:
  case SIGILL:
  case SIGTRAP:
  case SIGABRT:
  case SIGBUS:
  case SIGSEGV:
  case SIGXCPU:
  case SIGXFSZ:
    core = 0200;
    break;
  default:
    break;
  }
  cataexit(core << 8 | signum);
}
void catasigsetup() {
  signal(SIGHUP, catasighandle);
  signal(SIGINT, catasighandle);
  signal(SIGQUIT, catasighandle);
  signal(SIGILL, catasighandle);
  signal(SIGTRAP, catasighandle);
  signal(SIGABRT, catasighandle);
  signal(SIGIOT, catasighandle);
  /* KILL */
  signal(SIGBUS, catasighandle);
  signal(SIGFPE, catasighandle);
  signal(SIGUSR1, catasighandle);
  signal(SIGUSR2, catasighandle);
  signal(SIGSEGV, catasighandle);
  signal(SIGPIPE, catasighandle);
  signal(SIGALRM, catasighandle);
  signal(SIGTERM, catasighandle);
  signal(SIGSTKFLT, catasighandle);
  signal(SIGCHLD, catasighandle);
  signal(SIGCONT, catasighandle);
  /* STOP */
  signal(SIGTSTP, catasighandle);
  signal(SIGTTIN, catasighandle);
  signal(SIGTTOU, catasighandle);
  signal(SIGURG, catasighandle);
  signal(SIGXCPU, catasighandle);
  signal(SIGXFSZ, catasighandle);
  signal(SIGVTALRM, catasighandle);
  signal(SIGPROF, catasighandle);
  signal(SIGWINCH, catasighandle);
  signal(SIGIO, catasighandle);
  signal(SIGPWR, catasighandle);
  signal(SIGSYS, catasighandle);
}
void boot_DynaLoader (void* cv) { }
__EOF7__
cat >catamain.c<<__EOF8__
#include <stdio.h>
#undef printf
#undef main
#undef exit
#undef _exit
#include "cata.h"
extern char* argv0;
int main(int argc, char *argv[], char *envv[]) {
  int status;
#ifndef argv0
  argv0 = argv[0];
#endif
  catasigsetup();
  status =
#ifdef main0
    catamain();
#else
#ifdef main2
    catamain(argc, argv);
#else
    catamain(argc, argv, envv);
#endif
#endif
  printf("cata: exe %s pid %d main %d\n", ARGV0, getpid(), status);
  return status;
}
__EOF8__

echo "Faking DynaLoader"
touch DynaLoader.o # Oh, the agony.

# That's it.
Commit	Line	Data
9c12f1e5	1	#
	2	# Hints for the Cray XT4 Catamount/Qk system:
	3	# cross-compilation host is a SuSE x86_64-linux,
	4	# execution at the target with the 'yod' utility,
	5	# linux.sh will run this hints file when necessary.
	6	#
	7	# cc.sh: compiles the code with the cross-compiler, patches main/exit/_exit
	8	# (and traps signals) to be wrappers that echo the exit code.
	9	#
	10	# run.sh: runs the executable with yod and collects the exit status,
	11	# and exits with that status.
	12	#
	13	# You probably should do the compilation in non-Lustre filesystem
	14	# because Lustre does not support all the POSIX system calls, which may
	15	# cause weird errors during the Perl build:
	16	# 1182003549.604836:3-24:(super.c:1516:llu_iop_fcntl()): unsupported fcntl cmd 2
	17	#
6d4b7d88	18	# As of 2007-Sep (pre-5.10) miniperl, libperl.a, and perl can be successfully
	19	# built; no extensions are built. It would be hard since Perl cannot run
	20	# anything external (pipes, system(), backticks or fork/exec, or globbing)
	21	# (which breaks MakeMaker, and confuses ext/util/make_ext).
9c12f1e5	22	#
6d4b7d88	23	# To build:
9c12f1e5	24	#
9c12f1e5	25	# sh Configure -des -Dusedevel
6d4b7d88	26	# make perl
9c12f1e5	27	#
6d4b7d88	28	# The -Dusedevel is required for Perl 5.9, it is not required for the Perl
	29	# 5.10 sources, once they come out. "make install" won't work since it
	30	# assumes file globbing (see above). You can try the following manually:
9c12f1e5	31	#
6d4b7d88	32	# mkdir -p /opt/perl-catamount
	33	# mkdir -p /opt/perl-catamount/include
	34	# mkdir -p /opt/perl-catamount/lib
	35	# mkdir -p /opt/perl-catamount/lib/perl5/5.9.5
	36	# mkdir -p /opt/perl-catamount/bin
	37	# cp *.h /opt/perl-catamount/include
	38	# cp libperl.a /opt/perl-catamount/lib
	39	# cp -pr lib/* /opt/perl-catamount/lib/perl5/5.9.5
	40	# cp miniperl perl run.sh cc.sh /opt/perl-catamount/lib
	41	#
	42	# (For Perl 5.10.0 do the obvious renaming above.)
	43	# With the headers and the libperl.a you can embed Perl to your Catamount
	44	# application, see pod/perlembed.pod. You can do for example:
	45	#
	46	# cc -I/opt/perl-catamount/include -L/opt/perl-catamount/lib -o embed embed.c
	47	# yod -sz 1 ./embed -le 'print sqrt(2)'
	48	#
	49	# You might want to have the run.sh execution wrapper around (it gets created
	50	# in the Perl build directory) if you want to run the miniperl or perl in
	51	# the XT4. It collects the exit status (note that yod is run with "-sz 1",
	52	# so only one instance is run), and possible crash status (bare yod does
	53	# not collect the exit status). For example:
	54	#
	55	# sh /opt/perl-catamount/bin/run.sh /opt/perl-catamount/bin/perl -le 'print 42'
	56	#
	57	# or if you are still in the build directory:
	58	#
	59	# sh run.sh ./perl -le 'print 237'
	60	#
	61	# The cc.sh is a wrapper for the Catamount cc used when building Perl
	62	# (and before that, when running Configure), it arranges for the main()
	63	# exit(), _exit() to be wrapped so that the exit/crash status can be
	64	# collected (by run.sh).
9c12f1e5	65	#
	66
	67	case "$prefix" in
	68	'') prefix=/opt/perl-catamount ;;
	69	esac
	70	cat >&4 <<__EOF1__
	71	***
	72	*** You seem to be compiling in Linux for the Catamount/Qk environment.
	73	*** I'm therefore not going to install perl as /usr/bin/perl.
	74	*** Perl will be installed under $prefix.
	75	***
	76	__EOF1__
	77
	78	archname='x86_64-catamount'
6d4b7d88	79	archobjs='catalib.o'
9c12f1e5	80	d_mmap='undef'
	81	d_setlocale='undef' # There is setlocale() but no locales.
	82	d_vprintf='define'
	83	hintfile='catamount'
	84	i_arpainet='undef'
	85	i_db='undef'
	86	i_netdb='undef'
	87	i_niin='undef'
	88	incpth=' '
	89	installusrbinperl='undef'
	90	libswanted="m crypt c"
	91	libpth=' '
6d4b7d88	92	locincpth=' '
6d4b7d88	93	nonxs_ext=' '
9c12f1e5	94	osname='catamount'
9c12f1e5	95	procselfexe='undef'
6d4b7d88	96	static_ext=' '
9c12f1e5	97	usedl='undef'
	98	useithreads='undef'
	99	uselargefiles='define'
	100	usenm='undef'
	101	usethreads='undef'
	102	use64bitall='define'
	103
	104	BUILD=$PWD
	105
	106	case "`yod -Version 2>&1`" in
	107	Red*) ;; # E.g. "Red Storm Protocol Release 2.1.0"
	108	*) echo >&4 "Could not find 'yod', aborting."
	109	exit 1 ;;
	110	esac
	111	run=$BUILD/run.sh
	112	cat > $run <<'__EOF2__'
	113	#!/bin/sh
	114	#
	115	# $run
	116	#
	117	yod -sz 1 "$@" 2> .yod$$e > .yod$$o
	118	status=`awk '/^cata: exe .* pid [0-9][0-9]* (main\|exit\|_exit) [0-9][0-9]*$/ {print $NF}' .yod$$o\|tail -1`
	119	grep -v "sz is 1" .yod$$e
	120	grep -v "^cata: exe .* pid [0-9][0-9]* " .yod$$o
	121	grep "^cata: exe .* signal " .yod$$o
	122	rm -f .yod$$o .yod$$e
	123	exit $status
	124	__EOF2__
	125	chmod 755 $run
	126	case "`cc -V 2>&1`" in
	127	catamount) ;; # E.g. "/opt/xt-pe/1.5.41/bin/snos64/cc: INFO: catamount target is being used"
	128	*) echo "Could not find 'cc' for catamount, aborting."
	129	exit 1 ;;
	130	esac
	131
	132	cc=$BUILD/cc.sh
	133	cat > $cc <<__EOF3a__
	134	#!/bin/sh
	135	#
	136	# $0
	137	#
	138	# This is essentially a frontend driver for the Catamount cc.
	139	# We arrange for (1) the main(), exit(), _exit() being wrapped (cpp-defined)
	140	# catamain(), cataexit(), and _cataexit() (2) the actual main() etc. are in
6d4b7d88	141	# cata.c, and cata*.o are linked in when needed (3) signals being caught
9c12f1e5	142	# All this mostly for being able to catch the exit status (or crash cause).
	143	#
	144	argv=''
	145	srco=''
	146	srct=''
	147	exe=''
	148	defs='-Dmain=catamain -Dexit=cataexit -D_exit=_cataexit'
	149	argv=''
	150	BUILD=/wrk/jhi/perl-5.9.x@31393+cata
	151	__EOF3a__
	152	cat >> $cc <<'__EOF3b__'
	153	case "$1" in
	154	--cata_o) ;;
6d4b7d88	155	*) if test ! -f catalib.o
9c12f1e5	156	then
6d4b7d88	157	if test ! -f catalib.c
9c12f1e5	158	then
6d4b7d88	159	if test -f ../catalib.c # If compiling in UU during Configure.
9c12f1e5	160	then
6d4b7d88	161	cp ../catalib.c catalib.c
6d4b7d88	162	cp ../catamain.c catamain.c
9c12f1e5	163	cp ../cata.h cata.h
	164	fi
	165	fi
6d4b7d88	166	$0 --cata_o -c catalib.c \|\| exit 1
6d4b7d88	167	$0 --cata_o -c catamain.c \|\| exit 1
9c12f1e5	168	fi
	169	;;
	170	esac
	171	while test $# -ne 0
	172	do
	173	i=$1
	174	shift
	175	case "$i" in
	176	--cata_o) ;;
	177	*.c)
	178	argv="$argv $defs"
	179	defs=""
	180	if test ! -f $i
	181	then
	182	echo "$0: $i: No such file or directory"
	183	exit 1
	184	fi
	185	j=$i$$.c
	186	rm -f $j
	187	if grep -q -s '#include "cata.h"' $i
	188	then
	189	:
	190	else
	191	cat >>$j<<__EOF4__
	192	#include "cata.h"
	193	# 1 "$i"
	194	__EOF4__
	195	fi
	196	cat $i >>$j
	197	if grep -q -s 'int main()' $i
	198	then
	199	argv="$argv -Dmain0"
	200	else
	201	if grep -q -s 'int main([^,],[^,])' $i
	202	then
	203	argv="$argv -Dmain2"
	204	else
	205	if grep -q -s 'int main([^,],[^,],[^,]*)' $i
	206	then
	207	argv="$argv -Dmain3"
	208	fi
	209	fi
	210	fi
	211	argv="$argv $j"
	212	srct="$j"
	213	srco="$i"
	214	;;
	215	*.o)
	216	if test ! -f "$i"
	217	then
	218	c=$(echo $i\|sed 's/\.o$/.c/')
	219	$0 -c $c \|\| exit 1
	220	fi
	221	argv="$argv $i"
	222	;;
	223	-o)
	224	exe="$1"
	225	argv="$argv -o $exe -Dargv0=$exe"
	226	shift
	227	;;
	228	*)
	229	argv="$argv $i"
	230	;;
	231	esac
232	done
233	case "$exe" in
234	'') ;;
235	*) case "$argv" in
6d4b7d88	236	catalib.o\|" perlmain.o ") ;;
	237	*) argv="$argv catalib.o" ;;
	238	esac
	239	case "$argv" in
	240	catamain.o) ;;
	241	*) argv="$argv catamain.o" ;;
9c12f1e5	242	esac
	243	;;
	244	esac
	245	cc -I$BUILD $argv 2> .cc$$e > .cc$$o
	246	status=$?
	247	egrep -v 'catamount target\|'$$'\.c:$' .cc$$e 1>&2
	248	case "`grep "is not implemented" .cc$$e`" in
	249	"will always fail") status=1 ;;
	250	esac
	251	cat .cc$$o
	252	rm -f .cc$$o
	253	case "$status" in
	254	0) rm -f .cc$$e $srct
	255	;;
	256	esac
	257	objt=`echo $srct\|sed -e 's/\.c$/.o/'`
	258	objo=`echo $srco\|sed -e 's/\.c$/.o/'`
	259	if test -n "$objt" -a -f "$objt"
	260	then
	261	mv -f $objt $objo
	262	fi
	263	exit $status
	264	__EOF3b__
	265	chmod 755 $cc
	266
	267	cat >cata.h<<__EOF6__
	268	#ifndef CATA_H
	269	#define CATA_H
	270	void cataexit(int status);
	271	void _cataexit(int status);
	272	void catasigsetup();
	273	void catasighandle(int signum);
	274	#ifdef main0
	275	int catamain();
	276	#else
	277	#ifdef main2
	278	int main(int argc, char **argv);
	279	#else
	280	int main(int argc, char argv, char env);
	281	#endif
	282	#endif
	283	#endif
6d4b7d88	284	#ifdef argv0
	285	#define ARGV0 STRINGIFY(argv0)
	286	#else
	287	#define ARGV0 argv0
	288	#endif
9c12f1e5	289	__EOF6__
9c12f1e5	290
6d4b7d88	291	cat >catalib.c<<__EOF7__
9c12f1e5	292	#include <stdio.h>
	293	#include <signal.h>
	294	#undef printf
	295	#undef main
	296	#undef exit
	297	#undef _exit
	298	#include "cata.h"
6d4b7d88	299	char* argv0;
9c12f1e5	300	void cataexit(int status) {
	301	printf("cata: exe %s pid %d exit %d\n", ARGV0, getpid(), status);
	302	exit(status);
	303	}
	304	void _cataexit(int status) {
	305	printf("cata: exe %s pid %d _exit %d\n", ARGV0, getpid(), status);
	306	_exit(status);
	307	}
	308	void catasighandle(int signum) {
	309	int core = 0;
	310	printf("cata: exe %s pid %d signal %d\n", ARGV0, getpid(), signum);
	311	switch (signum) {
	312	case SIGQUIT:
	313	case SIGILL:
	314	case SIGTRAP:
	315	case SIGABRT:
	316	case SIGBUS:
	317	case SIGSEGV:
	318	case SIGXCPU:
	319	case SIGXFSZ:
	320	core = 0200;
	321	break;
	322	default:
	323	break;
	324	}
	325	cataexit(core << 8 \| signum);
	326	}
	327	void catasigsetup() {
	328	signal(SIGHUP, catasighandle);
	329	signal(SIGINT, catasighandle);
	330	signal(SIGQUIT, catasighandle);
	331	signal(SIGILL, catasighandle);
	332	signal(SIGTRAP, catasighandle);
	333	signal(SIGABRT, catasighandle);
	334	signal(SIGIOT, catasighandle);
	335	/* KILL */
	336	signal(SIGBUS, catasighandle);
	337	signal(SIGFPE, catasighandle);
	338	signal(SIGUSR1, catasighandle);
	339	signal(SIGUSR2, catasighandle);
	340	signal(SIGSEGV, catasighandle);
	341	signal(SIGPIPE, catasighandle);
	342	signal(SIGALRM, catasighandle);
	343	signal(SIGTERM, catasighandle);
	344	signal(SIGSTKFLT, catasighandle);
	345	signal(SIGCHLD, catasighandle);
	346	signal(SIGCONT, catasighandle);
	347	/* STOP */
	348	signal(SIGTSTP, catasighandle);
	349	signal(SIGTTIN, catasighandle);
	350	signal(SIGTTOU, catasighandle);
	351	signal(SIGURG, catasighandle);
	352	signal(SIGXCPU, catasighandle);
	353	signal(SIGXFSZ, catasighandle);
	354	signal(SIGVTALRM, catasighandle);
	355	signal(SIGPROF, catasighandle);
	356	signal(SIGWINCH, catasighandle);
	357	signal(SIGIO, catasighandle);
	358	signal(SIGPWR, catasighandle);
	359	signal(SIGSYS, catasighandle);
	360	}
6d4b7d88	361	void boot_DynaLoader (void* cv) { }
	362	__EOF7__
	363	cat >catamain.c<<__EOF8__
	364	#include <stdio.h>
	365	#undef printf
	366	#undef main
	367	#undef exit
	368	#undef _exit
	369	#include "cata.h"
	370	extern char* argv0;
9c12f1e5	371	int main(int argc, char argv[], char envv[]) {
	372	int status;
	373	#ifndef argv0
	374	argv0 = argv[0];
	375	#endif
	376	catasigsetup();
	377	status =
	378	#ifdef main0
	379	catamain();
	380	#else
	381	#ifdef main2
	382	catamain(argc, argv);
	383	#else
	384	catamain(argc, argv, envv);
	385	#endif
	386	#endif
	387	printf("cata: exe %s pid %d main %d\n", ARGV0, getpid(), status);
	388	return status;
	389	}
6d4b7d88	390	__EOF8__
9c12f1e5	391
	392	echo "Faking DynaLoader"
	393	touch DynaLoader.o # Oh, the agony.
	394
	395	# That's it.