Changeset 22092 for v6

Timestamp:

09/02/08 02:05:59 (3 months ago)

Author:

ruoso

Message:

[smop] adding postfix:<++> to native int

Location:

v6/smop

Files:

• CMakeLists.txt (modified) (1 diff)
• include/smop_identifiers.h (modified) (1 diff)
• src/idconst_decl_all.h (modified) (1 diff)
• src/idconst_init_all.c (modified) (3 diffs)
• src/native_int.c (modified) (1 diff)
• test/31_int_postfix_plusplus.m0ld (added)

v6/smop/CMakeLists.txt

@@ -142 +142 @@
     test/29_bind_capture_signature.p6
     test/30_for_operator.m0ld
+    test/31_int_postfix_plusplus.m0ld
 )
     set(c_file)

v6/smop/include/smop_identifiers.h

@@ -73 +73 @@
 extern SMOP__Object* SMOP__ID__postcircumfix_parens;          /* "postcircumfix:( )" */
 extern SMOP__Object* SMOP__ID__postcircumfix_square;          /* "postcircumfix:[ ]" */
+extern SMOP__Object* SMOP__ID__postfix_plusplus;              /* "postfix:++" */
 extern SMOP__Object* SMOP__ID__private_name;      /* "private_name" */
 extern SMOP__Object* SMOP__ID__push;              /* "push" */

v6/smop/src/idconst_decl_all.h

@@ -61 +61 @@
 SMOP__Object* SMOP__ID__postcircumfix_parens;
 SMOP__Object* SMOP__ID__postcircumfix_square;
+SMOP__Object* SMOP__ID__postfix_plusplus;
 SMOP__Object* SMOP__ID__private_name;
 SMOP__Object* SMOP__ID__push;

v6/smop/src/idconst_init_all.c

@@ -61 +61 @@
 SMOP__ID__postcircumfix_parens = SMOP__NATIVE__idconst_create_nolist( "postcircumfix:( )" );
 SMOP__ID__postcircumfix_square = SMOP__NATIVE__idconst_create_nolist( "postcircumfix:[ ]" );
+SMOP__ID__postfix_plusplus = SMOP__NATIVE__idconst_create_nolist( "postfix:++" );
 SMOP__ID__private_name = SMOP__NATIVE__idconst_create_nolist( "private_name" );
 SMOP__ID__push = SMOP__NATIVE__idconst_create_nolist( "push" );
@@ -97 +98 @@
 SMOP__ID__signature = SMOP__NATIVE__idconst_create_nolist( "signature" );
 SMOP__ID__STORE = SMOP__NATIVE__idconst_create_nolist( "STORE" );
-constlist_size = 98;
+constlist_size = 99;
 constlist = calloc(constlist_size,sizeof(SMOP__Object*));
 assert(constlist);
@@ -162 +163 @@
 constlist[60] = SMOP__ID__postcircumfix_parens;
 constlist[61] = SMOP__ID__postcircumfix_square;
