diff options
Diffstat (limited to 'test/dz_comp')
| -rwxr-xr-x | test/dz_comp | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/test/dz_comp b/test/dz_comp index ebdee6a0..67fef043 100755 --- a/test/dz_comp +++ b/test/dz_comp @@ -6,18 +6,20 @@ nc‿rt‿prim ← "-nocomp"‿"-rt"‿"-prim" ∊ •args ⟨DRun,DCompile⟩ ← •Import "../dc.bqn" GetRT ← {𝕤: - ⟨ref⟩ ← •Import "../src/pr.bqn" + ⟨ref,glyphs⟩ ← •Import "../src/pr.bqn" + PrimInd ← {⊑rt⊐<𝕩} + Decompose ← ((≠glyphs)>PrimInd)◶⟨•Decompose,0⊸≍⟩ provide ← ⟨ - •Type # Type - •Decompose # Decompose - •Glyph # Glyph - ⊑⟨⟩⥊0⊸⥊ # GetFill - ⋆⁼ # Log - ≠¨⊔ # GroupLen - ∾⊔∘⊢ # GroupOrd + •Type # Type + Decompose # Decompose + glyphs⊑˜PrimInd # Glyph + ⊑⟨⟩⥊0⊸⥊ # GetFill + ⋆⁼ # Log + ≠¨⊔ # GroupLen + ∾⊔∘⊢ # GroupOrd !,+,-,×,÷,⋆,⌊,=,≤,≢,⥊,⊑,↕,⌜,`,⊘ ⟩ - •COMP provide⊸(⊣»«)⌾(1⊸⊑) DCompile ref + rt ← •COMP provide⊸(⊣»«)⌾(1⊸⊑) DCompile ref } Native ← {⍎𝕩} |