sealion/code_reference/hypertree.sh

#!/bin/csh -f
#
#  Make a call tree clickable
#

# Log file where keys for names will be found
set LFILE = ( f90log )

# Call tree file
set CTFILE  = ( xx )
set OUTFILE = (  callTree.html )

# Pull out routine names
set rl=`grep '[ |-]*-[A-Z_0-9][A-Z_0-9]*[ (]*.*' $CTFILE | sed s/'[^:]*-\([A-Z_0-9]*\).*/\1/'`

# Find key for each name in log file
echo $rl
cp ${CTFILE} ${CTFILE}.alt1
foreach n ( $rl )
 set key = ( `grep '[ ]'$n'[ ]' $LFILE | grep '^New' | awk '{print $6}'` )
 set sub = `echo "HREF=vdb/names/"$key".htm>"$n"<\/A>"`
#echo \"$n\"
#echo \"$key\"
 cat ${CTFILE}.alt1 | sed s'%-'$n'\([ (]\)%-<A '$sub'\1%' > ${CTFILE}.alt2
 cp  ${CTFILE}.alt2 ${CTFILE}.alt1
end
cp ${CTFILE}.alt1 $OUTFILE
1	cnh	1.1	#!/bin/csh -f
2			#
3			# Make a call tree clickable
4			#
5
6			# Log file where keys for names will be found
7			set LFILE = ( f90log )
8
9			# Call tree file
10			set CTFILE = ( xx )
11			set OUTFILE = ( callTree.html )
12
13			# Pull out routine names
14			set rl=`grep '[ \|-]-[A-Z_0-9][A-Z_0-9][ (].' $CTFILE \| sed s/'[^:]-\([A-Z_0-9]\).*/\1/'`
15
16			# Find key for each name in log file
17			echo $rl
18			cp ${CTFILE} ${CTFILE}.alt1
19			foreach n ( $rl )
20			set key = ( `grep '[ ]'$n'[ ]' $LFILE \| grep '^New' \| awk '{print $6}'` )
21			set sub = `echo "HREF=vdb/names/"$key".htm>"$n"<\/A>"`
22			#echo \"$n\"
23			#echo \"$key\"
24			cat ${CTFILE}.alt1 \| sed s'%-'$n'\([ (]\)%-<A '$sub'\1%' > ${CTFILE}.alt2
25			cp ${CTFILE}.alt2 ${CTFILE}.alt1
26			end
27			cp ${CTFILE}.alt1 $OUTFILE