Changeset 6bf987 in git for doc/doc2tex.pl

Timestamp:

Jul 23, 1999, 2:32:41 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

2dfc2bfb239d091ebc727ab2797df23d5bd95f4b

Parents:

287dbbfc511d4323e5d0ad8a7c36e31bfec31cf8

Message:

* my changes to reference.doc


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

File:

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

doc/doc2tex.pl

@@ -1 +1 @@
 #!/usr/local/bin/perl
-# $Id: doc2tex.pl,v 1.14 1999-07-22 13:35:12 obachman Exp $
+# $Id: doc2tex.pl,v 1.15 1999-07-23 12:32:35 obachman Exp $
 ###################################################################
 #  Computer Algebra System SINGULAR
@@ -36 +36 @@
 #
 ####
-# @c lib libname.lib[:proc] [lib_fun, lib_ex, no_ex]
-#   Without :proc
-#   --> includes info of libname.lib in output file
-#   --> includes function names of info into function index
-#   --> if lib_fun is given, includes listing of functions and 
-#                      their help into output file
-#   --> if lib_ex is given, includes computed examples of functions, as well
-#   With :proc
-#   --> includes content of procedure 'proc' from library libname:lib
-#
-#   Optional no_ex, lib_fun, lib_ex arguments overwrite respective
-#    command-line arguments
+# @c lib libname.lib[:proc] [no_ex, no_fun, (\w*)section]
+#   --> replaced by @include $texfile where 
+#        $texfile = $subdir/libname_lib[_noFun,_noEx].tex
+#   --> if $make, calls "make $texfile" 
+#   --> Error, if $tex_file does not exist
+#   --> if [:proc] is given, then includes only of respective
+#       proc body
+#   --> if (\w*)section is given, replaces @subsection by @$1section
+#       and pastes in content of tex file directly
 # 
 #
@@ -441 +438 @@
   $n_fun = 1 if ($no_fun || /no_fun/);
   $n_ex = 1 if ($no_ex || /no_ex/);
-  $section = $1 if /\w*section/;
+  $section = $1 if /(\w*)section/;
   
   # contruct tex file name
@@ -491 +488 @@
         if ($found)
         {
-          s/subsection/$section/ if $section;
+          s/subsection/${section}section/ if $section;
           print TEX $_; 
         }
@@ -511 +508 @@
       while (<LTEX>)
       {
-        s/subsection/$section/;
+        s/subsection/${section}section/;
         print TEX $_;
       }