| 75 |
75 |
|
| 76 |
76 |
$VERSION = '1.23';
|
| 77 |
77 |
($PROGRAM = $0) =~ s@.*/@@; $PROGRAM = "\U$PROGRAM\E";
|
| 78 |
|
$debug = 2;
|
|
78 |
$debug = 4;
|
| 79 |
79 |
|
| 80 |
80 |
#------------------------------------------------------------------------
|
| 81 |
81 |
# Define platform specific things
|
| ... | ... | |
| 701 |
701 |
} else {
|
| 702 |
702 |
print IFILE "<h1 $var{'codeheader'}>$var{'textheaderindexalldirs'}</h1>\n";
|
| 703 |
703 |
}
|
| 704 |
|
print IFILE "<p align=\"center\">\n";
|
|
704 |
print IFILE "<p>\n";
|
| 705 |
705 |
|
| 706 |
706 |
if ($var{'frames'} eq 'yes') {
|
| 707 |
707 |
if ($irun == 0) { print IFILE "<strong>short</strong>\n"; }
|
| ... | ... | |
| 878 |
878 |
} elsif ($LocalShortLong eq 'long') {
|
| 879 |
879 |
# begin create long index
|
| 880 |
880 |
print IFILE "<table border=\"5\" width=\"100%\" cellpadding=\"5\">\n";
|
| 881 |
|
print IFILE "<tr align=\"center\"><th>Name</th><th>Description</th></tr>\n";
|
|
881 |
print IFILE "<tr><th>Name</th><th>Description</th></tr>\n";
|
| 882 |
882 |
|
| 883 |
883 |
for('a'..'z') {
|
| 884 |
884 |
# print " $_: @{$_}\n";
|
| ... | ... | |
| 1010 |
1010 |
local(*WRITEFILE, $LocalPath2Index, $PathContents, $LocalGlobalLocal) = @_;
|
| 1011 |
1011 |
|
| 1012 |
1012 |
# include links to short/long - local/global index and C|contents.m
|
| 1013 |
|
print WRITEFILE "\n<p align=\"center\">";
|
| 1014 |
|
print WRITEFILE "$var{'textjumpindexglobal'} (";
|
|
1013 |
print WRITEFILE "\n<p>";
|
|
1014 |
print WRITEFILE "$var{'textjumpindexglobal'} ";
|
| 1015 |
1015 |
|
| 1016 |
1016 |
if ($var{'frames'} eq 'yes') {
|
| 1017 |
1017 |
print WRITEFILE "<a href=\"$LocalPath2Index$var{'filenameindexshortglobal'}$var{'filenameextensionframe'}$var{'exthtml'}\">short</a> | ";
|
| 1018 |
|
print WRITEFILE "<a href=\"$LocalPath2Index$var{'filenameindexlongglobal'}$var{'filenameextensionframe'}$var{'exthtml'}\">long</a>)\n";
|
|
1018 |
print WRITEFILE "<a href=\"$LocalPath2Index$var{'filenameindexlongglobal'}$var{'filenameextensionframe'}$var{'exthtml'}\">long</a>\n";
|
| 1019 |
1019 |
} else {
|
| 1020 |
1020 |
print WRITEFILE "<a href=\"$LocalPath2Index$var{'filenametopframe'}$var{'exthtml'}\">short</a> | ";
|
| 1021 |
|
print WRITEFILE "<a href=\"$LocalPath2Index$var{'filenameindexlongglobal'}$var{'filenameextensionindex'}$var{'exthtml'}\">long</a>)\n";
|
|
1021 |
print WRITEFILE "<a href=\"$LocalPath2Index$var{'filenameindexlongglobal'}$var{'filenameextensionindex'}$var{'exthtml'}\">long</a>\n";
|
| 1022 |
1022 |
}
|
| 1023 |
1023 |
|
| 1024 |
1024 |
if ($LocalGlobalLocal eq 'local') {
|
| 1025 |
1025 |
if ($var{'usecontentsm'} eq 'yes') {
|
| 1026 |
1026 |
print WRITEFILE " | <a href=\"$contentsname{$PathContents}$dirnamesingle{$PathContents}$var{'exthtml'}\">Local contents</a>\n";
|
| 1027 |
1027 |
}
|
| 1028 |
|
# if ($var{'producetree'} eq 'yes') {
|
| 1029 |
|
print WRITEFILE " | $var{'textjumpindexlocal'} (";
|
|
1028 |
if ($var{'frames'} eq 'yes') {
|
|
1029 |
print WRITEFILE " | $var{'textjumpindexlocal'} ";
|
| 1030 |
1030 |
print WRITEFILE "<a href=\"$var{'filenameindexshortlocal'}$var{'filenameextensionframe'}$dirnamesingle{$PathContents}$var{'exthtml'}\">short</a> | ";
|
| 1031 |
|
print WRITEFILE "<a href=\"$var{'filenameindexlonglocal'}$var{'filenameextensionframe'}$dirnamesingle{$PathContents}$var{'exthtml'}\">long</a>)\n";
|
| 1032 |
|
# }
|
|
1031 |
print WRITEFILE "<a href=\"$var{'filenameindexlonglocal'}$var{'filenameextensionframe'}$dirnamesingle{$PathContents}$var{'exthtml'}\">long</a>\n";
|
|
1032 |
} else {
|
|
1033 |
print WRITEFILE " | $var{'textjumpindexlocal'} ";
|
|
1034 |
print WRITEFILE "<a href=\"$var{'filenameindexshortlocal'}$var{'filenameextensionindex'}$dirnamesingle{$PathContents}$var{'exthtml'}\">short</a> | ";
|
|
1035 |
print WRITEFILE "<a href=\"$var{'filenameindexlonglocal'}$var{'filenameextensionindex'}$dirnamesingle{$PathContents}$var{'exthtml'}\">long</a>\n";
|
|
1036 |
}
|
| 1033 |
1037 |
}
|
| 1034 |
1038 |
print WRITEFILE "</p>\n\n";
|
| 1035 |
1039 |
print WRITEFILE "$var{'codehr'}\n";
|