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	#!/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