jaredj/glotawk - Change JNVQOJXCBGPCN3XT2GAAGZ2ZOIUVGRB6WCRWOPI6RPJDDWL2KGKAC

Busybox awk compatibility efforts (unsuccessful). Busybox does not treat backslash-escaped square brackets in square-bracket clauses in the expected way; the fix is to place the closing and opening brackets to be matched or avoided at the beginning of the []. Also busybox awk matches newlines with the dot (.). But also, POSIX does not require length() to work on arrays, so busybox awk does not support it, and glotawk uses that a lot. Someone on Stack Overflow in November 2024 said the next POSIX version will specify this. Thanks to https://wiki.alpinelinux.org/wiki/Awk and https://pubs.opengroup.org/onlinepubs/9699919799/utilities/awk.html

Created by jaredj on August 25, 2025

JNVQOJXCBGPCN3XT2GAAGZ2ZOIUVGRB6WCRWOPI6RPJDDWL2KGKAC

Dependencies

In channels

main

Change contents

Replacement in reader.awk at line 37 [4.4015]

B:BD[3.2521] → [3.2521:2576]

                if(match(input, /^(\\.|[^\\])*\\$/)) {

[3.2521]

[3.2576]

                if(match(input, /^(\\[^\n]|[^\\])*\\$/)) {

Replacement in reader.awk at line 56 [4.4015]

B:BD[3.3358] → [3.3358:3435]

            else if(match(input, /^[\[\]{}()'`,!^@]/)) # special single char

[3.3358]

[3.3435]

            else if(match(input, /^[][()'`,!^@]/)) # special single char

Replacement in reader.awk at line 58 [4.4015]

B:BD[3.3490] → [3.3490:3569]

            else if(match(input, /^"(\\.|[^\\"])*"/)) { # double-quoted string

[3.3490]

[3.3569]

            else if(match(input, /^"(\\[^\n]|[^\\"])*"/)) { # double-quoted string

Replacement in reader.awk at line 69 [4.4015]

B:BD[3.4103] → [3.4103:4170]

            } else if(match(input, /^;.*/))              # comment

[3.4103]

[3.4170]

            } else if(match(input, /^;[^\n]*/))              # comment

Replacement in reader.awk at line 71 [4.4015]

B:BD[3.4225] → [3.4225:4304]

            else if(match(input, /^[^ 	\[\]{}('"`,;)@]+/)) # non-special chars

[3.4225]

[3.4304]

            else if(match(input, /^[^][ 	('"`,;)@]+/)) # non-special chars

Insertion in reader.awk at line 137 [4.4015]

[3.6518]

    # rvs should start out empty anyway: this is just to tell awk it
    # is an array.

Replacement in reader.awk at line 147 [4.4015]

B:BD[5.611] → [3.6723:6807]

    logg_dbg("read_forms_into", "a " a " b " b " ingoing length(rvs) " length(rvs))

[5.611]

[3.6807]

#    logg_dbg("read_forms_into", "a " a " b " b " ingoing length(rvs) " length(rvs))

Replacement in reader.awk at line 152 [4.4015]

B:BD[3.6944] → [3.6944:7009]

        logg_dbg("read_forms_into", "token " t " quote? " quote)

[3.6944]

[3.7009]

#        logg_dbg("read_forms_into", "token " t " quote? " quote)

Replacement in reader.awk at line 194 [4.4015]

B:BD[3.8559] → [3.8559:8645]

            logg_dbg("read_forms_into", "atom at " a " token is " t " quote? " quote)

[3.8559]

[3.8645]

#            logg_dbg("read_forms_into", "atom at " a " token is " t " quote? " quote)

Deletion in reader.awk at line 226 [4.4015]
∅:D[3.9564] → [6.147:225]
B:BD[4.5967] → [6.147:225]
```
#    logg_dbg("read_list", "at beginning, i is " i[1] "; token is " ta[i[1]])
```

Insertion in reader.awk at line 237 [4.4015]

[4.6676]

[3.10044]

#        logg_dbg("read_list", "proper. reading forms " a " through " b ".")

Replacement in reader.awk at line 257 [4.4015]

B:BD[3.10255] → [3.10255:10316]

    logg_dbg("read_atom", "token is " this " quote? " quote)

[3.10255]

[5.996]

#    logg_dbg("read_atom", "token is " this " quote? " quote)

Replacement in data.awk at line 227 [4.16500]

∅:D[2.1397] → [7.40299:40341]

B:BD[7.40299] → [7.40299:40341]

B:BD[7.40341] → [2.1398:1446]

∅:D[2.1446] → [7.40396:40433]

B:BD[7.40396] → [7.40396:40433]

    for(; !_is_null(a) && !_is_null(b) &&
          (ans = _equal_awk(_car(a), _car(b)));
        a = _cdr(a) && b = _cdr(b));

[2.1397]

[7.40433]

    while(!_is_null(a) && !_is_null(b) &&
          (ans = _equal_awk(_car(a), _car(b)))) {
        a = _cdr(a)
        b = _cdr(b)
    }