start debugging current state of affairs: add comments with compile errors

This commit is contained in:
Scott Richmond 2024-04-06 17:00:22 -04:00
parent bb42ca7ca4
commit 42907f19d7

View File

@ -84,7 +84,7 @@ The idea, however, is that Jesus: we must not have test-rule and apply-rule: com
nil))
(defn apply-table
"Applies a struct-based rule."
"Applies a table-based rule."
[rule parser]
(def curr (current parser))
(def rule-fn (get rule :rule))
@ -196,7 +196,7 @@ The idea, however, is that Jesus: we must not have test-rule and apply-rule: com
(while (not passing)
(array/push skipped (current parser))
(advance parser)
(set passing (apply-rule rule parser))
(set passing (apply-rule rule parser)) ### compile error: unknown symbol rule
(print "phew; I'm done panicking")
(pprint (current parser))
(def the-error {:type :error :expected expected :token origin :skipped skipped})
@ -213,7 +213,7 @@ The idea, however, is that Jesus: we must not have test-rule and apply-rule: com
(var passing true)
(def origin (stash parser))
(pprint origin)
(set failing nil)
(set failing nil) ### compile error: unknonw symbol failing
(loop [rule :in rules :while passing]
(def pass? (apply-rule rule parser))
(when (not pass?)
@ -247,7 +247,7 @@ The idea, however, is that Jesus: we must not have test-rule and apply-rule: com
:rule (fn order-1 [parser]
(def result (test (first rules) parser))
(if result
(apply-rule (order-0 ;rules))
(apply-rule (order-0 ;rules)) ### compile error: unknown symbol order-0
nil))})
(defn capture-group
@ -328,9 +328,9 @@ The idea, however, is that Jesus: we must not have test-rule and apply-rule: com
(def parser (new-parser tokens))
(try
(do (apply-rule rule parser) parser)
([err] err))
([err] err)))
(upscope
(upscope #XXX for repl use
(defn literal->ast [token] {:type (get token :type) :data (get token :literal) :token token})