Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-26 00:03:52 +02:00
Code Issues Releases Wiki Activity

Locate and position the current Audacity source code, and clear a variety of old junk out of the way into junk-branches

Browse Source
This commit is contained in:
ra
2010-01-23 19:44:49 +00:00
commit e74978ba77
1011 changed files with 781704 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
scripts/makeindex.pl Executable file
View File

@@ -0,0 +1,57 @@
#!/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