Handle whitespace, comments, and alternate separators

1 files changed, 5 insertions, 2 deletions

diff --git a/c.bqn b/c.bqn
index e102df81..087075cb 100755
--- a/c.bqn
+++ b/c.bqn
@@ -1,9 +1,12 @@
 #!/usr/bin/env bqn
 Parse←{
   ⟨⟩Parse𝕩;args←𝕨⋄x←𝕩
-  seps←"⋄,"∾•UCS 10⋄x(/˜)↩¬(1⌾⊑1⌽1⌾⊑)⊸∧x∊seps
+  lf‿tab←•UCS 10‿9
+  x(/˜)↩¬(x∊' '∾tab)∨<○(⌈`↕∘≠⊸×)´(lf∾'⍝')=⌜x
+  seps←"⋄,"∾lf⋄x(/˜)↩¬(1⌾⊑1⌽1⌾⊑)⊸∧x∊seps
   a←x∊"←↩"⋄at←1⌽a⋄vars←at/x⋄x(/˜)↩¬a⋄a(/˜)↩¬at
-  l←≠x⋄o←x='('⋄c←x=')'⋄sep←x∊seps⋄v←a-˜x∊•d∾args∾vars⋄f←¬o∨c∨v∨sep
+  l←≠x⋄sep←x∊seps⋄x↩'⋄'¨⌾(sep⊸/)x
+  o←x='('⋄c←x=')'⋄v←a-˜x∊•d∾args∾vars⋄f←¬o∨c∨v∨sep
   na←(2×sep)+f×1+l↑0∾c∨v
   e←/c⋄d←+`o-c
   ed←e⊏d⋄b←(⍋⍋ed)⊏(⍋⊏⟜d)⊸⊏/o