#!/bin/csh -f
#(ie run the cshell on this but don't read the .cshrc)

# lkdelila 1.03 2001 Jan 25
# 1.03, 2001 Jan 25: usage
# 1.02, 1999 June 9
# origin 1994 Oct 26
# this script creates a link to delila files.

if (($#argv == 0) || ( $#argv > 2)) then
   echo "usage: lkdelila [file]"
   echo "link to a delila file, see also get"
   exit
endif

set y="$1"
# set z="~toms/delila/"$1
set z="$DELILA_DELILA/"$1

if (-f $y) then
 echo $1 exists:
 ls -alF $1
 echo Destroy old link if you want ...
 rm -i $1
endif

if !(-f $z) then
   echo $z does not exist!
else
   echo link $y to $z
   ln -s $z $y
endif


# old method:
# set y=`ls -l $1 | awk '{print $4}'`
# # echo $y
# # echo ============
# 
# if !($y) echo $1 does not exist - make a new one
# if  ($y) echo link $1 exists:
# 
# if ($y) ls -alF $1
# rm -f $1
# 
# ln -s ~toms/delila/$1 $1
# 
# if ($y) echo new:; ls -alF $1
# 
# # The REALLY old method:
# # link to a delila source file
# # ln -s ~toms/delila/$1 $1