59517e3
--- singular-4.3.1/doc/general.doc.orig	2022-07-06 03:32:37.000000000 -0600
59517e3
+++ singular-4.3.1/doc/general.doc	2023-01-14 10:06:48.967336259 -0700
59517e3
@@ -3100,7 +3100,7 @@ programs or for parallel computations (s
59517e3
 
59517e3
 @strong{Example:}
59517e3
 @smallexample
59517e3
-@c example
59517e3
+@c example no_comp
59517e3
   ring r;
59517e3
   link l = "ssi:tcp localhost:"+system("Singular"); // declare a link explicitly
59517e3
   open(l);  // needs an open, launches another SINGULAR as a server
59517e3
--- singular-4.3.1/doc/pl2doc.pl.orig	2022-07-06 03:32:37.000000000 -0600
59517e3
+++ singular-4.3.1/doc/pl2doc.pl	2023-01-14 20:44:58.342822717 -0700
59517e3
@@ -117,10 +117,10 @@ unless ($no_fun)
59517e3
     }
59517e3
     # print example
59517e3
     if ($example{$procs[$i]} &&
59517e3
-	($ex = &CleanUpExample($lib, $example{$procs[$i]})))
59517e3
+	(($ex, $exec) = &CleanUpExample($lib, $example{$procs[$i]})))
59517e3
     {
59517e3
       print LDOC "\@strong{Example:}\n";
59517e3
-      print LDOC "\@smallexample\n\@c example$tag\n";
59517e3
+      print LDOC "\@smallexample\n\@c example$tag$exec\n";
59517e3
       print LDOC $ex;
59517e3
       print LDOC "\n\@c example\n\@end smallexample\n";
59517e3
     }
59517e3
@@ -495,17 +495,18 @@ sub OutKeywords
59517e3
 sub CleanUpExample
59517e3
 {
59517e3
   local($lib, $example) = @_;
59517e3
+  my $exec;
59517e3
 
59517e3
   # find portion in {}
59517e3
   $example =~ s/^[^{]*{(.*)}[^}]*$/$1/s;
59517e3
 
59517e3
   if ($example =~ /EXAMPLE: \(not executed\)/)
59517e3
   {
59517e3
-    # erase first three lines
59517e3
-    $example =~ s/^.*\n.*\n.*\n/\n/;
59517e3
-    # erase enclosing " " in every line
59517e3
-    $example =~ s/\n\s*"/\n/g;
59517e3
-    $example =~  s/";\n/\n/g;
59517e3
+    $exec = " no_comp";
59517e3
+  }
59517e3
+  else
59517e3
+  {
59517e3
+    $exec = "";
59517e3
   }
59517e3
   # erase EXAMPLE, echo and pause statements
59517e3
   $example =~ s/"EXAMPLE.*"[^;]*;//g;
59517e3
@@ -535,7 +536,7 @@ sub CleanUpExample
59517e3
   # erase spaces from beginning of lines
59517e3
   $example =~ s/\n\s*/\n/g;
59517e3
   $example =~ s/\s*$//g;
59517e3
-  return $example;
59517e3
+  return ($example, $exec);
59517e3
 }
59517e3
 
59517e3
 sub print_doc_header
59517e3
--- singular-4.3.1/Singular/LIB/ffmodstd.lib.orig	2022-07-06 03:32:37.000000000 -0600
59517e3
+++ singular-4.3.1/Singular/LIB/ffmodstd.lib	2023-01-14 21:31:27.896097910 -0700
59517e3
@@ -1958,7 +1958,7 @@ EXAMPLE: example ffmodStd; shows an exam
59517e3
     }
59517e3
 }
59517e3
 example
