#! /bin/csh
set oldmask=`umask`
umask 2
set gendate=`date`

setenv XREF `pwd`

if ( $#argv != 2 ) then
    echo "Usage: boot <prolog> <destination>"
    exit 1
endif

set prolog=$1
set savefile=$2

onintr -
$prolog <<!
:-[	'$XREF/xrf.pl',		% top level
	'$XREF/xrfcol.pl',
	'$XREF/xrfdef.pl',
	'$XREF/xrfout.pl',
	'$XREF/xrftty.pl'
].
:-load('$XREF/xref.def').
:-  save('$savefile'),
    write('XREF for Cprolog 1.5, version 1.0'), nl,
    display('$gendate'), nl,
    start,
    statistics,
    halt.
!
umask $oldmask
