1 |
#!/bin/csh -f |
2 |
set flist = ( `find figsub -name '*.html' -maxdepth 1 ` ) |
3 |
|
4 |
# Work through all the figsub .html subdirectories |
5 |
foreach f ( $flist ) |
6 |
set fnode = `echo $f | sed s'/figsub\/\([^\/]*\).*/\1/'` |
7 |
set fdir = ( figsub/$fnode ) |
8 |
echo Doing figures for node $fnode using directory $fdir |
9 |
|
10 |
# Work through all the subs for each node |
11 |
# Must work in reverse numeric order to allow ed edits |
12 |
# at the end. |
13 |
echo $fdir/sub* | sed s'/[^ ]*\/sub\([0-9]*\)/\1/g' \ |
14 |
| tr ' ' '\n' | sort -n -r > figsub/temp-slist.$$ |
15 |
set slist = `cat figsub/temp-slist.$$` |
16 |
\rm figsub/temp-slist.$$ |
17 |
foreach sn ( $slist ) |
18 |
set s = ( ${fdir}/sub${sn} ) |
19 |
set snum = `echo $s | sed s'/.*sub\(.*\)/\1/'` |
20 |
set sline = `cat $s/startline` |
21 |
set eline = `cat $s/endline` |
22 |
echo " "substitution number $snum from line $sline to $eline |
23 |
set newfigdir = `head -1 $s/extracted_html | awk '{print $2}'` |
24 |
echo " "substitute figure directory is ../on-line-figs/$newfigdir |
25 |
|
26 |
# |
27 |
# o Look for substitute figure directory (named according to word after MITGCM_INSERT_.... ) |
28 |
# under the directory ../on-line-figs |
29 |
# |
30 |
if ( ! -d ../on-line-figs/$newfigdir ) then |
31 |
echo " **"directory ../on-line-figs/$newfigdir not found, skipping substitution |
32 |
echo " " |
33 |
break |
34 |
endif |
35 |
|
36 |
# |
37 |
# o Look for substitute img part of the html. This is in file img.html within |
38 |
# the substitute figure directory. If its not found we used the original |
39 |
# extract in extracted_html_img. Substituting full img part can be |
40 |
# used to replace static image with animated gif or an applet. |
41 |
# |
42 |
if ( -f ../on-line-figs/$newfigdir/img.html ) then |
43 |
echo " "substitute image html ../on-line-figs/$newfigdir/img.html wll be used |
44 |
set subimfile = ../on-line-figs/$newfigdir/img.html |
45 |
else |
46 |
echo " "no substitute img, original img html $s/extracted_html_img will be used |
47 |
set subimfile = $s/extracted_html_img |
48 |
endif |
49 |
|
50 |
# |
51 |
# o Look for substitute caption part of the html. This is in file caption.html within |
52 |
# the substitute figure directory. If its not found we used the original |
53 |
# extract in extracted_html_caption. Substituting full caption can be used to |
54 |
# create totally different cption for on-line doc. |
55 |
# |
56 |
if ( -f ../on-line-figs/$newfigdir/caption.html ) then |
57 |
echo " "substitute caption html ../on-line-figs/$newfigdir/caption.html wll be used |
58 |
set subcapfile = ../on-line-figs/$newfigdir/caption.html |
59 |
else |
60 |
echo " "no substitute caption, original caption html $s/extracted_html_caption will be used |
61 |
set subcapfile = $s/extracted_html_caption |
62 |
endif |
63 |
|
64 |
# |
65 |
# o Look for simple URL insert. This is used if we just want figure |
66 |
# to be a hyperlink and leave evrything else unchanged. |
67 |
# Note - having a scheme for putting the URL in the source latex |
68 |
# would be nice but, many URLs (especially ingrid ones) contains |
69 |
# embedded % characters. These are taken as comments and discarded |
70 |
# even within a rawhtml block. So instead we opt to put the |
71 |
# URL in a file. |
72 |
# |
73 |
if ( -f ../on-line-figs/$newfigdir/URL ) then |
74 |
set imgurl = `cat ../on-line-figs/$newfigdir/URL` |
75 |
else |
76 |
set imgurl = "" |
77 |
endif |
78 |
|
79 |
# Insert replacement into node |
80 |
# Insert puts in original labels, modified or original caption and |
81 |
# img. The fignum from the original is always used. If a modified caption |
82 |
# is used then it needs to contain a dummy figure number block that |
83 |
# will be substituted. |
84 |
set fnum = `cat $s/extracted_html_fignum` |
85 |
set stnum = `cat $s/startline` |
86 |
set fnnum = `cat $s/endline` |
87 |
echo ${stnum},${fnnum}c > temp-figchange.$$ |
88 |
echo '<!--- 'MITGCM_INSERT_FIGURE_BEGIN ${newfigdir}' -->' >> temp-figchange.$$ |
89 |
echo '<P></P>' >> temp-figchange.$$ |
90 |
cat $s/extracted_html_labels >> temp-figchange.$$ |
91 |
echo '<TABLE>' >> temp-figchange.$$ |
92 |
cat $subcapfile | \ |
93 |
sed s'/Figure [^:]*:/'"$fnum"'/' \ |
94 |
>> temp-figchange.$$ |
95 |
cat $subimfile >> temp-figchange.$$ |
96 |
echo '</TABLE>' >> temp-figchange.$$ |
97 |
echo '</DIV><P></P>' >> temp-figchange.$$ |
98 |
echo '<!--- 'MITGCM_INSERT_FIGURE_END' -->' >> temp-figchange.$$ |
99 |
echo '.' >> temp-figchange.$$ |
100 |
echo w >> temp-figchange.$$ |
101 |
echo q >> temp-figchange.$$ |
102 |
cp temp-figchange.$$ figsub/temp-figchange |
103 |
\rm temp-figchange.$$ |
104 |
# Insert the img url if there is one. |
105 |
if ( "$imgurl[1]" != "" ) then |
106 |
echo '/\/CAPTION/' > figsub/ed2 |
107 |
echo '/TD/' >> figsub/ed2 |
108 |
echo 's/TD>/TD>\' >> figsub/ed2 |
109 |
echo '/' >> figsub/ed2 |
110 |
echo 'i' >> figsub/ed2 |
111 |
echo '<A href='"$imgurl"'>' >> figsub/ed2 |
112 |
echo '.' >> figsub/ed2 |
113 |
echo '/TD/' >> figsub/ed2 |
114 |
echo 's/<\/TD>/\' >> figsub/ed2 |
115 |
echo '<\/TD>/' >> figsub/ed2 |
116 |
echo i >> figsub/ed2 |
117 |
echo '</A>' >> figsub/ed2 |
118 |
echo '.' >> figsub/ed2 |
119 |
echo 'w' >> figsub/ed2 |
120 |
echo 'q' >> figsub/ed2 |
121 |
cat figsub/ed2 | ed figsub/temp-figchange |
122 |
endif |
123 |
cat figsub/temp-figchange | ed $fnode |
124 |
end |
125 |
|
126 |
end |