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