Dan Sugalski wrote:
> I checked in more of PDD 17, detailing parrot's base types. Some of
> those types definitely don't exist (like, say, the string and bignum
> type...) and could definitely use implementing. Should be fairly
> straightforward, and would be a good way to get up to speed on writing
> PMC classes.
Hello, i'm new to this list and to parrot programming, so i decided to
start with something simple. I implemented a String PMC that is pretty
much complete, it compiles, but i haven't tested it yet. It would be
great if someone had a look at it, and later when i write some tests
i'll check in a patch. The .pmc is attached.
[
string.pmc 12K ]
/*
Copyright: 2003 The Perl Foundation. All Rights Reserved.
$Id: float.pmc,v 1.8 2004/04/09 20:31:57 dan Exp $
=head1 NAME
classes/string.pmc - String PMC Class
=head1 DESCRIPTION
C<String> extends C<mmd_default> to provide a string for languages
that want a C<string> type without going to an S register. Acts as a
wrapper for the functions in /src/string.c
=head2 Functions
=over 4
=cut
*/
#include "parrot/parrot.h"
pmclass String extends mmd_default {
/*
=back
=head2 Methods
=over 4
=item C<void init()>
Initializes the string.
=cut
*/
void init () {
PObj_custom_mark_SET(SELF);
PMC_str_val(SELF) = string_make_empty(INTERP, enum_stringrep_one, 0);
}
/*
=item C<void mark()>
Marks the string as live.
=cut
*/
void mark () {
if(PMC_str_val(SELF))
pobject_lives(INTERP, (PObj *)PMC_str_val(SELF));
}
/*
=item C<PMC* clone()>
Creates a copy of the string.
=cut
*/
PMC* clone () {
PMC* dest = pmc_new_noinit(INTERP, SELF->vtable->base_type);
PObj_custom_mark_SET(dest);
PMC_str_val(dest) = string_copy(INTERP,PMC_str_val(SELF));
return dest;
}
/*
=item C<INTVAL get_integer()>
Returns the integer representation of the string.
=cut
*/
INTVAL get_integer () {
STRING *s = (STRING*) PMC_str_val(SELF);
return string_to_int(INTERP, s);
}
/*
=item C<FLOATVAL get_number()>
Returns the floating-point representation of the string.
=cut
*/
FLOATVAL get_number () {
STRING *s = (STRING*) PMC_str_val(SELF);
return string_to_num(INTERP, s);
}
/*
=item C<BIGNUM* get_bignum()>
Returns the big numbers representation of the string.
(unimplemented, returns NULL)
=cut
*/
BIGNUM* get_bignum () {
/* XXX */
return (BIGNUM*)0;
}
/*
=item C<STRING* get_string()>
Returns the string itself.
=cut
*/
STRING* get_string () {
return (STRING*) PMC_str_val(SELF);
}
/*
=item C<INTVAL get_bool()>
Returns the boolean value of the string.
=cut
*/
INTVAL get_bool () {
STRING *s = (STRING*) PMC_str_val(SELF);
return string_bool(INTERP, s);
}
/*
=item C<VOID set_integer_native(INTVAL value)>
Sets the value of the string to the integer C<value>.
=cut
*/
void set_integer_native (INTVAL value) {
PMC_str_val(SELF) = string_from_int(INTERP, value);
}
/*
=item C<VOID set_number_native(FLOATVAL value)>
Sets the value of the string to the floating-point C<value>.
=cut
*/
void set_number_native (FLOATVAL value) {
PMC_str_val(SELF) = string_from_num(INTERP, value);
}
/*
=item C<VOID set_bignum_native(BIGNUM* value)>
Sets the value of the string to the big number C<value>.
(unimplemented, no-op)
=cut
*/
void set_bignum_native (BIGNUM* value) {
/* XXX */
}
/*
=item C<VOID set_string_native(STRING* value)>
Sets the value of the string to that of the specified C<string>.
=cut
*/
void set_string_native (STRING* value) {
PMC_str_val(SELF) = value;
}
/*
=item C<VOID assign_string_native(STRING* value)>
Sets the value of the string to a copy of the specified C<string>.
=cut
*/
void assign_string_native (STRING* value) {
PMC_str_val(SELF) = string_copy(INTERP, value);
}
/*
=item C<VOID set_string_same(PMC* value)>
Sets the value of the string to the value of
the specified C<String> PMC.
=cut
*/
void set_string_same (PMC* value) {
PMC_str_val(SELF) = PMC_str_val(value);
}
/*
=item C<VOID set_pmc(PMC* value)>
Sets the value of the string to the value of
the specified C<PMC>.
=cut
*/
void set_pmc (PMC* value) {
PMC_str_val(SELF) = VTABLE_get_string(INTERP, value);
}
/*
=item C<VOID assign_pmc(PMC* value)>
Sets the value of the string to the value of
the specified C<PMC>.
=cut
*/
void assign_pmc (PMC* value) {
STRING *s = VTABLE_get_string(INTERP, value);
PMC_str_val(SELF) = string_copy(INTERP, s);
}
/*
=item C<VOID bitwise_or(PMC* value, PMC* dest)>
=cut
=item C<VOID bitwise_and(PMC* value, PMC* dest)>
=cut
=item C<VOID bitwise_xor(PMC* value, PMC* dest)>
=cut
=item C<VOID bitwise_ors(PMC* value, PMC* dest)>
=cut
=item C<VOID bitwise_ors_str(PMC* value, PMC* dest)>
=cut
=item C<VOID bitwise_ands(PMC* value, PMC* dest)>
=cut
=item C<VOID bitwise_ands_str(PMC* value, PMC* dest)>
=cut
=item C<VOID bitwise_xors(PMC* value, PMC* dest)>
=cut
=item C<VOID bitwise_xors_str(PMC* value, PMC* dest)>
=cut
=item C<VOID bitwise_nots(PMC* value)>
=cut
These functions perform bitwise operations on entire
strings, and place the result in C<dest>.
=cut
*/
void bitwise_or (PMC* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
VTABLE_set_string_native(INTERP, dest, string_bitwise_or(INTERP, s, v, NULL));
}
void bitwise_and (PMC* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
VTABLE_set_string_native(INTERP, dest, string_bitwise_and(INTERP, s, v, NULL));
}
void bitwise_xor (PMC* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
VTABLE_set_string_native(INTERP, dest, string_bitwise_xor(INTERP, s, v, NULL));
}
void bitwise_ors (PMC* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
VTABLE_set_string_native(INTERP, dest, string_bitwise_or(INTERP, s, v, NULL));
}
void bitwise_ors_str (STRING* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
VTABLE_set_string_native(INTERP, dest, string_bitwise_or(INTERP, s, value, NULL));
}
void bitwise_ands (PMC* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
VTABLE_set_string_native(INTERP, dest, string_bitwise_or(INTERP, s, v, NULL));
}
void bitwise_ands_str (STRING* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
VTABLE_set_string_native(INTERP, dest, string_bitwise_or(INTERP, s, value, NULL));
}
void bitwise_xors (PMC* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
VTABLE_set_string_native(INTERP, dest, string_bitwise_xor(INTERP, s, v, NULL));
}
void bitwise_xors_str (STRING* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
VTABLE_set_string_native(INTERP, dest, string_bitwise_xor(INTERP, s, value, NULL));
}
void bitwise_nots (PMC* dest) {
STRING *s = PMC_str_val(SELF);
VTABLE_set_string_native(INTERP, dest, string_bitwise_not(INTERP, s, NULL));
}
/*
=item C<VOID concatenate(PMC* value, PMC* dest)>
Concatenates the string with C<value> and places the result
in C<dest>.
=cut
*/
void concatenate (PMC* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
VTABLE_set_string_native(INTERP, dest, string_concat(INTERP, s, v, 0));
}
/*
=item C<VOID concatenate_str(STRING* value, PMC* dest)>
Concatenates the string with C<value> and places the result
in C<dest>.
=cut
*/
void concatenate_str (STRING* value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
VTABLE_set_string_native(INTERP, dest, string_concat(INTERP, s, value, 0));
}
/*
=item C<INTVAL is_equal(PMC* value)>
Compares the string with C<value>; returns true if
they match.
=cut
*/
INTVAL is_equal (PMC* value) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
return (INTVAL)(0 == string_equal(INTERP, s, v));
}
/*
=item C<INTVAL is_equal_num(PMC* value)>
Compares the numerical value of the string with that of
C<value>; returns true if they match.
=cut
*/
INTVAL is_equal_num (PMC* value) {
FLOATVAL sf = string_to_num(INTERP, PMC_str_val(SELF));
FLOATVAL vf = VTABLE_get_number(INTERP, value);
return (INTVAL)(sf == vf);
}
/*
=item C<INTVAL is_equal_str(PMC* value)>
Compares the string with C<value>; returns true if
they match.
=cut
*/
INTVAL is_equal_str (PMC* value) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
return (INTVAL)(0 == string_equal(INTERP, s, v));
}
/*
=item C<INTVAL is_same(PMC* value)>
Compares the string PMC with the C<value> PMC and returns
true if they are identical.
=cut
*/
INTVAL is_same (PMC* value) {
STRING *s = PMC_str_val(SELF);
STRING *v = PMC_str_val(value);
/* XXX is this the right way to check for is_same? */
return (INTVAL)(
value->vtable == SELF->vtable &&
string_equal(INTERP, s, v)
);
}
/*
=item C<INTVAL cmp(PMC* value)>
Compares the string with C<value>; returns -1 if the
string is smaller, 0 if they are equal, and 1 if C<value>
is smaller.
=cut
*/
INTVAL cmp (PMC* value) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
return string_compare(INTERP, s, v);
}
/*
=item C<INTVAL cmp_num(PMC* value)>
Compares the numerical value of the string with that of
C<value>; returns -1 if the string is smaller, 0 if they
are equal, and 1 if C<value> is smaller.
=cut
*/
INTVAL cmp_num (PMC* value) {
FLOATVAL sf = string_to_num(INTERP, PMC_str_val(SELF));
FLOATVAL vf = VTABLE_get_number(INTERP, value);
if(sf < vf)
return (INTVAL)(-1);
if(sf > vf)
return (INTVAL)(1);
return (INTVAL)(0);
}
/*
=item C<INTVAL cmp_string(PMC* value)>
Compares the string with C<value>; returns -1 if the
string is smaller, 0 if they are equal, and 1 if C<value>
is smaller.
=cut
*/
INTVAL cmp_string (PMC* value) {
STRING *s = PMC_str_val(SELF);
STRING *v = VTABLE_get_string(INTERP, value);
return string_compare(INTERP, s, v);
}
/*
=item C<void repeat(PMC* value, PMC* dest)>
Repeats the string C<value> times and places the result
in C<dest>.
=cut
*/
void repeat (PMC* value, PMC* dest) {
INTVAL n = VTABLE_get_integer(INTERP, dest);
STRING *s = PMC_str_val(SELF);
STRING *s2 = string_repeat(INTERP, s, n, NULL);
VTABLE_set_string_native(INTERP, dest, s2);
}
/*
=item C<void repeat_int(INTVAL value, PMC* dest)>
Repeats the string C<value> times and places the result
in C<dest>.
=cut
*/
void repeat_int (INTVAL value, PMC* dest) {
STRING *s = PMC_str_val(SELF);
STRING *s2 = string_repeat(INTERP, s, value, NULL);
VTABLE_set_string_native(INTERP, dest, s2);
}
/*
=item C<void substr(INTVAL offset, INTVAL length, PMC* dest)>
Extracts the substring starting at C<offset>, with size
C<length>, and places it in C<dest>.
=cut
*/
void substr (INTVAL offset, INTVAL length, PMC* dest) {
STRING *s = PMC_str_val(SELF);
STRING *s2 = string_substr(INTERP, s, offset, length, NULL, 0);
VTABLE_set_string_native(INTERP, dest, s2);
}
/*
=item C<void substr(INTVAL offset, INTVAL length, PMC* dest)>
Extracts the substring starting at C<offset>, with size
C<length>, and returns it.
=cut
*/
STRING* substr_str (INTVAL offset, INTVAL length) {
STRING *s = PMC_str_val(SELF);
return string_substr(INTERP, s, offset, length, NULL, 0);
}
/*
=item C<void freeze(visit_info *info)>
Used to archive the string.
=cut
*/
void freeze(visit_info *info) {
IMAGE_IO *io = info->image_io;
SUPER(info);
io->vtable->push_string(INTERP, io, PMC_str_val(SELF));
}
/*
=item C<void thaw(visit_info *info)>
Used to unarchive the string.
=cut
*/
void thaw(visit_info *info) {
IMAGE_IO *io = info->image_io;
SUPER(info);
if (info->extra_flags == EXTRA_IS_NULL)
PMC_str_val(SELF) = io->vtable->shift_string(INTERP, io);
}
}
/*
=back
=cut
*/
/*
* Local variables:
* c-indentation-style: bsd
* c-basic-offset: 4
* indent-tabs-mode: nil
* End:
*
* vim: expandtab shiftwidth=4:
*/
