diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-28 16:53:27 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-28 16:53:27 -0400 |
| commit | 0e8dab90bf1a366ca777fa3ea6aafff3c62386e8 (patch) | |
| tree | 8462114231113c821e4cd33b0c267033e85b6f6f /src/cjs.bqn | |
| parent | 382dddfbdd49cc176744ec00ba57e5787cd94620 (diff) | |
Add r0 and r1 options to cjs.bqn
Diffstat (limited to 'src/cjs.bqn')
| -rwxr-xr-x | src/cjs.bqn | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn index ecdb2990..ed5f112a 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -28,15 +28,16 @@ Fout ← (≠↑⟨F,Fconst,L F¨,F⟩˙) {L𝕎¨𝕩}¨ ⊢ Long ← ∾ (≠↑1‿3/⟨" "⊸∾⋄((@+10)∾" ,")⊸∾⟩˙) {𝕎𝕩}¨ ⊢ LFC ← Long∘Fout∘Comp -RT ← {𝕩 - src‿need←•Import"pr.bqn" ⋄ l←≠∾need - Long "provide"⊸Cat⌾(1⊸⊑) Fout l⊸↓⌾(1⊸⊑) (↕l) need _getComp src +RT ← { + src‿need‿inputs←𝕩•Import"pr.bqn" + pr←"runtime_0"‿"provide"{(∾𝕨<⊸(<∘Ind⟜F¨)⟜(↕≠)¨𝕩)⊏˜(∾𝕩)⊐∾need}○((-1+0<𝕩)⊸↑)inputs + Long Fout pr need _getComp src } CArg ← {J (¯5⊸↓∾𝕩˙)⌾⊑ •FLines "c.bqn"} SVG ← {∾⟨"Modify←GetHighlights←⊢⋄"⟩∾ •FChars∘∾⟜".bqn"¨ "../svg"‿𝕩} -•Out (⊑"r"‿"c"‿"cc"‿"f"‿"e"‿"p"⊐⊏)◶⟨ - RT +•Out (⊑"r"‿"r0"‿"r1"‿"c"‿"cc"‿"f"‿"e"‿"p"⊐⊏)◶⟨ + RT∘⟨⟩, RT∘0, RT∘1 {𝕩⋄LFC CArg "⟨"∾"⟩"«∾","⊸∾¨'"'(⊣∾∾˜)¨glyphs} {𝕩⋄LFC "{"∾"}"∾˜CArg"𝕩"} {𝕩⋄LFC •FChars "f.bqn"} |