#! /bin/csh -f
#
# Copyright (C) 1989, Digital Equipment Corporation
# All rights reserved.
# See the file COPYRIGHT for a full description.
#
# Last Modified On Thu Apr 12 05:13:45 1990 By muller
#      Modified On Mon Feb 26 10:36:43 1990 By kalsow


set files = ()
set options = ()

while (${#argv} > 0)
  switch ($1)
    case -*:
      set options = (${options} $1)
      breaksw
    case *:
      set files = (${files} $1)
      breaksw
    endsw
  shift
end

if (! -e RCS) then
  foreach f (${files})
    if (-e $f) mv $f .SRC
    ln -s .SRC/$f $f
  end
endif

cd .SRC

touch ${files}

ci -l ${options} ${files}
rcs -Ndev:1 ${files}

foreach f (${files})
  chmod g+w RCS/$f,v
end
