mirror of
https://github.com/urbit/ares.git
synced 2024-11-22 15:08:54 +03:00
ska spec: remove old non-dd code generator
This commit is contained in:
Edward Amsden
parent
0b6c4f8a1d
commit
8a502b9d20
@ -1,955 +0,0 @@
|
|||||||
:: TODO:
|
|
||||||
:: ?= in wide form
|
|
||||||
:: fix ?- and ?+
|
|
||||||
/- *sock
|
|
||||||
/- *gene
|
|
||||||
/+ ska
|
|
||||||
=| prog=tabl
|
|
||||||
=| buff=lock
|
|
||||||
=| bust=(list [buff=lock])
|
|
||||||
=| gab=gabl
|
|
||||||
=* this .
|
|
||||||
=<
|
|
||||||
|%
|
|
||||||
:: Write an instruction to the program buffer
|
|
||||||
++ inst
|
|
||||||
|= [=lick]
|
|
||||||
^- _this
|
|
||||||
this(buff [lick buff])
|
|
||||||
++ gibl
|
|
||||||
^- [gabl _this]
|
|
||||||
[gab this(gab .+(gab))]
|
|
||||||
:: Finish writing a procedure
|
|
||||||
++ done
|
|
||||||
|= says=boot
|
|
||||||
^- [boot _this]
|
|
||||||
:- says
|
|
||||||
this(prog (~(put by prog) bloc [(flop buff) says]), buff ~)]
|
|
||||||
:: Procrastinate on the current procedure, start
|
|
||||||
:: writing the one with a new label
|
|
||||||
++ proc
|
|
||||||
^- _this
|
|
||||||
this(bust [buff bust], buff ~)
|
|
||||||
:: Done procrastinating, work on the procedure we
|
|
||||||
:: were doing
|
|
||||||
++ crop
|
|
||||||
^- _this
|
|
||||||
?< ?~ bust
|
|
||||||
this(buff buff.i.bust, bust t.bust)
|
|
||||||
:: Generate code for a formula
|
|
||||||
::
|
|
||||||
:: TODO: add crash instruction %bom, generate whenever
|
|
||||||
:: returning [%boom ~]
|
|
||||||
++ gene
|
|
||||||
|= blos=labl
|
|
||||||
=| mod=mode
|
|
||||||
=/ bloc blos
|
|
||||||
|^
|
|
||||||
^- [boot _this]
|
|
||||||
?- mod
|
|
||||||
::
|
|
||||||
%save
|
|
||||||
?+ for.bloc boom
|
|
||||||
::
|
|
||||||
[[* *] *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ hed this $(for.bloc -.for.bloc)
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ tal this $(for.bloc +.for.bloc)
|
|
||||||
=. this (inst [%cel 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(cobb:ska hed tal) this]
|
|
||||||
::
|
|
||||||
[%0 @]
|
|
||||||
?: .= +.for.bloc 0
|
|
||||||
bomb
|
|
||||||
=. (inst [%axe +.for.bloc])
|
|
||||||
[(pull:ska +.for.bloc sub.bloc) this]
|
|
||||||
::
|
|
||||||
[%1 *]
|
|
||||||
=. (inst [%con +.for.bloc])
|
|
||||||
[[%safe %know +.for.bloc] this]
|
|
||||||
::
|
|
||||||
[%2 * *]
|
|
||||||
=. this (inst [%puh 3])
|
|
||||||
=. this (inst [%sav 1])
|
|
||||||
=^ news this $(for.bloc +<.for.bloc, mod %step)
|
|
||||||
?: ?= [%boom ~] news
|
|
||||||
boom
|
|
||||||
=/ nows
|
|
||||||
?- news
|
|
||||||
[%safe *] sure.news
|
|
||||||
[%risk *] risk.news
|
|
||||||
==
|
|
||||||
=/ shis this
|
|
||||||
=. this (inst [%put 2])
|
|
||||||
=. this (inst [%reo 1])
|
|
||||||
=^ newf this $(for.bloc +>.for.bloc, mod %step)
|
|
||||||
=. this (inst [%reo 2])
|
|
||||||
?: ?= [%boom ~] newf
|
|
||||||
bomb
|
|
||||||
?: ?= [%safe %know *] newf
|
|
||||||
=. this shis
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=/ nabl [nows know.sure.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%cal nabl])
|
|
||||||
=. this (inst [%reo 1])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
?: ?= [%safe *] news
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
?: ?= [%risk %know *] newf
|
|
||||||
=/ nabl [nows know.hope.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%cal nabl])
|
|
||||||
=. this (inst [%reo 1])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(dare res) this]
|
|
||||||
=. this (inst [%lnk ~])
|
|
||||||
=. this (inst [%reo 1])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[[%risk %gues ~] this]
|
|
||||||
::
|
|
||||||
[%3 *]
|
|
||||||
=^ non this $(for.bloc +.for.bloc)
|
|
||||||
=. this (inst [%clq ~])
|
|
||||||
[(ques:ska non) this]
|
|
||||||
::
|
|
||||||
[%4 *]
|
|
||||||
=^ num this $(for.bloc +.for.bloc)
|
|
||||||
=. this (inst [%inc ~])
|
|
||||||
[(pile:ska num) this]
|
|
||||||
::
|
|
||||||
[%5 * *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ nox this $(for.bloc +<.for.bloc)
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ noy this $(for.bloc +>.for.bloc)
|
|
||||||
=. this (inst [%eqq 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(bopp nox noy) this]
|
|
||||||
::
|
|
||||||
[%6 * * *]
|
|
||||||
=/ shis this
|
|
||||||
=^ tes this $(for.bloc +<.for.bloc)
|
|
||||||
?: ?= [%boom ~] tes
|
|
||||||
boom
|
|
||||||
?: ?= [%safe %know 0] tes
|
|
||||||
=. this shis
|
|
||||||
=^ res this $(for.bloc +>-.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?= [%safe %know 1] tes
|
|
||||||
=. this shis
|
|
||||||
=^ res this $(for.bloc +>+.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?= [%risk %know 0] tes
|
|
||||||
=^ res this $(for.bloc +>-.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?= [%risk %know 1] tes
|
|
||||||
=^ res this $(for.bloc +>+.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?| ?= [%safe %know *] tes
|
|
||||||
?= [%safe %bets *] tes
|
|
||||||
?= [%risk %know *] tes
|
|
||||||
?= [%risk %bets *] tes
|
|
||||||
==
|
|
||||||
boom
|
|
||||||
=^ gib this gibl
|
|
||||||
=^ geb this gibl
|
|
||||||
=. this (inst [%br1 gib])
|
|
||||||
=^ roo this $(for.bloc +>-.for.bloc)
|
|
||||||
=. this (inst [%bru geb])
|
|
||||||
=. this (inst [%brh gib])
|
|
||||||
=^ ral this $(for.bloc +>+.for.bloc)
|
|
||||||
=. this (inst [%brh geb])
|
|
||||||
?: ?= [%safe %flip ~] tes
|
|
||||||
[(gnaw roo ral) this]
|
|
||||||
[(dare (gnaw roo ral)) this]
|
|
||||||
::
|
|
||||||
[%7 * *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=. this (inst [%sav 0])
|
|
||||||
=^ news this $(for.bloc +<.for.bloc, mod %step)
|
|
||||||
?: ?= [%boom ~] news
|
|
||||||
boom
|
|
||||||
=/ nows
|
|
||||||
?- news
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.news
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.news
|
|
||||||
==
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=^ res this $(for.bloc +>.for.bloc, sub.bloc nows, mod %step)
|
|
||||||
=. this (inst [%reo 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
?: ?= [%safe *] news
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
::
|
|
||||||
[%8 * *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=. this (inst [%sav 0])
|
|
||||||
=^ newh this $(for.bloc +<.for.bloc, mod %step)
|
|
||||||
?: ?= [%boom ~] newh
|
|
||||||
boom
|
|
||||||
=/ nowh
|
|
||||||
?- newh
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.newh
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.newh
|
|
||||||
==
|
|
||||||
=. this (inst [%ext ~])
|
|
||||||
=^ res $(for.bloc +>.for.bloc, sub.bloc (knit nows sub.bloc), mod %step)
|
|
||||||
=. this (inst [%reo 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
?: ?= [%safe *] newh
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
::
|
|
||||||
[%9 @ *]
|
|
||||||
=. this (inst [%puh 2])
|
|
||||||
=. this (inst [%sav 1])
|
|
||||||
=^ newc this $(for.bloc +>.for.bloc, mod %step)
|
|
||||||
?: ?= newc [%boom ~]
|
|
||||||
boom
|
|
||||||
=/ nowc
|
|
||||||
?- newc
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.newc
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.newc
|
|
||||||
==
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=/ newf (pull +<.for.bloc nowc)
|
|
||||||
?: ?= [%boom ~] newf
|
|
||||||
boom
|
|
||||||
=/ shis this
|
|
||||||
=. this (inst [%axe +<.for.bloc])
|
|
||||||
?: ?= [%safe %know *] newf
|
|
||||||
=. this shis
|
|
||||||
=/ nabl [nowc know.sure.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%cal nabl])
|
|
||||||
=. this (inst [%reo 1])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
?: ?= [%safe *] newc
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
?: ?= [%risk %know *] newf
|
|
||||||
=/ nabl [nowc know.hope.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%cal nabl])
|
|
||||||
=. this (inst [%reo 1])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(dare res) this]
|
|
||||||
=. this (inst [%lnk ~])
|
|
||||||
=. this (inst [%reo 1])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[[%risk %gues ~] this]
|
|
||||||
::
|
|
||||||
[%10 [@ *] *]
|
|
||||||
=. this (inst [%puh 2])
|
|
||||||
=. this (inst [%sav 0])
|
|
||||||
=^ wole this $(for.bloc +>.for.bloc, mod %step)
|
|
||||||
?: ?= [%boom ~] wole
|
|
||||||
boom
|
|
||||||
=. this (inst [%put 1])
|
|
||||||
=. this (inst [%reo 0])
|
|
||||||
=^ pach this $(for.bloc +<+.for.bloc, mod %step)
|
|
||||||
?: ?= [%boom ~] pach
|
|
||||||
boom
|
|
||||||
=. this (inst [%reo 1])
|
|
||||||
=. this (inst [%edt +<-.for.bloc])
|
|
||||||
=. this (inst [%reo 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(welt axe pach wole) this]
|
|
||||||
::
|
|
||||||
[%11 @ *]
|
|
||||||
$(for.bloc +>.for.bloc)
|
|
||||||
::
|
|
||||||
[%11 [* *] *]
|
|
||||||
=/ shis this
|
|
||||||
=^ hnt this $(for.bloc +<+.for.bloc)
|
|
||||||
?: ?= [%safe *] hnt
|
|
||||||
=. this shis
|
|
||||||
$(for.bloc +>.for.bloc)
|
|
||||||
$(for.bloc +>.for.bloc)
|
|
||||||
::
|
|
||||||
[%12 * *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ ref this $(for.bloc +<.for.bloc)
|
|
||||||
?: ?= [%boom ~] ref
|
|
||||||
boom
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ pat this $(for.bloc +<
|
|
||||||
?: ?= [%boom ~] pat
|
|
||||||
boom
|
|
||||||
=. this (inst [%cel 0])
|
|
||||||
=. this (inst [%spy ~])
|
|
||||||
[[%risk %gues ~] this]
|
|
||||||
==
|
|
||||||
::
|
|
||||||
%step
|
|
||||||
?+ for.bloc boom
|
|
||||||
::
|
|
||||||
[[* *] *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ hed this $(for.bloc -.for.bloc, mod %save)
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ tal this $(for.bloc +.for.bloc)
|
|
||||||
=. this (inst [%cel 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(cobb:ska hed tal) this]
|
|
||||||
::
|
|
||||||
[%0 @]
|
|
||||||
=. (inst [%axe +.for.bloc])
|
|
||||||
[(pull:ska +.for.bloc sub.bloc) this]
|
|
||||||
::
|
|
||||||
[%1 *]
|
|
||||||
=. (inst [%con +.for.bloc])
|
|
||||||
[[%safe %know +.for.bloc] this]
|
|
||||||
::
|
|
||||||
[%2 * *]
|
|
||||||
=. this (inst [%puh 2])
|
|
||||||
=^ news this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] news
|
|
||||||
bomb
|
|
||||||
=/ nows
|
|
||||||
?- news
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.news
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.news
|
|
||||||
==
|
|
||||||
=/ shis this
|
|
||||||
=. this (inst [%put 1])
|
|
||||||
=^ newf this $(for.bloc +>.for.bloc)
|
|
||||||
=. this (inst [%reo 1])
|
|
||||||
?: ?= [%boom ~] newf
|
|
||||||
bomb
|
|
||||||
?: ?= [%safe %know *] newf
|
|
||||||
=. this shis
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=/ nabl [nows know.sure.newf)
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%cal nabl])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
?: ?= [%safe *] news
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
?: ?= [%risk %know *] newf
|
|
||||||
=/ nabl [nows know.hope.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%cal nabl])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(dare res) this]
|
|
||||||
=. this (inst [%lnk ~])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[[%risk %gues ~] this]
|
|
||||||
::
|
|
||||||
[%3 *]
|
|
||||||
=^ non this $(for.bloc +.for.bloc)
|
|
||||||
=. this (inst [%clq ~])
|
|
||||||
[(ques:ska non) this]
|
|
||||||
::
|
|
||||||
[%4 *]
|
|
||||||
=^ num this $(for.bloc +.for.bloc)
|
|
||||||
=. this (inst [%inc ~]
|
|
||||||
[(pile:ska num) this]
|
|
||||||
::
|
|
||||||
[%5 * *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ nox this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ noy this $(for.bloc +>.for.bloc)
|
|
||||||
=. this (inst [%eqq 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(bopp nox noy) this]
|
|
||||||
::
|
|
||||||
[%6 * * *]
|
|
||||||
=/ shis this
|
|
||||||
=^ tes this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] tes
|
|
||||||
boom
|
|
||||||
?: ?= [%safe %know 0] tes
|
|
||||||
=. this shis
|
|
||||||
=^ res this $(for.bloc +>-.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?= [%safe %know 1] tes
|
|
||||||
=. this shis
|
|
||||||
=^ res this $(for.bloc +>+.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?= [%risk %know 0] tes
|
|
||||||
=^ res this $(for.bloc +>-.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?= [%risk %know 1] tes
|
|
||||||
=^ res this $(for.bloc +>+.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?| ?= [%safe %know *] tes
|
|
||||||
?= [%safe %bets *] tes
|
|
||||||
?= [%risk %know *] tes
|
|
||||||
?= [%risk %bets *] tes
|
|
||||||
==
|
|
||||||
boom
|
|
||||||
=^ gib this gibl
|
|
||||||
=^ geb this gibl
|
|
||||||
=. this (inst [%br1 gib])
|
|
||||||
=^ roo this $(for.bloc +>-.for.bloc)
|
|
||||||
=. this (inst [%bru geb])
|
|
||||||
=. this (inst [%brh gib])
|
|
||||||
=^ ral this $(for.bloc +>+.for.bloc)
|
|
||||||
=. this (inst [%brh geb])
|
|
||||||
?: ?= [%safe %flip ~] tes
|
|
||||||
[(gnaw roo ral) this]
|
|
||||||
[(dare (gnaw roo ral)) this]
|
|
||||||
::
|
|
||||||
[%7 * *]
|
|
||||||
=^ news this $(for.bloc +<.for.bloc)
|
|
||||||
?: ?= [%boom ~] news
|
|
||||||
boom
|
|
||||||
=/ nows
|
|
||||||
?- news
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.news
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.news
|
|
||||||
==
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=^ res $(for.bloc +>.for.bloc, sub.bloc nows)
|
|
||||||
?: ?= [%safe *] news
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
::
|
|
||||||
[%8 * *]
|
|
||||||
=^ newh this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] newh
|
|
||||||
boom
|
|
||||||
=/ nowh
|
|
||||||
?- newh
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.newh
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.newh
|
|
||||||
==
|
|
||||||
=. this (inst [%ext ~])
|
|
||||||
=^ res $(for.bloc +>.for.bloc, sub.bloc (knit nows sub.bloc))
|
|
||||||
?: ?= [%safe *] newh
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
::
|
|
||||||
[%9 @ *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ newc this $(for.bloc +>.for.bloc)
|
|
||||||
?: ?= [%boom ~] newc
|
|
||||||
boom
|
|
||||||
=/ nowc
|
|
||||||
?- newc
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.newc
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.newc
|
|
||||||
==
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=/ newf (pull +<.for.bloc nowc)
|
|
||||||
?: ?= [%boom ~] newf
|
|
||||||
boom
|
|
||||||
=/ shis this
|
|
||||||
=. this (inst [%axe +<.for.bloc])
|
|
||||||
?: ?= [%safe %know *] newf
|
|
||||||
=. this shis
|
|
||||||
=/ nabl [nowc know.sure.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%cal nabl])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
?: ?= [%safe *] newc
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
?: ?= [%risk %know *] newf
|
|
||||||
=/ nabl [nowc know.hope.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%cal nabl])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(dare res) this]
|
|
||||||
=. this (inst [%lnk ~])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[[%risk %gues ~] this]
|
|
||||||
::
|
|
||||||
[%10 [@ *] *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ wole this $(for.bloc +>.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] wole
|
|
||||||
boom
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ pach this $(for.bloc +<+.for.bloc)
|
|
||||||
?: ?= [%boom ~] pach
|
|
||||||
boom
|
|
||||||
=. this (inst [%reo 0])
|
|
||||||
=. this (inst [%edt +<-.for.bloc])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(welt axe pach wole) this]
|
|
||||||
::
|
|
||||||
[%11 @ *]
|
|
||||||
$(for.bloc +>.for.bloc)
|
|
||||||
::
|
|
||||||
[%11 [* *] *]
|
|
||||||
=/ shis this
|
|
||||||
=^ hnt this $(for.bloc +<+.for.bloc, mod %save)
|
|
||||||
?: ?= [%safe *] hnt
|
|
||||||
=. this shis
|
|
||||||
$(for.bloc +>.for.bloc)
|
|
||||||
$(for.bloc +>.for.bloc)
|
|
||||||
::
|
|
||||||
[%12 * *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ ref this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ pat this $(for.bloc +>.for.bloc)
|
|
||||||
=. this (inst [%cel 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
=. this (inst [%spy ~])
|
|
||||||
[[%risk %gues ~] this]
|
|
||||||
==
|
|
||||||
::
|
|
||||||
%butt
|
|
||||||
?+ for.bloc boom
|
|
||||||
::
|
|
||||||
[[* *] *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ hed this $(for.bloc -.for.bloc, mod %save)
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ tal this $(for.bloc +.for.bloc, mod %step)
|
|
||||||
=. this (inst [%cel 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(cobb:ska hed tal) this]
|
|
||||||
::
|
|
||||||
[%0 @]
|
|
||||||
=. (inst [%axe +.for.bloc])
|
|
||||||
[(pull:ska +.for.bloc sub.bloc) this]
|
|
||||||
::
|
|
||||||
[%1 *]
|
|
||||||
=. (inst [%con +.for.bloc])
|
|
||||||
[[%safe %know +.for.bloc] %this]
|
|
||||||
::
|
|
||||||
[%2 * *]
|
|
||||||
=^ news this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] news
|
|
||||||
bomb
|
|
||||||
=/ nows
|
|
||||||
?- news
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.news
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.news
|
|
||||||
==
|
|
||||||
=/ shis this
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ newf this $(for.bloc +>.for.bloc, mod %step)
|
|
||||||
=. this (inst [%cel 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
=. this (inst [%noc ~])
|
|
||||||
?: ?= [%boom ~] newf
|
|
||||||
bomb
|
|
||||||
?: ?= [%safe %know *] newf
|
|
||||||
=. this shis
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=/ nabl [nows know.sure.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%jmp nabl])
|
|
||||||
?: ?= [%safe *] news
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
?: ?= [%risk %know *] newf
|
|
||||||
=/ nabl [nows know.hope.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%jmp nabl])
|
|
||||||
[(dare res) this]
|
|
||||||
=. this (inst [%lnt ~])
|
|
||||||
[[%risk %gues ~] this]
|
|
||||||
::
|
|
||||||
[%3 *]
|
|
||||||
=^ non this $(for.bloc +.for.bloc, mod %step)
|
|
||||||
=. this (inst [%clq ~])
|
|
||||||
[(ques:ska non) this]
|
|
||||||
::
|
|
||||||
[%4 *]
|
|
||||||
=^ num this $(for.bloc +.for.bloc, mod %step)
|
|
||||||
=. this (inst [%inc ~])
|
|
||||||
[(pile:ska num) this]
|
|
||||||
::
|
|
||||||
[%5 * *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ nox this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ noy this $(for.bloc +>.for.bloc, mod %step)
|
|
||||||
=. this (inst [%eqq 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(bopp nox noy) this]
|
|
||||||
::
|
|
||||||
[%6 * * *]
|
|
||||||
=/ shis this
|
|
||||||
=^ tes this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] tes
|
|
||||||
bomb
|
|
||||||
?: ?= [%safe %know 0] tes
|
|
||||||
=. this shis
|
|
||||||
=^ res this $(for.bloc +>-.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?= [%safe %know 1] tes
|
|
||||||
=. this shis
|
|
||||||
=^ res this $(for.bloc +>+.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?= [%risk %know 0] tes
|
|
||||||
=^ res this $(for.bloc +>-.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?= [%risk %know 1] tes
|
|
||||||
=^ res this $(for.bloc +>+.for.bloc)
|
|
||||||
[res this]
|
|
||||||
?: ?| ?= [%safe %know *] tes
|
|
||||||
?= [%safe %bets *] tes
|
|
||||||
?= [%risk %know *] tes
|
|
||||||
?= [%risk %bets *] tes
|
|
||||||
==
|
|
||||||
bomb
|
|
||||||
=^ gib this gibl
|
|
||||||
=. this (inst [%br1 gib])
|
|
||||||
=^ roo this $(for.bloc +>-.for.bloc)
|
|
||||||
=. this (inst [%brh gib])
|
|
||||||
=^ ral this $(for.bloc +>+.for.bloc)
|
|
||||||
?: ?= [%safe %flip ~] tes
|
|
||||||
[(gnaw roo ral) this]
|
|
||||||
[(dare (gnaw roo ral)) this]
|
|
||||||
::
|
|
||||||
[%7 * *]
|
|
||||||
=^ news this $(for.bloc +<.for.bloc, mod %step)
|
|
||||||
?: ?= [%boom ~] news
|
|
||||||
boom
|
|
||||||
=/ nows
|
|
||||||
?- news
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.news
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.news
|
|
||||||
==
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=^ res this $(for.bloc +>.for.bloc, sub.bloc nows)
|
|
||||||
?: ?= [%safe *] news
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
::
|
|
||||||
[%8 * *]
|
|
||||||
=^ newh this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] newh
|
|
||||||
boom
|
|
||||||
=/ nowh
|
|
||||||
?- newh
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.newh
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.newh
|
|
||||||
==
|
|
||||||
=. this (inst [%ext ~])
|
|
||||||
=^ res $(for.bloc +>.for.bloc, sub.bloc (knit nows sub.bloc))
|
|
||||||
?: ?= [%safe *] newh
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
::
|
|
||||||
[%9 @ *]
|
|
||||||
=^ newc this $(for.bloc +>.for.bloc, mod %step)
|
|
||||||
?: ?=([%boom ~] newc)
|
|
||||||
bomb
|
|
||||||
=/ nowc
|
|
||||||
?- newc
|
|
||||||
[%safe *] sure.newc
|
|
||||||
[%risk *] hope.newc
|
|
||||||
==
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=/ newf (pull +<.for.bloc nowc)
|
|
||||||
?: ?= [%boom ~] newf
|
|
||||||
bomb
|
|
||||||
=/ shis this
|
|
||||||
=. this (inst [%axe +<.for.bloc])
|
|
||||||
?: ?= [%safe %know *] newf
|
|
||||||
=. this shis
|
|
||||||
=/ nabl [nowc know.sure.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%jmp nabl])
|
|
||||||
?: ?= [%safe *] newc
|
|
||||||
[res this]
|
|
||||||
[(dare res) this]
|
|
||||||
?: ?= [%risk %know *] newf
|
|
||||||
=/ nabl [nowc know.sure.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%jmp nabl])
|
|
||||||
[(dare res) this]
|
|
||||||
=. this (inst [%lnt ~])
|
|
||||||
[[%risk %gues ~] this]
|
|
||||||
::
|
|
||||||
[%10 [@ *] *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ wole this $(for.bloc +>.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] wole
|
|
||||||
bomb
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ pach this $(for.bloc +<+.for.bloc, mod %step)
|
|
||||||
?: ?= [%boom ~] pach
|
|
||||||
bomb
|
|
||||||
=. this (inst [%reo 0])
|
|
||||||
=. this (inst [%edt +<-.for.bloc])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
[(welt axe pach wole) this]
|
|
||||||
::
|
|
||||||
[%11 @ *]
|
|
||||||
$(for.bloc +>.for.bloc)
|
|
||||||
::
|
|
||||||
[%11 [* *] *]
|
|
||||||
=/ shis this
|
|
||||||
=^ hnt this $(for.bloc +<+.for.bloc, mod %save)
|
|
||||||
?: ?= [%safe *] hnt
|
|
||||||
=. this shis
|
|
||||||
$(for.bloc +>.for.bloc)
|
|
||||||
$(for.bloc +>.for.bloc)
|
|
||||||
::
|
|
||||||
[%12 * *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
:: TODO: finish 12 butt
|
|
||||||
|
|
||||||
==
|
|
||||||
::
|
|
||||||
%tail
|
|
||||||
?+ for.bloc bomb
|
|
||||||
::
|
|
||||||
[[* *] *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ hed this $(for.bloc -.for.bloc, mod %save)
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ tal this $(for.bloc +.for.bloc, mod %step)
|
|
||||||
=. this (inst [%cel 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
(done (cobb hed tal))
|
|
||||||
::
|
|
||||||
[%0 @]
|
|
||||||
=. (inst [%axe +.for.bloc])
|
|
||||||
(done (pull +.for.bloc sub.bloc))
|
|
||||||
::
|
|
||||||
[%1 *]
|
|
||||||
=. (inst [%con +.for.bloc])
|
|
||||||
(done (%safe %know +.for.bloc))
|
|
||||||
::
|
|
||||||
[%2 *]
|
|
||||||
=^ news this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] news
|
|
||||||
bomb
|
|
||||||
=/ nows
|
|
||||||
?- news
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.news
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.news
|
|
||||||
==
|
|
||||||
=/ shis this
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ newf this $(for.bloc +>.for.bloc, mod %step)
|
|
||||||
=. this (inst [%cel 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
=. this (inst [%noc ~])
|
|
||||||
?: ?= [%boom ~] newf
|
|
||||||
bomb
|
|
||||||
?: ?= [%safe %know *] newf
|
|
||||||
=. this shis
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=/ nabl [nows know.sure.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%jmp nabl])
|
|
||||||
?: ?= [%safe *] news
|
|
||||||
(done res)
|
|
||||||
(done (dare res))
|
|
||||||
?: ?= [%risk %know *] newf
|
|
||||||
=/ nabl [nows know.hope.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%jmp nabl])
|
|
||||||
(done (dare res))
|
|
||||||
=. this (inst [%lnt ~])
|
|
||||||
(done [%risk %gues ~])
|
|
||||||
::
|
|
||||||
[%3 *]
|
|
||||||
=^ non this $(for.bloc +.for.bloc, mod %step)
|
|
||||||
=. this (inst [%clq ~])
|
|
||||||
(done (ques:ska non))
|
|
||||||
::
|
|
||||||
[%4 *]
|
|
||||||
=^ num this $(for.bloc +.for.bloc, mod %step)
|
|
||||||
=. this (inst [%inc ~])
|
|
||||||
(done (pile:ska non))
|
|
||||||
::
|
|
||||||
[%5 * *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ nox this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
=. this (inst [%put 0])
|
|
||||||
=^ noy this $(for.bloc +<.for.bloc, mod %step)
|
|
||||||
=. this (inst [%eqq 0])
|
|
||||||
=. this (inst [%pop ~])
|
|
||||||
(done (bopp:ska nox noy))
|
|
||||||
::
|
|
||||||
[%6 * * *]
|
|
||||||
=/ shis this
|
|
||||||
=^ tes this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] tes
|
|
||||||
bomb
|
|
||||||
?: ?= [%safe %know 0]
|
|
||||||
=. this shis
|
|
||||||
=^ res this $(for.bloc +>-.for.bloc)
|
|
||||||
(done res)
|
|
||||||
?: ?= [%safe %know 1]
|
|
||||||
=. this shis
|
|
||||||
=^ res this $(for.bloc +>+.for.bloc)
|
|
||||||
(done res)
|
|
||||||
?: ?= [%risk %know 0]
|
|
||||||
=^ res this $(for.bloc +>-.for.bloc)
|
|
||||||
(done (dare res))
|
|
||||||
?: ?= [%risk %know 1]
|
|
||||||
=^ res this $(for.bloc +>+.for.bloc)
|
|
||||||
(done (dare res))
|
|
||||||
?: ?| ?= [%safe %know *] tes
|
|
||||||
?= [%safe %bets *] tes
|
|
||||||
?= [%risk %know *] tes
|
|
||||||
?= [%risk %bets *] tes
|
|
||||||
==
|
|
||||||
bomb
|
|
||||||
=^ gib this gibl
|
|
||||||
=. this (inst [%br1 gib])
|
|
||||||
=^ roo this $(for.bloc +>-.for.bloc)
|
|
||||||
=. this (inst [%brh gib])
|
|
||||||
=^ ral this $(for.bloc +>+.for.bloc)
|
|
||||||
?: ?= [%safe %flip ~] tes
|
|
||||||
(done (gnaw:ska roo ral))
|
|
||||||
(done (dare:ska (gnaw:ska roo ral))
|
|
||||||
::
|
|
||||||
[%7 * *]
|
|
||||||
=^ news this $(for.bloc +<.for.bloc, mod %step)
|
|
||||||
?: ?= [%boom ~] news
|
|
||||||
bomb
|
|
||||||
=/ nows
|
|
||||||
?- news
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.news
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.news
|
|
||||||
==
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=^ res this $(for.bloc +>.for.bloc, sub.bloc nows)
|
|
||||||
?: ?= [%safe *] news
|
|
||||||
(done res)
|
|
||||||
(done (dare:ska res))
|
|
||||||
::
|
|
||||||
[%8 * *]
|
|
||||||
=^ newh this $(for.bloc +<.for.bloc, mod %save)
|
|
||||||
?: ?= [%boom ~] newh
|
|
||||||
bomb
|
|
||||||
=/ nowh
|
|
||||||
?- newh
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.newh
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.newh
|
|
||||||
==
|
|
||||||
=. this (inst [%ext ~])
|
|
||||||
=^ res $(for.bloc +>.for.bloc, sub.bloc (knit nows sub.bloc))
|
|
||||||
?: ?= [%safe *] newh
|
|
||||||
(done res)
|
|
||||||
(done (dare:ska res))
|
|
||||||
::
|
|
||||||
[%9 @ *]
|
|
||||||
=^ newc this $(for.bloc +>.for.bloc, mod %step)
|
|
||||||
?: ?= [%boom ~] newc
|
|
||||||
bomb
|
|
||||||
=/ nowc
|
|
||||||
?- newc
|
|
||||||
::
|
|
||||||
[%safe *]
|
|
||||||
sure.newc
|
|
||||||
::
|
|
||||||
[%risk *]
|
|
||||||
hope.newc
|
|
||||||
==
|
|
||||||
=. this (inst [%sub ~])
|
|
||||||
=/ newf (pull +<.for.bloc nowc)
|
|
||||||
?: ?= [%boom ~] newf
|
|
||||||
bomb
|
|
||||||
=/ shis this
|
|
||||||
=. this (inst [%axe +<.for.bloc])
|
|
||||||
?: ?= [%safe %know *] newf
|
|
||||||
=. this shis
|
|
||||||
=/ nabl [nowc know.sure.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%jmp nabl])
|
|
||||||
?: ?= [%safe *] newc
|
|
||||||
(done res)
|
|
||||||
(done (dare res))
|
|
||||||
?: ?= [%risk %know *] newf
|
|
||||||
=/ nabl [nowc know.sure.newf]
|
|
||||||
=^ res this (fics nabl)
|
|
||||||
=. this (inst [%jmp nabl])
|
|
||||||
(done (dare res))
|
|
||||||
=. this (inst [%lnt ~])
|
|
||||||
(done [%risk %gues ~])
|
|
||||||
::
|
|
||||||
[%10 [@ *] *]
|
|
||||||
=. this (inst [%puh 1])
|
|
||||||
=^ wole this $(for.bloc +>.for.bloc, mod %save)
|
|
||||||
|
|
||||||
==
|
|
||||||
++ done
|
|
||||||
|= says=boot
|
|
||||||
^- [boot _this]
|
|
||||||
:- says
|
|
||||||
?: ?= says [%boom ~]
|
|
||||||
this(prog (~(put by prog) blos [~[[%bom ~]] says]), buff ~)
|
|
||||||
this(prog (~(put by prog) blos [(flop buff) says]), buff ~)
|
|
||||||
++ fics
|
|
||||||
|= cabl=labl
|
|
||||||
^- [boot _this]
|
|
||||||
=/ vet (~(get by prog) cabl)
|
|
||||||
?~ vet
|
|
||||||
=. this proc
|
|
||||||
=^ res this (^$ cabl)
|
|
||||||
=. this crop
|
|
||||||
[res this]
|
|
||||||
u.vet
|
|
||||||
++ bomb
|
|
||||||
?: ?= mod %tail
|
|
||||||
(done [%boom ~])
|
|
||||||
:- [%boom ~]
|
|
||||||
this(buff ~[[%bom ~]])
|
|
||||||
--
|
|
||||||
--
|
|
||||||
@ -1,213 +0,0 @@
|
|||||||
/- *sock
|
|
||||||
/- *gene
|
|
||||||
|%
|
|
||||||
++ run
|
|
||||||
|= [prog=tabl tart=labl ject=*]
|
|
||||||
^- (unit *)
|
|
||||||
=/ uuff (~(get by prog) tart)
|
|
||||||
?~ uuff
|
|
||||||
~
|
|
||||||
=/ buff does.u.uuff
|
|
||||||
=| resu=*
|
|
||||||
=| stac=(list (list *))
|
|
||||||
|^ ?~ buff
|
|
||||||
~
|
|
||||||
=/ inst i.buff
|
|
||||||
=. buff t.buff
|
|
||||||
?- inst
|
|
||||||
::
|
|
||||||
[%con *]
|
|
||||||
$(resu +.inst)
|
|
||||||
::
|
|
||||||
[%axe *]
|
|
||||||
=/ r (axes +.inst)
|
|
||||||
?~ r
|
|
||||||
~
|
|
||||||
$(resu u.r)
|
|
||||||
::
|
|
||||||
[%cel @]
|
|
||||||
=/ r (both (segt +.inst (some resu)))
|
|
||||||
?~ r
|
|
||||||
~
|
|
||||||
$(resu u.r)
|
|
||||||
::
|
|
||||||
[%clq @]
|
|
||||||
$(resu .?(resu))
|
|
||||||
::
|
|
||||||
[%inc ~]
|
|
||||||
$(res .+(resu))
|
|
||||||
::
|
|
||||||
[eqq @]
|
|
||||||
=/ r (mate (segt +.inst) (some resu))
|
|
||||||
?~ r
|
|
||||||
~
|
|
||||||
$(resu u.r)
|
|
||||||
::
|
|
||||||
[%br1 *]
|
|
||||||
?: ?= %0 resu
|
|
||||||
$
|
|
||||||
?: ?= %1 resu
|
|
||||||
$(buff (julp +.inst))
|
|
||||||
~
|
|
||||||
::
|
|
||||||
[%bru *]
|
|
||||||
$(buff (julp +.inst))
|
|
||||||
::
|
|
||||||
[%brh *]
|
|
||||||
$
|
|
||||||
::
|
|
||||||
[%sub ~]
|
|
||||||
$(ject resu)
|
|
||||||
::
|
|
||||||
[%ext ~]
|
|
||||||
$(ject [resu ject])
|
|
||||||
::
|
|
||||||
[%dxt ~]
|
|
||||||
?: ?= ject [* *]
|
|
||||||
$(ject +.ject)
|
|
||||||
~
|
|
||||||
::
|
|
||||||
[%noc ~]
|
|
||||||
?: ?= resu [* *]
|
|
||||||
$(ject -.resu, resu +.resu)
|
|
||||||
~
|
|
||||||
::
|
|
||||||
[%lnk ~]
|
|
||||||
~| 'TODO: run lnk'
|
|
||||||
::
|
|
||||||
[%cal *]
|
|
||||||
=/ stuc (sput 0 t.buff)
|
|
||||||
?~ stuc
|
|
||||||
~
|
|
||||||
=. stac u.stuc
|
|
||||||
=/ nuuf (~(get by prog) +.inst)
|
|
||||||
?~ nuuf
|
|
||||||
~
|
|
||||||
$(buff does.u.nuuf)
|
|
||||||
::
|
|
||||||
[%lnt ~]
|
|
||||||
~| 'TODO: run lnt'
|
|
||||||
::
|
|
||||||
[%jmp *]
|
|
||||||
=/ nuuf (~(get by prog) +.inst)
|
|
||||||
?~ nuuf
|
|
||||||
~
|
|
||||||
$(buff does.u.nuuf)
|
|
||||||
::
|
|
||||||
[%edt *]
|
|
||||||
=/ edut (edit +.inst resu ject)
|
|
||||||
?~ edut
|
|
||||||
~
|
|
||||||
$(resu u.edut)
|
|
||||||
::
|
|
||||||
[%spy ~]
|
|
||||||
~| 'TODO: run spy'
|
|
||||||
::
|
|
||||||
[%puh @]
|
|
||||||
$(stac [(reap +.inst ~) stac])
|
|
||||||
::
|
|
||||||
[%put @]
|
|
||||||
=/ stuc (sput +.inst resu)
|
|
||||||
?~ stuc
|
|
||||||
~
|
|
||||||
$(stac u.stuc)
|
|
||||||
::
|
|
||||||
[%get @]
|
|
||||||
=/ guts (segt +.inst)
|
|
||||||
?~ guts
|
|
||||||
~
|
|
||||||
$(resu u.guts)
|
|
||||||
::
|
|
||||||
[%sav @]
|
|
||||||
=/ stuc (sput +.inst ject)
|
|
||||||
?~ stuc
|
|
||||||
~
|
|
||||||
$(stac u.stuc)
|
|
||||||
::
|
|
||||||
[%reo @]
|
|
||||||
=/ guts (segt +.inst)
|
|
||||||
?~ guts
|
|
||||||
~
|
|
||||||
$(ject u.guts)
|
|
||||||
::
|
|
||||||
[%don ~]
|
|
||||||
?~ stac
|
|
||||||
(some resu)
|
|
||||||
=/ guts (segt 0)
|
|
||||||
?~ guts
|
|
||||||
~
|
|
||||||
$(buff u.guts)
|
|
||||||
::
|
|
||||||
[%bom ~]
|
|
||||||
~
|
|
||||||
==
|
|
||||||
:: get an axis from the subject
|
|
||||||
++ axes
|
|
||||||
|= ax=@
|
|
||||||
^- (unit *)
|
|
||||||
?: ?= %0 ax
|
|
||||||
~
|
|
||||||
|-
|
|
||||||
^- (unit *)
|
|
||||||
?: ?= %1 ax
|
|
||||||
(some ject)
|
|
||||||
?. ?= [* *] ject
|
|
||||||
~
|
|
||||||
?- (cap ax)
|
|
||||||
::
|
|
||||||
%2
|
|
||||||
$(ax (mas ax), ject -.ject)
|
|
||||||
::
|
|
||||||
%3
|
|
||||||
$(ax (mas ax), ject +.ject)
|
|
||||||
==
|
|
||||||
:: get the value of a slot in the stack frame
|
|
||||||
++ segt
|
|
||||||
|= slot=@
|
|
||||||
^- (unit *)
|
|
||||||
?~ stac
|
|
||||||
~
|
|
||||||
=/ fra (slag slot i.stac)
|
|
||||||
?~ fra
|
|
||||||
~
|
|
||||||
i.fra
|
|
||||||
:: put a value into the frame
|
|
||||||
++ sput
|
|
||||||
|= [slot=@ cont=*]
|
|
||||||
^- (unit _stac)
|
|
||||||
?~ stac
|
|
||||||
~
|
|
||||||
?. (gth (lent i.stac) slot)
|
|
||||||
~
|
|
||||||
=. i.stac (snap i.stac slot cont)
|
|
||||||
(some stac)
|
|
||||||
++ edit
|
|
||||||
|= [ax=@ pat=* tre=*]
|
|
||||||
^- (unit *)
|
|
||||||
?: ?= %0 ax
|
|
||||||
~
|
|
||||||
|-
|
|
||||||
^- (unit *)
|
|
||||||
?: ?= %1 ax
|
|
||||||
(some pat)
|
|
||||||
?. ?= [* *] tre
|
|
||||||
~
|
|
||||||
?- (cap ax)
|
|
||||||
::
|
|
||||||
%2
|
|
||||||
:- $(ax (mas ax), tre -.tre) +.tre
|
|
||||||
::
|
|
||||||
%3
|
|
||||||
:- -.tre $(ax (mas ax), tre +.tre)
|
|
||||||
==
|
|
||||||
:: jump to a local label brh
|
|
||||||
++ julp
|
|
||||||
|= mabl=labl
|
|
||||||
^- _buff
|
|
||||||
?~ buff
|
|
||||||
~
|
|
||||||
?: .= i.buff [%brh mabl]
|
|
||||||
t.buff
|
|
||||||
$(buff t.buff)
|
|
||||||
--
|
|
||||||
--
|
|
||||||
Loading…
Reference in New Issue
Block a user