#! /bin/csh  
# ----------------------------------------------------------------
#   (C)1994 Institute for New Generation Computer Technology
#       (Read COPYRIGHT for detailed information.)
# ----------------------------------------------------------------

# Parameter
#  (1) GDCC file name
#  Ex. gdcc test.gdcc
# 

set GDCCFILE=$argv[1]
set C = `expr ${GDCCFILE} : '\(.*\).gdcc'`

if ($C == "") then
	echo Illegal GDCC FILE NAME
	exit 2
endif

# Translate *.gdcc -> *.kl1
setenv GDCCSOURCE $PWD/$GDCCFILE
$GDCCPATH/Parser/trans_alg


