Permalink
Browse files

[pmc] PDD07-ize function signatures in src/pmc/[b-f]*.pmc

git-svn-id: https://svn.parrot.org/parrot/trunk@20578 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent 438fe38 commit 95e36766c259fc923901aabe2b9cab29b483a4d3 @Infinoid Infinoid committed Aug 9, 2007
View
@@ -503,7 +503,7 @@ Return GMP version string "x.y.z".
*/
- METHOD STRING* version() {
+ METHOD STRING *version() {
#ifdef PARROT_HAS_GMP
return string_from_cstring(INTERP, gmp_version, 0);
#else
View
@@ -109,9 +109,9 @@ Sets a value in the array component of the Capture.
=item C<INTVAL get_integer_keyed_int(INTVAL key)>
-=item C<PMC* get_pmc_keyed_int(INTVAL key)>
+=item C<PMC *get_pmc_keyed_int(INTVAL key)>
-=item C<STRING* get_string_keyed_int(INTVAL key)>
+=item C<STRING *get_string_keyed_int(INTVAL key)>
Retrieves a value in the array component of the Capture.
@@ -129,12 +129,12 @@ Retrieves a value in the array component of the Capture.
return VTABLE_get_integer_keyed_int(INTERP, CAPTURE_array(SELF), key);
}
- PMC* get_pmc_keyed_int(INTVAL key) {
+ PMC *get_pmc_keyed_int(INTVAL key) {
CAPTURE_array_CREATE(INTERP, SELF);
return VTABLE_get_pmc_keyed_int(INTERP, CAPTURE_array(SELF), key);
}
- STRING* get_string_keyed_int(INTVAL key) {
+ STRING *get_string_keyed_int(INTVAL key) {
CAPTURE_array_CREATE(INTERP, SELF);
return VTABLE_get_string_keyed_int(INTERP, CAPTURE_array(SELF), key);
}
@@ -211,19 +211,19 @@ Unshift a value onto the array component of the Capture.
=item C<INTVAL pop_integer()>
-=item C<PMC* pop_pmc()>
+=item C<PMC *pop_pmc()>
-=item C<STRING* pop_string()>
+=item C<STRING *pop_string()>
Pop a value from the array component of the Capture.
=item C<FLOATVAL shift_float()>
=item C<INTVAL shift_integer()>
-=item C<PMC* shift_pmc()>
+=item C<PMC *shift_pmc()>
-=item C<STRING* shift_string()>
+=item C<STRING *shift_string()>
Shift a value from the array component of the Capture.
@@ -241,12 +241,12 @@ Shift a value from the array component of the Capture.
return VTABLE_pop_integer(INTERP, CAPTURE_array(SELF));
}
- PMC* pop_pmc() {
+ PMC *pop_pmc() {
CAPTURE_array_CREATE(INTERP, SELF);
return VTABLE_pop_pmc(INTERP, CAPTURE_array(SELF));
}
- STRING* pop_string() {
+ STRING *pop_string() {
CAPTURE_array_CREATE(INTERP, SELF);
return VTABLE_pop_string(INTERP, CAPTURE_array(SELF));
}
@@ -261,12 +261,12 @@ Shift a value from the array component of the Capture.
return VTABLE_shift_integer(INTERP, CAPTURE_array(SELF));
}
- PMC* shift_pmc() {
+ PMC *shift_pmc() {
CAPTURE_array_CREATE(INTERP, SELF);
return VTABLE_shift_pmc(INTERP, CAPTURE_array(SELF));
}
- STRING* shift_string() {
+ STRING *shift_string() {
CAPTURE_array_CREATE(INTERP, SELF);
return VTABLE_shift_string(INTERP, CAPTURE_array(SELF));
}
@@ -318,11 +318,11 @@ Delete the element corresponding to C<key> in the array component.
=item C<void set_number_keyed(PMC *key, FLOATVAL value)>
-=item C<void set_integer_keyed(PMC* key, INTVAL value)>
+=item C<void set_integer_keyed(PMC *key, INTVAL value)>
-=item C<void set_pmc_keyed(PMC* key, PMC *value)>
+=item C<void set_pmc_keyed(PMC *key, PMC *value)>
-=item C<void set_string_keyed(PMC* key, STRING *value)>
+=item C<void set_string_keyed(PMC *key, STRING *value)>
Sets a value in the hash component of the Capture.
@@ -356,32 +356,32 @@ Sets a value in the hash component of the Capture.
=item C<INTVAL get_integer_keyed(PMC *key)>
-=item C<PMC* get_pmc_keyed(PMC *key)>
+=item C<PMC *get_pmc_keyed(PMC *key)>
-=item C<STRING* get_string_keyed(PMC *key)>
+=item C<STRING *get_string_keyed(PMC *key)>
Retrieves a value from the hash component of the Capture.
=cut
*/
- FLOATVAL get_number_keyed(PMC* key) {
+ FLOATVAL get_number_keyed(PMC *key) {
CAPTURE_hash_CREATE(INTERP, SELF);
return VTABLE_get_number_keyed(INTERP, CAPTURE_hash(SELF), key);
}
- INTVAL get_integer_keyed(PMC* key) {
+ INTVAL get_integer_keyed(PMC *key) {
CAPTURE_hash_CREATE(INTERP, SELF);
return VTABLE_get_integer_keyed(INTERP, CAPTURE_hash(SELF), key);
}
- PMC* get_pmc_keyed(PMC* key) {
+ PMC *get_pmc_keyed(PMC *key) {
CAPTURE_hash_CREATE(INTERP, SELF);
return VTABLE_get_pmc_keyed(INTERP, CAPTURE_hash(SELF), key);
}
- STRING* get_string_keyed(PMC* key) {
+ STRING *get_string_keyed(PMC *key) {
CAPTURE_hash_CREATE(INTERP, SELF);
return VTABLE_get_string_keyed(INTERP, CAPTURE_hash(SELF), key);
}
@@ -429,8 +429,8 @@ Delete the element corresponding to C<key> in the hash component.
*/
- METHOD PMC* get_array() {
- PMC* capt = SELF;
+ METHOD PMC *get_array() {
+ PMC *capt = SELF;
/* XXX: This workaround is for when we get here as
part of a subclass of Capture */
if (PObj_is_object_TEST(SELF))
@@ -439,8 +439,8 @@ Delete the element corresponding to C<key> in the hash component.
return CAPTURE_array(capt);
}
- METHOD PMC* get_hash() {
- PMC* capt = SELF;
+ METHOD PMC *get_hash() {
+ PMC *capt = SELF;
/* XXX: This workaround is for when we get here as
part of a subclass of Capture */
if (PObj_is_object_TEST(SELF))
View
@@ -451,7 +451,7 @@ arguments. The class is attatched to the current namespace.
PObj_is_class_SET(SELF);
}
- void init_pmc(PMC* init_data) {
+ void init_pmc(PMC *init_data) {
PMC *arg;
const INTVAL arg_type = VTABLE_type(interp, init_data);
STRING * const name_str = CONST_STRING(interp, "name");
@@ -499,15 +499,15 @@ arguments. The class is attatched to the current namespace.
/*
-=item C<PMC* subclass(PMC* name)>
+=item C<PMC *subclass(PMC *name)>
Creates a subclass, optionally with a given C<name>.
=cut
*/
- PMC* subclass(PMC *name) {
+ PMC *subclass(PMC *name) {
PMC *child_class;
/* Create a new class. Set the classname, if we have one. */
@@ -545,15 +545,15 @@ Free the memory associated with the object's underlying struct.
/*
-=item C<STRING* get_string()>
+=item C<STRING *get_string()>
Return the fully qualified name of the class.
=cut
*/
- STRING* get_string() {
+ STRING *get_string() {
Parrot_Class * const _class = PARROT_CLASS(SELF);
PMC *namespace = _class->_namespace;
PMC *names;
@@ -762,7 +762,7 @@ no conflicts.
/*
-=item C<PMC* inspect_str(STRING *what)>
+=item C<PMC *inspect_str(STRING *what)>
Provides introspection of a specific piece of information about the class. The
available information is:
@@ -800,7 +800,7 @@ Array of Class PMCs representing the direct parents of this class.
=cut
*/
- PMC* inspect_str(STRING *what) {
+ PMC *inspect_str(STRING *what) {
Parrot_Class *_class = PARROT_CLASS(SELF);
/* What should we return? */
@@ -837,15 +837,15 @@ Array of Class PMCs representing the direct parents of this class.
/*
-=item C<PMC* inspect()>
+=item C<PMC *inspect()>
Returns a Hash describing the class, with key/value pairs as described in
inspect_str.
=cut
*/
- PMC* inspect() {
+ PMC *inspect() {
/* Create a hash, then use inspect_str to get all of the data to
* fill it up with. */
PMC *metadata = pmc_new(interp, enum_class_Hash);
@@ -879,7 +879,7 @@ inspect_str.
/*
-=item C<PMC* clone()>
+=item C<PMC *clone()>
Returns an anonymous copy of the class (with no name and no link to a
namespace). Unsets the instantiated flag, allowing modifications.
@@ -888,7 +888,7 @@ namespace). Unsets the instantiated flag, allowing modifications.
*/
- PMC* clone() {
+ PMC *clone() {
Parrot_Class *_class = PARROT_CLASS(SELF);
/* Create the new class PMC, of the same type of this one (we may
@@ -917,7 +917,7 @@ namespace). Unsets the instantiated flag, allowing modifications.
/*
-=item C<PMC* clone_pmc(PMC *args)>
+=item C<PMC *clone_pmc(PMC *args)>
Makes a copy of the class, then modifies or adds to it based upon the contents
of the supplied initialization data. If a new name or namespace is not supplied
@@ -928,7 +928,7 @@ unset to allow further modifications.
*/
- PMC* clone_pmc(PMC *args) {
+ PMC *clone_pmc(PMC *args) {
/* Do the standard clone. */
PMC *copy = DYNSELF.clone();
@@ -939,15 +939,15 @@ unset to allow further modifications.
/*
-=item C<PMC* instantiate(PMC* init)>
+=item C<PMC *instantiate(PMC *init)>
Creates a new PMC object of the type of the class and calls init().
=cut
*/
- PMC* instantiate(PMC* init) {
+ PMC *instantiate(PMC *init) {
Parrot_Object *obj_guts = NULL;
Parrot_Class *_class = PARROT_CLASS(SELF);
STRING * const class_str = string_from_cstring(interp, "Class", 5);
@@ -1274,7 +1274,7 @@ Add an attribute to the class. Requires a name and, optionally, a type.
*/
PCCMETHOD add_attribute(STRING *attribute_name,
- PMC* attribute_type :optional, int got_type :opt_flag) {
+ PMC *attribute_type :optional, int got_type :opt_flag) {
PMC *type = got_type ? attribute_type : PMCNULL;
DYNSELF.add_attribute(attribute_name, type);
}
@@ -1324,7 +1324,7 @@ C<add_method> vtable method.
/*
-=item C<PMC* find_method(STRING *name)>
+=item C<PMC *find_method(STRING *name)>
Walks the MRO of the class and finds the method with the given name.
@@ -1406,18 +1406,18 @@ Return the roles array PMC.
/*
-=item C<void add_role(PMC* role, PMC* exclude :optional :named["exclude"],
-PMC* alias :optional :named["alias"])>
+=item C<void add_role(PMC *role, PMC *exclude :optional :named["exclude"],
+PMC *alias :optional :named["alias"])>
Compose a role into a class with the given exclusions and aliases.
=cut
*/
- PCCMETHOD add_role(PMC* role,
+ PCCMETHOD add_role(PMC *role,
PMC* exclude_method :optional :named["exclude_method"],
int got_exclude_method :opt_flag,
- PMC* alias_method :optional :named["alias_method"],
+ PMC *alias_method :optional :named["alias_method"],
int got_alias_method :opt_flag) {
Parrot_Class *_class = PARROT_CLASS(SELF);
View
@@ -70,21 +70,21 @@ Marks the closure as live.
Sets the address to the closure entry.
-=item C<void* invoke(void* next)>
+=item C<opcode_t *invoke(void *next)>
Invokes the closure.
=cut
*/
- void set_pointer(void* value) {
+ void set_pointer(void *value) {
struct Parrot_sub * sub = PMC_sub(SELF);
opcode_t *addr = (opcode_t *)value;
sub->start_offs = addr - sub->seg->base.data;
}
- opcode_t* invoke(void *in_next) {
+ opcode_t *invoke(void *in_next) {
struct Parrot_sub *sub = PMC_sub(SELF);
PMC *cont, *outer_sub;
opcode_t *next = SUPER(in_next);
Oops, something went wrong.

0 comments on commit 95e3676

Please sign in to comment.