Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-12-15 17:11:20 +01:00
Code Issues Releases Wiki Activity

this script has been redundant since we stopped using wxhelp for the manual

Browse Source
This commit is contained in:
richardash1981
2012-03-16 19:46:13 +00:00
parent cd01874390
commit 623ea25327
1 changed files with 0 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
scripts/makeindex.pl
View File

@@ -1,57 +0,0 @@
#!/usr/bin/env perl
print "Rebuilding the index file for wxhelp...\n";
chdir "../help/wxhelp";
@files = glob("*.htm");
open OF, ">audacity.hhk";
print OF <<ENDF;
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
Index
</head>
<body>
<ul>
ENDF
foreach $f (@files) {
if ($f ne "credits.htm") {
open IF, "$f";
@lines = <IF>;
close IF;
foreach $l (@lines) {
if ($l =~ "<b>([^<]*)</b>") {
$phrase = $1;
@words = split(" ", $phrase);
if (@words <= 5 && $phrase ne "Audacity") {
$dict{$phrase} = $f;
}
}
}
}
}
foreach $d (keys %dict) {
$f = $dict{$d};
print OF "\t<li><object type=\"text/sitemap\">\n";
print OF "\t\t<param name=\"Name\" value=\"$d\">\n";
print OF "\t\t<param name=\"Local\" value=\"$f\">\n";
print OF "\t</object>\n";
};
print OF <<ENDF;
</ul>
</body>
</html>
ENDF
close OF;
# arch-tag: 89455395-07c3-4a9a-a359-063d7b5883e6