code-browser/MakeBrowseableMITGCM/parseCallTree.awk

BEGIN{MATCH_ROUTINE=0;
i=0;nVals=0;
while ( getline < "varkey" ) {
 var[i]=$1;
 val[i]=$2;
 ++i;
 nVals=i-1;
}
print "<HTML>"
print "<HEAD>"
print "<TITLE>MITgcm Call Tree</TITLE>"
print "</HEAD>"
print "<BODY leftmargin=0 topmargin=0 marginheight=0 marginwidth=0 bgcolor=#FFFFFF>"
while ( getline < "callTree.header" ) {
 print $0;
}
print "<PRE>"
}
/\|-[A-Z,0-9,_]*.*/{
  match($0,/\|-[A-Z0-9_]*/);
  theString=substr($0,RSTART+2,RLENGTH-2);
  rsString=RSTART; rlString=RLENGTH;
  nMatch=-1;
  for ( i=0;i<nVals;++i) {
   if ( match(var[i],theString) == 1 && length(var[i]) == length(theString) && length(theString) != 0 ) {
    nMatch=i;
    break;
   }
  }
  if ( nMatch >= 0 ) {
   print substr($0,0,rsString)"<A HREF=vdb/names/"val[nMatch]".htm target=codeBrowserWindow>" theString "</A>" substr($0,rsString+rlString,length());
   MATCH_ROUTINE=1;
  }
}
{
 if (MATCH_ROUTINE ==0 ){ print};
 MATCH_ROUTINE=0;
}
END{
print "</PRE>"
print "</BODY>"
print "</HTML>"
}
1	BEGIN{MATCH_ROUTINE=0;
2	i=0;nVals=0;
3	while ( getline < "varkey" ) {
4	var[i]=$1;
5	val[i]=$2;
6	++i;
7	nVals=i-1;
8	}
9	print "<HTML>"
10	print "<HEAD>"
11	print "<TITLE>MITgcm Call Tree</TITLE>"
12	print "</HEAD>"
13	print "<BODY leftmargin=0 topmargin=0 marginheight=0 marginwidth=0 bgcolor=#FFFFFF>"
14	while ( getline < "callTree.header" ) {
15	print $0;
16	}
17	print "<PRE>"
18	}
19	/\\|-[A-Z,0-9,_]./{
20	match($0,/\\|-[A-Z0-9_]*/);
21	theString=substr($0,RSTART+2,RLENGTH-2);
22	rsString=RSTART; rlString=RLENGTH;
23	nMatch=-1;
24	for ( i=0;i<nVals;++i) {
25	if ( match(var[i],theString) == 1 && length(var[i]) == length(theString) && length(theString) != 0 ) {
26	nMatch=i;
27	break;
28	}
29	}
30	if ( nMatch >= 0 ) {
31	print substr($0,0,rsString)"<A HREF=vdb/names/"val[nMatch]".htm target=codeBrowserWindow>" theString "</A>" substr($0,rsString+rlString,length());
32	MATCH_ROUTINE=1;
33	}
34	}
35	{
36	if (MATCH_ROUTINE ==0 ){ print};
37	MATCH_ROUTINE=0;
38	}
39	END{
40	print "</PRE>"
41	print "</BODY>"
42	print "</HTML>"
43	}