[svn:parrot] r36276 - in branches/pdd28str_part2: compilers/pirc/src include/parrot languages/lua/src/pmc languages/regex/pmc src src/io src/jit/i386 src/ops src/pmc src/string
allison at svn.parrot.org
allison at svn.parrot.org
Mon Feb 2 07:51:09 UTC 2009
Author: allison
Date: Mon Feb 2 07:51:06 2009
New Revision: 36276
URL: https://trac.parrot.org/parrot/changeset/36276
Log:
[pdd28str] Renaming 'string_equal' to 'Parrot_str_equal'.
Modified:
branches/pdd28str_part2/compilers/pirc/src/bcgen.c
branches/pdd28str_part2/include/parrot/string_funcs.h
branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc
branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc
branches/pdd28str_part2/src/dynext.c
branches/pdd28str_part2/src/exceptions.c
branches/pdd28str_part2/src/hll.c
branches/pdd28str_part2/src/inter_call.c
branches/pdd28str_part2/src/io/filehandle.c
branches/pdd28str_part2/src/jit/i386/core.jit
branches/pdd28str_part2/src/library.c
branches/pdd28str_part2/src/multidispatch.c
branches/pdd28str_part2/src/oo.c
branches/pdd28str_part2/src/ops/cmp.ops
branches/pdd28str_part2/src/packfile.c
branches/pdd28str_part2/src/pmc/class.pmc
branches/pdd28str_part2/src/pmc/closure.pmc
branches/pdd28str_part2/src/pmc/codestring.pmc
branches/pdd28str_part2/src/pmc/complex.pmc
branches/pdd28str_part2/src/pmc/cpointer.pmc
branches/pdd28str_part2/src/pmc/default.pmc
branches/pdd28str_part2/src/pmc/eventhandler.pmc
branches/pdd28str_part2/src/pmc/exception.pmc
branches/pdd28str_part2/src/pmc/filehandle.pmc
branches/pdd28str_part2/src/pmc/lexinfo.pmc
branches/pdd28str_part2/src/pmc/namespace.pmc
branches/pdd28str_part2/src/pmc/parrotinterpreter.pmc
branches/pdd28str_part2/src/pmc/pmcproxy.pmc
branches/pdd28str_part2/src/pmc/role.pmc
branches/pdd28str_part2/src/pmc/scalar.pmc
branches/pdd28str_part2/src/pmc/scheduler.pmc
branches/pdd28str_part2/src/pmc/string.pmc
branches/pdd28str_part2/src/pmc/stringhandle.pmc
branches/pdd28str_part2/src/pmc/sub.pmc
branches/pdd28str_part2/src/pmc/task.pmc
branches/pdd28str_part2/src/scheduler.c
branches/pdd28str_part2/src/string/api.c
branches/pdd28str_part2/src/string/charset.c
branches/pdd28str_part2/src/string/encoding.c
branches/pdd28str_part2/src/sub.c
Modified: branches/pdd28str_part2/compilers/pirc/src/bcgen.c
==============================================================================
--- branches/pdd28str_part2/compilers/pirc/src/bcgen.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/compilers/pirc/src/bcgen.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -190,7 +190,7 @@
while (index < count) {
constant = bc->interp->code->const_table->constants[index];
if (constant->type == PFC_STRING) {
- if (string_equal(bc->interp, constant->u.string, parrotstr) == 0) {
+ if (Parrot_str_equal(bc->interp, constant->u.string, parrotstr) == 0) {
#if DEBUGBC
fprintf(stderr, "found string %s at index %d\n", str, index);
#endif
@@ -268,7 +268,7 @@
if (constant->type == PFC_KEY) {
STRING *s2 = key_set_to_string(bc->interp, constant->u.key);
- if (string_equal(bc->interp, s1, s2) == 0) {
+ if (Parrot_str_equal(bc->interp, s1, s2) == 0) {
#if DEBUGBC
fprintf(stderr, "found equal key (%d)\n", index);
#endif
Modified: branches/pdd28str_part2/include/parrot/string_funcs.h
==============================================================================
--- branches/pdd28str_part2/include/parrot/string_funcs.h Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/include/parrot/string_funcs.h Mon Feb 2 07:51:06 2009 (r36276)
@@ -259,7 +259,7 @@
PARROT_EXPORT
PARROT_WARN_UNUSED_RESULT
-INTVAL string_equal(PARROT_INTERP,
+INTVAL Parrot_str_equal(PARROT_INTERP,
ARGIN_NULLOK(const STRING *s1),
ARGIN_NULLOK(const STRING *s2))
__attribute__nonnull__(1);
@@ -620,7 +620,7 @@
#define ASSERT_ARGS_string_downcase_inplace __attribute__unused__ int _ASSERT_ARGS_CHECK = \
PARROT_ASSERT_ARG(interp) \
|| PARROT_ASSERT_ARG(s)
-#define ASSERT_ARGS_string_equal __attribute__unused__ int _ASSERT_ARGS_CHECK = \
+#define ASSERT_ARGS_Parrot_str_equal __attribute__unused__ int _ASSERT_ARGS_CHECK = \
PARROT_ASSERT_ARG(interp)
#define ASSERT_ARGS_string_escape_string __attribute__unused__ int _ASSERT_ARGS_CHECK = \
PARROT_ASSERT_ARG(interp)
Modified: branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc
==============================================================================
--- branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/languages/lua/src/pmc/luastring.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -850,7 +850,7 @@
MULTI INTVAL is_equal(LuaString value) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
- return (INTVAL)(0 == string_equal(INTERP, s, v));
+ return (INTVAL)(0 == Parrot_str_equal(INTERP, s, v));
}
MULTI INTVAL is_equal(DEFAULT value) {
@@ -1006,7 +1006,7 @@
PMC *retval = pmc_new(INTERP, dynpmc_LuaBoolean);
if (PMC_type(SELF) == PMC_type(value)
- && 0 == string_equal(INTERP, PMC_str_val(SELF),
+ && 0 == Parrot_str_equal(INTERP, PMC_str_val(SELF),
VTABLE_get_string(INTERP, value)))
VTABLE_set_bool(INTERP, retval, 1);
else
Modified: branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc
==============================================================================
--- branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/languages/regex/pmc/matchrange.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -57,10 +57,10 @@
STRING *start = Parrot_str_new(interp, "start", 5);
STRING *end;
- if (0 == string_equal(interp, key, start))
+ if (0 == Parrot_str_equal(interp, key, start))
return &RANGE_START(self);
end = Parrot_str_new(interp, "end", 3);
- if (0 == string_equal(interp, key, end))
+ if (0 == Parrot_str_equal(interp, key, end))
return &RANGE_END(self);
Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_KEY_NOT_FOUND,
"MatchRange: key is neither 'start' nor 'end'");
Modified: branches/pdd28str_part2/src/dynext.c
==============================================================================
--- branches/pdd28str_part2/src/dynext.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/dynext.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -514,7 +514,7 @@
STRING * const type =
VTABLE_get_string(s, VTABLE_getprop(s, lib_pmc, type_str));
- if (!string_equal(s, type, ops)) {
+ if (!Parrot_str_equal(s, type, ops)) {
/* we can't clone oplibs in the normal way, since they're actually
* shared between interpreters dynop_register modifies the (statically
* allocated) op_lib_t structure from core_ops.c, for example.
Modified: branches/pdd28str_part2/src/exceptions.c
==============================================================================
--- branches/pdd28str_part2/src/exceptions.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/exceptions.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -120,7 +120,7 @@
Parrot_io_flush(interp->debugger, Parrot_io_STDERR(interp->debugger));
}
- if (string_equal(interp, message, CONST_STRING(interp, "")) == 1) {
+ if (Parrot_str_equal(interp, message, CONST_STRING(interp, "")) == 1) {
Parrot_io_eprintf(interp, "%S\n", message);
/* caution against output swap (with PDB_backtrace) */
@@ -203,7 +203,7 @@
const INTVAL severity = VTABLE_get_integer_keyed_str(interp, exception, CONST_STRING(interp, "severity"));
if (severity < EXCEPT_error) {
PMC * const resume = VTABLE_get_attr_str(interp, exception, CONST_STRING(interp, "resume"));
- if (string_equal(interp, message, CONST_STRING(interp, "")) == 1) {
+ if (Parrot_str_equal(interp, message, CONST_STRING(interp, "")) == 1) {
Parrot_io_eprintf(interp, "%S\n", message);
}
else {
Modified: branches/pdd28str_part2/src/hll.c
==============================================================================
--- branches/pdd28str_part2/src/hll.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/hll.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -238,7 +238,7 @@
if (!PMC_IS_NULL(lib_name)) {
const STRING * const name = VTABLE_get_string(interp, lib_name);
- if (string_equal(interp, name, hll_lib) == 0)
+ if (Parrot_str_equal(interp, name, hll_lib) == 0)
break;
}
}
Modified: branches/pdd28str_part2/src/inter_call.c
==============================================================================
--- branches/pdd28str_part2/src/inter_call.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/inter_call.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -1191,7 +1191,7 @@
? st->dest.ctx->constants[idx]->u.string
: CTX_REG_STR(st->dest.ctx, idx);
- if (st->name == param || string_equal(interp, st->name, param) == 0) {
+ if (st->name == param || Parrot_str_equal(interp, st->name, param) == 0) {
++i;
st->dest.sig = VTABLE_get_integer_keyed_int(interp,
st->dest.u.op.signature, i);
Modified: branches/pdd28str_part2/src/io/filehandle.c
==============================================================================
--- branches/pdd28str_part2/src/io/filehandle.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/io/filehandle.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -653,7 +653,7 @@
if (STRING_IS_NULL(handle_struct->encoding))
return 0;
- if (string_equal(interp, value, handle_struct->encoding) == 0)
+ if (Parrot_str_equal(interp, value, handle_struct->encoding) == 0)
return 1;
return 0;
Modified: branches/pdd28str_part2/src/jit/i386/core.jit
==============================================================================
--- branches/pdd28str_part2/src/jit/i386/core.jit Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/jit/i386/core.jit Mon Feb 2 07:51:06 2009 (r36276)
@@ -1146,7 +1146,7 @@
push_<typ1>(1);
Parrot_jit_emit_get_INTERP(interp, jit_info->native_ptr, emit_ECX);
emitm_pushl_r(NATIVECODE, emit_ECX);
- CALL_FUNCTION(jit_info, string_equal);
+ CALL_FUNCTION(jit_info, Parrot_str_equal);
emitm_addb_i_r(NATIVECODE, 12, emit_ESP);
jit_emit_test_r_i(NATIVECODE, emit_EAX);
jit_emit_jcc(jit_info, <op>, *INT_CONST[3]);
Modified: branches/pdd28str_part2/src/library.c
==============================================================================
--- branches/pdd28str_part2/src/library.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/library.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -530,7 +530,7 @@
if (Parrot_str_byte_length(interp, test_path) > 4) {
STRING *orig_ext = Parrot_str_substr(interp, test_path, -4, 4, NULL, 0);
/* First try substituting .pbc for the .pir extension */
- if (string_equal(interp, orig_ext, pir_extension) == 0) {
+ if (Parrot_str_equal(interp, orig_ext, pir_extension) == 0) {
STRING *without_ext = Parrot_str_chopn(interp, test_path, 4);
test_path = Parrot_str_append(interp, without_ext, bytecode_extension);
result = try_load_path(interp, test_path);
@@ -538,7 +538,7 @@
return result;
}
/* Next try substituting .pir, then .pasm for the .pbc extension */
- else if (string_equal(interp, orig_ext, bytecode_extension) == 0) {
+ else if (Parrot_str_equal(interp, orig_ext, bytecode_extension) == 0) {
STRING *without_ext = Parrot_str_chopn(interp, test_path, 4);
test_path = Parrot_str_append(interp, without_ext, pir_extension);
result = try_load_path(interp, test_path);
@@ -556,7 +556,7 @@
/* Finally, try substituting .pbc for the .pasm extension. */
if (Parrot_str_byte_length(interp, test_path) > 5) {
STRING *orig_ext = Parrot_str_substr(interp, test_path, -5, 5, NULL, 0);
- if (string_equal(interp, orig_ext, pasm_extension) == 0) {
+ if (Parrot_str_equal(interp, orig_ext, pasm_extension) == 0) {
STRING *without_ext = Parrot_str_chopn(interp, test_path, 5);
test_path = Parrot_str_append(interp, without_ext, bytecode_extension);
result = try_load_path(interp, test_path);
Modified: branches/pdd28str_part2/src/multidispatch.c
==============================================================================
--- branches/pdd28str_part2/src/multidispatch.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/multidispatch.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -775,13 +775,13 @@
STRING *type_name = VTABLE_get_string_keyed_int(interp, type_list, i);
INTVAL type;
- if (string_equal(interp, type_name, CONST_STRING(interp, "DEFAULT"))==0)
+ if (Parrot_str_equal(interp, type_name, CONST_STRING(interp, "DEFAULT"))==0)
type = enum_type_PMC;
- else if (string_equal(interp, type_name, CONST_STRING(interp, "STRING"))==0)
+ else if (Parrot_str_equal(interp, type_name, CONST_STRING(interp, "STRING"))==0)
type = enum_type_STRING;
- else if (string_equal(interp, type_name, CONST_STRING(interp, "INTVAL"))==0)
+ else if (Parrot_str_equal(interp, type_name, CONST_STRING(interp, "INTVAL"))==0)
type = enum_type_INTVAL;
- else if (string_equal(interp, type_name, CONST_STRING(interp, "FLOATVAL"))==0)
+ else if (Parrot_str_equal(interp, type_name, CONST_STRING(interp, "FLOATVAL"))==0)
type = enum_type_FLOATVAL;
else
type = pmc_type(interp, type_name);
Modified: branches/pdd28str_part2/src/oo.c
==============================================================================
--- branches/pdd28str_part2/src/oo.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/oo.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -799,7 +799,7 @@
return found;
- if (!string_equal(interp, method_name, CONST_STRING(interp, "__get_string")))
+ if (!Parrot_str_equal(interp, method_name, CONST_STRING(interp, "__get_string")))
return find_method_direct_1(interp, _class, CONST_STRING(interp, "__get_repr"));
return PMCNULL;
@@ -1220,7 +1220,7 @@
const STRING * const check =
VTABLE_get_string_keyed_int(interp, exclude, i);
- if (string_equal(interp, check, method_name) == 0) {
+ if (Parrot_str_equal(interp, check, method_name) == 0) {
excluded = 1;
break;
}
Modified: branches/pdd28str_part2/src/ops/cmp.ops
==============================================================================
--- branches/pdd28str_part2/src/ops/cmp.ops Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/ops/cmp.ops Mon Feb 2 07:51:06 2009 (r36276)
@@ -77,7 +77,7 @@
}
op eq(in STR, in STR, inconst LABEL) :base_core {
- if (string_equal(interp, $1, $2) == 0) {
+ if (Parrot_str_equal(interp, $1, $2) == 0) {
goto OFFSET($3);
}
}
@@ -113,7 +113,7 @@
}
op eq(invar PMC, in STR, inconst LABEL) :base_core {
- if (0 == string_equal(interp,
+ if (0 == Parrot_str_equal(interp,
VTABLE_get_string(interp, $1), $2)) {
goto OFFSET($3);
}
@@ -184,7 +184,7 @@
}
op ne(in STR, in STR, inconst LABEL) :base_core {
- if (string_equal(interp, $1, $2) != 0) {
+ if (Parrot_str_equal(interp, $1, $2) != 0) {
goto OFFSET($3);
}
}
@@ -214,7 +214,7 @@
}
op ne(invar PMC, in STR, inconst LABEL) :base_core {
- if (0 != string_equal(interp,
+ if (0 != Parrot_str_equal(interp,
VTABLE_get_string(interp, $1), $2)) {
goto OFFSET($3);
}
@@ -842,7 +842,7 @@
}
inline op iseq(out INT, in STR, in STR) {
- $1 = string_equal(interp, $2, $3) == 0;
+ $1 = Parrot_str_equal(interp, $2, $3) == 0;
}
inline op iseq(out INT, invar PMC, invar PMC) {
@@ -873,7 +873,7 @@
}
inline op isne(out INT, in STR, in STR) {
- $1 = string_equal(interp, $2, $3) != 0;
+ $1 = Parrot_str_equal(interp, $2, $3) != 0;
}
inline op isne(out INT, invar PMC, invar PMC) {
Modified: branches/pdd28str_part2/src/packfile.c
==============================================================================
--- branches/pdd28str_part2/src/packfile.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/packfile.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -4175,7 +4175,7 @@
STRING *key_name = PF_CONST(self->code, key)->u.string;
for (i = 0; i < self->num_keys; i++) {
STRING *test_key = PF_CONST(self->code, self->keys[i]->name)->u.string;
- if (string_equal(interp, test_key, key_name) == 0) {
+ if (Parrot_str_equal(interp, test_key, key_name) == 0) {
key_id = i;
break;
}
@@ -4289,7 +4289,7 @@
if (key != NULL) {
for (i = 0; i < self->num_keys; i++) {
STRING *test_key = PF_CONST(self->code, self->keys[i]->name)->u.string;
- if (string_equal(interp, test_key, key) == 0) {
+ if (Parrot_str_equal(interp, test_key, key) == 0) {
key_id = i;
break;
}
@@ -4420,7 +4420,7 @@
if (VTABLE_exists_keyed_str(interp, is_loaded_hash, wo_ext))
return;
pbc = CONST_STRING(interp, "pbc");
- if (string_equal(interp, ext, pbc) == 0)
+ if (Parrot_str_equal(interp, ext, pbc) == 0)
file_type = PARROT_RUNTIME_FT_PBC;
else
file_type = PARROT_RUNTIME_FT_SOURCE;
Modified: branches/pdd28str_part2/src/pmc/class.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/class.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/class.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -774,7 +774,7 @@
STRING * const current_name = VTABLE_get_string(interp, current_parent);
/* throw an exception if we already have this parent */
- if (string_equal(interp, current_name, parent_name) == 0)
+ if (Parrot_str_equal(interp, current_name, parent_name) == 0)
Parrot_ex_throw_from_c_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
"The class '%S' already has a parent class '%S'. "
@@ -875,40 +875,40 @@
/* What should we return? */
PMC *found;
- if (string_equal(interp, what, CONST_STRING(interp, "name")) == 0) {
+ if (Parrot_str_equal(interp, what, CONST_STRING(interp, "name")) == 0) {
found = pmc_new(interp, enum_class_String);
VTABLE_set_string_native(interp, found, _class->name);
}
- else if (string_equal(interp, what, CONST_STRING(interp, "id")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "id")) == 0) {
found = pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, found, _class->id);
}
- else if (string_equal(interp, what, CONST_STRING(interp, "namespace")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "namespace")) == 0) {
/* Should not clone this. */
return _class->_namespace;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "attributes")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "attributes")) == 0) {
found = _class->attrib_metadata;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "attrib_index")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "attrib_index")) == 0) {
found = _class->attrib_index;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "methods")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "methods")) == 0) {
found = _class->methods;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "vtable_overrides")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "vtable_overrides")) == 0) {
found = _class->vtable_overrides;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "parents")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "parents")) == 0) {
found = _class->parents;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "all_parents")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "all_parents")) == 0) {
found = _class->all_parents;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "roles")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "roles")) == 0) {
found = _class->roles;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "flags")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "flags")) == 0) {
found = pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, found,
(INTVAL)PObj_get_FLAGS(SELF));
@@ -1196,7 +1196,7 @@
: make_class_name(interp, SELF);
/* Check if the passed name is the same as the stored short name. */
- INTVAL name_match = string_equal(interp, classname, self_name) == 0;
+ INTVAL name_match = Parrot_str_equal(interp, classname, self_name) == 0;
string_free(interp, classname);
if (is_proxy)
@@ -1236,7 +1236,7 @@
PMC *want_class;
/* hard-code this one exception right away */
- if (string_equal(interp, classname, CONST_STRING(interp, "Class")) == 0)
+ if (Parrot_str_equal(interp, classname, CONST_STRING(interp, "Class")) == 0)
return 1;
want_class = Parrot_oo_get_class_str(interp, classname);
Modified: branches/pdd28str_part2/src/pmc/closure.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/closure.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/closure.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -209,7 +209,7 @@
if (PMC_IS_NULL(outer))
continue;
- if (0 == string_equal(INTERP, PMC_sub(outer)->subid,
+ if (0 == Parrot_str_equal(INTERP, PMC_sub(outer)->subid,
PMC_sub(sub->outer_sub)->subid)) {
sub->outer_sub = outer;
break;
Modified: branches/pdd28str_part2/src/pmc/codestring.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/codestring.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/codestring.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -86,7 +86,7 @@
I0 = string_to_int(INTERP, key);
repl = VTABLE_get_string_keyed_int(INTERP, args, I0);
}
- else if (0 == string_equal(INTERP, key, comma)) {
+ else if (0 == Parrot_str_equal(INTERP, key, comma)) {
repl = VTABLE_get_string_keyed_int(INTERP, args, 0);
repl = Parrot_str_new_COW(INTERP, repl);
I1 = VTABLE_elements(INTERP, args);
@@ -99,7 +99,7 @@
I0++;
}
}
- else if (0 == string_equal(INTERP, key, percent)) {
+ else if (0 == Parrot_str_equal(INTERP, key, percent)) {
repl = percent;
}
else {
Modified: branches/pdd28str_part2/src/pmc/complex.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/complex.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/complex.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -483,10 +483,10 @@
VTABLE FLOATVAL get_number_keyed_str(STRING *key) {
FLOATVAL value;
- if (string_equal(INTERP, key, CONST_STRING(INTERP, "real")) == 0) {
+ if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "real")) == 0) {
GET_ATTR_re(INTERP, SELF, value);
}
- else if (string_equal(INTERP, key, CONST_STRING(INTERP, "imag")) == 0) {
+ else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "imag")) == 0) {
GET_ATTR_im(INTERP, SELF, value);
}
else
@@ -670,10 +670,10 @@
}
VTABLE void set_number_keyed_str(STRING *key, FLOATVAL value) {
- if (string_equal(INTERP, key, CONST_STRING(INTERP, "real")) == 0) {
+ if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "real")) == 0) {
SET_ATTR_re(INTERP, SELF, value);
}
- else if (string_equal(INTERP, key, CONST_STRING(INTERP, "imag")) == 0) {
+ else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "imag")) == 0) {
SET_ATTR_im(INTERP, SELF, value);
}
else
Modified: branches/pdd28str_part2/src/pmc/cpointer.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/cpointer.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/cpointer.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -91,12 +91,12 @@
pobject_lives(interp, (PObj *)data->sig);
if (data->pointer) {
- if (string_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
+ if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
PMC **pmc_pointer = (PMC **) data->pointer;
PARROT_ASSERT(*pmc_pointer);
pobject_lives(interp, (PObj *) *pmc_pointer);
}
- else if (string_equal(interp, data->sig, CONST_STRING(interp, "S")) == 0) {
+ else if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "S")) == 0) {
STRING **str_pointer = (STRING **) data->pointer;
PARROT_ASSERT(*str_pointer);
pobject_lives(interp, (PObj *) *str_pointer);
@@ -214,11 +214,11 @@
VTABLE INTVAL get_integer() {
Parrot_CPointer_attributes * const data = PARROT_CPOINTER(SELF);
- if (string_equal(interp, data->sig, CONST_STRING(interp, "I")) == 0) {
+ if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "I")) == 0) {
INTVAL *int_pointer = (INTVAL *) data->pointer;
return *int_pointer;
}
- else if (string_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
+ else if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
PMC **pmc_pointer = (PMC **) data->pointer;
return VTABLE_get_integer(interp, *pmc_pointer);
}
@@ -241,11 +241,11 @@
VTABLE void set_integer_native(INTVAL value) {
Parrot_CPointer_attributes * const data = PARROT_CPOINTER(SELF);
- if (string_equal(interp, data->sig, CONST_STRING(interp, "I")) == 0) {
+ if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "I")) == 0) {
INTVAL *int_pointer = (INTVAL *) data->pointer;
*int_pointer = value;
}
- else if (string_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
+ else if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
PMC **pmc_pointer = (PMC **) data->pointer;
VTABLE_set_integer_native(interp, *pmc_pointer, value);
}
@@ -269,11 +269,11 @@
VTABLE FLOATVAL get_number() {
Parrot_CPointer_attributes * const data = PARROT_CPOINTER(SELF);
- if (string_equal(interp, data->sig, CONST_STRING(interp, "N")) == 0) {
+ if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "N")) == 0) {
FLOATVAL *num_pointer = (FLOATVAL *) data->pointer;
return *num_pointer;
}
- else if (string_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
+ else if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
PMC **pmc_pointer = (PMC **) data->pointer;
return VTABLE_get_number(interp, *pmc_pointer);
}
@@ -295,11 +295,11 @@
VTABLE void set_number_native(FLOATVAL value) {
Parrot_CPointer_attributes * const data = PARROT_CPOINTER(SELF);
- if (string_equal(interp, data->sig, CONST_STRING(interp, "N")) == 0) {
+ if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "N")) == 0) {
FLOATVAL *num_pointer = (FLOATVAL *) data->pointer;
*num_pointer = value;
}
- else if (string_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
+ else if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
PMC **pmc_pointer = (PMC **) data->pointer;
VTABLE_set_number_native(interp, *pmc_pointer, value);
}
@@ -323,11 +323,11 @@
VTABLE STRING *get_string() {
Parrot_CPointer_attributes * const data = PARROT_CPOINTER(SELF);
- if (string_equal(interp, data->sig, CONST_STRING(interp, "S")) == 0) {
+ if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "S")) == 0) {
STRING **str_pointer = (STRING **) data->pointer;
return *str_pointer;
}
- else if (string_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
+ else if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
PMC **pmc_pointer = (PMC **) data->pointer;
return VTABLE_get_string(interp, *pmc_pointer);
}
@@ -349,11 +349,11 @@
VTABLE void set_string_native(STRING *value) {
Parrot_CPointer_attributes * const data = PARROT_CPOINTER(SELF);
- if (string_equal(interp, data->sig, CONST_STRING(interp, "S")) == 0) {
+ if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "S")) == 0) {
STRING **str_pointer = (STRING **) data->pointer;
*str_pointer = value;
}
- else if (string_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
+ else if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
PMC **pmc_pointer = (PMC **) data->pointer;
VTABLE_set_string_native(interp, *pmc_pointer, value);
}
@@ -376,7 +376,7 @@
VTABLE PMC *get_pmc() {
Parrot_CPointer_attributes * const data = PARROT_CPOINTER(SELF);
- if (string_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
+ if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
PMC **pmc_pointer = (PMC **) data->pointer;
return *pmc_pointer;
}
@@ -397,7 +397,7 @@
VTABLE void set_pmc(PMC *value) {
Parrot_CPointer_attributes * const data = PARROT_CPOINTER(SELF);
- if (string_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
+ if (Parrot_str_equal(interp, data->sig, CONST_STRING(interp, "P")) == 0) {
PMC **pmc_pointer = (PMC **) data->pointer;
*pmc_pointer = value;
}
Modified: branches/pdd28str_part2/src/pmc/default.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/default.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/default.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -944,13 +944,13 @@
*/
PMC *inspect_str(STRING *name) {
- if (string_equal(interp, name, CONST_STRING(interp, "flags")) == 0) {
+ if (Parrot_str_equal(interp, name, CONST_STRING(interp, "flags")) == 0) {
PMC *found = pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, found,
(INTVAL)PObj_get_FLAGS(SELF));
return found;
}
- else if (string_equal(interp, name, CONST_STRING(interp, "mro")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "mro")) == 0) {
return VTABLE_clone(interp, SELF->vtable->mro);
}
else
Modified: branches/pdd28str_part2/src/pmc/eventhandler.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/eventhandler.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/eventhandler.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -246,7 +246,7 @@
= PMC_data_typed(SELF, Parrot_EventHandler_attributes *);
PMC *value = PMCNULL;
- if (string_equal(interp, name, CONST_STRING(interp, "code")) == 0) {
+ if (Parrot_str_equal(interp, name, CONST_STRING(interp, "code")) == 0) {
value = core_struct->code;
}
@@ -306,11 +306,11 @@
PMC *type = VTABLE_get_attr_str(interp, event, CONST_STRING(interp, "type"));
STRING *type_str = VTABLE_get_string(interp, type);
- if (string_equal(interp, type_str, CONST_STRING(interp, "event")) == 0) {
+ if (Parrot_str_equal(interp, type_str, CONST_STRING(interp, "event")) == 0) {
PMC *subtype = VTABLE_get_attr_str(interp, event, CONST_STRING(interp, "subtype"));
STRING *subtype_str = VTABLE_get_string(interp, subtype);
- if (string_equal(interp, subtype_str, handler_struct->type) == 0) {
+ if (Parrot_str_equal(interp, subtype_str, handler_struct->type) == 0) {
RETURN(INTVAL 1);
}
}
Modified: branches/pdd28str_part2/src/pmc/exception.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/exception.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/exception.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -239,7 +239,7 @@
STRING *name = VTABLE_get_string(INTERP, key);
STRING *message;
- if (string_equal(INTERP, name, CONST_STRING(INTERP, "message")) == 0) {
+ if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "message")) == 0) {
GET_ATTR_message(interp, SELF, message);
}
else {
@@ -265,16 +265,16 @@
STRING *name = VTABLE_get_string(INTERP, key);
INTVAL result = 0;
- if (string_equal(INTERP, name, CONST_STRING(INTERP, "type")) == 0) {
+ if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "type")) == 0) {
GET_ATTR_type(interp, SELF, result);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "severity")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "severity")) == 0) {
GET_ATTR_severity(interp, SELF, result);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "exit_code")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "exit_code")) == 0) {
GET_ATTR_exit_code(interp, SELF, result);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "handled")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handled")) == 0) {
GET_ATTR_handled(interp, SELF, result);
}
else {
@@ -299,16 +299,16 @@
VTABLE INTVAL get_integer_keyed_str(STRING *key) {
INTVAL result = 0;
- if (string_equal(INTERP, key, CONST_STRING(INTERP, "type")) == 0) {
+ if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "type")) == 0) {
GET_ATTR_type(interp, SELF, result);
}
- else if (string_equal(INTERP, key, CONST_STRING(INTERP, "severity")) == 0) {
+ else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "severity")) == 0) {
GET_ATTR_severity(interp, SELF, result);
}
- else if (string_equal(INTERP, key, CONST_STRING(INTERP, "exit_code")) == 0) {
+ else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "exit_code")) == 0) {
GET_ATTR_exit_code(interp, SELF, result);
}
- else if (string_equal(INTERP, key, CONST_STRING(INTERP, "handled")) == 0) {
+ else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "handled")) == 0) {
GET_ATTR_handled(interp, SELF, result);
}
else {
@@ -393,7 +393,7 @@
VTABLE void set_string_keyed(PMC *key, STRING *value) {
STRING *name = VTABLE_get_string(INTERP, key);
- if (string_equal(INTERP, name, CONST_STRING(INTERP, "message")) == 0) {
+ if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "message")) == 0) {
SET_ATTR_message(interp, SELF, value);
}
else {
@@ -416,16 +416,16 @@
VTABLE void set_integer_keyed(PMC *key, INTVAL value) {
STRING *name = VTABLE_get_string(INTERP, key);
- if (string_equal(INTERP, name, CONST_STRING(INTERP, "type")) == 0) {
+ if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "type")) == 0) {
SET_ATTR_type(interp, SELF, value);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "severity")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "severity")) == 0) {
SET_ATTR_severity(interp, SELF, value);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "exit_code")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "exit_code")) == 0) {
SET_ATTR_exit_code(interp, SELF, value);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "handled")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handled")) == 0) {
SET_ATTR_handled(interp, SELF, value);
}
else {
@@ -446,16 +446,16 @@
*/
VTABLE void set_integer_keyed_str(STRING *key, INTVAL value) {
- if (string_equal(INTERP, key, CONST_STRING(INTERP, "type")) == 0) {
+ if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "type")) == 0) {
SET_ATTR_type(interp, SELF, value);
}
- else if (string_equal(INTERP, key, CONST_STRING(INTERP, "severity")) == 0) {
+ else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "severity")) == 0) {
SET_ATTR_severity(interp, SELF, value);
}
- else if (string_equal(INTERP, key, CONST_STRING(INTERP, "exit_code")) == 0) {
+ else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "exit_code")) == 0) {
SET_ATTR_exit_code(interp, SELF, value);
}
- else if (string_equal(INTERP, key, CONST_STRING(INTERP, "handled")) == 0) {
+ else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "handled")) == 0) {
SET_ATTR_handled(interp, SELF, value);
}
else {
@@ -561,46 +561,46 @@
VTABLE PMC *get_attr_str(STRING *name) {
PMC *value = PMCNULL;
- if (string_equal(INTERP, name, CONST_STRING(INTERP, "type")) == 0) {
+ if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "type")) == 0) {
INTVAL type;
GET_ATTR_type(interp, SELF, type);
value = pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, value, type);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "severity")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "severity")) == 0) {
INTVAL severity;
GET_ATTR_severity(interp, SELF, severity);
value = pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, value, severity);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "exit_code")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "exit_code")) == 0) {
INTVAL exit_code;
GET_ATTR_exit_code(interp, SELF, exit_code);
value = pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, value, exit_code);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "handled")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handled")) == 0) {
INTVAL handled;
GET_ATTR_handled(interp, SELF, handled);
value = pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, value, handled);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "message")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "message")) == 0) {
STRING *message;
GET_ATTR_message(interp, SELF, message);
value = pmc_new(interp, enum_class_String);
VTABLE_set_string_native(interp, value, message);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "payload")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "payload")) == 0) {
GET_ATTR_payload(interp, SELF, value);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "resume")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "resume")) == 0) {
GET_ATTR_resume(interp, SELF, value);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "backtrace")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "backtrace")) == 0) {
GET_ATTR_backtrace(interp, SELF, value);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "handler_iter")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handler_iter")) == 0) {
GET_ATTR_handler_iter(interp, SELF, value);
}
else {
@@ -623,36 +623,36 @@
*/
VTABLE void set_attr_str(STRING *name, PMC *value) {
- if (string_equal(INTERP, name, CONST_STRING(INTERP, "type")) == 0) {
+ if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "type")) == 0) {
INTVAL type = VTABLE_get_integer(interp, value);
SET_ATTR_type(interp, SELF, type);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "severity")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "severity")) == 0) {
INTVAL severity = VTABLE_get_integer(interp, value);
SET_ATTR_severity(interp, SELF, severity);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "exit_code")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "exit_code")) == 0) {
INTVAL exit_code = VTABLE_get_integer(interp, value);
SET_ATTR_exit_code(interp, SELF, exit_code);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "handled")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handled")) == 0) {
INTVAL handled = VTABLE_get_integer(interp, value);
SET_ATTR_handled(interp, SELF, handled);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "message")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "message")) == 0) {
STRING *message = VTABLE_get_string(interp, value);
SET_ATTR_message(interp, SELF, message);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "payload")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "payload")) == 0) {
SET_ATTR_payload(interp, SELF, value);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "resume")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "resume")) == 0) {
SET_ATTR_resume(interp, SELF, value);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "backtrace")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "backtrace")) == 0) {
SET_ATTR_backtrace(interp, SELF, value);
}
- else if (string_equal(INTERP, name, CONST_STRING(INTERP, "handler_iter")) == 0) {
+ else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handler_iter")) == 0) {
SET_ATTR_handler_iter(interp, SELF, value);
}
else {
Modified: branches/pdd28str_part2/src/pmc/filehandle.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/filehandle.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/filehandle.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -551,11 +551,11 @@
STRING *fullbuffer_string = CONST_STRING(INTERP, "full-buffered");
if (got_type) {
- if (string_equal(INTERP, new_type, nobuffer_string) == 0)
+ if (Parrot_str_equal(INTERP, new_type, nobuffer_string) == 0)
Parrot_io_setbuf(INTERP, SELF, PIOCTL_NONBUF);
- else if (string_equal(INTERP, new_type, linebuffer_string) == 0)
+ else if (Parrot_str_equal(INTERP, new_type, linebuffer_string) == 0)
Parrot_io_setlinebuf(INTERP, SELF);
- else if (string_equal(INTERP, new_type, fullbuffer_string) == 0)
+ else if (Parrot_str_equal(INTERP, new_type, fullbuffer_string) == 0)
Parrot_io_setbuf(INTERP, SELF, PIO_UNBOUND);
}
Modified: branches/pdd28str_part2/src/pmc/lexinfo.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/lexinfo.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/lexinfo.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -68,7 +68,7 @@
parrot_new_pmc_hash_x(INTERP, SELF,
(PARROT_DATA_TYPE)enum_hash_int,
Hash_key_type_STRING,
- (hash_comp_fn)string_equal, /* STRING compare */
+ (hash_comp_fn)Parrot_str_equal, /* STRING compare */
(hash_hash_key_fn)string_hash); /* hash */
PObj_active_destroy_SET(SELF);
Modified: branches/pdd28str_part2/src/pmc/namespace.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/namespace.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/namespace.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -89,7 +89,7 @@
if (sub->comp_flags & SUB_COMP_FLAG_METHOD) {
STRING *method_name = key;
- if (0 != string_equal(interp, sub->method_name, CONST_STRING(interp, "")))
+ if (0 != Parrot_str_equal(interp, sub->method_name, CONST_STRING(interp, "")))
method_name = sub->method_name;
add_to_class(interp, nsinfo, classobj, method_name, value);
}
@@ -279,7 +279,7 @@
if (sub->comp_flags & SUB_COMP_FLAG_METHOD) {
STRING *method_name = key;
- if (0 != string_equal(interp, sub->method_name, CONST_STRING(interp, "")))
+ if (0 != Parrot_str_equal(interp, sub->method_name, CONST_STRING(interp, "")))
method_name = sub->method_name;
add_to_class(INTERP, nsinfo, classobj, method_name, value);
Modified: branches/pdd28str_part2/src/pmc/parrotinterpreter.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/parrotinterpreter.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/parrotinterpreter.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -378,12 +378,12 @@
Parrot_Context *ctx;
- if (string_equal(interp, item, s) == 0)
+ if (Parrot_str_equal(interp, item, s) == 0)
return interp->root_namespace;
s = CONST_STRING(interp, "outer");
- if (string_equal(interp, item, s) == 0) {
+ if (Parrot_str_equal(interp, item, s) == 0) {
outer = item;
nextkey = key_next(INTERP, key);
@@ -435,27 +435,27 @@
s = CONST_STRING(interp, "sub");
- if (string_equal(interp, item, s) == 0)
+ if (Parrot_str_equal(interp, item, s) == 0)
return ctx->current_sub;
s = CONST_STRING(interp, "lexpad");
- if (string_equal(interp, item, s) == 0)
+ if (Parrot_str_equal(interp, item, s) == 0)
return ctx->lex_pad;
s = CONST_STRING(interp, "namespace");
- if (string_equal(interp, item, s) == 0)
+ if (Parrot_str_equal(interp, item, s) == 0)
return ctx->current_namespace;
s = CONST_STRING(interp, "continuation");
- if (string_equal(interp, item, s) == 0)
+ if (Parrot_str_equal(interp, item, s) == 0)
return VTABLE_clone(interp, ctx->current_cont);
s = CONST_STRING(interp, "annotations");
- if (string_equal(interp, item, s) == 0) {
+ if (Parrot_str_equal(interp, item, s) == 0) {
PMC *sub = ctx->current_sub;
if (ctx == CONTEXT(interp)) {
/* We can't know the current program counter for the currently
Modified: branches/pdd28str_part2/src/pmc/pmcproxy.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/pmcproxy.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/pmcproxy.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -137,7 +137,7 @@
for (i = 1; i < mro_length; i++) {
PMC *pclass = VTABLE_get_pmc_keyed_int(interp, interp->vtables[type_num]->mro, i);
STRING *cname = pclass->vtable->whoami;
- if (string_equal(interp, cname, CONST_STRING(interp, "scalar")) != 0) {
+ if (Parrot_str_equal(interp, cname, CONST_STRING(interp, "scalar")) != 0) {
PMC *pproxy = Parrot_oo_get_class_str(interp, cname);
VTABLE_push_pmc(interp, proxy_info->all_parents, pproxy);
}
@@ -263,7 +263,7 @@
classname = VTABLE_get_string(interp, classobj);
/* Check if the passed name is the same as the stored short name. */
- if (string_equal(interp, classname, _proxy->name) == 0)
+ if (Parrot_str_equal(interp, classname, _proxy->name) == 0)
return 1;
/* Check if the class object is the same as self's class object */
@@ -271,7 +271,7 @@
return 1;
/* Check if the passed name is the same as the fully qualified name. */
- if (string_equal(interp, classname, VTABLE_get_string(interp, SELF)) == 0)
+ if (Parrot_str_equal(interp, classname, VTABLE_get_string(interp, SELF)) == 0)
return 1;
/* Look in the isa hash. */
@@ -306,7 +306,7 @@
Parrot_Class_attributes * const _proxy = PARROT_CLASS(SELF);
const STRING * const pmc_proxy = CONST_STRING(interp, "PMCProxy");
- if (string_equal(INTERP, classname, pmc_proxy) == 0)
+ if (Parrot_str_equal(INTERP, classname, pmc_proxy) == 0)
return 1;
if (SUPER(classname))
Modified: branches/pdd28str_part2/src/pmc/role.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/role.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/role.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -408,21 +408,21 @@
/* What should we return? */
PMC *found;
- if (string_equal(interp, what, CONST_STRING(interp, "name")) == 0) {
+ if (Parrot_str_equal(interp, what, CONST_STRING(interp, "name")) == 0) {
found = pmc_new(interp, enum_class_String);
VTABLE_set_string_native(interp, found, role->name);
}
- else if (string_equal(interp, what, CONST_STRING(interp, "namespace")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "namespace")) == 0) {
/* Don't clone the namespace, as it's not part of our state. */
return role->_namespace;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "attributes")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "attributes")) == 0) {
found = role->attrib_metadata;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "methods")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "methods")) == 0) {
found = role->methods;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "roles")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "roles")) == 0) {
found = role->roles;
}
else {
@@ -533,7 +533,7 @@
Parrot_Role_attributes * const role = PARROT_ROLE(SELF);
INTVAL i, count;
- if (string_equal(interp, role->name, role_name) == 0)
+ if (Parrot_str_equal(interp, role->name, role_name) == 0)
return 1;
count = VTABLE_elements(interp, role->roles);
Modified: branches/pdd28str_part2/src/pmc/scalar.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/scalar.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/scalar.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -1266,7 +1266,7 @@
*/
MULTI INTVAL is_equal_string(PMC *value) {
- return (0 == string_equal(INTERP, VTABLE_get_string(INTERP, SELF),
+ return (0 == Parrot_str_equal(INTERP, VTABLE_get_string(INTERP, SELF),
VTABLE_get_string(INTERP, value)));
}
Modified: branches/pdd28str_part2/src/pmc/scheduler.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/scheduler.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/scheduler.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -429,12 +429,12 @@
for (index = 0; index < elements; ++index) {
PMC *handler = VTABLE_get_pmc_keyed_int(INTERP, handlers, index);
if (!PMC_IS_NULL(handler)) {
- if (string_equal(INTERP, type, except_str) == 0
+ if (Parrot_str_equal(INTERP, type, except_str) == 0
&& handler->vtable->base_type == enum_class_ExceptionHandler) {
VTABLE_set_pmc_keyed_int(INTERP, handlers, index, PMCNULL);
RETURN(void);
}
- else if (string_equal(INTERP, type, event_str) == 0
+ else if (Parrot_str_equal(INTERP, type, event_str) == 0
&& handler->vtable->base_type == enum_class_EventHandler) {
VTABLE_set_pmc_keyed_int(INTERP, handlers, index, PMCNULL);
RETURN(void);
@@ -529,9 +529,9 @@
STRING *event = CONST_STRING(INTERP, "event");
if (!PMC_IS_NULL(handler)) {
- if (((string_equal(INTERP, type, exception) == 0)
+ if (((Parrot_str_equal(INTERP, type, exception) == 0)
&& handler->vtable->base_type == enum_class_ExceptionHandler)
- || ((string_equal(INTERP, type, event) == 0)
+ || ((Parrot_str_equal(INTERP, type, event) == 0)
&& handler->vtable->base_type == enum_class_EventHandler))
count++;
}
Modified: branches/pdd28str_part2/src/pmc/string.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/string.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/string.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -447,7 +447,7 @@
VTABLE INTVAL is_equal(PMC *value) {
STRING * const s = VTABLE_get_string(INTERP, SELF);
STRING * const v = VTABLE_get_string(INTERP, value);
- return (INTVAL)(0 == string_equal(INTERP, s, v));
+ return (INTVAL)(0 == Parrot_str_equal(INTERP, s, v));
}
/*
@@ -480,7 +480,7 @@
VTABLE INTVAL is_equal_string(PMC *value) {
STRING * const s = VTABLE_get_string(INTERP, SELF);
STRING * const v = VTABLE_get_string(INTERP, value);
- return string_equal(INTERP, s, v) == 0;
+ return Parrot_str_equal(INTERP, s, v) == 0;
}
/*
Modified: branches/pdd28str_part2/src/pmc/stringhandle.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/stringhandle.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/stringhandle.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -172,7 +172,7 @@
if (STRING_IS_NULL(old_string)) {
GET_ATTR_encoding(INTERP, SELF, encoding);
if (!STRING_IS_NULL(encoding)
- && string_equal(INTERP, encoding, CONST_STRING(INTERP, "utf8")) == 0)
+ && Parrot_str_equal(INTERP, encoding, CONST_STRING(INTERP, "utf8")) == 0)
new_string = string_make(INTERP, "", 0, "unicode", 0);
else
new_string = Parrot_str_new(INTERP, "", 0);
@@ -339,7 +339,7 @@
STRING *encoding;
GET_ATTR_encoding(INTERP, SELF, encoding);
if (!STRING_IS_NULL(encoding) &&
- string_equal(INTERP, encoding, Parrot_str_new_constant(INTERP, "utf8")) == 0)
+ Parrot_str_equal(INTERP, encoding, Parrot_str_new_constant(INTERP, "utf8")) == 0)
string_result = string_make(INTERP, "", 0, "unicode", 0);
else
string_result = Parrot_str_new_constant(INTERP, "");
@@ -433,15 +433,15 @@
GET_ATTR_flags(INTERP, SELF, flags);
if (got_type) {
- if (string_equal(INTERP, new_type, nobuffer_string) == 0) {
+ if (Parrot_str_equal(INTERP, new_type, nobuffer_string) == 0) {
flags &= ~ PIO_F_LINEBUF;
flags &= ~ PIO_F_BLKBUF;
}
- else if (string_equal(INTERP, new_type, linebuffer_string) == 0) {
+ else if (Parrot_str_equal(INTERP, new_type, linebuffer_string) == 0) {
flags |= PIO_F_LINEBUF;
flags &= ~ PIO_F_BLKBUF;
}
- else if (string_equal(INTERP, new_type, fullbuffer_string) == 0) {
+ else if (Parrot_str_equal(INTERP, new_type, fullbuffer_string) == 0) {
flags &= ~ PIO_F_LINEBUF;
flags |= PIO_F_BLKBUF;
}
Modified: branches/pdd28str_part2/src/pmc/sub.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/sub.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/sub.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -753,22 +753,22 @@
}
/* Return the argument information that was requested. */
- if (string_equal(interp, what, CONST_STRING(interp, "pos_required")) == 0) {
+ if (Parrot_str_equal(interp, what, CONST_STRING(interp, "pos_required")) == 0) {
count_found = (INTVAL)sub->arg_info->pos_required;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "pos_optional")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "pos_optional")) == 0) {
count_found = (INTVAL)sub->arg_info->pos_optional;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "pos_slurpy")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "pos_slurpy")) == 0) {
count_found = (INTVAL)sub->arg_info->pos_slurpy;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "named_required")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "named_required")) == 0) {
count_found = (INTVAL)sub->arg_info->named_required;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "named_optional")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "named_optional")) == 0) {
count_found = (INTVAL)sub->arg_info->named_optional;
}
- else if (string_equal(interp, what, CONST_STRING(interp, "named_slurpy")) == 0) {
+ else if (Parrot_str_equal(interp, what, CONST_STRING(interp, "named_slurpy")) == 0) {
count_found = (INTVAL)sub->arg_info->named_slurpy;
}
else {
Modified: branches/pdd28str_part2/src/pmc/task.pmc
==============================================================================
--- branches/pdd28str_part2/src/pmc/task.pmc Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/pmc/task.pmc Mon Feb 2 07:51:06 2009 (r36276)
@@ -211,27 +211,27 @@
Parrot_Task_attributes * const core_struct = PARROT_TASK(SELF);
PMC *value;
- if (string_equal(interp, name, CONST_STRING(interp, "id")) == 0) {
+ if (Parrot_str_equal(interp, name, CONST_STRING(interp, "id")) == 0) {
value = pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, value, core_struct->id);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "type")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "type")) == 0) {
value = pmc_new(interp, enum_class_String);
VTABLE_set_string_native(interp, value, core_struct->type);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "subtype")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "subtype")) == 0) {
value = pmc_new(interp, enum_class_String);
VTABLE_set_string_native(interp, value, core_struct->subtype);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "priority")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "priority")) == 0) {
value = pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, value, core_struct->priority);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "status")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "status")) == 0) {
value = pmc_new(interp, enum_class_String);
VTABLE_set_string_native(interp, value, core_struct->status);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "birthtime")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "birthtime")) == 0) {
value = pmc_new(interp, enum_class_Float);
VTABLE_set_number_native(interp, value, core_struct->birthtime);
}
@@ -254,28 +254,28 @@
VTABLE void set_attr_str(STRING *name, PMC *value) {
Parrot_Task_attributes * const core_struct = PARROT_TASK(SELF);
- if (string_equal(interp, name, CONST_STRING(interp, "id")) == 0) {
+ if (Parrot_str_equal(interp, name, CONST_STRING(interp, "id")) == 0) {
core_struct->id = VTABLE_get_integer(interp, value);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "type")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "type")) == 0) {
core_struct->type = VTABLE_get_string(interp, value);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "subtype")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "subtype")) == 0) {
core_struct->subtype = VTABLE_get_string(interp, value);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "priority")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "priority")) == 0) {
core_struct->priority = VTABLE_get_integer(interp, value);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "status")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "status")) == 0) {
core_struct->status = VTABLE_get_string(interp, value);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "birthtime")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "birthtime")) == 0) {
core_struct->birthtime = VTABLE_get_number(interp, value);
}
- else if (string_equal(interp, name, CONST_STRING(interp, "code")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "code")) == 0) {
core_struct->codeblock = value;
}
- else if (string_equal(interp, name, CONST_STRING(interp, "data")) == 0) {
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "data")) == 0) {
core_struct->data = value;
}
}
Modified: branches/pdd28str_part2/src/scheduler.c
==============================================================================
--- branches/pdd28str_part2/src/scheduler.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/scheduler.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -130,13 +130,13 @@
PMC *type_pmc = VTABLE_get_attr_str(interp, task, CONST_STRING(interp, "type"));
STRING *type = VTABLE_get_string(interp, type_pmc);
- if (string_equal(interp, type, CONST_STRING(interp, "callback")) == 0) {
+ if (Parrot_str_equal(interp, type, CONST_STRING(interp, "callback")) == 0) {
Parrot_cx_invoke_callback(interp, task);
}
- else if (string_equal(interp, type, CONST_STRING(interp, "timer")) == 0) {
+ else if (Parrot_str_equal(interp, type, CONST_STRING(interp, "timer")) == 0) {
Parrot_cx_timer_invoke(interp, task);
}
- else if (string_equal(interp, type, CONST_STRING(interp, "event")) == 0) {
+ else if (Parrot_str_equal(interp, type, CONST_STRING(interp, "event")) == 0) {
PMC * const handler = Parrot_cx_find_handler_for_task(interp, task);
if (!PMC_IS_NULL(handler)) {
PMC * handler_sub = VTABLE_get_attr_str(interp, handler, CONST_STRING(interp, "code"));
@@ -445,7 +445,7 @@
for (index = 0; index < num_tasks; index++) {
PMC *message = VTABLE_get_pmc_keyed_int(interp, sched_struct->messages, index);
if (!PMC_IS_NULL(message)
- && string_equal(interp, VTABLE_get_string(interp, message),
+ && Parrot_str_equal(interp, VTABLE_get_string(interp, message),
suspend_str) == 0) {
VTABLE_delete_keyed_int(interp, sched_struct->messages, index);
UNLOCK(sched_struct->msg_lock);
@@ -521,9 +521,9 @@
typedef enum { Hunknown, Hexception, Hevent } Htype;
const Htype htype =
- (string_equal(interp, handler_type, exception_str) == 0) ?
+ (Parrot_str_equal(interp, handler_type, exception_str) == 0) ?
Hexception :
- (string_equal(interp, handler_type, event_str) == 0) ?
+ (Parrot_str_equal(interp, handler_type, event_str) == 0) ?
Hevent :
Hunknown;
STRING * const handler_name = (htype == Hexception) ?
@@ -594,9 +594,9 @@
typedef enum { Hunknown, Hexception, Hevent } Htype;
const Htype htype =
- (string_equal(interp, handler_type, exception_str) == 0) ?
+ (Parrot_str_equal(interp, handler_type, exception_str) == 0) ?
Hexception :
- (string_equal(interp, handler_type, event_str) == 0) ?
+ (Parrot_str_equal(interp, handler_type, event_str) == 0) ?
Hevent :
Hunknown;
STRING * const handler_name = (htype == Hexception) ?
@@ -1084,7 +1084,7 @@
#endif
UNLOCK(sched_struct->msg_lock);
if (!PMC_IS_NULL(message)
- && string_equal(interp, VTABLE_get_string(interp, message),
+ && Parrot_str_equal(interp, VTABLE_get_string(interp, message),
suspend_str) == 0) {
#if CX_DEBUG
fprintf(stderr, "found a suspend, suspending [interp=%p]\n", interp);
Modified: branches/pdd28str_part2/src/string/api.c
==============================================================================
--- branches/pdd28str_part2/src/string/api.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/string/api.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -1456,7 +1456,7 @@
/*
-=item C<INTVAL string_equal>
+=item C<INTVAL Parrot_str_equal>
Compares two Parrot strings, performing type and encoding conversions if
necessary.
@@ -1471,9 +1471,9 @@
PARROT_EXPORT
PARROT_WARN_UNUSED_RESULT
INTVAL
-string_equal(PARROT_INTERP, ARGIN_NULLOK(const STRING *s1), ARGIN_NULLOK(const STRING *s2))
+Parrot_str_equal(PARROT_INTERP, ARGIN_NULLOK(const STRING *s1), ARGIN_NULLOK(const STRING *s2))
{
- ASSERT_ARGS(string_equal)
+ ASSERT_ARGS(Parrot_str_equal)
if ((s1 == s2) || (!s1 && !s2)) {
return 0;
}
Modified: branches/pdd28str_part2/src/string/charset.c
==============================================================================
--- branches/pdd28str_part2/src/string/charset.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/string/charset.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -204,7 +204,7 @@
const int n = all_charsets->n_charsets;
for (i = 0; i < n; ++i) {
- if (!string_equal(interp, all_charsets->set[i].name, charsetname))
+ if (!Parrot_str_equal(interp, all_charsets->set[i].name, charsetname))
return i;
}
return -1;
Modified: branches/pdd28str_part2/src/string/encoding.c
==============================================================================
--- branches/pdd28str_part2/src/string/encoding.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/string/encoding.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -202,7 +202,7 @@
int i;
for (i = 0; i < n; ++i) {
- if (!string_equal(interp, all_encodings->enc[i].name,
+ if (!Parrot_str_equal(interp, all_encodings->enc[i].name,
encodingname))
return i;
}
Modified: branches/pdd28str_part2/src/sub.c
==============================================================================
--- branches/pdd28str_part2/src/sub.c Mon Feb 2 07:32:53 2009 (r36275)
+++ branches/pdd28str_part2/src/sub.c Mon Feb 2 07:51:06 2009 (r36276)
@@ -585,7 +585,7 @@
PMC * const child_pmc = VTABLE_shift_pmc(interp, iter);
Parrot_sub * const child_sub = PMC_sub(child_pmc);
if (!PMC_IS_NULL(child_sub->outer_sub))
- if (0 == string_equal(interp, current_sub->subid,
+ if (0 == Parrot_str_equal(interp, current_sub->subid,
PMC_sub(child_sub->outer_sub)->subid)) {
old = child_sub->outer_ctx;
child_sub->outer_ctx = Parrot_context_ref(interp, ctx);
@@ -603,7 +603,7 @@
#if 0
/* verify that the current sub is sub_pmc's :outer */
- if (0 != string_equal(interp, current_sub->subid,
+ if (0 != Parrot_str_equal(interp, current_sub->subid,
PMC_sub(sub->outer_sub)->subid)) {
Parrot_ex_throw_from_c_args(interp, NULL,
EXCEPTION_INVALID_OPERATION, "'%Ss' isn't the :outer of '%Ss'",
More information about the parrot-commits
mailing list