jaredj/glotawk - Change ICGJDX2EHUCWPATWZRMDCSSTRXGSPW5M4NGU5MAFG6R7QDUC5KPQC

get backslash escapes right

Created by jaredj on September 6, 2025

ICGJDX2EHUCWPATWZRMDCSSTRXGSPW5M4NGU5MAFG6R7QDUC5KPQC

Dependencies

In channels

main

Change contents

Insertion in sane_lisp at line 46 [4.900]

[4.1747]


# in all cases, awk has to be the last thing in the pipeline so we can
# see its exitcode
lisp_with_input () {
  ${TEST_AWK:-awk} -v PROMPT= -v LOG_LEVEL=$LOG_LEVEL -f glotawk

Insertion in sane_lisp at line 53 [4.900]
[4.1748]
[4.1748]
```
}
```

Replacement in sane_lisp at line 56 [4.900]

B:BD[4.1770] → [2.0:79]

∅:D[2.79] → [4.1843:1931]

∅:D[5.1020] → [4.1843:1931]

B:BD[4.1843] → [4.1843:1931]

    echo "$@" | ${TEST_AWK:-awk} -v PROMPT= -v LOG_LEVEL=$LOG_LEVEL -f glotawk
  # importantly, awk is the last thing in this pipeline so we can see
  # its exitcode

[4.1770]

[4.1931]

    echo "$@" | lisp_with_input

Replacement in sane_lisp at line 70 [4.900]
B:BD[6.155] → [6.155:194]
```
lisp_eval_should_be_tricky_output () {
```
[6.155]
[6.194]
```
lisp_eval_should_be_tricky_tricky () {
```

Replacement in sane_lisp at line 72 [4.900]

B:BD[6.278] → [6.278:320]

    lisp_with_string "$1" >/dev/null 2>&1

[6.278]

[4.2087]

    echo "$1" | base64 -d | lisp_with_input >/dev/null 2>&1

Replacement in sane_lisp at line 77 [4.900]

B:BD[4.2196] → [6.321:391]

        local output="$(lisp_with_string "$1" | od -A n -t x1 -w999)"

[4.2196]

        local output="$(echo "$1" | base64 -d | lisp_with_input | base64)"

Replacement in sane_lisp at line 197 [4.900]

B:BD[7.347] → [6.690:772]

lisp_eval_should_be '(shellquote "a\\nb")' '"'\''a\nb'\''"' 'shellquote, newline'

[7.347]

[7.429]

lisp_eval_should_be '(shellquote "a\nb")' \"\'a\\nb\'\" 'shellquote, newline'

Replacement in sane_lisp at line 238 [4.900]

B:BD[6.846] → [6.846:1280]

B:BD[6.1280] → [2.80:369]

lisp_eval_should_be '(string-length ".\\a.\\b.\\f.\\n.\\r.\\t.\\v.\\\\.\\".")' '19' 'string read backslash escapes'
lisp_eval_should_be_tricky_output '(mapcar (lambda (x) (substr ".\\a.\\b.\\f.\\n.\\r.\\t.\\v.\\\\.\\"." x 1)) '\''(2 4 6 8 10 12 14 16 18))' ' 28 22 5c 61 22 20 22 5c 62 22 20 22 5c 66 22 20 22 5c 6e 22 20 22 5c 72 22 20 22 5c 74 22 20 22 5c 76 22 20 22 5c 5c 22 20 22 5c 22 22 29 0a' 'string print backslash escapes'
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'

[6.846]

[4.3557]

lisp_eval_should_be_tricky_tricky 'KHN0cmluZy1sZW5ndGggIi5cYS5cYi5cZi5cbi5cci5cdC5cdi5cXC5cIi4iKQ==' 'MTkK' 'string read backslash escapes'
#lisp_eval_should_be '(mapcar (lambda (x) (substr ".\a.\b.\f.\n.\r.\t.\v.\\.\"." x 1)) '\''(2 4 6 8 10 12 14 16 18))' '("\a" "\b" "\f" "\n" "\r" "\t" "\v" "\\" "\"")'
lisp_eval_should_be_tricky_tricky 'KG1hcGNhciAobGFtYmRhICh4KSAoc3Vic3RyICIuXGEuXGIuXGYuXG4uXHIuXHQuXHYuXFwuXCIu
IiB4IDEpKSAocXVvdGUgKDIgNCA2IDggMTAgMTIgMTQgMTYgMTgpKSk=' \
                                  'KCJcYSIgIlxiIiAiXGYiICJcbiIgIlxyIiAiXHQiICJcdiIgIlxcIiAiXCIiKQo=' \
                                  'printing backslash escapes'
#lisp_eval_should_be '"\\.\\\\.\\\\\\\\.\n"' '"\\.\\\\.\\\\\\\\.\n"
# ' 'backslash-escaped backslashes'
lisp_eval_should_be_tricky_tricky 'IlxcLlxcXFwuXFxcXFxcXFwuXG4i' 'IlxcLlxcXFwuXFxcXFxcXFwuXG4iCg==' 'backslash-escaped backslashes'
#lisp_eval_should_be '(string-length "\\.\\\\.\\\\\\\\.\n")' '11' 'backslash-escaped backslashes 2'
lisp_eval_should_be_tricky_tricky 'KHN0cmluZy1sZW5ndGggIlxcLlxcXFwuXFxcXFxcXFwuXG4iKQ==' 'MTEK' 'backslash-escaped backslashes 2'

Replacement in reader.awk at line 80 [4.4015]

∅:D[3.2140] → [8.218:289]

B:BD[9.4103] → [8.218:289]

B:BD[8.289] → [3.2141:2211]

∅:D[3.2211] → [8.290:365]

B:BD[9.4225] → [8.290:365]

            } else if(match(input, /^;[^\n]*/))              # comment
                _push_token(substr(input, 1, RLENGTH), tokens, where)
            else if(match(input, /^[^][ 	('"`,;)@]+/)) # non-special chars

[3.2140]

[3.2212]

            } else if(match(input, /^;[^\n]*$/)) {             # comment
                # don't push any tokens at all: it's difficult to pick
                # out comment tokens when reading, but easy here
                #
                # _push_token(substr(input, 1, RLENGTH), tokens, where)
            } else if(match(input, /^[^][ 	('"`,;)@]+/)) # non-special chars