# HG changeset patch
# User Thorsten Meyer <thorsten.meyier@gmx.de>
# Date 1231149262 -3600
# Node ID c3ac9f2772cd3aa2b6248fcf79b5e1520e337a4c
# Parent  34c0acf11539f597d1ccd1b842ac9096268a965b
do not eat white space within @example environments of docstrings

diff -r 34c0acf11539 -r c3ac9f2772cd ChangeLog
--- 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.
diff -r 34c0acf11539 -r c3ac9f2772cd Makeconf.in
--- 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@
diff -r 34c0acf11539 -r c3ac9f2772cd scripts/ChangeLog
--- 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
diff -r 34c0acf11539 -r c3ac9f2772cd scripts/mkdoc
--- 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