Implement assignment (rw checking woefully inadequate atm)

sorear · Jul 13, 2010 · e22978c · e22978c
1 parent 2fbc8c5
commit e22978c
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 0 deletions.
diff --git a/Niecza/Actions.pm b/Niecza/Actions.pm
@@ -445,6 +445,10 @@ sub insn__S_fetch { my ($cl, $M) = @_;
     $M->{_ast} = [[ 'fetch' ]];
 }
 
+sub insn__S_store { my ($cl, $M) = @_;
+    $M->{_ast} = [[ 'store' ]];
+}
+
 sub insn__S_dup_fetch { my ($cl, $M) = @_;
     $M->{_ast} = [[ 'dup_fetch' ]];
 }

diff --git a/Niecza/Grammar.pm6 b/Niecza/Grammar.pm6
@@ -82,6 +82,7 @@ grammar NIL is STD {
     token insn:wrap { <sym> }
     token insn:wrapobj { <sym> }
     token insn:fetch { '@' }
+    token insn:store { '!' }
     token insn:dup_fetch { 'dup@' }
     token insn:pos { '=[' <?> ~ ']' <decint> }
     token insn:clone_lex { 'CLONE:' [ \h* <varid> \h* ] ** ',' \h* \n }

diff --git a/setting b/setting
@@ -295,4 +295,6 @@ sub say { Q:NIL {
         .plaincall/1:Console.WriteLine null:Variable
 } }
 
+sub infix:<=> { Q:NIL { =[0] =[1] @ !  =[0] @ } }
+
 YOU_ARE_HERE;