#! /bin/csh -f
set srcdir = "/tm/truth/extensions/server/pex/dd/n10"
set taildir = `pwd | sed -e "s/\/.*n10\///"`

set start = $cwd
if ( $#argv > 0 ) then
  foreach i ($*)
    cd $start
    cd $srcdir/$i
    pwd
    if ( -d RCS ) then
       rlog -L -R RCS/* > /tmp/wo$$
       if ( -z /tmp/wo$$ ) then
          echo Nothing checked out
       else
          ls -l `cat /tmp/wo$$` | sed -e 's,RCS/,,' -e 's/,v//' | \
	 	awk '{printf "%-18s %-8s %-3s %2s %s\n", $8, $3, $5, $6, $7}'
       endif
    else
       echo "no RCS directory"
    endif
  end
else
  cd $srcdir/$taildir
  if ( -d RCS ) then
      rlog -L -R RCS/* > /tmp/wo$$
      if ( -z /tmp/wo$$ ) then
         echo Nothing checked out
      else
         ls -l `cat /tmp/wo$$` | sed -e 's,RCS/,,' -e 's/,v//' | \
	 	awk '{printf "%-18s %-8s %-3s %2s %s\n", $8, $3, $5, $6, $7}'
      endif
  else
    echo "no RCS directory"
  endif
  cd $start
endif
rm -f /tmp/wo$$
