Revision 388:dad587ecb8d0 extra
| extra/soundsoftware/matlab-docs.pl | ||
|---|---|---|
| 75 | 75 |
|
| 76 | 76 |
$VERSION = '1.23'; |
| 77 | 77 |
($PROGRAM = $0) =~ s@.*/@@; $PROGRAM = "\U$PROGRAM\E"; |
| 78 |
$debug = 0;
|
|
| 78 |
$debug = 2;
|
|
| 79 | 79 |
|
| 80 | 80 |
#------------------------------------------------------------------------ |
| 81 | 81 |
# Define platform specific things |
| ... | ... | |
| 372 | 372 |
# Contents file in unix must start with a capital letter (Contents.m) |
| 373 | 373 |
# ensure, that m-file name is lower case, except the contents file |
| 374 | 374 |
if (! ($filewosuffix =~ /^contents$/i)) {
|
| 375 |
# if ($var{'links2filescase'} eq 'low') { $filewosuffix = "\L$filewosuffix\E"; }
|
|
| 375 |
# if ($var{'links2filescase'} eq 'low') { $filewosuffix = "\L$filewosuffix\E"; }
|
|
| 376 | 376 |
$filewosuffixlow = "\L$filewosuffix\E"; |
| 377 | 377 |
} |
| 378 | 378 |
else { $contentsname{$dirname} = $filewosuffix; }
|
| ... | ... | |
| 1144 | 1144 |
# Look for something matching in the line |
| 1145 | 1145 |
if ( /(\W+)($funname)(\W+)/i ) {
|
| 1146 | 1146 |
$reffound = $2; |
| 1147 |
$refstr1 = "<a class=\"mfun\" href=\"$hfileindexpath{$name}$hfilerelpath{$funname}$funname$var{'exthtml'}\">";
|
|
| 1147 |
$refstr1 = "<a class=\"mfun\" href=\"$hfileindexpath{$name}$hfilerelpath{$funname}$mfilename{$funname}$var{'exthtml'}\">";
|
|
| 1148 | 1148 |
$refstr2 = "<\/a>"; |
| 1149 | 1149 |
# Do links only for exact case match |
| 1150 | 1150 |
if ( ($var{'links2filescase'} eq 'exact') || ($var{'links2filescase'} eq 'exactvery') ) {
|
Also available in: Unified diff