gcc/testsuite/gm2/scripts/subit

   1 #!/bin/sh
   2
   3 # Copyright (C) 2000-2024 Free Software Foundation, Inc.
   4 # This file is part of GNU Modula-2.
   5 #
   6 # GNU Modula-2 is free software; you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 2, or (at your option)
   9 # any later version.
  10 #
  11 # GNU Modula-2 is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License
  17 # along with GNU Modula-2; see the file COPYING.  If not, write to the
  18 # Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
  19 # 02110-1301, USA.
  20 #
  21
  22 for i in * ; do
  23    if [ "`basename $i .o`.o" = "$i" ] ; then
  24       rm $i
  25       cvs remove $i
  26    fi
  27    if [ -d $i ] ; then
  28       ( cd $i ; ../$0 ; cd .. )
  29    fi
  30 done
  31