aboutsummaryrefslogtreecommitdiff
path: root/wc.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-06 14:43:27 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-09-06 14:47:06 -0400
commit7335545abf46a399f17d7e86d923d3268788b128 (patch)
tree045647b2d3fef67bf182e46bf6f888f6f5b820cf /wc.bqn
parentf45f2d4ab369412bbe95f1d7b8a49b45c964d068 (diff)
Simplify compiler constant definitions
Diffstat (limited to 'wc.bqn')
-rw-r--r--wc.bqn10
1 files changed, 5 insertions, 5 deletions
diff --git a/wc.bqn b/wc.bqn
index bbb5045e..23f12ee6 100644
--- a/wc.bqn
+++ b/wc.bqn
@@ -2,12 +2,12 @@
# WebAssembly backend (very incomplete)
-i←"⟨charGroups,Tokenize,ReadNum⟩"
-⟨charGroups,Tokenize,ReadNum⟩ ← ⟨•path∾"src/c.bqn",i⟩ •EX •path∾"dzref"
-chF←"+-×÷⋆√⌊⌈|¬∧∨<>≠=≤≥≡≢⊣⊢⥊∾≍↑↓↕⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔!"
-bF‿bM‿bC‿bS‿bG‿bB‿bL‿bO‿bI‿bU‿bD‿bN‿bA‿bW←≍¨˜⟜(+`≠↑0∾⊢)≠¨charGroups
+i←"⟨cgl,charSet,Tokenize,ReadNum⟩"
+⟨cgl,charSet,Tokenize,ReadNum⟩ ← ⟨•path∾"src/c.bqn",i⟩ •EX •path∾"dzref"
+chF←(⊑cgl)↑charSet
+bF‿bM‿bC‿bS‿bG‿bB‿bL‿bO‿bI‿bU‿bD‿bN‿bA‿bW←≍¨˜⟜(+`≠↑0∾⊢)cgl
M←1⊸⊑(0⊸≤∧>)-⟜⊑
-vi←+´≠¨9↑charGroups
+vi←⊑bU
WParse←{
a←𝕩M(2≍˜⊑bG)⋄at←1⌽a⋄𝕩/˜↩¬a⋄a/˜↩¬at