Browse Source
Merge pull request #12 from npisanti/master
porting of K operator from orcaJS
master
Лu Лinveгa
6 years ago
committed by
GitHub
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with
17 additions and
4 deletions
-
sim.c
|
|
@ -230,7 +230,7 @@ static void oper_poke_and_stun(Glyph* restrict gbuffer, Mark* restrict mbuffer, |
|
|
_('H', halt) \ |
|
|
_('H', halt) \ |
|
|
_('I', increment) \ |
|
|
_('I', increment) \ |
|
|
_('J', jump) \ |
|
|
_('J', jump) \ |
|
|
_('K', kill) \ |
|
|
_('K', konkat) \ |
|
|
_('L', loop) \ |
|
|
_('L', loop) \ |
|
|
_('M', modulo) \ |
|
|
_('M', modulo) \ |
|
|
_('N', movement) \ |
|
|
_('N', movement) \ |
|
|
@ -535,10 +535,23 @@ BEGIN_OPERATOR(jump) |
|
|
POKE(1, 0, PEEK(-1, 0)); |
|
|
POKE(1, 0, PEEK(-1, 0)); |
|
|
END_OPERATOR |
|
|
END_OPERATOR |
|
|
|
|
|
|
|
|
BEGIN_OPERATOR(kill) |
|
|
BEGIN_OPERATOR(konkat) |
|
|
LOWERCASE_REQUIRES_BANG; |
|
|
LOWERCASE_REQUIRES_BANG; |
|
|
PORT(1, 0, OUT); |
|
|
Isz len = (Isz)index_of(PEEK(0, -1)); |
|
|
POKE(1, 0, '.'); |
|
|
if (len == 0) len = 1; |
|
|
|
|
|
PORT(0, -1, IN | PARAM); |
|
|
|
|
|
for ( Isz i = 0; i < len; ++i) { |
|
|
|
|
|
PORT(0, i+1, IN); |
|
|
|
|
|
Glyph var = PEEK(0, i+1); |
|
|
|
|
|
Usz var_idx = safe_index_of(var); |
|
|
|
|
|
if( var_idx != 0 ){ |
|
|
|
|
|
Glyph result = extra_params->vars_slots[var_idx]; |
|
|
|
|
|
if (result != '.'){ |
|
|
|
|
|
PORT(1, i+1, OUT); |
|
|
|
|
|
POKE(1, i+1, result); |
|
|
|
|
|
} |
|
|
|
|
|
} |
|
|
|
|
|
} |
|
|
END_OPERATOR |
|
|
END_OPERATOR |
|
|
|
|
|
|
|
|
BEGIN_OPERATOR(loop) |
|
|
BEGIN_OPERATOR(loop) |
|
|
|
