Thank you. I installed the patch on your behalf.
> Signed-off-by: Mohammad-Reza Nabipoor <[email protected]> > > gcc/algol68/ChangeLog: > > PR algol68/123734 > * ga68.texi: Fix code examples to make them compilable. > And s/consists on/consists of/g. > --- > > Hi Jose. > > On Wed, Jan 21, 2026 at 02:32:07PM +0100, Jose E. Marchesi wrote: >> >> Now I realize you are also removing pseudo-comments and replacing them >> with comments, like in: >> >> > - @B{c} ... @B{c} >> > + @{ ... @} >> e >> That may give the wrong impression that these examples are actually >> compilable. They are not. > > > Oops. I removed the changes. > > > Thanks! > > > gcc/algol68/ga68.texi | 32 +++++++++++++++++--------------- > 1 file changed, 17 insertions(+), 15 deletions(-) > > diff --git a/gcc/algol68/ga68.texi b/gcc/algol68/ga68.texi > index 57967dc037d..c785b3920c1 100644 > --- a/gcc/algol68/ga68.texi > +++ b/gcc/algol68/ga68.texi > @@ -514,9 +514,9 @@ a very simple logging facility: > @B{pub} @B{proc} log = (@B{string} msg) @B{void}: > fputs (fd, (originator /= "" | ": ") + msg + "'n"); > > - log ("beginning of log'n"); > + log ("beginning of log'n") > @B{postlude} > - log ("end of log'n"); > + log ("end of log'n") > @B{fed} > @end example > > @@ -527,7 +527,7 @@ indicators are bold tags. > > The @dfn{prelude} of the module spans from @code{@B{def}} to either > @code{@B{postlude}}, or to @code{@B{fed}} in case of modules not > -featuring a postlude. It consists on a restricted serial clause in a > +featuring a postlude. It consists of a restricted serial clause in a > void strong context, which can contain units and declarations, but no > labels or completers. The declarations in the prelude may be either > publicized or no publicized. As we shall see, publicized indicators > @@ -535,7 +535,7 @@ are accessible within the reach of the defining module > publicizing > them. Publicized declarations are marked by preceding them with > @code{@B{pub}}. > > -In our example the module prelude consists on three declarations and > +In our example the module prelude consists of three declarations and > one unit. The tag @code{fd} is not publicized and is to be used > internally by the module. The indicators @code{originator} and > @code{log}, on the other hand, are publicized and conform the > @@ -544,7 +544,7 @@ covers the postlude: the @code{log} procedure is > reachable there, as > it would be @code{fd} as well. > > The @dfn{postlude} of the module is optional and spans from > -@code{@B{postlude}} to @code{@B{fed}}. It consists on a serial clause > +@code{@B{postlude}} to @code{@B{fed}}. It consists of a serial clause > in a @code{@B{void}} strong context, where definitions, labels and > module accesses are not allowed, just units. > > @@ -562,14 +562,14 @@ program that reads an input file and writes some output > file: > > @example > @B{access} @B{Logger} > -@B{begin} # Identify ourselves with the program name # > +@B{begin} @{ Identify ourselves with the program name @} > originator := argv (1); > > - # Read input file. # > + @{ Read input file. @} > @B{if} @B{NOT} parse_input (argv (2)) > @B{then} log ("error parsing input file"); stop @B{fi}; > > - # Write output file. # > + @{ Write output file. @} > @B{if} @B{NOT} write_output (argv (3)) > @B{then} log ("error writing output file"); stop @B{fi}; > > @@ -691,9 +691,9 @@ JSON objects rather than raw strings. We could do it > this way: > fputs (fd, json_array (json_string (originator), > json_string (msg))); > > - log (json_string ("beginning of log'n")); > + log (json_string ("beginning of log'n")) > @B{postlude} > - log (json_string ("end of log'n")); > + log (json_string ("end of log'n")) > @B{fed} > @end example > > @@ -799,9 +799,9 @@ need to add support for it in the definition module. > Something like: > @B{pub} @B{proc} log = (@B{string} msg) @B{void}: > fputs (fd, (originator[orig] /= "" | ": ") + msg + "'n"); > > - log ("beginning of log'n"); > + log ("beginning of log'n") > @B{postlude} > - log ("end of log'n"); > + log ("end of log'n") > @B{fed} > @end example > > @@ -861,6 +861,8 @@ sketch of such a file may look like this: > (a + 1 | dontknow, no, yes); > > @B{C} ... other definitions ... @B{C} > + > + @B{skip} > @B{fed} > @end example > > @@ -999,7 +1001,7 @@ XXX > @section Particular programs > @cindex particular program > > -An Algol 68 @dfn{particular program} consists on an enclosed clause in > +An Algol 68 @dfn{particular program} consists of an enclosed clause in > a strong context with target mode @code{@B{void}}, possibly preceded > by a set of zero or more labels. For example: > > @@ -1035,7 +1037,7 @@ program to specify an explicit exit status by using the > standard > procedure @code{posix exit}, like: > > @example > -@b{begin} # ... program code ... # > +@b{begin} @{ ... program code ... @} > @B{if} error found; > @B{then} posix exit (1) @B{fi} > @b{end} > @@ -1094,7 +1096,7 @@ the form of pseudo code: > @end example > > @noindent > -Where each user task consists on: > +Where each user task consists of: > > @example > (@B{c} particular-prelude @B{c};
