|
Lines 168-203
Link Here
|
| 168 |
} |
168 |
} |
| 169 |
} |
169 |
} |
| 170 |
|
170 |
|
| 171 |
open (INPUT, "$MODULE-sections.txt") |
171 |
if (defined($MODULE)) { |
| 172 |
|| die "Can't open $MODULE-sections.txt: $!"; |
172 |
open (INPUT, "$MODULE-sections.txt") |
| 173 |
my $subsection = ""; |
173 |
|| die "Can't open $MODULE-sections.txt: $!"; |
| 174 |
while (<INPUT>) { |
174 |
my $subsection = ""; |
| 175 |
if (m/^#/) { |
175 |
while (<INPUT>) { |
| 176 |
next; |
176 |
if (m/^#/) { |
| 177 |
|
177 |
next; |
| 178 |
} elsif (m/^<SECTION>/) { |
178 |
|
| 179 |
$subsection = ""; |
179 |
} elsif (m/^<SECTION>/) { |
| 180 |
} elsif (m/^<SUBSECTION\s*(.*)>/i) { |
180 |
$subsection = ""; |
| 181 |
$subsection = $1; |
181 |
} elsif (m/^<SUBSECTION\s*(.*)>/i) { |
| 182 |
} elsif (m/^<SUBSECTION>/) { |
182 |
$subsection = $1; |
| 183 |
next; |
183 |
} elsif (m/^<SUBSECTION>/) { |
| 184 |
} elsif (m/^<TITLE>(.*)<\/TITLE>/) { |
184 |
next; |
| 185 |
next; |
185 |
} elsif (m/^<TITLE>(.*)<\/TITLE>/) { |
| 186 |
} elsif (m/^<FILE>(.*)<\/FILE>/) { |
186 |
next; |
| 187 |
next; |
187 |
} elsif (m/^<FILE>(.*)<\/FILE>/) { |
| 188 |
} elsif (m/^<INCLUDE>(.*)<\/INCLUDE>/) { |
188 |
next; |
| 189 |
next; |
189 |
} elsif (m/^<INCLUDE>(.*)<\/INCLUDE>/) { |
| 190 |
} elsif (m/^<\/SECTION>/) { |
190 |
next; |
| 191 |
next; |
191 |
} elsif (m/^<\/SECTION>/) { |
| 192 |
} elsif (m/^(\S+)/) { |
192 |
next; |
| 193 |
my $symbol=CreateValidSGMLID($1); |
193 |
} elsif (m/^(\S+)/) { |
| 194 |
|
194 |
my $symbol=CreateValidSGMLID($1); |
| 195 |
if ($subsection eq "Standard" || $subsection eq "Private") { |
195 |
|
| 196 |
$NoLinks{$symbol} = 1; |
196 |
if ($subsection eq "Standard" || $subsection eq "Private") { |
|
|
197 |
$NoLinks{$symbol} = 1; |
| 198 |
} |
| 197 |
} |
199 |
} |
| 198 |
} |
200 |
} |
|
|
201 |
close (INPUT); |
| 199 |
} |
202 |
} |
| 200 |
close (INPUT); |
|
|
| 201 |
|
203 |
|
| 202 |
&FixCrossReferences ($MODULE_DIR); |
204 |
&FixCrossReferences ($MODULE_DIR); |
| 203 |
|
205 |
|
