Changeset a70441f in git for doc/doc2tex.pl

Timestamp:

Apr 27, 2000, 12:07:30 PM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

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

Children:

e5f8ae07e0b41bb1b0e5aaaac2dad244e619d563

Parents:

eec9b2d2a332c04f20d743bdd4ccc107766fbc61

Message:

Windows and gcc 2.95 porting


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

File:

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

doc/doc2tex.pl

@@ -1 +1 @@
 #!/usr/local/bin/perl
-# $Id: doc2tex.pl,v 1.24 2000-03-09 16:37:23 hannes Exp $
+# $Id: doc2tex.pl,v 1.25 2000-04-27 10:07:20 obachman Exp $
 ###################################################################
 #  Computer Algebra System SINGULAR
@@ -7 +7 @@
 #
 ####
-# @c example [error] [no_comp]
+# @c example [error] [no_comp] [unix_only]
 #    -> the text till the next @c example is feed into Singular,
 #       the text is then substituted by
@@ -22 +22 @@
 #       unless 'error' is specified
 #       if no_comp is given, then computation is not run
+#       if unix_only is given, then computation is only run
+#                              under unix
 #       
 #
@@ -50 +52 @@
 #
 ###################################################################
+
+use Config;
+$Win32 = 1 if ($Config{osname} =~ /win/i);
 
 #
@@ -66 +71 @@
 $make = 0;
 $make_opts = " --no-print-directory";
+
 
 #
@@ -217 +223 @@
 
 ######################################################################
-# @c example [error] [no_comp]
+# @c example [error] [no_comp] [unix_only]
 #    -> the text till the next @c example is fed into Singular,
 #       the text is then substituted by
@@ -232 +238 @@
 #       unless 'error' is specified
 #       If [no_comp] is given, actual computation is not run
+#       if [unix_only] is given, then computation is only run
+#                                under unix
+
 sub HandleExample
 {
-  my($inc_file, $ex_file, $lline, $thisexample, $error_ok, $cache, $no_comp);
+  my($inc_file, $ex_file, $lline, $thisexample, $error_ok, $cache, $no_comp,
+     $unix_only);
   
   $lline = $line;
@@ -262 +272 @@
   $error_ok = 1 if /error/;
   $no_comp = 1 if /no_comp/;
-
-  # print content in example file till next @c example 
+  $unix_only = 1 if /unix_only/ && $Win32;
+  
+  # print content in example file till next @c example
+  print TEX "// only supported on Unix platforms\n"
+    if $unix_only;
+  
   while (<DOC>)
   {
@@ -269 +283 @@
     last if (/^\@c\s*example\s*$/);
 #    s/^\s*//; # remove preceeding white spaces
-    if ($no_ex || $no_comp)
+    if ($no_ex || $no_comp || $unix_only)
     {
       &protect_texi;
@@ -289 +303 @@
 
   # done, if no examples
-  return if ($no_ex || $no_comp);
+  return if ($no_ex || $no_comp || $unix_only);
 
   # check whether it can be reused
@@ -321 +335 @@
     print EX "$thisexample";
     close(EX);
+
+    unless ($Singular_OK)
+    {
+      if (system("echo '\$' | $Singular $Singular_opts > $res_file"))
+      {
+        $Singular .= '.exe' if ($Win32 && $Singular !~ /\.exe$/);
+        Error("CanŽt run '$Singular $Singular_opts': $@")
+          if (system("echo '\$' | $Singular $Singular_opts > $res_file"));
+      }
+      $Singular_OK = 1
+    }
 
     &System("echo '\$' | $Singular $Singular_opts $ex_file > $res_file");
@@ -492 +517 @@
   $proc = $1 if (/^:(.*?) /);
   $n_fun = 1 if ($no_fun || /no_fun/);
-  $n_ex = 1 if ($no_ex || /no_ex/);
+  $n_ex = 1 if ($no_ex || /no_ex/ || (/unix_only/ && $Win32));
   $section = $1 if /(\w*)section/;