diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-12-03 07:27:22 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-12-03 07:27:22 -0500 |
| commit | 4fd2a26de3a2a2e5e09443a6a686c23492b4eb95 (patch) | |
| tree | e937f8d1ad37e939b6495c75a5b484d553b82c6f /src | |
| parent | 66a9f5aa79c5db0f52770ec6500ebd49dbd991aa (diff) | |
Support CR as a separator character
Diffstat (limited to 'src')
| -rw-r--r-- | src/c.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1,5 +1,5 @@ func‿mod1‿mod2 ← •args -lf←@+10 +lf←@+10‿13 charSet‿cgl←(∾ ⋈ ≠¨)⟨ func # Function mod1 # 1-modifier @@ -44,7 +44,7 @@ Tokenize←{System‿vars←𝕨 # Resolve comments and strings c←𝕩='#'⋄s←/0‿0⊸«⊸∧sm←𝕩='''⋄d←/dm←𝕩='"' g←⍋q←∾⟨ s⋄¯1↓d⋄/c⟩ ⋄q↩g⊏q # Open indices - e← g⊏∾⟨2+s⋄ 1↓d⋄-⟜»∘⊏⟜(0∾+`c)⊸//(𝕩=lf)∾1⟩ # Matching close indices + e← g⊏∾⟨2+s⋄ 1↓d⋄-⟜»∘⊏⟜(0∾+`c)⊸//(𝕩∊lf)∾1⟩ # Matching close indices Se←{(⊏˜𝕨)Se 1¨⌾((𝕩/𝕨)⊸⊏)𝕩}⍟(0=¯1⊑⊢) # Mark reachable openings St←(≠𝕩)↑·/⁼((≠↑∾⟜≠Se 1∾0¨)q⍋e)⊸/ # All indices → reached mask a←St q⋄b←St e⋄f←1≠`ab←a∨b # Open/close masks; filter |
