jaredj/glotawk - Change TL7YNDX4E2KDNU4QPONKD7LPGY3DEO77XMUQ75OLOH2BGEW4IBQQC

get backslash-escaped backslashes right; getenv returns nil if variable not in environment

Created by jaredj on September 3, 2025

TL7YNDX4E2KDNU4QPONKD7LPGY3DEO77XMUQ75OLOH2BGEW4IBQQC

Dependencies

In channels

main

Change contents

Replacement in sane_lisp at line 48 [4.900]

B:BD[4.1770] → [5.932:1020]

    echo "$@" | ${TEST_AWK:-original-awk} -v PROMPT= -v LOG_LEVEL=$LOG_LEVEL -f glotawk

[4.1770]

[4.1843]

    echo "$@" | ${TEST_AWK:-awk} -v PROMPT= -v LOG_LEVEL=$LOG_LEVEL -f glotawk

Replacement in sane_lisp at line 235 [4.900]

∅:D[6.64] → [7.951:952]

∅:D[8.173] → [7.951:952]

∅:D[9.176] → [7.951:952]

∅:D[10.217] → [7.951:952]

∅:D[11.234] → [7.951:952]

∅:D[12.632] → [7.951:952]

∅:D[3.1280] → [7.951:952]

B:BD[7.951] → [7.951:952]

[3.1280]

[4.3557]

lisp_eval_should_be_tricky_output ' "\\\\.\\\\\\\\.\\\\\\\\\\\\\\\\.\\n"' ' 22 5c 5c 2e 5c 5c 5c 5c 2e 5c 5c 5c 5c 5c 5c 5c 5c 2e 5c 6e 22 0a' 'backslash-escaped backslashes'
lisp_eval_should_be '(string-length "\\\\.\\\\\\\\.\\\\\\\\\\\\\\\\.\\n")' '11' 'backslash-escaped backslashes 2'

Replacement in reader.awk at line 289 [4.4015]

B:BD[3.1956] → [3.1956:2006]

            while(match(ans, /\\[abfnrtv"\\]/)) {

[3.1956]

[3.2006]

            while(match(ans, /\\[abfnrtv"]/)) {

Replacement in reader.awk at line 293 [4.4015]

B:BD[3.2163] → [3.2163:2174]

# careful.

[3.2163]

[3.2174]

            # only unescape backslashes \\ once.
            gsub(/\\\\/, "\\", ans)
# careful. we are logging an unescaped string; this could trigger
# command injection. if the earlier one didn't.

Insertion in printer.awk at line 47 [4.7981]
[3.2696]
[3.2696]
```
#    logg_dbg("_repr_string", "reescaping " s)
```
Deletion in printer.awk at line 51 [4.7981]
B:BD[3.2790] → [3.2790:2841]
```
#        logg_dbg("_repr_string", "reescaping " s)
```
Deletion in printer.awk at line 53 [4.7981]
B:BD[3.2954] → [3.2954:3004]
```
#        logg_dbg("_repr_string", "now it is " s)
```
Insertion in printer.awk at line 54 [4.7981]
[3.3010]
[3.3010]
```
#    logg_dbg("_repr_string", "now it is " s)
```

Replacement in lib.glotawk at line 146 [13.36]

B:BD[2.442] → [2.442:497]

                  (apply *show-system-command* argv)))

[2.442]

[2.497]

                  (*show-system-command* command)))

Replacement in io.awk at line 282 [14.9773]

B:BD[14.19625] → [14.19625:19671]

        return _string(ENVIRON[_STRING[var]])

[14.19625]

[14.19671]

        if(_STRING[var] in ENVIRON)
            return _string(ENVIRON[_STRING[var]])
        else
            return _nil()