Changeset 22268 for v6

Timestamp:

09/17/08 03:34:26 (3 months ago)

Author:

ruoso

Message:

[smop] starting to apply "every value is a list of itself" on array

Location:

v6/smop

Files:

• CMakeLists.txt (modified) (2 diffs)
• src/smop_s1p_array.c (modified) (1 diff)
• test/32_array_iterator.m0ld (modified) (1 diff)

v6/smop/CMakeLists.txt

@@ -101 +101 @@
 
 foreach (ri_file
-    src/smop_s1p_itemcontext.ri
-    src/smop_s1p_itemrwcontext.ri
+#    src/smop_s1p_itemcontext.ri
+#    src/smop_s1p_itemrwcontext.ri
 )
 compile_ri (${ri_file})
@@ -143 +143 @@
     src/smop_slime_node.c
     src/smop_ri.c
-    src/smop_s1p_itemcontext.c
-    src/smop_s1p_itemrwcontext.c
+#    src/smop_s1p_itemcontext.c
+#    src/smop_s1p_itemrwcontext.c
 )
 

v6/smop/src/smop_s1p_array.c

@@ -61 +61 @@
   if (identifier == SMOP__ID__new) {
     ret = SMOP__S1P__Array_create();
+
   } else if (identifier == SMOP__ID__postcircumfix_square) {
     SMOP__Object* pos0 = SMOP__NATIVE__capture_positional(interpreter, capture, 0);

v6/smop/test/32_array_iterator.m0ld

@@ -20 +20 @@
 while:
 my $result = $iteritem."prefix:="();
-my $bool = $result."bool"();
+my $list = $result."List"();
+my $elems = $list."elems"();
+my $greater = $elems."infix:>"(0);
+my $bool = $greater."bool"();
 
 if $bool { goto iteration } else { goto end };