jaredj/glotawk - Change 4YBBAZM32EOQGX736RWC6NDEDRIIL64RFHFDNTRCATUS4KD77Y7AC

add dump-append, with _SNIP_STRING

Created by jaredj on September 7, 2025

4YBBAZM32EOQGX736RWC6NDEDRIIL64RFHFDNTRCATUS4KD77Y7AC

Dependencies

In channels

main

Change contents

Replacement in osf.awk at line 25 [3.954]

B:BD[2.60] → [2.60:126]

        return _dump(_STRING[_eval3(_cadr(form), env, env, d+1)])

[2.60]

[4.700]

        return _dump_overwrite(_STRING[_eval3(_cadr(form), env, env, d+1)])
    else if(car == _symbol("dump-append"))
        return _dump_append(_STRING[_eval3(_cadr(form), env, env, d+1)])

Insertion in lib.glotawk at line 173 [7.36]
[5.1933]
[6.4674]
```
(defintrinsic dump-append ())
```
Insertion in first-symbols.awk at line 113 [3.17737]
[3.19392]
[4.3876]
```
    _symbol("dump-append")
```

Insertion in dump.awk at line 3 [9.37838]

[8.1080]


BEGIN {
    _SNIP_STRING = "# IMAGE BEGINS QMGFAMRISGQJ48IWDOWPHOOGW3MLKKGSPXD4DTFIG0"
}

Replacement in dump.awk at line 30 [9.37838]

B:BD[9.38241] → [9.38241:38288]

B:BD[9.38288] → [4.4868:4914]

∅:D[4.4914] → [9.38288:38318]

B:BD[9.38288] → [9.38288:38318]

function _dump(filename,   i, t, v, s, line) {
    logg_dbg("_dump", "dumping to " filename)
    print "BEGIN {" >filename

[9.38241]

[9.38318]

function _dump(filename, append,   i, t, v, s, line) {
    logg_dbg("_dump", "dumping " (append ? ">> " : "> ") filename)
    if(append)
        print _SNIP_STRING >>filename
    else
        print _SNIP_STRING >filename        
    print "BEGIN {" >>filename

Insertion in dump.awk at line 74 [9.37838]

[4.5461]

function _dump_overwrite(filename) {
    return _dump(filename)
}

Insertion in dump.awk at line 78 [9.37838]

[4.5462]

function _dump_append(filename) {
    logg_dbg("_dump_append", "filename is " filename)
    return _dump(filename, 1)
}