Mercurial > hg > octave-nkf

comparison scripts/mkdoc @ 11594:f2e868fd8500

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mark scripts as coming from 'scripts/' directory in Texinfo '@c func location' comments.
author Rik <octave@nomad.inbox5.com>
date Thu, 20 Jan 2011 20:31:42 -0800
parents fd0a3ac60b0e
children db1f49eaba6b
comparison
equal deleted inserted replaced
11593:1577c6f80926 11594:f2e868fd8500
55 $re_srcdir = quotemeta($srcdir); 55 $re_srcdir = quotemeta($srcdir);
56 for (qx{ ./gethelp $fcn "$full_fname" < "$full_fname"} ) { 56 for (qx{ ./gethelp $fcn "$full_fname" < "$full_fname"} ) {
57 s/^\s+\@/\@/ unless $in_example; 57 s/^\s+\@/\@/ unless $in_example;
58 s/^\s+\@group/\@group/; 58 s/^\s+\@group/\@group/;
59 s/^\s+\@end\s+group/\@end group/; 59 s/^\s+\@end\s+group/\@end group/;
60 s|\@c $re_srcdir|\@c scripts/|o; 60 s|\@c $fcn $re_srcdir|\@c $fcn scripts/|o;
61 $in_example = (/\s*\@example\b/ .. /\s*\@end\s+example\b/); 61 $in_example = (/\s*\@example\b/ .. /\s*\@end\s+example\b/);
62 print; 62 print;
63 }' "$prefix" "$arg" 63 }' "$prefix" "$arg"
64 fi 64 fi
65 done 65 done