Skip to content
This repository has been archived by the owner on Jun 9, 2018. It is now read-only.

Commit

Permalink
s/interp/INTERP/g
Browse files Browse the repository at this point in the history
  • Loading branch information
@fperrad
fperrad committed May 9, 2009
1 parent 28ba481 commit c0a72c1
Show file tree
Hide file tree
Showing 4 changed files with 44 additions and 44 deletions.
2 changes: 1 addition & 1 deletion src/pmc/luaany.pmc
View file
Expand Up @@ -534,7 +534,7 @@ Without shortcut like in Default PMC.
*/
VTABLE INTVAL cmp(PMC *value) {
INTVAL retval;
Parrot_mmd_multi_dispatch_from_c_args(interp,
Parrot_mmd_multi_dispatch_from_c_args(INTERP,
"cmp", "PP->I", SELF, value, &retval);
return retval;
}
Expand Down
24 changes: 12 additions & 12 deletions src/pmc/luanumber.pmc
View file
Expand Up @@ -324,7 +324,7 @@ Used to unarchive the number.

MULTI PMC *add(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -366,7 +366,7 @@ Used to unarchive the number.

MULTI void i_add(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -410,7 +410,7 @@ Used to unarchive the number.

MULTI PMC *subtract(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -453,7 +453,7 @@ Used to unarchive the number.

MULTI void i_subtract(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -496,7 +496,7 @@ Used to unarchive the number.

MULTI PMC *multiply(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -536,7 +536,7 @@ Used to unarchive the number.

MULTI void i_multiply(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -579,7 +579,7 @@ Used to unarchive the number.

MULTI PMC *divide(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -620,7 +620,7 @@ Used to unarchive the number.

MULTI void i_divide(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -664,7 +664,7 @@ Used to unarchive the number.

MULTI PMC *modulus(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -706,7 +706,7 @@ Used to unarchive the number.

MULTI void i_modulus(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -749,7 +749,7 @@ Used to unarchive the number.

MULTI PMC *pow(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -790,7 +790,7 @@ Used to unarchive the number.

MULTI void i_pow(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, value, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, value, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down
52 changes: 26 additions & 26 deletions src/pmc/luastring.pmc
View file
Expand Up @@ -218,7 +218,7 @@ the specified C<PMC>.
*/
VTABLE PMC* neg(PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand All @@ -241,7 +241,7 @@ the specified C<PMC>.
*/
VTABLE void i_neg() {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand Down Expand Up @@ -312,7 +312,7 @@ Used to unarchive the string.
*/
MULTI PMC* add(LuaNumber value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand All @@ -328,7 +328,7 @@ Used to unarchive the string.

MULTI PMC* add(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand Down Expand Up @@ -366,7 +366,7 @@ Used to unarchive the string.
*/
MULTI void i_add(LuaNumber value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand All @@ -380,7 +380,7 @@ Used to unarchive the string.

MULTI void i_add(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -416,7 +416,7 @@ Used to unarchive the string.
*/
MULTI PMC* subtract(LuaNumber value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand All @@ -432,7 +432,7 @@ Used to unarchive the string.

MULTI PMC* subtract(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand Down Expand Up @@ -470,7 +470,7 @@ Used to unarchive the string.
*/
MULTI void i_subtract(LuaNumber value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand All @@ -484,7 +484,7 @@ Used to unarchive the string.

MULTI void i_subtract(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -521,7 +521,7 @@ Used to unarchive the string.
*/
MULTI PMC* multiply(LuaNumber value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand All @@ -537,7 +537,7 @@ Used to unarchive the string.

MULTI PMC* multiply(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand Down Expand Up @@ -575,7 +575,7 @@ Used to unarchive the string.
*/
MULTI void i_multiply(LuaNumber value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand All @@ -589,7 +589,7 @@ Used to unarchive the string.

MULTI void i_multiply(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -625,7 +625,7 @@ Used to unarchive the string.
*/
MULTI PMC* divide(LuaNumber value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand All @@ -641,7 +641,7 @@ Used to unarchive the string.

MULTI PMC* divide(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand Down Expand Up @@ -680,7 +680,7 @@ Used to unarchive the string.
*/
MULTI void i_divide(LuaNumber value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand All @@ -694,7 +694,7 @@ Used to unarchive the string.

MULTI void i_divide(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -730,7 +730,7 @@ Used to unarchive the string.
*/
MULTI PMC* modulus(LuaNumber value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand All @@ -746,7 +746,7 @@ Used to unarchive the string.

MULTI PMC* modulus(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand Down Expand Up @@ -785,7 +785,7 @@ Used to unarchive the string.
*/
MULTI void i_modulus(LuaNumber value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand All @@ -799,7 +799,7 @@ Used to unarchive the string.

MULTI void i_modulus(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down Expand Up @@ -835,7 +835,7 @@ Used to unarchive the string.
*/
MULTI PMC* pow(LuaNumber value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand All @@ -851,7 +851,7 @@ Used to unarchive the string.

MULTI PMC* pow(LuaString value, PMC *dest) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber) {
Expand Down Expand Up @@ -890,7 +890,7 @@ Used to unarchive the string.
*/
MULTI void i_pow(LuaNumber value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand All @@ -904,7 +904,7 @@ Used to unarchive the string.

MULTI void i_pow(LuaString value) {
PMC * const n;
Parrot_PCCINVOKE(interp, SELF, Parrot_str_new_constant(interp, "tonumber"),
Parrot_PCCINVOKE(INTERP, SELF, Parrot_str_new_constant(INTERP, "tonumber"),
"->P", &n);

if (PMC_type(n) == dynpmc_LuaNumber)
Expand Down
10 changes: 5 additions & 5 deletions src/pmc/luatable.pmc
View file
Expand Up @@ -562,8 +562,8 @@ C<table> mutator.
value = NULL;
}
else {
value = VTABLE_clone(interp, value);
key = VTABLE_clone(interp, key);
value = VTABLE_clone(INTERP, value);
key = VTABLE_clone(INTERP, key);
}

*lua_set(INTERP, t_val(SELF), key) = value;
Expand All @@ -581,7 +581,7 @@ Need by NameSpace.export_to().
VTABLE void set_pmc_keyed_str(STRING *key, PMC *value) {
PMC * const pmc_key = pmc_new(INTERP, dynpmc_LuaString);
VTABLE_set_string_native(INTERP, pmc_key, Parrot_str_copy(INTERP, key));
value = VTABLE_clone(interp, value);
value = VTABLE_clone(INTERP, value);
*lua_set(INTERP, t_val(SELF), pmc_key) = value;
}

Expand Down Expand Up @@ -806,8 +806,8 @@ The C<==> operation. Compares reference (not in depth).
value = NULL;
}
else {
value = VTABLE_clone(interp, value);
key = VTABLE_clone(interp, key);
value = VTABLE_clone(INTERP, value);
key = VTABLE_clone(INTERP, key);
}

*lua_set(INTERP, t_val(SELF), key) = value;
Expand Down

0 comments on commit c0a72c1

Please sign in to comment.