Changeset 9ebcbf in git for doc/doc2tex.pl

Timestamp:

Dec 21, 2000, 4:15:36 PM (22 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

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

Children:

d9f665b2cc780458978ceb1111b560b41f9f9d4e

Parents:

1d905d1bbdfa6c6984a3b1c3605a26eefca38299

Message:

* special treatment of @math stuff


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

File:

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

doc/doc2tex.pl

@@ -1 +1 @@
 #!/usr/local/bin/perl
-# $Id: doc2tex.pl,v 1.25 2000-04-27 10:07:20 obachman Exp $
+# $Id: doc2tex.pl,v 1.26 2000-12-21 15:15:36 obachman Exp $
 ###################################################################
 #  Computer Algebra System SINGULAR
@@ -200 +200 @@
     }
   }
-  
+
+  # handle math
+  $in_info = 1 if /^\@ifinfo/;
+  $in_info = 0 if /^\@end\s*ifinfo/;
+  s[\@math\{(.*?)\}][&HandleMath($1)]eg unless $in_info;
+
   print TEX $_;
 
@@ -221 +226 @@
 print "==>$tex_file)\n" if ($verbose);
 
+sub HandleMath
+{
+  my $what = shift;
+  return <<EOT;
+
+\@ifinfo
+\@math{$what}
+\@end ifinfo
+\@tex
+\$$what\$
+\@end tex
+EOT
+}
 
 ######################################################################