{"header":{"message":"retool reader to support forms spanning multiple lines","description":null,"timestamp":"2025-08-25T01:35:46.930999276Z","authors":[{}]},"hash":"2CXQ53RHKGIT5KR7VHOVRVHCD5MK4V2J3AJDQ3CNSJLHJXXA4GXQC","authors":[{"login":"jaredj","key":"3qqSdJRv6R3QNQvaGTyRYhLtRiCMVYPYhNJFh8CVy362"}],"deps":{"hashes":[["2CXQ53RHKGIT5KR7VHOVRVHCD5MK4V2J3AJDQ3CNSJLHJXXA4GXQC","retool reader to support forms spanning multiple lines"],["AA",null],["YU2N2HEPNDEB65LGBWESEHNZNCZ63H3MGT4R7VLX4KMZHFYC4SIAC","do auto gc outside eval: inside eval, we were gcing the forms being evaluated, leading to crashes"],["L7YV2TJYOBRNUT7FPSY352O3BPZD7CNO3XG7PY433L54XYBY5AZQC","add let*"],["5XO7IKBGCVXGVWMDJDE5MELS4FWRITKAU6NNV36NQ4TOZRR7UQ7QC","fix garbage collector; run it before dumping image.awk; auto-run every so often"],["MPN7OJSZD5CS5N7WWS3ZSOYE7ZRCABIBHZDMHVS6IT25EO2INK7AC","two-stage build: use a slow, correct first stage to dump an image which is built into the final glotawk"],["6XHALMLUA5B5BBYFSWIFHSJ2BXCL6RSAW5TCKRGJEI2LURH2TQ4AC","make image-based build work under BSD make and GNU make; begin macro work"],["GW4AAYNF7I66D72G5PMFTQRK7B4KZVYKAHKRPC2IY7IX37JKEHJQC","finish macros; indent some messages by call depth; fix tests and add more"],["RXKXDAF3GEASFJBBXAMTGPMPTHL74ZOHVBKVZ2YQXAZKMHISRY7QC","variadic + function"],["CSYWOT2I424JQUSOH4DB6UNOOHMB5FOA5B7AY4CE45EQORRB4LWAC","fix and test quasiquote; make reduce only call f if it has two arguments to supply"],["UW27LKXM2BJ77FQLTY4WPKDSSWI2RFNFRJ7CB4U3TS7KYVIV72LQC","initial commit, with the minimal self-evaluating Lisp and no GC"],["KMV35KHLCXIV5YQUDRSTS6PIMLNIL2KTJZS77XXMPA6IX37NHZ2QC","almost all the way through macros. capricious logging changes without proper extension of logging granularity."],["7SNXCC5KSDXU3MBJT2FBEPAISWPY62DHPC2RLEYXC2WVTWX5TKKQC","avoid command injection in system function; add apply; fix newlines in dumped strings"],["A56GZW6HLIZQ6NX47XFPEPPGLZAA725KNYST7VK2MMK3DCCIXAXAC","support tick, backtick, and comma to mean quote, quasiquote, and unquote. ,@ and quasiquote not implemented yet"],["K3OVRFE3Y23DN47XNAISH6XM5JGSCNRR6TOEO5KAKBNB54MFO27AC","more arithmetic operators and mathematical functions"],["NBEO3TPNOUG7MRFYRSDDFB5TQKTEDL6GHHFQVOB5MXVPIBKFNZKAC","comment out all the logg_dbg calls, for an 8x speedup"],["A2JAXDJWT2FAKADYOY6QOQ7LQRMTTCDIOYT7STSESVHLZQEQJBMAC","implement most of LISINT from LISP from Nothing, p. 141 et seq. Global variables, tail calls."],["UNG2I2YG7NASZK7A2UYXTBYEM6RCMAU3BD4C57RUQKHNZQUTGIIAC","add * (multiplication)"],["O6PFGAUDYCMK6SC6V5RB5ELXZ7W54OB7XPYCMECCA4BSBUVLFAPAC","quasiquoting, indented logs, support for log levels per where-value; mapcar in awk did not work right, replacing with lisp version"],["RCUBQKTURAMSYYFNNI4JPXDBZDGF6ZGWVGQYTDEKA6EOMG4QUZOAC","more functions"],["JDZASPALXSFZOL3MXCKBPX74CUD3W743ZJ6W2422FIJ7NJOD67ZAC","add in ways to call the rest of the awk functions"],["PXI442CY2KQHHAIJ3UNCWKTAI4IFYNGYEBRQMDR6T53YZTY2VMMQC","add ,@ reader syntax and unquote-splicing treatment in quasiquote. fix gc again?"],["OUSD2SQASHZTD2KRWOVMU7LUSE73NXKECFIOD7M76NMOXMD7Q4RQC","add missing cdar and cddr"]],"deps":["YU2N2HEPNDEB65LGBWESEHNZNCZ63H3MGT4R7VLX4KMZHFYC4SIAC","L7YV2TJYOBRNUT7FPSY352O3BPZD7CNO3XG7PY433L54XYBY5AZQC"],"known":["UW27LKXM2BJ77FQLTY4WPKDSSWI2RFNFRJ7CB4U3TS7KYVIV72LQC","A2JAXDJWT2FAKADYOY6QOQ7LQRMTTCDIOYT7STSESVHLZQEQJBMAC","MPN7OJSZD5CS5N7WWS3ZSOYE7ZRCABIBHZDMHVS6IT25EO2INK7AC","6XHALMLUA5B5BBYFSWIFHSJ2BXCL6RSAW5TCKRGJEI2LURH2TQ4AC","KMV35KHLCXIV5YQUDRSTS6PIMLNIL2KTJZS77XXMPA6IX37NHZ2QC","GW4AAYNF7I66D72G5PMFTQRK7B4KZVYKAHKRPC2IY7IX37JKEHJQC","A56GZW6HLIZQ6NX47XFPEPPGLZAA725KNYST7VK2MMK3DCCIXAXAC","O6PFGAUDYCMK6SC6V5RB5ELXZ7W54OB7XPYCMECCA4BSBUVLFAPAC","RXKXDAF3GEASFJBBXAMTGPMPTHL74ZOHVBKVZ2YQXAZKMHISRY7QC","UNG2I2YG7NASZK7A2UYXTBYEM6RCMAU3BD4C57RUQKHNZQUTGIIAC","K3OVRFE3Y23DN47XNAISH6XM5JGSCNRR6TOEO5KAKBNB54MFO27AC","NBEO3TPNOUG7MRFYRSDDFB5TQKTEDL6GHHFQVOB5MXVPIBKFNZKAC","RCUBQKTURAMSYYFNNI4JPXDBZDGF6ZGWVGQYTDEKA6EOMG4QUZOAC","JDZASPALXSFZOL3MXCKBPX74CUD3W743ZJ6W2422FIJ7NJOD67ZAC","5XO7IKBGCVXGVWMDJDE5MELS4FWRITKAU6NNV36NQ4TOZRR7UQ7QC","PXI442CY2KQHHAIJ3UNCWKTAI4IFYNGYEBRQMDR6T53YZTY2VMMQC","7SNXCC5KSDXU3MBJT2FBEPAISWPY62DHPC2RLEYXC2WVTWX5TKKQC","CSYWOT2I424JQUSOH4DB6UNOOHMB5FOA5B7AY4CE45EQORRB4LWAC","OUSD2SQASHZTD2KRWOVMU7LUSE73NXKECFIOD7M76NMOXMD7Q4RQC"]},"hunks":[{"Replacement":{"inode":{"change":4,"pos":3599},"path":"repl.awk","line":13,"ins":{"up_context":[{"change":4,"pos":3772}],"down_context":[{"change":4,"pos":3803}],"flag":"BLOCK","start":0,"end":66,"inode":{"change":4,"pos":3599}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3772},"to":{"change":4,"start":3772,"end":3803},"introduced_by":4}],"inode":{"change":4,"pos":3599}},"ins_contents":[{"Add":" if(!FILENAME || (FILENAME == \"-\")) _print_with_no_ors(PROMPT)"}],"del_contents":[{"Del":" _print_with_no_ors(PROMPT)\n"}]}},{"Edit":{"inode":{"change":4,"pos":3599},"path":"repl.awk","line":15,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3805},"to":{"change":4,"start":3805,"end":3806},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3806},"to":{"change":4,"start":0,"end":38},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":56},"to":{"change":4,"start":56,"end":79},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":97},"to":{"change":4,"start":97,"end":122},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":140},"to":{"change":4,"start":140,"end":159},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":159},"to":{"change":2,"start":0,"end":458},"introduced_by":2}],"inode":{"change":4,"pos":3599}}},"contents":[{"Del":"\n"},{"Del":"function rep(s, form, result) {\n"},{"Del":" form = read_str(s)\n"},{"Del":" result = _eval(form)\n"},{"Del":" _print(result)\n"},{"Del":" if(N > (N_at_last_gc + GC_EVERY)) {\n# for debugging garbage collector:\n# logg_dbg(\"rep\", \"auto-gc at N \" N)\n# _dump_dot(\"pre-gc-\" N \".dot\")\n# _gc_dot(_cons(_GLOBALS,\n# _cons(_MACROS,\n# _cons(_COMPARED_SYMBOLS,\n# _nil()))),\n# \"auto-gc-\" N \"-marks.dot\",\n# \"auto-gc-\" N \"-sweeps.dot\")\n# _dump_dot(\"post-gc-\" N \".dot\")\n"}]}},{"Replacement":{"inode":{"change":4,"pos":3599},"path":"repl.awk","line":16,"ins":{"up_context":[{"change":2,"pos":459}],"down_context":[{"change":2,"pos":643}],"flag":"BLOCK","start":67,"end":191,"inode":{"change":4,"pos":3599}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":459},"to":{"change":2,"start":459,"end":643},"introduced_by":2}],"inode":{"change":4,"pos":3599}},"ins_contents":[{"Add":"function _print_eval_all( i, l) {"},{"Add":" l = length(_TO_EVAL)"},{"Add":" for(i=1; i<=l; i++) {"},{"Add":" _print(_eval(_TO_EVAL[i]))"}],"del_contents":[{"Del":" _gc(_cons(_GLOBALS,\n _cons(_MACROS,\n _cons(_COMPARED_SYMBOLS,\n _nil())))) \n N_at_last_gc = N\n"}]}},{"Edit":{"inode":{"change":4,"pos":3599},"path":"repl.awk","line":21,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":649}],"down_context":[{"change":4,"pos":3866}],"flag":"BLOCK","start":192,"end":212,"inode":{"change":4,"pos":3599}}},"contents":[{"Add":" delete _TO_EVAL"}]}},{"Edit":{"inode":{"change":4,"pos":3599},"path":"repl.awk","line":24,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":3869}],"down_context":[{"change":4,"pos":3869}],"flag":"BLOCK","start":213,"end":357,"inode":{"change":4,"pos":3599}}},"contents":[{"Add":"function _just_eval_all( i, l) {"},{"Add":" l = length(_TO_EVAL)"},{"Add":" for(i=1; i<=l; i++) {"},{"Add":" _eval(_TO_EVAL[i])"},{"Add":" }"},{"Add":" delete _TO_EVAL"},{"Add":"}"}]}},{"Replacement":{"inode":{"change":4,"pos":3599},"path":"repl.awk","line":33,"ins":{"up_context":[{"change":4,"pos":3878}],"down_context":[{"change":4,"pos":3953}],"flag":"BLOCK","start":358,"end":655,"inode":{"change":4,"pos":3599}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3878},"to":{"change":4,"start":3878,"end":3916},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3939},"to":{"change":4,"start":3939,"end":3953},"introduced_by":4}],"inode":{"change":4,"pos":3599}},"ins_contents":[{"Add":" if(PROMPT == 0) PROMPT = \"* \""},{"Add":" _forget_parse_state()"},{"Add":" # it appears that during BEGIN, if we are operating on a file"},{"Add":" # specified on the command line, FILENAME is not set yet. So we"},{"Add":" # have to find out whether any filename was specified, instead."},{"Add":" if(length(ARGV) < 2) _prompt()"}],"del_contents":[{"Del":" if(PROMPT == 0) PROMPT = \"user> \"\n"},{"Del":" _prompt()\n"}]}},{"Replacement":{"inode":{"change":4,"pos":3599},"path":"repl.awk","line":41,"ins":{"up_context":[{"change":4,"pos":3956}],"down_context":[],"flag":"BLOCK","start":656,"end":1312,"inode":{"change":4,"pos":3599}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3956},"to":{"change":4,"start":3956,"end":3979},"introduced_by":4}],"inode":{"change":4,"pos":3599}},"ins_contents":[{"Add":""},{"Add":"{"},{"Add":" # the reason to keep lists of parser state is so we can have forms"},{"Add":" # that span lines, rather than requiring each line of input to be"},{"Add":" # a complete form."},{"Add":" tokenize($0)"},{"Add":" read_forms_into(_TO_EVAL)"},{"Add":""},{"Add":" if(!FILENAME || (FILENAME == \"-\")) _print_eval_all()"},{"Add":" else _just_eval_all()"},{"Add":""},{"Add":" if(length(_TOKENS) == 0 && length(_TO_EVAL) == 0) {"},{"Add":" # we have come to the end of all complete expressions in the"},{"Add":" # input so far. this is important so that we don't GC data"},{"Add":" # that we have read but not yet eval'd."},{"Add":" _maybe_gc()"},{"Add":" _prompt()"},{"Add":" }"},{"Add":"}"},{"Add":""},{"Add":""},{"Add":"END {"},{"Add":" _incomplete_parse_at_end()"},{"Add":"}"}],"del_contents":[{"Del":"{ rep($0); _prompt() }\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":4,"ins":{"up_context":[{"change":4,"pos":4058}],"down_context":[{"change":4,"pos":4120}],"flag":"BLOCK","start":1313,"end":1652,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4058},"to":{"change":4,"start":4058,"end":4120},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":"function _forget_parse_state() {"},{"Add":"# logg_dbg(\"_forget_parse_state\")"},{"Add":" delete _TOKENS"},{"Add":" delete _WHERE"},{"Add":" _INSIDE_STRING = 0"},{"Add":"}"},{"Add":""},{"Add":"function _push_token(t, n) {"},{"Add":"# logg_dbg(\"_push_token\", t)"},{"Add":" n = length(_TOKENS)+1"},{"Add":" _TOKENS[n] = t"},{"Add":" _WHERE[n] = FILENAME \":\" FNR"},{"Add":"}"},{"Add":""},{"Add":"function tokenize(input, chars_done, chars_left, top) {"}],"del_contents":[{"Del":"function tokenize_into(input, ta, chars_left, tal, mp) {\n"}]}},{"Edit":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":21,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4170},"to":{"change":4,"start":4170,"end":4191},"introduced_by":4}],"inode":{"change":4,"pos":4015}}},"contents":[{"Del":" tal = length(ta)\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":22,"ins":{"up_context":[{"change":4,"pos":4219}],"down_context":[{"change":4,"pos":4832}],"flag":"BLOCK","start":1653,"end":3076,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4219},"to":{"change":4,"start":162,"end":199},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":199},"to":{"change":4,"start":185,"end":335},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":335},"to":{"change":4,"start":4298,"end":4348},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4298},"to":{"change":4,"start":4298,"end":4348},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4348},"to":{"change":4,"start":200,"end":277},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":277},"to":{"change":4,"start":4424,"end":4704},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4424},"to":{"change":4,"start":4424,"end":4704},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4704},"to":{"change":4,"start":336,"end":415},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":415},"to":{"change":4,"start":4782,"end":4832},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4782},"to":{"change":4,"start":4782,"end":4832},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":"# logg_dbg(\"tokz\", \"input is [\" input \"]; inside string? \" _INSIDE_STRING)"},{"Add":" top = length(_TOKENS)"},{"Add":" # warning: don't match() regexes on anything but input here."},{"Add":" # we use RSTART and RLENGTH below, which match() sets. all"},{"Add":" # patterns must start with ^, so RSTART will always be 1."},{"Add":" if(_INSIDE_STRING) {"},{"Add":" if(match(input, /^\"/)) { # immediate string end"},{"Add":" _TOKENS[top] = _TOKENS[top] substr(input, 1, RLENGTH)"},{"Add":" _INSIDE_STRING = 0"},{"Add":" } else if(match(input, /^(\\\\[^\"]|[^\\\\\"])*[^\\\\]\"/)) { # stuff\""},{"Add":"# logg_dbg(\"tokz\", \"leaving string\")"},{"Add":" _TOKENS[top] = _TOKENS[top] substr(input, 1, RLENGTH)"},{"Add":" _INSIDE_STRING = 0"},{"Add":" } else { # no end quote in input. stay inside"},{"Add":" # newline inside string escaped?"},{"Add":" if(match(input, /^(\\\\.|[^\\\\])*\\\\$/)) {"},{"Add":" # keep the backslash off"},{"Add":" _TOKENS[top] = _TOKENS[top] substr(input, 1, RLENGTH-1)"},{"Add":" } else {"},{"Add":" _TOKENS[top] = _TOKENS[top] input \"\\n\""},{"Add":" # everything's OK, but we have not actually"},{"Add":" # matched any regexps. set RSTART and RLENGTH to"},{"Add":" # say we matched the whole line."},{"Add":" RSTART = 1"},{"Add":" RLENGTH = length(input)+1"},{"Add":" }"},{"Add":" }"}],"del_contents":[{"Del":" if(match(input, /^[ \t]+/)) {\n"},{"Del":" } else if(match(input, /^~/)) {\n ta[++tal] = substr(input, 1, RLENGTH)\n } else if(match(input, /^,@/)) { # unquote-splicing\n"},{"Del":" ta[++tal] = substr(input, 1, RLENGTH)\n"},{"Del":" } else if(match(input, /^[\\[\\]{}()'`,!^@]/)) { # special single char\n"},{"Del":" ta[++tal] = substr(input, 1, RLENGTH)\n } else if(match(input, /^\"(\\\\.|[^\\\\\"])*\"?/)) { # double-quoted string\n ta[++tal] = substr(input, 1, RLENGTH)\n } else if(match(input, /^;.*/)) { # comment\n ta[++tal] = substr(input, 1, RLENGTH)\n"},{"Del":" } else if(match(input, /^[^ \t\\[\\]{}('\"`,;)@]+/)) { # non-special chars\n"},{"Del":" ta[++tal] = substr(input, 1, RLENGTH)\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":50,"ins":{"up_context":[{"change":4,"pos":4849}],"down_context":[{"change":4,"pos":4973}],"flag":"BLOCK","start":3077,"end":4950,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4849},"to":{"change":4,"start":4849,"end":4973},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":" if(match(input, /^[ \t]+/))"},{"Add":" ;"},{"Add":" else if(match(input, /^~/))"},{"Add":" _push_token(substr(input, 1, RLENGTH))"},{"Add":" else if(match(input, /^,@/)) # unquote-splicing"},{"Add":" _push_token(substr(input, 1, RLENGTH))"},{"Add":" else if(match(input, /^[\\[\\]{}()'`,!^@]/)) # special single char"},{"Add":" _push_token(substr(input, 1, RLENGTH))"},{"Add":" else if(match(input, /^\"(\\\\.|[^\\\\\"])*\"/)) { # double-quoted string"},{"Add":"# logg_dbg(\"tokz\", \"complete string\")"},{"Add":" _push_token(substr(input, 1, RLENGTH))"},{"Add":" } else if(match(input, /^\"(\\\\([^\"]|$)|[^\\\\\"])*/)) { # dq string no end"},{"Add":"# logg_dbg(\"tokz\", \"incomplete string\")"},{"Add":" if(substr(input, RLENGTH, 1) == \"\\\\\")"},{"Add":" _push_token(substr(input, 1, RLENGTH-1))"},{"Add":" else"},{"Add":" _push_token(substr(input, 1, RLENGTH) \"\\n\")"},{"Add":" _INSIDE_STRING = 1"},{"Add":"# logg_dbg(\"tokz\", \"_INSIDE_STRING\")"},{"Add":" } else if(match(input, /^;.*/)) # comment"},{"Add":" _push_token(substr(input, 1, RLENGTH))"},{"Add":" else if(match(input, /^[^ \t\\[\\]{}('\"`,;)@]+/)) # non-special chars"},{"Add":" _push_token(substr(input, 1, RLENGTH))"},{"Add":" else {"},{"Add":" if(!FILENAME || FILENAME == \"-\") {"},{"Add":" logg_err(\"tokz\", \"at char \" chars_done \": \" \\"},{"Add":" \"unrecognized input: \" input)"},{"Add":" chars_left = 0"},{"Add":" _forget_parse_state()"},{"Add":" } else {"},{"Add":" logg_err(\"tokz\","},{"Add":" \" \" FILENAME \":\" FNR \": \" \\"},{"Add":" \"at char \" chars_done \": \" \\"},{"Add":" \"unrecognized input: \" input)"},{"Add":" exit(1)"},{"Add":" }"},{"Add":" }"}],"del_contents":[{"Del":" logg_err(\"tokz\", \"unrecognized input at char \" \\\n chars_done \": \" input)\n exit 1\n"}]}},{"Edit":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":88,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":4983}],"down_context":[{"change":4,"pos":4983}],"flag":"BLOCK","start":4951,"end":5004,"inode":{"change":4,"pos":4015}}},"contents":[{"Add":"# logg_dbg_array(\"tokz\", \"_TOKENS\", _TOKENS)"},{"Add":""}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":96,"ins":{"up_context":[{"change":4,"pos":5206}],"down_context":[{"change":4,"pos":5307}],"flag":"BLOCK","start":5005,"end":5464,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5206},"to":{"change":4,"start":5206,"end":5307},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":" if(!FILENAME || FILENAME == \"-\") {"},{"Add":" logg_err(\"tokz\", \"at char \" chars_done \": \"\\"},{"Add":" \"token not matched: \" input)"},{"Add":" chars_left = 0"},{"Add":" _forget_parse_state()"},{"Add":" } else {"},{"Add":" logg_err(\"tokz\", \" \" FILENAME \":\" FNR \": \" \\"},{"Add":" \"at char \" chars_done \": \" \\"},{"Add":" \"token not matched: \" input)"},{"Add":" exit(1)"},{"Add":" }"}],"del_contents":[{"Del":" logg_err(\"tokz\", \"at char \" chars_done \", token not matched: \" input)\n exit 1\n"}]}},{"Edit":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":108,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5317},"to":{"change":4,"start":0,"end":94},"introduced_by":4}],"inode":{"change":4,"pos":4015}}},"contents":[{"Del":"# logg_dbg(\"tokz\", \" -> \" tal \" tokens; \" chars_left \" chars_left; input: \" input)\n"}]}},{"Edit":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":110,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":5418}],"down_context":[{"change":4,"pos":5418}],"flag":"BLOCK","start":5465,"end":5467,"inode":{"change":4,"pos":4015}}},"contents":[{"Add":" "}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":112,"ins":{"up_context":[{"change":4,"pos":5419}],"down_context":[{"change":4,"pos":605}],"flag":"BLOCK","start":5468,"end":6722,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5419},"to":{"change":4,"start":5419,"end":5629},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5629},"to":{"change":4,"start":278,"end":314},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":314},"to":{"change":4,"start":5662,"end":5669},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5662},"to":{"change":4,"start":5662,"end":5669},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5669},"to":{"change":4,"start":315,"end":559},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":559},"to":{"change":4,"start":416,"end":500},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":500},"to":{"change":4,"start":559,"end":605},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":559},"to":{"change":4,"start":559,"end":605},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":"# before, with the mal-step-2-like reader, we knew the ending"},{"Add":"# nesting_level would be 0. there would always be one form to"},{"Add":"# evaluate. the question was whether it was an atom or a list; if a"},{"Add":"# list, recursion would take us to the end of the form (and no"},{"Add":"# farther: multiple forms on the same line would be ignored). if the"},{"Add":"# nesting level at the end were not zero, it would be an error, on"},{"Add":"# that line."},{"Add":"#"},{"Add":"# now, with multiline forms, the form and the line are not constrained"},{"Add":"# to the same extent."},{"Add":"#"},{"Add":"# - there may not be a complete form to read yet. we want to avoid"},{"Add":"# starting to read anything until we know we have enough tokens to"},{"Add":"# finish reading it."},{"Add":"#"},{"Add":"# - there could be multiple forms on one"},{"Add":"# line, and so we may end up reading more than one."},{"Add":"#"},{"Add":"# - there could be a fractional form at the end. we want to consume"},{"Add":"# the full form(s) and leave the half forms."},{"Add":"#"},{"Add":"# and that means that when we read a list, we need its starting _and"},{"Add":"# ending_ indices."},{"Add":""},{"Add":"function read_forms_into(rvs, a, b, i, t, quote, topp, list_found, nesting_level) {"},{"Add":" delete rvs[1]"},{"Add":" if(!a) {"},{"Add":" a=1"},{"Add":" b=length(_TOKENS)"},{"Add":" # don't try to read an incomplete string"},{"Add":" if(_INSIDE_STRING) b--"},{"Add":" topp=1 # we are the toplevel read_forms_into"}],"del_contents":[{"Del":"function read_str(s, i, ta, tal) {\n delete ta[1] # make sure ta is an array for gawk -c\n tokenize_into(s, ta)\n tal = length(ta)\n i[1] = 1 # make i an array so we can pass it by reference\n"},{"Del":" return read_form(i, ta, tal, 0)\n"},{"Del":"}\n \n"},{"Del":"function read_form(i,ta,tal, quote) {\n if(ta[i[1]] == \"'\") {\n quote = \"quote\"\n i[1]++\n } else if(ta[i[1]] == \"`\") {\n quote = \"quasiquote\"\n i[1]++\n } else if(ta[i[1]] == \",\") {\n quote = \"unquote\"\n"},{"Del":" i[1]++\n } else if(ta[i[1]] == \",@\") {\n quote = \"unquote-splicing\"\n"},{"Del":" i[1]++\n } else {\n quote = 0\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":145,"ins":{"up_context":[{"change":4,"pos":611}],"down_context":[{"change":4,"pos":5884}],"flag":"BLOCK","start":6723,"end":9028,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":611},"to":{"change":4,"start":5700,"end":5733},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5700},"to":{"change":4,"start":5700,"end":5733},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5733},"to":{"change":4,"start":95,"end":146},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":146},"to":{"change":4,"start":5783,"end":5801},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5783},"to":{"change":4,"start":5783,"end":5801},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5801},"to":{"change":4,"start":612,"end":653},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":653},"to":{"change":4,"start":5836,"end":5849},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5836},"to":{"change":4,"start":5836,"end":5849},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5849},"to":{"change":4,"start":654,"end":695},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":" logg_dbg(\"read_forms_into\", \"a \" a \" b \" b \" ingoing length(rvs) \" length(rvs))"},{"Add":" while(a <= b) { # we may break out, too, below"},{"Add":" t = _TOKENS[a]"},{"Add":"# logg_dbg(\"read_forms_into\", \"reading \" a \" = \" t)"},{"Add":""},{"Add":" logg_dbg(\"read_forms_into\", \"token \" t \" quote? \" quote)"},{"Add":" if(t == \"'\") {"},{"Add":" quote = \"quote\"; a++; continue"},{"Add":" } else if(t == \"`\") {"},{"Add":" quote = \"quasiquote\"; a++; continue"},{"Add":" } else if(t == \",\") {"},{"Add":" quote = \"unquote\"; a++; continue"},{"Add":" } else if(t == \",@\") {"},{"Add":" quote = \"unquote-splicing\"; a++; continue"},{"Add":" }"},{"Add":""},{"Add":" if(t == \"(\") {"},{"Add":" list_found = 0"},{"Add":" nesting_level = 1"},{"Add":" for(i=a+1; i<=b; i++) {"},{"Add":" if(_TOKENS[i] == \"(\") nesting_level++"},{"Add":" else if(_TOKENS[i] == \")\") nesting_level--"},{"Add":" if(nesting_level==0) {"},{"Add":" # the list begun at a has ended at i"},{"Add":" list_found = 1"},{"Add":" break"},{"Add":" }"},{"Add":" }"},{"Add":" if(list_found) {"},{"Add":"# logg_dbg(\"read_forms_into\", \"list from \" a \" to \" i)"},{"Add":" rvs[length(rvs)+1] = read_list(a+1, i-1, quote)"},{"Add":" quote = 0"},{"Add":"# logg_dbg(\"read_forms_into\", \"done from \" a \" to \" i) "},{"Add":" a = i+1"},{"Add":" } else {"},{"Add":"# logg_dbg(\"read_forms_into\", \"incomplete list, not reading\")"},{"Add":" # the list must not be completely input yet. we can't"},{"Add":" # read it."},{"Add":" return"},{"Add":" }"},{"Add":" } else if(t == \")\") {"},{"Add":" # we already dealt with positive nesting levels; this is"},{"Add":" # negative"},{"Add":" logg_err(\"read_forms_into\", \"too many )'s at \" _WHERE[length(_WHERE)])"},{"Add":" _forget_parse_state()"},{"Add":" return"},{"Add":" } else {"},{"Add":" logg_dbg(\"read_forms_into\", \"atom at \" a \" token is \" t \" quote? \" quote)"},{"Add":" rvs[length(rvs)+1] = read_atom(a, quote)"},{"Add":" quote = 0"},{"Add":" a++"},{"Add":" }"},{"Add":" }"},{"Add":"# logg_dbg(\"read_forms_into\", \"a \" a \" b \" b \" lrvs \" length(rvs))"},{"Add":" if(topp) {"},{"Add":" # we have read all the _TOKENS. but! maybe we are _INSIDE_STRING"},{"Add":" if(!_INSIDE_STRING) {"},{"Add":" # ok. we can forget everything."},{"Add":" _forget_parse_state()"},{"Add":" }"}],"del_contents":[{"Del":" if(match(ta[i[1]], /^\\(/)) {\n"},{"Del":"# logg_dbg(\"read_form\", \"( at token \" i[1])\n"},{"Del":" i[1] += 1\n"},{"Del":" return read_list(i,ta,tal,quote)\n"},{"Del":" } else {\n"},{"Del":" return read_atom(i,ta,tal,quote)\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":208,"ins":{"up_context":[{"change":4,"pos":5893}],"down_context":[{"change":4,"pos":5949}],"flag":"BLOCK","start":9029,"end":9546,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5893},"to":{"change":4,"start":696,"end":758},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":"# support older api, where we put one string in, and get one eval'd"},{"Add":"# value out. there can be multiple expressions so we'll return the"},{"Add":"# value of the last one. really this is a bit like _evprog but with an"},{"Add":"# awk array. anyway this is the api lib-eval.awk uses."},{"Add":"function eval_read_str(s, l, i, rv) {"},{"Add":" tokenize(s)"},{"Add":" read_forms_into(_TO_EVAL)"},{"Add":" l = length(_TO_EVAL)"},{"Add":" for(i=1; i<=l; i++)"},{"Add":" rv = _eval(_TO_EVAL[i])"},{"Add":" delete _TO_EVAL"},{"Add":"}"},{"Add":""},{"Add":"function read_list(a, b, quote, i, forms, prevtail, head) {"}],"del_contents":[{"Del":"function read_list(i, ta, tal, quote, prevtail, head) {\n"}]}},{"Edit":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":223,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":5967}],"down_context":[{"change":4,"pos":147}],"flag":"BLOCK","start":9547,"end":9564,"inode":{"change":4,"pos":4015}}},"contents":[{"Add":" delete forms"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":225,"ins":{"up_context":[{"change":4,"pos":225}],"down_context":[{"change":4,"pos":6663}],"flag":"BLOCK","start":9565,"end":10043,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":225},"to":{"change":4,"start":6044,"end":6102},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6044},"to":{"change":4,"start":6044,"end":6102},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6102},"to":{"change":4,"start":226,"end":298},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":298},"to":{"change":4,"start":6173,"end":6229},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6173},"to":{"change":4,"start":6173,"end":6229},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6229},"to":{"change":4,"start":299,"end":396},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":396},"to":{"change":4,"start":6330,"end":6377},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6330},"to":{"change":4,"start":6330,"end":6377},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6411},"to":{"change":4,"start":6411,"end":6579},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6579},"to":{"change":4,"start":397,"end":462},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":" ## orientation: _TOKENS[a-1] == \"(\" and _TOKENS[b+1] == \")\""},{"Add":" if(((b-a+1) >= 3) && _TOKENS[b-1] == \".\") {"},{"Add":" # the end of the list is dotted"},{"Add":"# logg_dbg(\"read_list\", \"dotted. reading forms \" b-2 \" and \" b \".\")"},{"Add":" read_forms_into(forms, a, b-2)"},{"Add":" read_forms_into(forms, b, b)"},{"Add":" head = _cons(forms[length(forms)-1], forms[length(forms)])"},{"Add":" delete forms[length(forms)]"},{"Add":" delete forms[length(forms)]"},{"Add":" delete forms[length(forms)]"}],"del_contents":[{"Del":" for(; (i[1]<=tal) && (ta[i[1]] !~ /^[).]/); i[1]++) {\n"},{"Del":"# logg_dbg(\"rd_l\", \"in loop, i is \" i[1] \"; token is \" ta[i[1]])\n"},{"Del":" head = _cons(read_form(i, ta, tal), head)\n }\n"},{"Del":"# logg_dbg(\"read_list\", \"after loop, i[1] is \" i[1] \"; token is \" ta[i[1]] \"; head is \" head)\n"},{"Del":" prevtail = head\n head = _nreverse(head)\n"},{"Del":" if(ta[i[1]] == \".\") {\n i[1] += 1\n _set_cdr(prevtail, read_form(i, ta, tal))\n i[1] += 1\n } else if(ta[i[1]] ~ /^\\)/) { # properly terminated\n"},{"Del":"# logg_dbg(\"read_list\", \"after _nreverse, head is \" head)\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":236,"ins":{"up_context":[{"change":4,"pos":6676}],"down_context":[{"change":4,"pos":759}],"flag":"BLOCK","start":10044,"end":10174,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6676},"to":{"change":4,"start":6676,"end":6776},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":" read_forms_into(forms, a, b)"},{"Add":" } "},{"Add":" for(i=length(forms); i>=1; i--) {"},{"Add":" head = _cons(forms[i], head)"}],"del_contents":[{"Del":" logg_err(\"read_list\", \"unbalanced parentheses at token: \" ta[i[1]-1])\n return _nil()\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":249,"ins":{"up_context":[{"change":4,"pos":6785}],"down_context":[{"change":4,"pos":6825}],"flag":"BLOCK","start":10175,"end":10232,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6785},"to":{"change":4,"start":929,"end":995},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":"function read_atom(a, quote, this, ans, self_quoting) {"}],"del_contents":[{"Del":"function read_atom(i, ta, tal, quote, this, ans, self_quoting) {\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":254,"ins":{"up_context":[{"change":4,"pos":6987}],"down_context":[{"change":4,"pos":996}],"flag":"BLOCK","start":10233,"end":10316,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6987},"to":{"change":4,"start":6987,"end":7007},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7007},"to":{"change":4,"start":517,"end":562},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":" this = _TOKENS[a]"},{"Add":" logg_dbg(\"read_atom\", \"token is \" this \" quote? \" quote)"}],"del_contents":[{"Del":" this = ta[i[1]]\n"},{"Del":"# logg_dbg(\"read_atom\", \"token is \" this)\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":268,"ins":{"up_context":[{"change":4,"pos":7397}],"down_context":[{"change":4,"pos":7428}],"flag":"BLOCK","start":10317,"end":10403,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7397},"to":{"change":4,"start":7397,"end":7428},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":" if(substr(this, 1, 1) == \"\\\"\") {"},{"Add":"# logg_dbg(\"read_atom\", \"string\")"}],"del_contents":[{"Del":" if(ta[i[1]] ~ \"^\\\"\") {\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":271,"ins":{"up_context":[{"change":4,"pos":7455}],"down_context":[{"change":4,"pos":7523}],"flag":"BLOCK","start":10404,"end":10463,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7455},"to":{"change":4,"start":1135,"end":1202},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":" ans = _string(substr(this, 2, length(this)-2))"}],"del_contents":[{"Del":" ans = _string(substr(ta[i[1]], 2, length(ta[i[1]])-2))\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":274,"ins":{"up_context":[{"change":4,"pos":1232}],"down_context":[{"change":4,"pos":1268}],"flag":"BLOCK","start":10464,"end":10496,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1232},"to":{"change":4,"start":1232,"end":1268},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":" ans = _symbol(this)"}],"del_contents":[{"Del":" ans = _symbol(ta[i[1]])\n"}]}},{"Edit":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":288,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":1638},"to":{"change":4,"start":7593,"end":7766},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7593},"to":{"change":4,"start":7593,"end":7766},"introduced_by":4}],"inode":{"change":4,"pos":4015}}},"contents":[{"Del":"}\n\nfunction _smoke_test_reader_tokenizer() {\n tokenize_into(\" ,~@(foo)\", ta)\n for(ti=1; ti<=length(ta); ti++) {\n print \"tokenarray[\" ti \"] = \" ta[ti]\n }\n"}]}},{"Replacement":{"inode":{"change":4,"pos":4015},"path":"reader.awk","line":290,"ins":{"up_context":[{"change":4,"pos":7769}],"down_context":[{"change":4,"pos":7942}],"flag":"BLOCK","start":10497,"end":11314,"inode":{"change":4,"pos":4015}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7769},"to":{"change":4,"start":7769,"end":7942},"introduced_by":4}],"inode":{"change":4,"pos":4015}},"ins_contents":[{"Add":"function _incomplete_parse_at_end( i, l, nesting_level, unclosed) {"},{"Add":" delete unclosed"},{"Add":" l = length(_TOKENS)"},{"Add":" if(l) {"},{"Add":" if(_INSIDE_STRING) {"},{"Add":" logg_err(\"_incomplete_parse_at_end\","},{"Add":" \"still inside string begun at \" _WHERE[l])"},{"Add":" }"},{"Add":" for(i=1; i<=l; i++) {"},{"Add":" if(_TOKENS[i] == \"(\") {"},{"Add":" unclosed[length(unclosed)+1] = i"},{"Add":" } else if(_TOKENS[i] == \")\") {"},{"Add":" delete unclosed[length(unclosed)]"},{"Add":" }"},{"Add":" }"},{"Add":" if(length(unclosed) > 0) {"},{"Add":" for(i=length(unclosed); i>=1; i--) {"},{"Add":" logg_err(\"_incomplete_parse_at_end\","},{"Add":" \"still inside list (\" _TOKENS[unclosed[i]+1] \\"},{"Add":" \"... begun at \" _WHERE[unclosed[i]])"},{"Add":" }"},{"Add":" }"},{"Add":" } "}],"del_contents":[{"Del":"function _smoke_test_reader() {\n x = read_str(\"(foo \\\"bar\\\" baz 3.14159 (sublist 1 2 3))\", ta)\n logg_inf(\"_smoke_test_reader\", \"final result: \" x \", being \" _repr(x))\n"}]}},{"Edit":{"inode":{"change":4,"pos":10323},"path":"logging.awk","line":75,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":1181}],"down_context":[{"change":4,"pos":1367}],"flag":"BLOCK","start":11315,"end":11483,"inode":{"change":4,"pos":10323}}},"contents":[{"Add":"}"},{"Add":""},{"Add":""},{"Add":"function logg_dbg_array(tag, arr_name, arr, d, l, i) {"},{"Add":" l = length(arr)"},{"Add":" for(i=1; i<=l; i++) {"},{"Add":" logg_dbg(tag, arr_name \"[\" i \"] = \" arr[i], d)"},{"Add":" }"}]}},{"Replacement":{"inode":{"change":4,"pos":21710},"path":"lib-eval.awk","line":10,"ins":{"up_context":[{"change":4,"pos":17006}],"down_context":[{"change":4,"pos":21804}],"flag":"BLOCK","start":11484,"end":11505,"inode":{"change":4,"pos":21710}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":17006},"to":{"change":4,"start":21782,"end":21804},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":21782},"to":{"change":4,"start":21782,"end":21804},"introduced_by":4}],"inode":{"change":4,"pos":21710}},"ins_contents":[{"Add":" eval_read_str(\"\\"}],"del_contents":[{"Del":" _eval(read_str(\"\\\n"}]}},{"Replacement":{"inode":{"change":4,"pos":21710},"path":"lib-eval.awk","line":52,"ins":{"up_context":[{"change":4,"pos":1236}],"down_context":[{"change":4,"pos":506}],"flag":"BLOCK","start":11506,"end":11510,"inode":{"change":4,"pos":21710}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1236},"to":{"change":4,"start":501,"end":506},"introduced_by":4}],"inode":{"change":4,"pos":21710}},"ins_contents":[{"Add":")\")"}],"del_contents":[{"Del":")\"))\n"}]}},{"Replacement":{"inode":{"change":4,"pos":21710},"path":"lib-eval.awk","line":54,"ins":{"up_context":[{"change":4,"pos":511}],"down_context":[{"change":4,"pos":533}],"flag":"BLOCK","start":11511,"end":11532,"inode":{"change":4,"pos":21710}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":511},"to":{"change":4,"start":511,"end":533},"introduced_by":4}],"inode":{"change":4,"pos":21710}},"ins_contents":[{"Add":" eval_read_str(\"\\"}],"del_contents":[{"Del":" _eval(read_str(\"\\\n"}]}},{"Replacement":{"inode":{"change":4,"pos":21710},"path":"lib-eval.awk","line":108,"ins":{"up_context":[{"change":3,"pos":605}],"down_context":[{"change":4,"pos":2424}],"flag":"BLOCK","start":11533,"end":11537,"inode":{"change":4,"pos":21710}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":605},"to":{"change":4,"start":2419,"end":2424},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2419},"to":{"change":4,"start":2419,"end":2424},"introduced_by":4}],"inode":{"change":4,"pos":21710}},"ins_contents":[{"Add":")\")"}],"del_contents":[{"Del":")\"))\n"}]}},{"Replacement":{"inode":{"change":4,"pos":21710},"path":"lib-eval.awk","line":110,"ins":{"up_context":[{"change":4,"pos":2425}],"down_context":[{"change":4,"pos":2447}],"flag":"BLOCK","start":11538,"end":11559,"inode":{"change":4,"pos":21710}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2425},"to":{"change":4,"start":2425,"end":2447},"introduced_by":4}],"inode":{"change":4,"pos":21710}},"ins_contents":[{"Add":" eval_read_str(\"\\"}],"del_contents":[{"Del":" _eval(read_str(\"\\\n"}]}},{"Replacement":{"inode":{"change":4,"pos":21710},"path":"lib-eval.awk","line":170,"ins":{"up_context":[{"change":4,"pos":3368}],"down_context":[{"change":4,"pos":692}],"flag":"BLOCK","start":11560,"end":11563,"inode":{"change":4,"pos":21710}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":3368},"to":{"change":4,"start":23691,"end":23695},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":23691},"to":{"change":4,"start":23691,"end":23695},"introduced_by":4}],"inode":{"change":4,"pos":21710}},"ins_contents":[{"Add":"\")"}],"del_contents":[{"Del":"\"))\n"}]}},{"Edit":{"inode":{"change":4,"pos":23803},"path":"gc.awk","line":105,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":3825}],"down_context":[{"change":4,"pos":3825}],"flag":"BLOCK","start":11564,"end":11602,"inode":{"change":4,"pos":23803}}},"contents":[{"Add":" # just run it with null filenames"}]}},{"Edit":{"inode":{"change":4,"pos":23803},"path":"gc.awk","line":107,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":3850}],"down_context":[{"change":4,"pos":3850}],"flag":"BLOCK","start":11603,"end":12278,"inode":{"change":4,"pos":23803}}},"contents":[{"Add":"}"},{"Add":""},{"Add":"function _maybe_gc() {"},{"Add":" if(N > (N_at_last_gc + GC_EVERY)) {"},{"Add":"# for debugging garbage collector:"},{"Add":"# logg_dbg(\"rep\", \"auto-gc at N \" N)"},{"Add":"# _dump_dot(\"pre-gc-\" N \".dot\")"},{"Add":"# _gc_dot(_cons(_GLOBALS,"},{"Add":"# _cons(_MACROS,"},{"Add":"# _cons(_COMPARED_SYMBOLS,"},{"Add":"# _nil()))),"},{"Add":"# \"auto-gc-\" N \"-marks.dot\","},{"Add":"# \"auto-gc-\" N \"-sweeps.dot\")"},{"Add":"# _dump_dot(\"post-gc-\" N \".dot\")"},{"Add":""},{"Add":" _gc(_cons(_GLOBALS,"},{"Add":" _cons(_MACROS,"},{"Add":" _cons(_COMPARED_SYMBOLS,"},{"Add":" _nil())))) "},{"Add":" N_at_last_gc = N"},{"Add":" }"}]}}],"owner":"jaredj","repo":"glotawk","token":"Xx+bXnswAmDxpdHogfX4JT4MwwowjHEKmeqBxt+z4dw=","login":null}

…

Dependencies

Change contents