[Maxima-commits] CVS: maxima/doc/info README.update_examples,1.3,1.4 update_examples,1.4,1.5

[Vadim V. Z. <vv...@us...>]

Update of /cvsroot/maxima/maxima/doc/info
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11752

Modified Files:
	README.update_examples update_examples 
Log Message:
Now update_examples strips anything above /maxima/doc/info 
(usually user working dir) out of the output of load and batch commands.
The environment variable STRIP_TOPDIR controls this behavior.


Index: README.update_examples
===================================================================
RCS file: /cvsroot/maxima/maxima/doc/info/README.update_examples,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- README.update_examples	12 Jan 2005 14:24:35 -0000	1.3
+++ README.update_examples	30 Jan 2005 08:11:49 -0000	1.4
@@ -68,6 +68,11 @@
 by setting MAXIMA_EXAMPLE_COMMAND environment
 variable.
 
+The environment variable STRIP_TOPDIR controls 
+which path is stripped out of the output (load, 
+batch commands).  If the variable isn't set then
+anything above /maxima/doc/info is stripped.
+
 IMPORTANT: `update_examples' script works only 
 in combination with special Maxima initialization 
 file `maxima-init.lisp'.  This init file ensures

Index: update_examples
===================================================================
RCS file: /cvsroot/maxima/maxima/doc/info/update_examples,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- update_examples	23 Jan 2005 14:06:08 -0000	1.4
+++ update_examples	30 Jan 2005 08:11:50 -0000	1.5
@@ -4,6 +4,16 @@
 
 use Text::Tabs;
 
+$topdir = substr(`pwd`,0,-1);
+
+if (index($topdir,"/maxima/doc/info") != -1) {
+  $topdir =~ s/\/maxima\/doc\/info// ;
+} else {
+  $topdir = ""
+}
+
+$strip_topdir = $ENV{"STRIP_TOPDIR"} || $topdir ;
+
 $maxima_command = $ENV{"MAXIMA_EXAMPLE_COMMAND"} || "../../maxima-local" ;  
 
 $line_cnt = 0;
@@ -32,6 +42,8 @@
     $res =~ s/\cB//g;
     $res =~ s/\cE//g;
     
+    $res =~ s/$strip_topdir//g;
+    
     $res =~ s/\{/\@\{/g;
     $res =~ s/\}/\@\}/g;