Changeset 224da5b in git

Timestamp:

Jul 20, 1999, 4:36:36 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

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

Children:

f5a73477b5c707d3e6dde2b8ca46f6f7b5d59ea6

Parents:

7391b832096198f6bb685362085edcd95150fa37

Message:

* improved doc2tex stuff


git-svn-id: file:///usr/local/Singular/svn/trunk@3303 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.9 1999-07-19 12:06:13 obachman Exp $
+# $Id: doc2tex.pl,v 1.10 1999-07-20 14:36:36 obachman Exp $
 ###################################################################
 #  Computer Algebra System SINGULAR
@@ -376 +376 @@
   # put them out
   print TEX "\@ifinfo\n\@menu\n";
+  print TEX $header ? "$header\n" : "See also:\n";
   foreach $ref (@refs) {print TEX "* ".$ref."::\n";}
   print TEX "\@end menu\n\@end ifinfo\n\@iftex\n";
@@ -634 +635 @@
 {
   my ($FH, $info, $l_fun) = @_;
-  if ($info =~ /^\@/)
+  if ($info =~ /^\s*\@/)
   {
     print $FH $info;
@@ -708 +709 @@
   s/}/\@}/g;
   # unprotect @@math@{@}, @code@{@}
-  s/\@\@math\@{(.*?)\@}/\@math{$1}/g;
-  s/\@\@code\@{(.*?)\@}/\@code{$1}/g;
+  while (s/\@\@math\@{(.*?)\@}/\@math{$1}/g) {} 
+  while (s/\@\@code\@{(.*?)\@}/\@code{$1}/g) {}
+  # remove @code{} inside @code{} and inside @math{}
+  while (s/\@math{([^}]*)\@code{(.*?)}(.*)?}/\@math{$1$2$3}/g) {}
+  while (s/\@code{([^}]*)\@code{(.*?)}(.*)?}/\@code{$1$2$3}/g) {}
 }
 
@@ -826 +830 @@
   my $ref;
 
-  print $FH "\@c ref\nSee\n";
+  print $FH "\@c ref\nSee also:\n";
   $ref = shift @refs;
   print $FH "\@ref{$ref}";