59517e3
-{   "EXAMPLE:"; echo = 2;
59517e3
+{   "EXAMPLE: (not executed)"; echo = 2;
59517e3
     ring Ra=(0,a),(x,y,z),dp;
59517e3
     ideal I = (a^2+2)*x^2*y+a*y*z^2, x*z^2+(a+1)*x^2-a*y^2;
59517e3
     ffmodStd(I);
59517e3
--- singular-4.3.1/Singular/LIB/moddiq.lib.orig	2022-07-06 03:32:37.000000000 -0600
59517e3
+++ singular-4.3.1/Singular/LIB/moddiq.lib	2023-01-14 21:34:17.397946953 -0700
59517e3
@@ -170,7 +170,7 @@ EXAMPLE:  example modSat; shows an examp
59517e3
 }
59517e3
 example
59517e3
 {
59517e3
-    "EXAMPLE:";
59517e3
+    "EXAMPLE: (not executed)";
59517e3
     echo=2;
59517e3
     ring r=0,x(1..6),dp;
59517e3
     ideal i=cyclic(6);
59517e3
--- singular-4.3.1/Singular/LIB/parallel.lib.orig	2022-07-06 03:32:37.000000000 -0600
59517e3
+++ singular-4.3.1/Singular/LIB/parallel.lib	2023-01-14 20:53:17.070588749 -0700
59517e3
@@ -142,7 +142,7 @@ EXAMPLE:  example parallelWaitFirst; sho
59517e3
 }
59517e3
 example
59517e3
 {
59517e3
-    "EXAMPLE:";
59517e3
+    "EXAMPLE: (not executed)";
59517e3
     echo = 2;
59517e3
     ring R = 0, (x,y,z), lp;
59517e3
     ideal I = 3x3y+x3+xy3+y2z2, 2x3z-xy-xz3-y4-z2, 2x2yz-2xy2+xz2-y4;
59517e3
@@ -182,7 +182,7 @@ EXAMPLE:  example parallelWaitAll; shows
59517e3
 }
59517e3
 example
59517e3
 {
59517e3
-    "EXAMPLE:";
59517e3
+    "EXAMPLE: (not executed)";
59517e3
     echo = 2;
59517e3
     ring R = 0, (x,y,z), dp;
59517e3
     ideal I1 = z8+z6+4z5+4z3+4z2+4, -z2+y;
59517e3
@@ -232,7 +232,7 @@ EXAMPLE:  example parallelTestAND; shows
59517e3
 }
59517e3
 example
59517e3
 {
59517e3
-    "EXAMPLE:";
59517e3
+    "EXAMPLE: (not executed)";
59517e3
     echo = 2;
59517e3
     ring R = 0, (x,y,z), dp;
59517e3
     ideal I = x, y, z;
59517e3
@@ -287,7 +287,7 @@ EXAMPLE:  example parallelTestAND; shows
59517e3
 }
59517e3
 example
59517e3
 {
59517e3
-    "EXAMPLE:";
59517e3
+    "EXAMPLE: (not executed)";
59517e3
     echo = 2;
59517e3
     ring R = 0, (x,y,z), dp;
59517e3
     ideal I;
59517e3
--- singular-4.3.1/Singular/LIB/tasks.lib.orig	2022-07-06 03:32:37.000000000 -0600
59517e3
+++ singular-4.3.1/Singular/LIB/tasks.lib	2023-01-14 21:12:17.103467631 -0700
59517e3
@@ -241,7 +241,7 @@ EXAMPLE:  example killTask; shows an exa
59517e3
 }
59517e3
 example
59517e3
 {
59517e3
-    "EXAMPLE:";
59517e3
+    "EXAMPLE: (not executed)";
59517e3
     echo = 2;
59517e3
     ring R = 0, (x,y), dp;
59517e3
     ideal I = x9y2+x10, x2y7-y8;
59517e3
@@ -282,7 +282,7 @@ EXAMPLE:  example copyTask; shows an exa
59517e3
 }
59517e3
 example
59517e3
 {
59517e3
-    "EXAMPLE:";
59517e3
+    "EXAMPLE: (not executed)";
59517e3
     echo = 2;
59517e3
     ring R = 0, (x,y), dp;
59517e3
     ideal I = x9y2+x10, x2y7-y8;
59517e3
@@ -1078,7 +1078,7 @@ EXAMPLE:  example waitTasks; shows an ex
59517e3
 }
59517e3
 example
59517e3
 {
59517e3
-    "EXAMPLE:";
59517e3
+    "EXAMPLE: (not executed)";
59517e3
     echo = 2;
59517e3
     ring R = 0, (x,y), dp;
59517e3
     ideal I = x9y2+x10, x2y7-y8;