comparison extra/soundsoftware/matlab-docs.pl @ 388:dad587ecb8d0 feature_113

Use mixed-case version (not lower-case function name key) for link target

 #
 #	   29.03.2011  (Chris Cannam) add frames option.
 
 $VERSION  = '1.23';
 ($PROGRAM = $0) =~ s@.*/@@; $PROGRAM = "\U$PROGRAM\E";
-$debug = 0;
+$debug = 2;
 
 #------------------------------------------------------------------------
 # Define platform specific things
 #------------------------------------------------------------------------
 # suffix for files to search is defined twice

                # $filename = $name;
 
                # Contents file in unix must start with a capital letter (Contents.m)
                # ensure, that m-file name is lower case, except the contents file
                if (! ($filewosuffix =~ /^contents$/i)) {
-                  # if ($var{'links2filescase'}  eq 'low') { $filewosuffix = "\L$filewosuffix\E"; }
+		   # if ($var{'links2filescase'}  eq 'low') { $filewosuffix = "\L$filewosuffix\E"; }
                   $filewosuffixlow = "\L$filewosuffix\E";
                }
                else { $contentsname{$dirname} = $filewosuffix; }
 
                # internal handle name is always lower case

    local($refstr1, $refstr2, $reffound);
    
    # Look for something matching in the line
    if ( /(\W+)($funname)(\W+)/i ) {
       $reffound = $2;
-      $refstr1 = "<a class=\"mfun\" href=\"$hfileindexpath{$name}$hfilerelpath{$funname}$funname$var{'exthtml'}\">";
+      $refstr1 = "<a class=\"mfun\" href=\"$hfileindexpath{$name}$hfilerelpath{$funname}$mfilename{$funname}$var{'exthtml'}\">";
       $refstr2 = "<\/a>";
       # Do links only for exact case match
       if ( ($var{'links2filescase'}  eq 'exact') || ($var{'links2filescase'}  eq 'exactvery') ) {
          if ( /(\W+)($funname)(\W+)/g ) {
             s/(\W+)($funname)(\W+)/$1$refstr1$funname$refstr2$3/g;