Mercurial > octave-nkf

comparison scripts/mkdoc.pl @ 14644:f49e47ab83ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Rename mygethelp function to gethelp in scripts/mkdoc.pl * scripts/mkdoc.pl: Rename mygethelp function to gethelp in scripts/mkdoc.pl
author Rik <octave@nomad.inbox5.com>
date Wed, 16 May 2012 17:24:59 -0700
parents 8ffb01c3a27a
children a52b03df22cb
comparison
equal deleted inserted replaced
14643:d4b4080faa47 14644:f49e47ab83ca
48 $fcn = "$2$3/$4"; 48 $fcn = "$2$3/$4";
49 } else { 49 } else {
50 $fcn = $4; 50 $fcn = $4;
51 } 51 }
52 52
53 @help_txt = mygethelp ($fcn, $full_fname); 53 @help_txt = gethelp ($fcn, $full_fname);
54 next MFILE if ($help_txt[0] eq ""); 54 next MFILE if ($help_txt[0] eq "");
55 55
56 print "$fcn\n"; 56 print "$fcn\n";
57 print "\@c $fcn scripts/$m_fname\n"; 57 print "\@c $fcn scripts/$m_fname\n";
58 58
67 } 67 }
68 68
69 ################################################################################ 69 ################################################################################
70 # Subroutines 70 # Subroutines
71 ################################################################################ 71 ################################################################################
72 sub mygethelp 72 sub gethelp
73 { 73 {
74 ($fcn, $fname) = @_[0..1]; 74 ($fcn, $fname) = @_[0..1];
75 open (FH, $fname) or return ""; 75 open (FH, $fname) or return "";
76 76
77 do 77 do