#!/bin/csh
## examples
#   tcp 004 005
#      copies test 4 to 5 in curent dir
#   tcp -n 004 005
#       ditto but negates it
#   tcp -r 004 005
#       copies positive entailment 4 to opposite entailment 5 
#
# from 03owlt
#  tcp sameClassAs 004 005
#  tcp sameClassAs 004 sameClassAs 005
# does the same as tcp 004 005
#
#  tcp cardinality/Manifest001.rdf sameClassAs/Manifest004.rdf
# copies cardinality test 1 to sameClassAs test 4
# -n or -r is supported



set dollar='$'
set OPTIONS=
if ( "$1" == "-r" ) then
   set OPTIONS=$1
   shift
endif

if ("$1" == "-n" ) then

   set OPTIONS=$1
   shift
#   set OPTIONS="-e '/conclusions/s/conclusions\([0-9][0-9][0-9]\)$dollar/nonconclusions\1/' -e /nonnonconclusions/s/nonnonconclusions/conclusions/ -e '/consistent/s/consistent\([0-9][0-9][0-9]\)$dollar/inconsistent\1/' -e /ininconsistent/s/ininconsistent/consistent/"
endif


set d = `pwd`
if ( "$d:t" != 03owlt ) then
  set dir1 = $d:t
  set dir2 = $d:t
  set arg1 = $1
  set arg2 = $2
  cd ..
else
  switch ( $# )
  case 2:
    set dir1 = $1:h
    set arg1 = $1:t
    set dir2 = $2:h
    set arg2 = $2:t
    breaksw
  case 3:
   set dir1 = $1:h
   set dir2 = $1:h
   set arg1 = $2
   set arg2 = $3
   breaksw
  case 4
   set dir1 = $1:h
   set arg1 = $2:h
   set dir2 = $3
   set arg2 = $4
   breaksw
  default:
   echo ERROR Bad args
   exit 1
  endsw
endif

set d = `pwd`
if ( "$d:t" != 03owlt ) then
  echo Bad start directory.
  exit 1
endif

set arg1 = `echo $arg1 | sed -e 's/[^0-9]//g'`
set arg2 = `echo $arg2 | sed -e 's/[^0-9]//g'`


set SEDSC=/tmp/$$.sed
echo 's/.rdf$//' > $SEDSC
echo 's/.*/& &/' >> $SEDSC
echo "s| $dir1| $dir2|" >> $SEDSC
echo "s|$arg1$dollar|$arg2|" >> $SEDSC
switch ( $OPTIONS )
  case -r:

echo 's/conclusions\([0-9][0-9][0-9]\)$/PPPPP\1/' >> $SEDSC
echo 's/premises\([0-9][0-9][0-9]\)$/conclusions\1/' >> $SEDSC
echo s/PPPPP/premises/ >> $SEDSC
  breaksw
  case -n:
echo    's/conclusions\([0-9][0-9][0-9]\)$/nonconclusions\1/' >> $SEDSC 
echo s/nonnonconclusions/conclusions/  >> $SEDSC
echo 's/consistent\([0-9][0-9][0-9]\)$/inconsistent\1/' >> $SEDSC
echo s/ininconsistent/consistent/ >> $SEDSC
  breaksw
endsw
copylong $OPTIONS `ls -1 $dir1/*$arg1.rdf | sed -f $SEDSC `