Changeset 4b72f6 in git for doc/doc2tex.pl

Timestamp:

Nov 24, 1999, 7:50:43 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

6171f8981338ed758a299513c58c53a874f984ed

Parents:

5d32fdb9ecb9fff4978a30bd8fb80b5e9fcdb7b0

Message:

insatllation proocedure


git-svn-id: file:///usr/local/Singular/svn/trunk@3918 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• doc/doc2tex.pl (modified) (8 diffs)

doc/doc2tex.pl

@@ -1 +1 @@
 #!/usr/local/bin/perl
-# $Id: doc2tex.pl,v 1.18 1999-10-25 12:45:27 obachman Exp $
+# $Id: doc2tex.pl,v 1.19 1999-11-24 18:50:40 obachman Exp $
 ###################################################################
 #  Computer Algebra System SINGULAR
@@ -7 +7 @@
 #
 ####
-# @c example [error]
+# @c example [error] [no_comp]
 #    -> the text till the next @c example is feed into Singular,
 #       the text is then substituted by
@@ -20 +20 @@
 #       wrap around output lines  longer than $ex_length = 73;
 #       Processing is aborted if error occures in Singular run, 
-#       unless 'error' is specified 
+#       unless 'error' is specified
+#       if no_comp is given, then computation is not run
+#       
 #
 ####
@@ -186 +188 @@
 
 ######################################################################
-# @c example [error]
+# @c example [error] [no_comp]
 #    -> the text till the next @c example is feed into Singular,
 #       the text is then substituted by
@@ -199 +201 @@
 #       wrap around output lines  longer than $ex_length = 73;
 #       Processing is aborted if error occures in Singular run, 
-#       unless 'error' is specified 
+#       unless 'error' is specified
+#       If [no_comp] is given, actual computation is not run
 sub HandleExample
 {
-  my($inc_file, $ex_file, $lline, $thisexample, $error_ok, $cache);
+  my($inc_file, $ex_file, $lline, $thisexample, $error_ok, $cache, $no_comp);
   
   $lline = $line;
@@ -229 +232 @@
   $thisexample = '';
   $error_ok = 1 if /error/;
+  $no_comp = 1 if /no_comp/;
+
   # print content in example file till next @c example 
   while (<DOC>)
@@ -235 +240 @@
     last if (/^\@c\s*example\s*$/);
     s/^\s*//; # remove preceeding white spaces
-    if ($no_ex)
+    if ($no_ex || $no_comp)
     {
       &protect_texi;
@@ -255 +260 @@
 
   # done, if no examples
-  return if ($no_ex);
+  return if ($no_ex || $no_comp);
 
   # check whether it can be reused