Mercurial > octave-nkf

changeset 8444:c3ac9f2772cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
do not eat white space within @example environments of docstrings
author Thorsten Meyer <thorsten.meyier@gmx.de>
date Mon, 05 Jan 2009 10:54:22 +0100
parents 34c0acf11539
children dd52e541418b
files ChangeLog Makeconf.in scripts/ChangeLog scripts/mkdoc
diffstat 4 files changed, 21 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/ChangeLog	Mon Jan 05 08:12:10 2009 +0100
+++ b/ChangeLog	Mon Jan 05 10:54:22 2009 +0100
@@ -26,6 +26,10 @@
 
 	* src/graphics.h.in: Add props screensize & screenpixelsperinch.
 
+2008-11-08  Thorsten Meyer  <thorsten.meyier@gmx.de>
+
+        * Makeconf.in: export PERL variable for use in scripts/mkdoc
+        
 2008-10-30  David Bateman  <dbateman@free.fr>
 
 	* NEWS: Minor update to document improved indexing code.
--- a/Makeconf.in	Mon Jan 05 08:12:10 2009 +0100
+++ b/Makeconf.in	Mon Jan 05 10:54:22 2009 +0100
@@ -33,6 +33,8 @@
 export FIND
 
 PERL = @PERL@
+export PERL
+
 PYTHON = @PYTHON@
 
 GNUPLOT = @GNUPLOT@
--- a/scripts/ChangeLog	Mon Jan 05 08:12:10 2009 +0100
+++ b/scripts/ChangeLog	Mon Jan 05 10:54:22 2009 +0100
@@ -165,6 +165,11 @@
 	* polynomial/spline.m: Delete debugging statements.  From
 	Sebastian Schöps <sebastian@schoeps.org>.
 
+2008-11-07  Thorsten Meyer  <thorsten.meyier@gmx.de>
+
+        * mkdoc: do not remove white space before @ within @example
+          environment
+
 2008-11-05  Thorsten Meyer  <thorsten.meyier@gmx.de>
 
         * plot/subplot.m: fix texi bug
--- a/scripts/mkdoc	Mon Jan 05 08:12:10 2009 +0100
+++ b/scripts/mkdoc	Mon Jan 05 10:54:22 2009 +0100
@@ -34,9 +34,16 @@
 ### Edit those files instead and run make to update this file.
 
 EOF
-  find $d -name '*.m' | \
-    sed "s,\(.*\)/\(.*\)\.m,./gethelp \2 < & | sed 's/^ *@/@/'," | \
-    /bin/sh
+  $FIND $d -name '*.m' | \
+    $PERL -ne 'm{(.*)/(.*)\.m};
+               for (qx{./gethelp $2 < $_}) {
+                 s/^\s+\@/\@/ unless $i_am_in_example;
+                 s/^\s+\@group/\@group/;
+                 s/^\s+\@end\s+group/\@end\s+group/;
+                 $i_am_in_example = 1 if /\s*\@example/;
+                 $i_am_in_example = 0 if /\s*\@end\s+example/;
+                 print;
+               }'  
 else
   echo "gethelp program seems to be missing!" 1>&2
   exit 1