-constlist[62] = SMOP__ID__private_name;
-constlist[63] = SMOP__ID__push;
-constlist[64] = SMOP__ID__register;
-constlist[65] = SMOP__ID__REPR_attributes;
-constlist[66] = SMOP__ID__REPR_bless;
-constlist[67] = SMOP__ID__REPR_can;
-constlist[68] = SMOP__ID__REPR_class_storage;
-constlist[69] = SMOP__ID__REPR_clone;
-constlist[70] = SMOP__ID__REPR_CREATE;
-constlist[71] = SMOP__ID__REPR_defined;
-constlist[72] = SMOP__ID__REPR_DESTROY;
-constlist[73] = SMOP__ID__REPR_destroy_instance_storage;
-constlist[74] = SMOP__ID__REPR_destroy_instance_storage_slot;
-constlist[75] = SMOP__ID__REPR_does;
-constlist[76] = SMOP__ID__REPR_has;
-constlist[77] = SMOP__ID__REPR_how;
-constlist[78] = SMOP__ID__REPR_initialize_instance_storage;
-constlist[79] = SMOP__ID__REPR_initialize_instance_storage_slot;
-constlist[80] = SMOP__ID__REPR_instance;
-constlist[81] = SMOP__ID__REPR_instanceof;
-constlist[82] = SMOP__ID__REPR_isa;
-constlist[83] = SMOP__ID__REPR_methods;
-constlist[84] = SMOP__ID__REPR_multimethods;
-constlist[85] = SMOP__ID__REPR_multisubmethods;
-constlist[86] = SMOP__ID__REPR_package;
-constlist[87] = SMOP__ID__REPR_private_storage;
-constlist[88] = SMOP__ID__REPR_properties;
-constlist[89] = SMOP__ID__REPR_submethods;
-constlist[90] = SMOP__ID__REPR_whence;
-constlist[91] = SMOP__ID__REPR_who;
-constlist[92] = SMOP__ID__responder;
-constlist[93] = SMOP__ID__result;
-constlist[94] = SMOP__ID__setr;
-constlist[95] = SMOP__ID__shift;
-constlist[96] = SMOP__ID__signature;
-constlist[97] = SMOP__ID__STORE;
+constlist[62] = SMOP__ID__postfix_plusplus;
+constlist[63] = SMOP__ID__private_name;
+constlist[64] = SMOP__ID__push;
+constlist[65] = SMOP__ID__register;
+constlist[66] = SMOP__ID__REPR_attributes;
+constlist[67] = SMOP__ID__REPR_bless;
+constlist[68] = SMOP__ID__REPR_can;
+constlist[69] = SMOP__ID__REPR_class_storage;
+constlist[70] = SMOP__ID__REPR_clone;
+constlist[71] = SMOP__ID__REPR_CREATE;
+constlist[72] = SMOP__ID__REPR_defined;
+constlist[73] = SMOP__ID__REPR_DESTROY;
+constlist[74] = SMOP__ID__REPR_destroy_instance_storage;
+constlist[75] = SMOP__ID__REPR_destroy_instance_storage_slot;
+constlist[76] = SMOP__ID__REPR_does;
+constlist[77] = SMOP__ID__REPR_has;
+constlist[78] = SMOP__ID__REPR_how;
+constlist[79] = SMOP__ID__REPR_initialize_instance_storage;
+constlist[80] = SMOP__ID__REPR_initialize_instance_storage_slot;
+constlist[81] = SMOP__ID__REPR_instance;
+constlist[82] = SMOP__ID__REPR_instanceof;
+constlist[83] = SMOP__ID__REPR_isa;
+constlist[84] = SMOP__ID__REPR_methods;
+constlist[85] = SMOP__ID__REPR_multimethods;
+constlist[86] = SMOP__ID__REPR_multisubmethods;
+constlist[87] = SMOP__ID__REPR_package;
+constlist[88] = SMOP__ID__REPR_private_storage;
+constlist[89] = SMOP__ID__REPR_properties;
+constlist[90] = SMOP__ID__REPR_submethods;
+constlist[91] = SMOP__ID__REPR_whence;
+constlist[92] = SMOP__ID__REPR_who;
+constlist[93] = SMOP__ID__responder;
+constlist[94] = SMOP__ID__result;
+constlist[95] = SMOP__ID__setr;
+constlist[96] = SMOP__ID__shift;
+constlist[97] = SMOP__ID__signature;
+constlist[98] = SMOP__ID__STORE;

v6/smop/src/native_int.c

@@ -44 +44 @@
   } else if (identifier == SMOP__ID__DESTROYALL) {
     // notthing
+  } else if (identifier == SMOP__ID__new) {
+
+    SMOP__Object* other = SMOP__NATIVE__capture_positional(interpreter,capture,0);
+    if (other && SMOP_RI(other) == (SMOP__ResponderInterface*)SMOP__NATIVE__int) {
+      return other;
+    } else {
+      if (other) SMOP_RELEASE(interpreter, other);
+      return SMOP__NATIVE__int_create(0);
+    }
+
+  } else if (identifier == SMOP__ID__postfix_plusplus) {
+
+    ___NATIVE_CAPTURE_ONLY___;
+    ___INVOCANT_RI_SHOULD_MATCH___;
+    
+    smop_lowlevel_wrlock(invocant);
+    ((smop_native_int_struct*)invocant)->intvalue++;
+    smop_lowlevel_unlock(invocant);
+    
   } else {
     ___UNKNOWN_METHOD___;