Author: fperrad
Date: Thu Apr 5 06:58:31 2007
New Revision: 17997
Modified:
trunk/languages/WMLScript/pmc/wmlsboolean.pmc
trunk/languages/WMLScript/pmc/wmlsfloat.pmc
trunk/languages/WMLScript/pmc/wmlsinteger.pmc
trunk/languages/WMLScript/pmc/wmlsstring.pmc
Log:
[WMLScript]
- fix build with new rewrite in pmc2c
Modified: trunk/languages/WMLScript/pmc/wmlsboolean.pmc
==============================================================================
--- trunk/languages/WMLScript/pmc/wmlsboolean.pmc (original)
+++ trunk/languages/WMLScript/pmc/wmlsboolean.pmc Thu Apr 5 06:58:31 2007
@@ -1,5 +1,5 @@
/*
-Copyright (C) 2006, The Perl Foundation.
+Copyright (C) 2006-2007, The Perl Foundation.
$Id$
=head1 NAME
@@ -317,7 +317,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
- VTABLE_get_integer(INTERP, trans);
@@ -352,7 +352,7 @@
DYNSELF.set_number_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
- VTABLE_get_integer(INTERP, trans);
@@ -400,7 +400,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
* VTABLE_get_integer(INTERP, trans);
@@ -435,7 +435,7 @@
DYNSELF.set_number_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
* VTABLE_get_integer(INTERP, trans);
@@ -492,7 +492,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
FLOATVAL d = VTABLE_get_number(INTERP, trans);
if (d != 0.0) {
@@ -544,7 +544,7 @@
}
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
FLOATVAL d = VTABLE_get_integer(INTERP, trans);
if (d != 0.0) {
@@ -596,7 +596,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_integer(INTERP, trans);
if (d != 0) {
@@ -637,7 +637,7 @@
}
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_integer(INTERP, trans);
if (d != 0) {
@@ -689,7 +689,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_integer(INTERP, trans);
if (d != 0) {
@@ -730,7 +730,7 @@
}
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_integer(INTERP, trans);
if (d != 0) {
@@ -776,7 +776,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
| VTABLE_get_integer(INTERP, trans);
@@ -805,7 +805,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
| VTABLE_get_integer(INTERP, trans);
@@ -846,7 +846,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
& VTABLE_get_integer(INTERP, trans);
@@ -875,7 +875,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
& VTABLE_get_integer(INTERP, trans);
@@ -916,7 +916,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
^ VTABLE_get_integer(INTERP, trans);
@@ -945,7 +945,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
^ VTABLE_get_integer(INTERP, trans);
@@ -986,7 +986,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
>> VTABLE_get_integer(INTERP, trans);
@@ -1015,7 +1015,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
>> VTABLE_get_integer(INTERP, trans);
@@ -1056,7 +1056,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
>> VTABLE_get_integer(INTERP, trans);
@@ -1085,7 +1085,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
>> VTABLE_get_integer(INTERP, trans);
@@ -1126,7 +1126,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
<< VTABLE_get_integer(INTERP, trans);
@@ -1155,7 +1155,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
<< VTABLE_get_integer(INTERP, trans);
Modified: trunk/languages/WMLScript/pmc/wmlsfloat.pmc
==============================================================================
--- trunk/languages/WMLScript/pmc/wmlsfloat.pmc (original)
+++ trunk/languages/WMLScript/pmc/wmlsfloat.pmc Thu Apr 5 06:58:31 2007
@@ -1,5 +1,5 @@
/*
-Copyright (C) 2006, The Perl Foundation.
+Copyright (C) 2006-2007, The Perl Foundation.
$Id$
=head1 NAME
@@ -246,7 +246,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, value);
+ PMC * trans = WmlsString.value.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL result = DYNSELF.get_number()
- VTABLE_get_number(INTERP, trans);
@@ -278,7 +278,7 @@
DYNSELF.set_number_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, value);
+ PMC * trans = WmlsString.value.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL result = DYNSELF.get_number()
- VTABLE_get_number(INTERP, trans);
@@ -325,7 +325,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, value);
+ PMC * trans = WmlsString.value.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL result = DYNSELF.get_number()
* VTABLE_get_number(INTERP, trans);
@@ -357,7 +357,7 @@
DYNSELF.set_number_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, value);
+ PMC * trans = WmlsString.value.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL result = DYNSELF.get_number()
* VTABLE_get_number(INTERP, trans);
@@ -413,7 +413,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, value);
+ PMC * trans = WmlsString.value.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL d = VTABLE_get_number(INTERP, trans);
if (d != 0.0) {
@@ -462,7 +462,7 @@
}
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, value);
+ PMC * trans = WmlsString.value.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL d = VTABLE_get_number(INTERP, trans);
if (d != 0.0) {
Modified: trunk/languages/WMLScript/pmc/wmlsinteger.pmc
==============================================================================
--- trunk/languages/WMLScript/pmc/wmlsinteger.pmc (original)
+++ trunk/languages/WMLScript/pmc/wmlsinteger.pmc Thu Apr 5 06:58:31 2007
@@ -1,5 +1,5 @@
/*
-Copyright (C) 2006, The Perl Foundation.
+Copyright (C) 2006-2007, The Perl Foundation.
$Id$
=head1 NAME
@@ -252,7 +252,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
- VTABLE_get_integer(INTERP, trans);
@@ -285,7 +285,7 @@
DYNSELF.set_number_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
- VTABLE_get_integer(INTERP, trans);
@@ -332,7 +332,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
* VTABLE_get_integer(INTERP, trans);
@@ -365,7 +365,7 @@
DYNSELF.set_number_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
* VTABLE_get_integer(INTERP, trans);
@@ -421,7 +421,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
FLOATVAL d = VTABLE_get_number(INTERP, trans);
if (d != 0.0) {
@@ -473,7 +473,7 @@
}
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
FLOATVAL d = VTABLE_get_integer(INTERP, trans);
if (d != 0.0) {
@@ -525,7 +525,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_integer(INTERP, trans);
if (d != 0) {
@@ -564,7 +564,7 @@
}
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_integer(INTERP, trans);
if (d != 0) {
@@ -615,7 +615,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_integer(INTERP, trans);
if (d != 0) {
@@ -654,7 +654,7 @@
}
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_integer(INTERP, trans);
if (d != 0) {
@@ -699,7 +699,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
| VTABLE_get_integer(INTERP, trans);
@@ -726,7 +726,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
| VTABLE_get_integer(INTERP, trans);
@@ -766,7 +766,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
& VTABLE_get_integer(INTERP, trans);
@@ -793,7 +793,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
& VTABLE_get_integer(INTERP, trans);
@@ -833,7 +833,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
^ VTABLE_get_integer(INTERP, trans);
@@ -860,7 +860,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
^ VTABLE_get_integer(INTERP, trans);
@@ -900,7 +900,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
>> VTABLE_get_integer(INTERP, trans);
@@ -927,7 +927,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
>> VTABLE_get_integer(INTERP, trans);
@@ -967,7 +967,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
>> VTABLE_get_integer(INTERP, trans);
@@ -994,7 +994,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
>> VTABLE_get_integer(INTERP, trans);
@@ -1034,7 +1034,7 @@
return dest;
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
<< VTABLE_get_integer(INTERP, trans);
@@ -1061,7 +1061,7 @@
DYNSELF.set_integer_native(result);
}
MMD_WmlsString: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans = WmlsString.value.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = DYNSELF.get_integer()
<< VTABLE_get_integer(INTERP, trans);
Modified: trunk/languages/WMLScript/pmc/wmlsstring.pmc
==============================================================================
--- trunk/languages/WMLScript/pmc/wmlsstring.pmc (original)
+++ trunk/languages/WMLScript/pmc/wmlsstring.pmc Thu Apr 5 06:58:31 2007
@@ -1,5 +1,5 @@
/*
-Copyright (C) 2006, The Perl Foundation.
+Copyright (C) 2006-2007, The Perl Foundation.
$Id$
=head1 NAME
@@ -295,8 +295,8 @@
*/
PMC* subtract (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseNumber(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseNumber(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseNumber();
+ PMC * trans2 = WmlsString.value.parseNumber();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -316,7 +316,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
- VTABLE_get_integer(INTERP, value);
@@ -327,7 +327,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
- VTABLE_get_integer(INTERP, value);
@@ -338,7 +338,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsFloat: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL result = VTABLE_get_number(INTERP, trans)
- VTABLE_get_number(INTERP, value);
@@ -355,8 +355,8 @@
void i_subtract (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseNumber(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseNumber(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseNumber();
+ PMC * trans2 = WmlsString.value.parseNumber();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -376,7 +376,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
- VTABLE_get_integer(INTERP, value);
@@ -388,7 +388,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
- VTABLE_get_integer(INTERP, value);
@@ -400,7 +400,7 @@
}
}
MMD_WmlsFloat: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL result = VTABLE_get_number(INTERP, trans)
- VTABLE_get_number(INTERP, value);
@@ -427,8 +427,8 @@
*/
PMC* multiply (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseNumber(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseNumber(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseNumber();
+ PMC * trans2 = WmlsString.value.parseNumber();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -448,7 +448,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
* VTABLE_get_integer(INTERP, value);
@@ -459,7 +459,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
* VTABLE_get_integer(INTERP, value);
@@ -470,7 +470,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsFloat: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL result = VTABLE_get_number(INTERP, trans)
* VTABLE_get_number(INTERP, value);
@@ -487,8 +487,8 @@
void i_multiply (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseNumber(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseNumber(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseNumber();
+ PMC * trans2 = WmlsString.value.parseNumber();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -508,7 +508,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
* VTABLE_get_integer(INTERP, value);
@@ -520,7 +520,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
* VTABLE_get_integer(INTERP, value);
@@ -532,7 +532,7 @@
}
}
MMD_WmlsFloat: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL result = VTABLE_get_number(INTERP, trans)
* VTABLE_get_number(INTERP, value);
@@ -559,8 +559,8 @@
*/
PMC* divide (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseFloat(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseFloat(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseFloat();
+ PMC * trans2 = WmlsString.value.parseFloat();
if ( trans1->vtable->base_type != dynpmc_WmlsInvalid
&& trans2->vtable->base_type != dynpmc_WmlsInvalid ) {
FLOATVAL d = VTABLE_get_number(INTERP, trans2);
@@ -574,7 +574,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
FLOATVAL d = VTABLE_get_number(INTERP, value);
if (d != 0.0) {
@@ -587,7 +587,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
FLOATVAL d = VTABLE_get_number(INTERP, value);
if (d != 0.0) {
@@ -600,7 +600,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsFloat: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL d = VTABLE_get_number(INTERP, value);
if (d != 0.0) {
@@ -619,8 +619,8 @@
void i_divide (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseFloat(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseFloat(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseFloat();
+ PMC * trans2 = WmlsString.value.parseFloat();
if ( trans1->vtable->base_type != dynpmc_WmlsInvalid
&& trans2->vtable->base_type != dynpmc_WmlsInvalid ) {
FLOATVAL d = VTABLE_get_number(INTERP, trans2);
@@ -638,7 +638,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
FLOATVAL d = VTABLE_get_number(INTERP, value);
if (d != 0.0) {
@@ -655,7 +655,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
FLOATVAL d = VTABLE_get_number(INTERP, value);
if (d != 0.0) {
@@ -672,7 +672,7 @@
}
}
MMD_WmlsFloat: {
- PMC * trans = Parrot_WmlsString_parseFloat(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseFloat();
if (trans->vtable->base_type == dynpmc_WmlsFloat) {
FLOATVAL d = VTABLE_get_number(INTERP, value);
if (d != 0.0) {
@@ -704,8 +704,8 @@
*/
PMC* floor_divide (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL d = VTABLE_get_integer(INTERP, trans2);
@@ -719,7 +719,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_number(INTERP, value);
if (d != 0) {
@@ -732,7 +732,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_number(INTERP, value);
if (d != 0) {
@@ -751,8 +751,8 @@
void i_floor_divide (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL d = VTABLE_get_integer(INTERP, trans2);
@@ -770,7 +770,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_number(INTERP, value);
if (d != 0) {
@@ -787,7 +787,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_number(INTERP, value);
if (d != 0) {
@@ -819,8 +819,8 @@
*/
PMC* cmodulus (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL d = VTABLE_get_integer(INTERP, trans2);
@@ -834,7 +834,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_number(INTERP, value);
if (d != 0) {
@@ -847,7 +847,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_number(INTERP, value);
if (d != 0) {
@@ -866,8 +866,8 @@
void i_cmodulus (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL d = VTABLE_get_integer(INTERP, trans2);
@@ -885,7 +885,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_number(INTERP, value);
if (d != 0) {
@@ -902,7 +902,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL d = VTABLE_get_number(INTERP, value);
if (d != 0) {
@@ -934,8 +934,8 @@
*/
PMC* bitwise_or (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -947,7 +947,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
| VTABLE_get_integer(INTERP, value);
@@ -958,7 +958,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
| VTABLE_get_integer(INTERP, value);
@@ -975,8 +975,8 @@
void i_bitwise_or (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -989,7 +989,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
| VTABLE_get_integer(INTERP, value);
@@ -1001,7 +1001,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
| VTABLE_get_integer(INTERP, value);
@@ -1028,8 +1028,8 @@
*/
PMC* bitwise_and (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -1041,7 +1041,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
& VTABLE_get_integer(INTERP, value);
@@ -1052,7 +1052,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
& VTABLE_get_integer(INTERP, value);
@@ -1069,8 +1069,8 @@
void i_bitwise_and (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -1083,7 +1083,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
& VTABLE_get_integer(INTERP, value);
@@ -1095,7 +1095,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
& VTABLE_get_integer(INTERP, value);
@@ -1122,8 +1122,8 @@
*/
PMC* bitwise_xor (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -1135,7 +1135,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
^ VTABLE_get_integer(INTERP, value);
@@ -1146,7 +1146,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
^ VTABLE_get_integer(INTERP, value);
@@ -1163,8 +1163,8 @@
void i_bitwise_xor (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -1177,7 +1177,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
^ VTABLE_get_integer(INTERP, value);
@@ -1189,7 +1189,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
^ VTABLE_get_integer(INTERP, value);
@@ -1216,8 +1216,8 @@
*/
PMC* bitwise_shr (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -1229,7 +1229,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
>> VTABLE_get_integer(INTERP, value);
@@ -1240,7 +1240,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
>> VTABLE_get_integer(INTERP, value);
@@ -1257,8 +1257,8 @@
void i_bitwise_shr (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -1271,7 +1271,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
>> VTABLE_get_integer(INTERP, value);
@@ -1283,7 +1283,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
>> VTABLE_get_integer(INTERP, value);
@@ -1310,8 +1310,8 @@
*/
PMC* bitwise_lsr (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -1323,7 +1323,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
>> VTABLE_get_integer(INTERP, value);
@@ -1334,7 +1334,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
>> VTABLE_get_integer(INTERP, value);
@@ -1351,8 +1351,8 @@
void i_bitwise_lsr (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -1365,7 +1365,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
>> VTABLE_get_integer(INTERP, value);
@@ -1377,7 +1377,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
>> VTABLE_get_integer(INTERP, value);
@@ -1404,8 +1404,8 @@
*/
PMC* bitwise_shl (PMC* value, PMC* dest) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -1417,7 +1417,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
<< VTABLE_get_integer(INTERP, value);
@@ -1428,7 +1428,7 @@
return pmc_new(INTERP, dynpmc_WmlsInvalid);
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
<< VTABLE_get_integer(INTERP, value);
@@ -1445,8 +1445,8 @@
void i_bitwise_shl (PMC* value) {
MMD_WmlsString: {
- PMC * trans1 = Parrot_WmlsString_parseInt(INTERP, SELF);
- PMC * trans2 = Parrot_WmlsString_parseInt(INTERP, value);
+ PMC * trans1 = WmlsString.SELF.parseInt();
+ PMC * trans2 = WmlsString.value.parseInt();
if ( trans1->vtable->base_type == dynpmc_WmlsInteger
&& trans2->vtable->base_type == dynpmc_WmlsInteger ) {
INTVAL result = VTABLE_get_integer(INTERP, trans1)
@@ -1459,7 +1459,7 @@
}
}
MMD_WmlsInteger: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
<< VTABLE_get_integer(INTERP, value);
@@ -1471,7 +1471,7 @@
}
}
MMD_WmlsBoolean: {
- PMC * trans = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * trans = WmlsString.SELF.parseInt();
if (trans->vtable->base_type == dynpmc_WmlsInteger) {
INTVAL result = VTABLE_get_integer(INTERP, trans)
<< VTABLE_get_integer(INTERP, value);
@@ -1612,9 +1612,9 @@
*/
METHOD PMC* parseNumber() {
- PMC * retval = Parrot_WmlsString_parseInt(INTERP, SELF);
+ PMC * retval = SELF.parseInt();
if (retval->vtable->base_type == dynpmc_WmlsInvalid) {
- retval = Parrot_WmlsString_parseFloat(INTERP, SELF);
+ retval = SELF.parseFloat();
}
return retval;
}
