jaredj/glotawk - Change A56GZW6HLIZQ6NX47XFPEPPGLZAA725KNYST7VK2MMK3DCCIXAXAC

support tick, backtick, and comma to mean quote, quasiquote, and unquote. ,@ and quasiquote not implemented yet

Created by jaredj on June 9, 2025

A56GZW6HLIZQ6NX47XFPEPPGLZAA725KNYST7VK2MMK3DCCIXAXAC

Dependencies

In channels

main

Change contents

Insertion in sane_lisp at line 126 [3.900]

[2.420]

lisp_eval_should_be '(quote (1 2 3))' '(1 2 3)' 'quote double-check'
lisp_eval_should_be \''(1 2 3)'       '(1 2 3)' 'reader syntax: apostrophe short for quote'

Replacement in reader.awk at line 9 [3.4015]

B:BD[3.4219] → [3.4219:4257]

        if(match(input, /^[ 	,]+/)) {

[3.4219]

[3.4257]

        if(match(input, /^[ 	]+/)) {

Replacement in reader.awk at line 12 [3.4015]

B:BD[3.4348] → [3.4348:4424]

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

[3.4348]

[3.4424]

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

Replacement in reader.awk at line 43 [3.4015]
B:BD[3.5629] → [3.5629:5662]
```
    return read_form(i, ta, tal)
```
[3.5629]
[3.5662]
```
    return read_form(i, ta, tal, 0)
```

Replacement in reader.awk at line 46 [3.4015]

B:BD[3.5669] → [3.5669:5700]

function read_form(i,ta,tal) {

[3.5669]

[3.5700]

function read_form(i,ta,tal,      quote) {
    if(ta[i[1]] == "'") {
        quote = "quote"
        i[1]++
    } else if(ta[i[1]] == "`") {
        quote = "quasiquote"
        i[1]++
    } else if(ta[i[1]] == ",") {
        quote = "unquote"
        i[1]++
    } else {
        quote = 0
    }

Replacement in reader.awk at line 62 [3.4015]

B:BD[3.5801] → [3.5801:5836]

        return read_list(i,ta,tal)

[3.5801]

[3.5836]

        return read_list(i,ta,tal,quote)

Replacement in reader.awk at line 64 [3.4015]

B:BD[3.5849] → [3.5849:5884]

        return read_atom(i,ta,tal)

[3.5849]

[3.5884]

        return read_atom(i,ta,tal,quote)

Replacement in reader.awk at line 68 [3.4015]

B:BD[3.5893] → [3.5893:5949]

function read_list(i, ta, tal,        prevtail, head) {

[3.5893]

[3.5949]

function read_list(i, ta, tal, quote,       prevtail, head) {

Deletion in reader.awk at line 76 [3.4015]
B:BD[3.6325] → [3.6325:6330]
```
    
```
Deletion in reader.awk at line 78 [3.4015]
B:BD[3.6377] → [3.6377:6411]
```
    logg_dbg("read_list", "heyo")
```
Deletion in reader.awk at line 84 [3.4015]
B:BD[3.6643] → [3.6643:6663]
```
        return head
```

Insertion in reader.awk at line 87 [3.4015]

[3.6776]

    }
    if(quote){
        logg_dbg("read_list", "wrapping in " quote)
        head = _cons(_symbol(quote),
                     _cons(head, _nil()))

Insertion in reader.awk at line 93 [3.4015]
[3.6782]
[3.6782]
```
    return head
```

Replacement in reader.awk at line 96 [3.4015]

B:BD[3.6785] → [3.6785:6825]

function read_atom(i, ta, tal,  this) {

[3.6785]

[3.6825]

function read_atom(i, ta, tal, quote,  this, ans, self_quoting) {

Insertion in reader.awk at line 103 [3.4015]
[3.7051]
[3.7051]
```
    self_quoting = 1
```
Replacement in reader.awk at line 105 [3.4015]
B:BD[3.7115] → [3.7115:7144]
```
        return _number(this)
```
[3.7115]
[3.7144]
```
        ans = _number(this)
```
Replacement in reader.awk at line 107 [3.4015]
B:BD[3.7185] → [3.7185:7208]
```
        return _true()
```
[3.7185]
[3.7208]
```
        ans = _true()
```
Replacement in reader.awk at line 109 [3.4015]
B:BD[3.7250] → [3.7250:7274]
```
        return _false()
```
[3.7250]
[3.7274]
```
        ans = _false()
```
Replacement in reader.awk at line 111 [3.4015]
B:BD[3.7314] → [3.7314:7336]
```
        return _nil()
```
[3.7314]
[3.7336]
```
        ans = _nil()
```
Replacement in reader.awk at line 113 [3.4015]
B:BD[3.7365] → [3.7365:7384]
```
        return "."
```
[3.7365]
[3.7384]
```
        ans = "."
```

Replacement in reader.awk at line 117 [3.4015]

B:BD[3.7455] → [3.7455:7523]

            return _string(substr(ta[i[1]], 2, length(ta[i[1]])-2))

[3.7455]

[3.7523]

            ans = _string(substr(ta[i[1]], 2, length(ta[i[1]])-2))

Replacement in reader.awk at line 119 [3.4015]

B:BD[3.7540] → [3.7540:7577]

            return _symbol(ta[i[1]])

[3.7540]

[3.7577]

            self_quoting = 0
            ans = _symbol(ta[i[1]])
        }
    }
    if(quote) {
        if(self_quoting) {
            logg_err("read_atom",
                     "attempt to " quote " self-quoting atom " _repr(ans))
        } else if(quote == "quasiquote") {
            logg_err("read_atom", "attempt to " quote " an atom")
        } else {
            ans = _cons(_symbol(quote), _cons(ans, _nil()))

Insertion in reader.awk at line 133 [3.4015]
[3.7593]
[3.7593]
```
    return ans
```

support tick, backtick, and comma to mean quote, quasiquote, and unquote. ,@ and quasiquote not implemented yet

Dependencies

In channels

Change contents

Insertion in sane_lisp at line 126 [3.900]

Replacement in reader.awk at line 9 [3.4015]

Replacement in reader.awk at line 12 [3.4015]

Replacement in reader.awk at line 43 [3.4015]

Replacement in reader.awk at line 46 [3.4015]

Replacement in reader.awk at line 62 [3.4015]

Replacement in reader.awk at line 64 [3.4015]

Replacement in reader.awk at line 68 [3.4015]

Deletion in reader.awk at line 76 [3.4015]

Deletion in reader.awk at line 78 [3.4015]

Deletion in reader.awk at line 84 [3.4015]

Insertion in reader.awk at line 87 [3.4015]

Insertion in reader.awk at line 93 [3.4015]

Replacement in reader.awk at line 96 [3.4015]

Insertion in reader.awk at line 103 [3.4015]

Replacement in reader.awk at line 105 [3.4015]

Replacement in reader.awk at line 107 [3.4015]

Replacement in reader.awk at line 109 [3.4015]

Replacement in reader.awk at line 111 [3.4015]

Replacement in reader.awk at line 113 [3.4015]

Replacement in reader.awk at line 117 [3.4015]

Replacement in reader.awk at line 119 [3.4015]

Insertion in reader.awk at line 133 [3.4015]