blob: e918518e5a07c2647d5063369579a780eb89996d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/env dbqn
# Process BQN runtime
# All primitives
chrs←•Import "glyphs.bqn"
glyphs ⇐ ∾chrs
# Provided values, to be passed in through the constants array
def ← ⟨"Type","Fill","Log","GroupLen","GroupOrd","_fillBy_"⟩
keep ← "!+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘⎊"
len ⇐ def+○≠keep
GetRepls ← {
c‿n ← 𝕩
ki ← (⊑¨c)⊐keep
dt ← ⊔⟜⊒ (+´·∧`'_'=0‿¯1⊸⊏)¨ def
ns ← » ne←+`≠¨chrs
kt ← ∾ (ns+≠¨dt) + ⊔⟜⊒ne⍋ki
⟨c,(kt⊏c)⌾(ki⊸⊏)n⟩∾¨⟨def,(∾ns+dt)⊏c⟩
}
⟨E_proc⟩ ← chrs‿GetRepls •Import "pp.bqn"
gd ← "glyphs←"""∾glyphs∾"%"""
rslt ← "⟨"∾"⟩"«∾","⊸∾¨glyphs # Output all primitives
src ← ∾⟨⟨gd⟩,•FLines"r.bqn",⟨"{PrimInd↩⊑𝕩⊐<⋄𝕩‿SetPrims}"∾rslt⟩⟩
ref ⇐ ∾∾⟜(@+10)¨ E_proc¨ src
|
