Contents of /MITgcm_contrib/jmc_script/comment_out_params

#! /usr/bin/env bash
#
# $Header: /u/gcmpack/MITgcm/tools/calc_diagnostics_dims,v 1.1 2004/02/13 06:05:49 edhill Exp $
# $Name:  $

#  The purpose of this script is to modify parameter files
#   by commenting out lines which set a given parameter

usage()
{
    cat <<EOF

Usage:  $0  params  data_file_list
where:
  params         : is the name of the parameter to comment out
  data_file_list : is the list of parameter file to process

EOF
}

COMMANDL="$0 $@"

if [ $# -lt 2 ] ; then
  if test "x$1" != 'x-h' -a "x$1" != 'x-help' ; then
    echo ""
    echo "ERROR: Need to specify 1 parameter and (at least) 1 file to modify"
  fi
  usage ; exit
fi
VAR_NAME="$1"
shift
DATA_FILES=$*

prt=1		# 0 : no print ; 1 print modified file ; 2 more printing
tmpFile=TTT.$$

for ff in $DATA_FILES
do
  if test -f $ff ; then
    if [ $prt -ge 2 ] ; then echo ' processing file:' $ff ; fi
    flag=0
#- comment out (in $ff) all parameters from list: 'VAR_NAME'
    for yy in $VAR_NAME
    do
      if [ $prt -ge 2 ] ; then echo -n '  commenting out:' $yy ; fi
      nn=`grep -i -c "^ *$yy *=" $ff`
      if [ $nn -ge 1 ]
      then
        listN=`grep -i -n "^ *$yy *=" $ff | sed 's/:.*$//'`
        if [ $prt -ge 2 ] ; then echo " : found on line: $listN" ; fi
        for ll in $listN
        do
          if test $flag = 0 ; then cp -p -f $ff $ff.bak ; fi
          sed "$ll s/^./#&/" $ff > $tmpFile
         #diff $tmpFile $ff
          mv -f  $tmpFile $ff
          flag=1
        done
      else if [ $prt -ge 2 ] ; then echo ' : not found' ; fi
      fi
    done
    if [ $prt -ge 1 -a $flag -eq 1 ] ; then
      echo ' change file:' $ff
    fi
  else
    if [ $prt -ge 1 ] ; then echo " file '$ff' not found" ; fi
  fi
done
1	#! /usr/bin/env bash
2	#
3	# $Header: /u/gcmpack/MITgcm/tools/calc_diagnostics_dims,v 1.1 2004/02/13 06:05:49 edhill Exp $
4	# $Name: $
5
6	# The purpose of this script is to modify parameter files
7	# by commenting out lines which set a given parameter
8
9	usage()
10	{
11	cat <<EOF
12
13	Usage: $0 params data_file_list
14	where:
15	params : is the name of the parameter to comment out
16	data_file_list : is the list of parameter file to process
17
18	EOF
19	}
20
21	COMMANDL="$0 $@"
22
23	if [ $# -lt 2 ] ; then
24	if test "x$1" != 'x-h' -a "x$1" != 'x-help' ; then
25	echo ""
26	echo "ERROR: Need to specify 1 parameter and (at least) 1 file to modify"
27	fi
28	usage ; exit
29	fi
30	VAR_NAME="$1"
31	shift
32	DATA_FILES=$*
33
34	prt=1 # 0 : no print ; 1 print modified file ; 2 more printing
35	tmpFile=TTT.$$
36
37	for ff in $DATA_FILES
38	do
39	if test -f $ff ; then
40	if [ $prt -ge 2 ] ; then echo ' processing file:' $ff ; fi
41	flag=0
42	#- comment out (in $ff) all parameters from list: 'VAR_NAME'
43	for yy in $VAR_NAME
44	do
45	if [ $prt -ge 2 ] ; then echo -n ' commenting out:' $yy ; fi
46	nn=`grep -i -c "^ $yy =" $ff`
47	if [ $nn -ge 1 ]
48	then
49	listN=`grep -i -n "^ $yy =" $ff \| sed 's/:.*$//'`
50	if [ $prt -ge 2 ] ; then echo " : found on line: $listN" ; fi
51	for ll in $listN
52	do
53	if test $flag = 0 ; then cp -p -f $ff $ff.bak ; fi
54	sed "$ll s/^./#&/" $ff > $tmpFile
55	#diff $tmpFile $ff
56	mv -f $tmpFile $ff
57	flag=1
58	done
59	else if [ $prt -ge 2 ] ; then echo ' : not found' ; fi
60	fi
61	done
62	if [ $prt -ge 1 -a $flag -eq 1 ] ; then
63	echo ' change file:' $ff
64	fi
65	else
66	if [ $prt -ge 1 ] ; then echo " file '$ff' not found" ; fi
67	fi
68	done