Changeset 22943 for v6

Timestamp:

11/09/08 21:55:00 (2 months ago)

Author:

pmurias

Message:

[mildew] if works

Location:

v6

Files:

• mildew/mildew (modified) (1 diff)
• mildew/src/AST.pm (modified) (1 diff)
• mildew/t/if.t (modified) (1 diff)
• smop/src/native_int.ri (modified) (1 diff)

v6/mildew/mildew

@@ -325 +325 @@
         my $stm = $m->{statement_control};
         if ($stm->{sym} eq 'if') {
+            my $then = AST::Call->new(identifier=>string 'postcircumfix:( )',capture => AST::Capture->new(
+                invocant => AST::Call->new(identifier=>string 'new',
+                    capture => AST::Capture->new(
+                        invocant => FETCH(lookup('Code')),
+                        positional => [],
+                        named => [
+                            string 'mold' => $stm->{xblock}{pblock}{block}->emit_m0ld,
+                            string 'outer' => reg '$scope'
+                    ])
+                ),
+                positional => [AST::Call->new(
+                    identifier => string "capturize",
+                    capture => AST::Capture->new(
+                        invocant => reg '¢SMOP__S1P__Capturize',
+                        positional => []
+                    )
+                )]
+            ));
             AST::If->new(
-                         cond => $stm->{xblock}{EXPR}->emit_m0ld,
-                         then => $stm->{xblock}{pblock}{block}->emit_m0ld
-                        );
+                cond => $stm->{xblock}{EXPR}->emit_m0ld,
+                then => $then
+            );
         } else {
             XXX('unkown sym in statement_control')

v6/mildew/src/AST.pm

@@ -54 +54 @@
     $cond.$/.
     'my '.$id_cond.'_val = '.$id_cond.'."FETCH"();'.$/.
-    'my '.$id_cond.'_bool = '.$id_cond.'_val."bool"();'.$/.
+    'my '.$id_cond.'_bool = '.$id_cond.'_val."true"();'.$/.
     'if '.$id_cond.'_bool { goto '.$label_then.' } else { goto '.$label_else.' };'.$/.
     $label_then.':'.$/.
     $then.$/.
     $label_else.': noop;'.$/;
+}
+sub pretty {
+    my ($self) = @_;
+    'if ' . $self->cond->pretty . " {\n"
+        . AST::indent($self->then->pretty) . "\n"
+    . "}\n"
 }
 

v6/mildew/t/if.t

@@ -1 +1 @@
 $OUT.print("1..1\n");
-if True {
+if 0 {
+    $OUT.print("not ok 1\n");
+}
+if 1 {
     $OUT.print("ok 1\n");
 }

v6/smop/src/native_int.ri

@@ -29 +29 @@
 %method defined
     ret = SMOP__NATIVE__bool_true;
+%method true
+    smop_lowlevel_wrlock(invocant);
+    ret = ((smop_native_int_struct*)invocant)->intvalue ? SMOP__NATIVE__bool_true : SMOP__NATIVE__bool_false;
+    smop_lowlevel_unlock(invocant);
 %method FETCH
     ___VALUE_FETCH___;