Changeset caf1e0 in git for doc/doc2tex.pl

Timestamp:

Jul 25, 2007, 6:10:45 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b8ba2a0319ea6796d313e81d7db6d8596f8b7972

Parents:

e08bcedfecee582226ad89431962a065d11f8ee5

Message:

*hannes: fixed manual.tex


git-svn-id: file:///usr/local/Singular/svn/trunk@10261 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.28 2005-07-04 14:50:16 Singular Exp $
+# $Id: doc2tex.pl,v 1.29 2007-07-25 16:10:45 Singular Exp $
 ###################################################################
 #  Computer Algebra System SINGULAR
@@ -40 +40 @@
 #
 ####
-# @c lib libname.lib[:proc] [no_ex, no_fun, (\w*)section]
+# @c lib libname.lib[:proc] [no_ex, no_fun, Fun, (\w*)section]
 #   --> replaced by @include $texfile where 
 #        $texfile = $subdir/libname_lib[_noFun,_noEx].tex
@@ -47 +47 @@
 #   --> if [:proc] is given, then includes only of respective
 #       proc body
+#   --> Fun overwrites global no_fun
 #   --> if (\w*)section is given, replaces @subsubsection by @$1section
 #       and pastes in content of tex file directly
@@ -518 +519 @@
 ###################################################################
 #
-# @c lib libname.lib[:proc] [no_ex, no_fun, (\w*)section]
+# @c lib libname.lib[:proc] [no_ex, no_fun, Fun, (\w*)section]
 #   --> replaced by @include $texfile where 
 #        $texfile = $subdir/libname_lib[_noFun,_noEx].tex
@@ -525 +526 @@
 #   --> if [:proc] is given, then includes only of respective
 #       proc body
+#   --> Fun overwrites global no_fun
 #   --> if (\w*)section is given, replaces @subsubsection by @$1section
 #       and pastes in content of tex file directly
@@ -546 +548 @@
   $proc = $1 if (/^:(.*?) /);
   $n_fun = 1 if ($no_fun || /no_fun/);
+  $n_fun = 0 if (/Fun/);
   $n_ex = 1 if ($no_ex || /no_ex/ || (/unix_only/ && $Win32));
   $section = $1 if /(\w*)section/;
@@ -604 +607 @@
       if ($found)
       {
-        Error("no end content found for lib proc docu for $lib.lib:$proc $doc_file:$line \n")
+        Error("no end content found for lib proc docu for $lib.lib:$proc $doc_file:$line in $tex_file\n")
           unless (/c ---end content $proc---/);
         print TEX "\@c generated lib proc docu for $lib.lib:$proc $doc_file:$line \n";
@@ -610 +613 @@
       else
       {
-        Error("did not find lib proc docu for $lib.lib:$proc $doc_file:$line \n");
+        Error("did not find lib proc docu for $lib.lib:$proc $doc_file:$line in $tex_file\n");
       }
     }