Mercurial > repo
diff src/ploki/examples/ref.pk @ 4223:ac0403686959
<oerjan> rm -rf src/ploki; mv ploki src
author | HackBot |
---|---|
date | Fri, 20 Dec 2013 22:18:50 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/ploki/examples/ref.pk Fri Dec 20 22:18:50 2013 +0000 @@ -0,0 +1,17 @@ +GOTO 496 +FOR *&ref-assign*& LET $(\@ . 0) \@ . 1 +KTHX \@ . 1 +FOR *&ref-call&* LEET id \@ . 0 + LEET arg \@ . 1 + IF \L arg : "set" + LEET ref $$ref$$(id) + KTHX @OMFG @*&ref-assign*& #<ref \@#> + FI +KTHX $($$ref$$(id)) +FOR ref LEET val \@ + LET $$ref$cnt$$ += 1 + LEET ref @OMFG @*&ref-call&* #<$$ref$cnt$$ \@#> + LET $$ref$$($$ref$cnt$$) ref + LET $(ref) \@ +KTHX ref +496 #!