jaredj/glotawk - Change KMV35KHLCXIV5YQUDRSTS6PIMLNIL2KTJZS77XXMPA6IX37NHZ2QC

almost all the way through macros. capricious logging changes without proper extension of logging granularity.

Created by jaredj on June 7, 2025

KMV35KHLCXIV5YQUDRSTS6PIMLNIL2KTJZS77XXMPA6IX37NHZ2QC

Dependencies

In channels

main

Change contents

Replacement in repl.awk at line 16 [3.3599]

B:BD[3.3806] → [3.3806:3824]

B:BD[3.3824] → [4.567:598]

function rep(s) {
    _print(_eval(read_str(s)))

[3.3806]

[3.3866]

function rep(s,       form, result) {
    LOG_LEVEL = 1
    form = read_str(s)
    LOG_LEVEL = 3
    result = _eval(form)
    LOG_LEVEL = 1
    _print(result)

Insertion in lib-eval.awk at line 35 [4.21710]

[2.450]

[4.23687]

(macro let (lambda (a)                         \
            (label ((vs (mapcar car (car a)))   \
                    (as (mapcar cadr (car a)))) \
              (append                            \
                (list (append                    \
                        (list (quote lambda) vs) \
                        (cdr a)))          \
                      as))))                  \

Insertion in eval.awk at line 141 [3.11057]
[2.989]
[2.989]
```
    logg_dbg("_expand", "form: " _repr(form))
```
Deletion in eval.awk at line 155 [3.11057]
B:BD[2.1452] → [2.1452:1469]
```
                
```

Replacement in eval.awk at line 156 [3.11057]

B:BD[2.1537] → [2.1537:1600]

# TODO                    
#                    acc=_cons(acc)

[2.1537]

[2.1600]

                    acc = _cons(_expand(_car(form)), acc)

Replacement in eval.awk at line 160 [3.11057]

B:BD[2.1677] → [2.1677:1785]

                # a macro call!
                return _expand(_eval(_cons(_cadr(mpair))))
            }}}}

[2.1677]

[2.1785]

                # a macro call! _cadr(mpair) is the expression to
                # apply, and we want to apply it to (list (list (quote
                # quote) (cdr form))). This thorny awk statement is
                # brought to you by the awkify elisp function in the
                # otherwise disused lib.awk, which proved to be not as
                # fast as saving an image in image.awk.
                acc = _cons(_symbol("list"),
                            _cons(_cons(_symbol("list"),
                                        _cons(_cons(_symbol("quote"),
                                                    _cons(_symbol("quote"),
                                                          _nil())),
                                              _cons(_cdr(form),
                                                    _nil()))),
                                  _nil()))
                logg_dbg("_expand macro call", "_evaling " _repr(acc))
                return _expand(_eval(acc))
            }
        }
    }
}

Replacement in eval.awk at line 355 [3.11057]

B:BD[4.37762] → [4.37762:37802]

    return _eval3(form, _nil(), _nil())

[4.37762]

[4.37802]

    return _eval3(_expand(form), _nil(), _nil())

Replacement in data.awk at line 95 [3.16500]

B:BD[3.18381] → [3.18381:18438]

    logg_dbg("_cons", N " has car " car " and cdr " cdr)

[3.18381]

[3.18438]

    #logg_dbg("_cons", N " has car " car " and cdr " cdr)

Replacement in data.awk at line 146 [3.16500]

B:BD[3.19296] → [3.19296:19411]

    logg_dbg("_nreverse", "hi. lis is " lis)
    logg_dbg("_nreverse", "the representation of lis is " _repr(lis))

[3.19296]

[3.19411]

    #logg_dbg("_nreverse", "hi. lis is " lis)
    #logg_dbg("_nreverse", "the representation of lis is " _repr(lis))

Replacement in data.awk at line 150 [3.16500]

B:BD[3.19505] → [3.19505:19576]

        logg_dbg("_nreverse", "lis is " lis " containing " _repr(lis))

[3.19505]

[3.19576]

        #logg_dbg("_nreverse", "lis is " lis " containing " _repr(lis))

Replacement in data.awk at line 152 [3.16500]

B:BD[3.19608] → [3.19608:19730]

            logg_dbg("_nreverse", "lis is cons " lis \
                     " which contains " _CAR[lis] " . " _CDR[lis])

[3.19608]

[3.19730]

            #logg_dbg("_nreverse", "lis is cons " lis \
            #         " which contains " _CAR[lis] " . " _CDR[lis])

Deletion in data.awk at line 219 [3.16500]
B:BD[2.2387] → [2.2387:2430]
```
    logg_dbg("_assoc", "looking for " sym)
```

Replacement in data.awk at line 220 [3.16500]

B:BD[2.2490] → [2.2490:2642]

    for(; !_is_null(alis) && _falsy(_eq(_caar(alis), sym));
        alis=_cdr(alis)) {
        logg_dbg("_assoc", "is it " _repr(_car(alis)) "?")
    }

[2.2490]

[2.2642]

    for(;
        !_is_null(alis) && _falsy(_eq(_caar(alis), sym));
        alis=_cdr(alis));

Replacement in data.awk at line 226 [3.16500]

B:BD[2.2721] → [2.2721:2803]

        logg_dbg("_assoc", "found: " _car(alis) " containing " _repr(_car(alis)))

[2.2721]

[2.2803]

        logg_dbg("_assoc", "found " _car(alis) " containing " _repr(_car(alis)))