Annotation of /MITgcm_contrib/jmc_script/mk_options_list

#! /usr/bin/env bash
#
# $Header:  $
# $Name:  $

# generate list of CPP Options used in Fortran source files 
#                  arguments = list of Fortran source files

clean=1
listOpt='TTT.listOpt'
get_sd='options_get.sed'
sortsd='options_sort.sed'
tmpfil=TTT.$$
#echo $tmpfil

if [ $# -eq 0 ] ; then
  echo "Usage: `basename $0` {list_of_files}"
  echo "   generate list of CPP Options used in all the Fortran source files" 
  echo "   which are given in argument list {list_of_files}" 
  echo " or  : `basename $0` -clean"
  echo "   just clean-up temp files"
  exit
fi
if test $1 = '-clean' ; then
  LIST=`ls -C $get_sd $sortsd $listOpt 2>/dev/null` 
  #echo "LIST='$LIST'"
  if test "x$LIST" != x ; then
    echo " remove: $LIST" ; rm -f $LIST
  else
    echo " no file to remove"
  fi
  exit 
fi


if [ $clean -ge 3 ] ; then rm -f $get_sd $sortsd ; fi
if test -f $get_sd ; then ls -l $get_sd
else
cat <<EOF >> $get_sd
/^#.*\\\\ *$/{N
s/\\\\//
p
}
EOF
fi
if test -f $sortsd ; then ls -l $sortsd
else
cat <<EOF >> $sortsd
/^ccc /d
s/^# *ifndef//
s/^# *ifdef//
s/^# *if//
s/^# *elif//
s/||//g
s/&&//g
s/(//g
s/)//g
s/defined//g
s/!//g
EOF
fi

rm -f $listOpt
for xx in $*
do
  echo "ccc start file: $xx -----------------" >> $listOpt
  sed -n '/^ .*\\ *$/p' $xx  | sed 's/\\ *$//' >> $listOpt
  echo "ccc above: between cont line | below: 1rst and last of cont line" >> $listOpt
  sed '/^ .*\\ *$/d' $xx  > $tmpfil
  sed -n -f $get_sd $tmpfil >>  $listOpt
  echo "ccc below: single line" >> $listOpt
  sed '/^# *e*l*if.*\\ *$/d' $tmpfil | sed -n '/^# *e*l*if/p' >> $listOpt
  echo "ccc end file: $xx   -----------------" >> $listOpt
  rm -f $tmpfil
done
LIST=`sed -f $sortsd $listOpt`
if [ $clean -ge 2 ] ; then 
  rm -f $listOpt
fi

for xx in $LIST
do
  echo $xx >> $tmpfil
done

echo "-- used CPP options:"
cat $tmpfil | sort | uniq
if [ $clean -ge 1 ] ; then rm -f $tmpfil ; fi
1	jmc	1.1	#! /usr/bin/env bash
2			#
3			# $Header: $
4			# $Name: $
5
6			# generate list of CPP Options used in Fortran source files
7			# arguments = list of Fortran source files
8
9			clean=1
10			listOpt='TTT.listOpt'
11			get_sd='options_get.sed'
12			sortsd='options_sort.sed'
13			tmpfil=TTT.$$
14			#echo $tmpfil
15
16			if [ $# -eq 0 ] ; then
17			echo "Usage: `basename $0` {list_of_files}"
18			echo " generate list of CPP Options used in all the Fortran source files"
19			echo " which are given in argument list {list_of_files}"
20			echo " or : `basename $0` -clean"
21			echo " just clean-up temp files"
22			exit
23			fi
24			if test $1 = '-clean' ; then
25			LIST=`ls -C $get_sd $sortsd $listOpt 2>/dev/null`
26			#echo "LIST='$LIST'"
27			if test "x$LIST" != x ; then
28			echo " remove: $LIST" ; rm -f $LIST
29			else
30			echo " no file to remove"
31			fi
32			exit
33			fi
34
35
36			if [ $clean -ge 3 ] ; then rm -f $get_sd $sortsd ; fi
37			if test -f $get_sd ; then ls -l $get_sd
38			else
39			cat <<EOF >> $get_sd
40			/^#.\\\\ $/{N
41			s/\\\\//
42			p
43			}
44			EOF
45			fi
46			if test -f $sortsd ; then ls -l $sortsd
47			else
48			cat <<EOF >> $sortsd
49			/^ccc /d
50			s/^# *ifndef//
51			s/^# *ifdef//
52			s/^# *if//
53			s/^# *elif//
54			s/\|\|//g
55			s/&&//g
56			s/(//g
57			s/)//g
58			s/defined//g
59			s/!//g
60			EOF
61			fi
62
63			rm -f $listOpt
64			for xx in $*
65			do
66			echo "ccc start file: $xx -----------------" >> $listOpt
67			sed -n '/^ .\\ $/p' $xx \| sed 's/\\ *$//' >> $listOpt
68			echo "ccc above: between cont line \| below: 1rst and last of cont line" >> $listOpt
69			sed '/^ .\\ $/d' $xx > $tmpfil
70			sed -n -f $get_sd $tmpfil >> $listOpt
71			echo "ccc below: single line" >> $listOpt
72			sed '/^# elif.\\ $/d' $tmpfil \| sed -n '/^# elif/p' >> $listOpt
73			echo "ccc end file: $xx -----------------" >> $listOpt
74			rm -f $tmpfil
75			done
76			LIST=`sed -f $sortsd $listOpt`
77			if [ $clean -ge 2 ] ; then
78			rm -f $listOpt
79			fi
80
81			for xx in $LIST
82			do
83			echo $xx >> $tmpfil
84			done
85
86			echo "-- used CPP options:"
87			cat $tmpfil \| sort \| uniq
88			if [ $clean -ge 1 ] ; then rm -f $tmpfil ; fi