#!/bin/csh
#*---------------------------------------------------------------------*/
#*    serrano/prgm/project/bigloo/public/trun ...                      */
#*                                                                     */
#*    Author      :  Manuel Serrano                                    */
#*    Creation    :  Fri Nov 13 13:59:39 1992                          */
#*    Last change :  Thu Mar  4 13:20:07 1993  (serrano)               */
#*                                                                     */
#*    On fait un scrypt qui va tester T.                               */
#*---------------------------------------------------------------------*/

if ($#argv < "1") then
	echo "usage: trun [file] <args>"
else
	set noglog
	
	set aux  = "$home/trashcan/aux_run.t"

	echo "(scheme-reset)" >! $aux
	echo "(load "\"`preffix $1`".so"\"")" >> $aux
	echo "(main (command-line))" >> $aux
	echo "(exit)" >> $aux

	shift argv
	t $argv < $aux > /dev/null
	echo OK
endif	
	
