#!/bin/csh -f
# "@(#) chgcase.sh R2.0 2000/01/26"
# Copyright(C)2000 ASH multimedia lab. (http://ash.jp/)
#
# chgcase: change source name to upper/lower
#

goto main
usage:
  echo "Usage: chgcase [-l][-u] files"
exit

main:
while ($#argv)
  switch ("$1")
  case -l:
    shift
    goto lower

  case -u:
    shift
    goto upper

  case -*:
    goto usage

  default:
    break
  endsw
end

lower:
  if ($#argv == 0) goto usage
  foreach file ($*) 
    echo $file\: 
    set newfile = `echo $file | tr "[A-Z]" "[a-z]"`
    if ($file == $newfile) continue
    if !(-e $file) continue
    mv $file $newfile
  end
exit

upper:
  if ($#argv == 0) goto usage
  foreach file ($*) 
    echo $file\: 
    set newfile = `echo $file | tr "[a-z]" "[A-Z]"`
    if ($file == $newfile) continue
    if !(-e $file) continue
    mv $file $newfile
  end
exit