| Newsgroups |
perl.cvs.mod_parrot |
| Message-ID |
<[email protected]> |
cvsuser 02/06/20 18:05:16
Modified: . apache.pmc
Log:
Updated to match the bare minimum of current PMC specs
should be recoded to match the output of genclass.pl
Revision Changes Path
1.3 +8 -16 mod_parrot/apache.pmc
Index: apache.pmc
===================================================================
RCS file: /cvs/public/mod_parrot/apache.pmc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- apache.pmc 28 May 2002 18:17:26 -0000 1.2
+++ apache.pmc 21 Jun 2002 01:05:16 -0000 1.3
@@ -1,6 +1,6 @@
/* apache.pmc
* CVS Info
- * $Id: apache.pmc,v 1.2 2002/05/28 18:17:26 falcone Exp $
+ * $Id: apache.pmc,v 1.3 2002/06/21 01:05:16 falcone Exp $
* Overview:
* Access to the Apache r object
* Data Structure and Algorithms:
@@ -43,18 +43,18 @@
pmclass Apache {
INTVAL type () {
- return 0;
+ return enum_class_Apache;
}
STRING* name () {
return whoami;
}
- void init (INTVAL size) {
+ void init () {
SELF->data=NULL;
}
- BOOLVAL move_to (void * destination) {
+ INTVAL move_to (void * destination) {
return 0;
}
@@ -87,16 +87,16 @@
return ret;
}
- BOOLVAL get_bool () {
- return (BOOLVAL)(SELF->data != NULL);
+ INTVAL get_bool () {
+ return (INTVAL)(SELF->data != NULL);
}
void* get_value () {
return SELF->data;
}
- BOOLVAL is_same (PMC* pmc2) {
- return (BOOLVAL)(SELF->vtable == pmc2->vtable && SELF->data == pmc2->data);
+ INTVAL is_same (PMC* pmc2) {
+ return (INTVAL)(SELF->vtable == pmc2->vtable && SELF->data == pmc2->data);
}
void set_integer (PMC * value) {
@@ -107,10 +107,6 @@
APACHE_ERROR;
}
- void set_integer_bigint (BIGINT value) {
- APACHE_ERROR;
- }
-
void set_integer_same (PMC * value) {
APACHE_ERROR;
}
@@ -120,10 +116,6 @@
}
void set_number_native (FLOATVAL value) {
- APACHE_ERROR;
- }
-
- void set_number_bigfloat (BIGFLOAT value) {
APACHE_ERROR;
}