manual/tools/figsub.awk

BEGIN{ nsubstotal =0 ; curfile = ""}

/MITGCM_INSERT_FIGURE_BEGIN/{
 ++nsubstotal;
 if ( curfile != FILENAME ) {
   nsubs=1
   curfile=FILENAME
 } else {
  ++nsubs
 };
 print FILENAME " subsitution number " nsubs;
 subdir = "figsub/"FILENAME"/sub"nsubs
 if ( FILENAME != "-" ) 
  subdir = "figsub/"FILENAME"/sub"nsubs
 else
  subdir = "figsub/STDIN/sub"nsubs
 ;
 system("mkdir -p "subdir)
 subfile_extract=subdir"/extracted_html";
 subfile_startline=subdir"/startline";
 subfile_endline=subdir"/endline";
 print FNR > subfile_startline
}

/MITGCM_INSERT_FIGURE_BEGIN/,/MITGCM_INSERT_FIGURE_END/ {
print $0  > subfile_extract
}

/MITGCM_INSERT_FIGURE_END/{ 
print FNR > subfile_endline
}

{}
END{}
1	BEGIN{ nsubstotal =0 ; curfile = ""}
2
3	/MITGCM_INSERT_FIGURE_BEGIN/{
4	++nsubstotal;
5	if ( curfile != FILENAME ) {
6	nsubs=1
7	curfile=FILENAME
8	} else {
9	++nsubs
10	};
11	print FILENAME " subsitution number " nsubs;
12	subdir = "figsub/"FILENAME"/sub"nsubs
13	if ( FILENAME != "-" )
14	subdir = "figsub/"FILENAME"/sub"nsubs
15	else
16	subdir = "figsub/STDIN/sub"nsubs
17	;
18	system("mkdir -p "subdir)
19	subfile_extract=subdir"/extracted_html";
20	subfile_startline=subdir"/startline";
21	subfile_endline=subdir"/endline";
22	print FNR > subfile_startline
23	}
24
25	/MITGCM_INSERT_FIGURE_BEGIN/,/MITGCM_INSERT_FIGURE_END/ {
26	print $0 > subfile_extract
27	}
28
29	/MITGCM_INSERT_FIGURE_END/{
30	print FNR > subfile_endline
31	}
32
33	{}
34	END{}