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 upperc_cp_ext = ".m"
|
|
foreach upperc_cp_i ($*)
|
|
set upperc_cp_base = `basename $upperc_cp_i $upperc_cp_ext`
|
|
if ( "$upperc_cp_i" != "$upperc_cp_base" ) then
|
|
# If they _don't_ match, then basename found $upperc_cp_ext and stripped it off.
|
|
set upperc_cp_newbase = `echo $upperc_cp_base | tr '[a-z]' '[A-Z]'`
|
|
if ( "$upperc_cp_base" != "$upperc_cp_newbase" ) then
|
|
# If _not_ overwriting an existing file.
|
|
set upperc_cp_dirname = `dirname $upperc_cp_i`
|
|
echo "cp $upperc_cp_dirname/$upperc_cp_i ---> $upperc_cp_dirname/$upperc_cp_newbase$upperc_cp_ext"
|
|
cp $upperc_cp_dirname/$upperc_cp_i $upperc_cp_dirname/$upperc_cp_newbase$upperc_cp_ext
|
|
endif
|
|
endif
|
|
end
|
|
|
|
unset upperc_cp_base
|
|
unset upperc_cp_dirname
|
|
unset upperc_cp_ext
|
|
unset upperc_cp_i
|
|
unset upperc_cp_newbase
|