source: trunk/documents/UserDoc/UsersGuides/ForToolkitDeveloper/html/Restructure.pl @ 1339

Last change on this file since 1339 was 1208, checked in by garnier, 15 years ago

CVS update
  • Property svn:executable set to *
File size: 4.4 KB
Line 
1#!/kek/local/bin/perl
2#
3# Read in the data file
4# Print out HTML formatted lines
5#
6
7###$file = 'node5.html' ;                  # Name the file
8$file = $ARGV[0];                  # Name the file
9
10open(INFO, "<$file" ) ;               # Open the file
11@lines = <INFO> ;                     # Read it into an array
12close(INFO) ;                         # Close the file
13
14$flag1 = 0;
15$flag2 = 0;
16$flagHead = 1;
17$flagNavigationPanel = 0;
18$flagTopNavigationPanel = 1;
19$flagReserve = 0;
20
21
22foreach $line (@lines)                # assign @lines to $line, one at a time
23{                                     # braces {} are required, bracket code
24
25
26 if ($line =~ /<TITLE>Geant4 User's Guide/)
27 {
28   $flagReserve = 1;
29 }
30
31
32 if ($line =~ /BODY/)
33 {
34   $line = '<BODY>
35<TABLE WIDTH="100%"><TR>
36<TD>';
37}
38
39 if ($line =~ /--Navigation Panel--/ )               
40 {
41   $flagNavigationPanel = 1;
42 }
43
44 if ( $flagNavigationPanel == 1 )
45 {
46  $line =~ s#SRC="/usr/local/share/latex2html/icons.gif/next_motif.gif"#SRC="../../../resources/html/IconsGIF/Next.gif"#g;
47   $line =~ s#IMG WIDTH="37" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="next"#IMG BORDER="0" ALT="next"#g;
48
49   $line =~ s#SRC="/usr/local/share/latex2html/icons.gif/up_motif.gif"#SRC="../../../resources/html/IconsGIF/Up.gif"#g;
50   $line =~ s#IMG WIDTH="26" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="up"#IMG BORDER="0" ALT="up"#g;
51
52   $line =~ s#SRC="/usr/local/share/latex2html/icons.gif/previous_motif.gif"#SRC="../../../resources/html/IconsGIF/Previous.gif"#g;
53   $line =~ s#IMG WIDTH="63" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="previous"#IMG BORDER="0" ALT="previous"#g;
54
55   $line =~ s#SRC="/usr/local/share/latex2html/icons.gif/contents_motif.gif"#SRC="../../../resources/html/IconsGIF/Contents.gif"#g;
56   $line =~ s#IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents"#IMG BORDER="0" ALT="contents"#g;
57
58  $line =~ s#SRC="/usr/local/share/latex2html/icons.gif/next_motif_gr.gif"#SRC="../../../resources/html/IconsGIF/NextGR.gif"#g;
59   $line =~ s#IMG WIDTH="37" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="next"#IMG BORDER="0" ALT="next"#g;
60
61   $line =~ s#SRC="/usr/local/share/latex2html/icons.gif/up_motif_gr.gif"#SRC="../../../resources/html/IconsGIF/UpGR.gif"#g;
62   $line =~ s#IMG WIDTH="26" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="up"#IMG BORDER="0" ALT="up"#g;
63
64   $line =~ s#SRC="/usr/local/share/latex2html/icons.gif/previous_motif_gr.gif"#SRC="../../../resources/html/IconsGIF/PreviousGR.gif"#g;
65   $line =~ s#IMG WIDTH="63" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="previous"#IMG BORDER="0" ALT="previous"#g;
66
67   $line =~ s#SRC="/usr/local/share/latex2html/icons.gif/contents_motif_gr.gif"#SRC="../../../resources/html/IconsGIF/ContentsGR.gif"#g;
68   $line =~ s#IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents"#IMG BORDER="0" ALT="contents"#g;
69
70 }
71
72   if ($line =~ /Next:/ )               
73   {
74    $flag1 = 1;
75   }
76
77   if ($line =~ /End of Navigation Panel/ )     
78   {
79     if ($flagTopNavigationPanel == 1)
80     {
81    $line = '</TD>
82<TD ALIGN="Right">
83<FONT SIZE="-1" COLOR="#238E23">
84<B>Geant4 User\'s Guide</B><BR>
85<B>For Toolkit Developers</B>
86</FONT>
87</TD>
88</TR></TABLE><BR>
89';
90     }
91
92     $flagTopNavigationPanel = 0;
93     $flagNavigationPanel = 0;
94     $flag1 = 0;
95   }
96
97   if ($flag1 == 1)
98   {
99       $line = "";
100   }
101
102###--------------
103   if ($line =~ /Table of Child-Links/ && $flagReserve == 0)               
104   {
105    $flag2 = 1;
106   }
107
108   if ($line =~ /End of Table of Child-Links/ )     
109   {
110    $flag2 = 0;
111   }
112
113   if ($flag2 == 1)
114   {
115       $line = "";
116   }
117###--------------
118   if ($flagHead == 1)
119   {
120       if ($line =~ /<HR>/)
121       {
122          $line =~ s!<HR>!!g;
123       }
124       if ($line =~ /<H1>/)
125       {
126          $line =~ s!<H1>!<BR><P ALIGN="Center"><FONT SIZE="+4" COLOR="#238E23"><B>!g;
127       }
128
129       if ($line =~ /H1 ALIGN/)
130       {
131          $line =~ s!<H1 ALIGN="CENTER">!<BR><P ALIGN="Center"><FONT SIZE="+4" COLOR="#238E23"><B>!g;
132       }
133       if ($line =~ /<\/H1>/)
134       {
135          $line =~ s!</H1>!</B></FONT><BR><P>!g;
136          $flagHead = 0;
137      }
138   }
139###--------------
140
141   if ($line =~ /<H2>/)
142   {
143      $line =~ s!<H2>!<HR><P><BR><H2>!g;
144   }
145
146   if ($line =~ /ADDRESS/ )               
147   {
148    $flag3 = 1;
149   }
150
151   if ($line =~ /\/ADDRESS/ )     
152   {
153     $flag3 = 0;
154   }
155
156   if ($flag3 == 1)
157   {
158       $line = "";
159   }
160
161  $line =~ s/node1.html/toolkitDeveloper.html/g;
162
163
164   print "$line" ;    # print formatted lines to screen
165}
166
167#
168# DONE
169#
170
171
172
Note: See TracBrowser for help on using the repository browser.