33 lines
1.2 KiB
Tcsh
33 lines
1.2 KiB
Tcsh
#!/bin/csh
|
|
#################################################################
|
|
# #
|
|
# Copyright 2001 Sanchez Computer Associates, Inc. #
|
|
# #
|
|
# This source code contains the intellectual property #
|
|
# of its copyright holder(s), and is made available #
|
|
# under a license. If you do not know the terms of #
|
|
# the license, please stop and do not read further. #
|
|
# #
|
|
#################################################################
|
|
|
|
set lowerc_cp_ext = ".m"
|
|
foreach lowerc_cp_i ($*)
|
|
set lowerc_cp_base = `basename $lowerc_cp_i $lowerc_cp_ext`
|
|
if ( "lowerc_cp_i" != "$lowerc_cp_base" ) then
|
|
# If they _don't_ match, then basename found $lowerc_cp_ext and stripped it off.
|
|
set lowerc_cp_newbase = `echo $lowerc_cp_base | tr '[A-Z]' '[a-z]'`
|
|
if ( "$lowerc_cp_base" != "$lowerc_cp_newbase" ) then
|
|
# If _not_ overwriting an existing file.
|
|
set lowerc_cp_dirname = `dirname $lowerc_cp_i`
|
|
echo "cp $lowerc_cp_dirname/$lowerc_cp_i ---> $lowerc_cp_dirname/$lowerc_cp_newbase$lowerc_cp_ext"
|
|
cp $lowerc_cp_dirname/$lowerc_cp_i $lowerc_cp_dirname/$lowerc_cp_newbase$lowerc_cp_ext
|
|
endif
|
|
endif
|
|
end
|
|
|
|
unset lowerc_cp_base
|
|
unset lowerc_cp_dirname
|
|
unset lowerc_cp_ext
|
|
unset lowerc_cp_i
|
|
unset lowerc_cp_newbase
|