[bug #62909] Preprocessror problem - Groff with dformat and chem

[anonymous]

URL:
  <https://savannah.gnu.org/bugs/?62909>

                 Summary: Preprocessror problem - Groff with dformat and chem
                 Project: GNU troff
               Submitter: None
               Submitted: Thu 18 Aug 2022 04:07:00 AM UTC
                Category: Preprocessor - others/general
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any
         Planned Release: None


    _______________________________________________________

Follow-up Comments:


-------------------------------------------------------
Date: Thu 18 Aug 2022 04:07:00 AM UTC By: Anonymous
Hello,

I am having trouble with chem and dformat preprocessors.

I have downloaded dfromat from (https://github.com/arnoldrobbins/dformat).

I have an example document that has one section that is a dformat structure,
another that has a chem structure.

I think that the chem preprocessor processes incorrectly all the lines in the
document. It should only process the lines defined in its own block delimited
with cstart/cend.

But to the contrary, I am seeing that the chem preprocessor removes the
whitespaces that are infront of the lines in the whole document, and other
filters that depend on these whitespace characters (dformat) can not function
properly.

Also chem processes comments in the whole document (commensts start with a #
and extend to the end of line), but it should only process its own block for
comments (delimited with cstart/cend).

Below are the problems...

Problem 1: Chem strips all the whitespace preceeding the lines in dformat (and
maybe all the whitespace of all the lines in the document). It should only do
this inside its own block (cstart/cend).

When I run

cat test.ms | chem > test-chem.tr

chem strips all the whitespace in the dformat section. dformat requires
whitespace preceeding the format specs. You can check the dformat block in the
test.ms file and test-chem.tr file.

Problem 2: chem processes all the comments (comments start with a # and
continue to the end of line) in the document, not in its own block
(cstart/cend)

When I run

cat test.ms | dformat | chem > test-dformat-chem.tr

chem will process all the comments in the whole document. But it should only
process comments in its own block (delimited with cstart/cend).

If you inspect the test-dformat-chem.tr You will see that the item in dformat
that reads "Channel #" is processed to

"Channel

the line is incorrect. It should have been

   "Channel #" at BoxB.c

with whitespaces infront of it. But chem did strip these too. See and compare
test-dformat.tr and test-dformat.chem.tr.

Note: The test-dformat.tr has been generated using

cat test.ms | dformat > test-dformat.tr

I have attached the document (test.ms) and the outputs to the bug report. I
could not include the dformat preprocessor. But have mentioned the link to it
and am including these below. I am using the preprocessor as such:

dformat (shell script)
======================

#!/bin/sh

awk -f dformat.awk $*

dforamt.awk
===========

function error(s)
{
        print("dformat error: " s " near input line " NR) | "cat 1>&2"
}

BEGIN {
        s = "recht 0.3 addrht 0.055 recspread 0.15 "
        s = s "charwid 0.07 textht 0.167 addrdelta 4 "
        s = s "bitwid 0.125 linedisp 0.04 addr both "
        s = s "fill off linethrutext 1 "
        s = s "shaded off"
        n = split(s, x, FS)
        for (i = 1; i <= n - 1; i += 2) oparm[x[i]] = parm[x[i]] = x[i + 1]
}

inlang == 0 {
        if ($0 !~ /^\.begin[ \t]/ || $2 != "dformat") {
                print
        } else {
                inlang = 1
                print ".PS"
                boxacnt = 0
                if (firstpic != 1) {
                        firstpic = 1
                        print "fillval = 0.1"
                }
        }
        next
}

/^\.end/ {
        inlang = 0
        print ".PE"
        next
}

$1 == "style" {
        if (! ($2 in parm)) {
                error("unrecognized name: " $2)
        } else if ($3 == "reset") {
                t = oparm[$2]
                oparm[$2] = parm[$2]
                parm[$2] = t
        } else {
                oparm[$2] = parm[$2]
                parm[$2] = $3
                #error("set shaded to: " $3)
        }
        next
}

$1 == "pic" {
        $1 = ""
        print $0
        next
}

/^[^ \t]/ {
        printf "BoxA: box invis ht %g wid 0", parm["recht"]
        if (boxacnt++) {
                printf " with .n at BoxA.s - (0, %g)",
                   parm["recspread"] + maxdy * parm["textht"]
        }
        printf "\n"

        maxdy = sumboxlen = 0
        gsub(/[ \t]+$/, "", $0)
        if ($0 != "noname") {
                printf " \"%s \" rjust at BoxA.w\n", $0
                printf " box invis with .e at BoxA.w ht 0 wid %g\n",
                    parm["charwid"] * (length($0) + 3)
        }
        printf " BoxB: box invis ht %g wid 0 at BoxA\n", parm["recht"]

        next
}

/./ {
        boxname = ""
        if ($1 ~ /:$/) {
                boxname = substr($1, 1, length($1) - 1)
                $1 = ""
                $0 = " " $0
        }
        range = $1
        $1 = ""
        gsub(/^[ \t]+/, "", $0)
        gsub(/[ \t]+$/, "", $0)
        text = $0

        n = split(range, x, "-")
        rlo = x[1]
        rhi = (n >= 2) ? x[2] : rlo
        cwid = (rhi >= rlo) ? rhi - rlo + 1 : rlo - rhi + 1
        rwid = (n >= 3) ? (0 + x[3]) : cwid
        btype = x[4]
        if (btype !~ /^(dot|dash|invis)/) {
                btype = "solid"
        }

        textlen = parm["charwid"] * length(text)
        boxlen = parm["bitwid"] * rwid

        dy = 0
        if (textlen > boxlen) {
                # set dy, the channel for this text
                chan[maxdy + 1] = -999
                for (dy = 1; chan[dy] + textlen > sumboxlen; dy++);
                if (dy > maxdy) {
                        maxdy = dy
                }
                if (parm["linethrutext"] == 0) {
                        for (k = 1; k <= dy; k++) {
                                chan[k] = sumboxlen + boxlen
                        }
                } else {
                        chan[dy] = sumboxlen
                }
        }
        sumboxlen += boxlen
        fill = ""

        if (parm["fill"] == "on") {
                fill = " fill "
        }

        shaded = ""
        if (parm["shaded"] != "off") {
                shaded = " shaded "
                shaded = shaded "\"" parm["shaded"] "\" "
        }

        if (boxname != "") {
                printf " %s:", boxname
        }
        printf "  BoxB: box %s %s %s ht %g wid %g with .w at BoxB.e\n",
           shaded, fill, btype, parm["recht"], boxlen

        if (dy == 0) {
                printf "    \"%s\" at BoxB.c\n", text
        } else {
                if (rwid < 2) {
                        start = "BoxB.s"
                } else {
                        start = "BoxB.se - (" parm["linedisp"] ",0)"
                }
                printf "    line from %s down %g\n", start, dy * parm["textht"]
                printf "    \"%s\\|\" at last line .s rjust\n", text
                printf "    box invis with .e at last line .s ht 0 wid %g\n",
                    textlen
        }

        if (parm["addr"] ~ /^(left|right|both)$/) {
                dp = int(parm["addrdelta"])     # Delta Point size
                if (dp < 0 || dp > 9) {
                        error("bad addrdelta value: " dp)
                }

                dah = parm["addrht"]            # Delta Addr Height
                pb = parm["addr"]               # Parameter for Bits

                if (rlo == rhi) {
                        printf "    \"\\s-%d%s\\s+%d\" at BoxB.s + (0,%g)\n",
                           dp, rlo, dp, dah
                } else {
                        if (pb == "left" || pb == "both") {
                                printf "\t\"\\|\\s-%d%s\\s+%d\" ljust at 
BoxB.sw + (0,%g)\n",
                                   dp, rlo, dp, dah
                        }
                        if (pb == "right" || pb == "both") {
                                printf "\t\"\\s-%d%s\\s+%d\\|\" rjust at 
BoxB.se + (0,%g)\n",
                                   dp, rhi, dp, dah
                        }
                }
        }
}

END {
        if (inlang) {
                error("eof inside begin/end")
        }
}







    _______________________________________________________
File Attachments:


-------------------------------------------------------
Date: Thu 18 Aug 2022 04:07:00 AM UTC  Name: test.ms  Size: 1KiB   By: None
main document and output files.
<http://savannah.gnu.org/bugs/download.php?file_id=53575>
-------------------------------------------------------
Date: Thu 18 Aug 2022 04:07:00 AM UTC  Name: test-chem.tr  Size: 4KiB   By:
None
main document and output files.
<http://savannah.gnu.org/bugs/download.php?file_id=53576>
-------------------------------------------------------
Date: Thu 18 Aug 2022 04:07:00 AM UTC  Name: test-dformat.tr  Size: 4KiB   By:
None
main document and output files.
<http://savannah.gnu.org/bugs/download.php?file_id=53577>
-------------------------------------------------------
Date: Thu 18 Aug 2022 04:07:00 AM UTC  Name: test-dformat-chem.tr  Size: 7KiB 
 By: None
main document and output files.
<http://savannah.gnu.org/bugs/download.php?file_id=53578>

    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?62909>

_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/