Author: rafl
Date: Sun Oct 30 03:49:47 2005
New Revision: 9641
Modified:
/ (props changed)
trunk/include/parrot/extend.h
trunk/src/extend.c
Log:
[EMAIL PROTECTED]: rafl | 2005-10-30 12:48:05 +0100
* Removed declarations from extend.[ch] which where also declared in
extend_vtable.ch].
Modified: trunk/include/parrot/extend.h
==============================================================================
--- trunk/include/parrot/extend.h (original)
+++ trunk/include/parrot/extend.h Sun Oct 30 03:49:47 2005
@@ -59,9 +59,7 @@ typedef const void * Parrot_VTABLE;
Parrot_VTABLE Parrot_get_vtable(Parrot_INTERP, Parrot_Int);
Parrot_PMC Parrot_PMC_get_pmc_intkey(Parrot_INTERP, Parrot_PMC, Parrot_Int);
-Parrot_STRING Parrot_PMC_get_string(Parrot_INTERP, Parrot_PMC);
Parrot_STRING Parrot_PMC_get_string_intkey(Parrot_INTERP, Parrot_PMC,
Parrot_Int);
-void *Parrot_PMC_get_pointer(Parrot_INTERP, Parrot_PMC);
void *Parrot_PMC_get_pointer_intkey(Parrot_INTERP, Parrot_PMC, Parrot_Int);
Parrot_Int Parrot_PMC_get_intval(Parrot_INTERP, Parrot_PMC);
Parrot_Int Parrot_PMC_get_intval_pmckey(Parrot_INTERP, Parrot_PMC, Parrot_PMC);
@@ -78,7 +76,6 @@ void Parrot_PMC_set_pmc_intkey(Parrot_IN
void Parrot_PMC_set_pmc_pmckey(Parrot_INTERP, Parrot_PMC, Parrot_PMC,
Parrot_PMC);
void Parrot_PMC_set_string(Parrot_INTERP, Parrot_PMC, Parrot_STRING);
void Parrot_PMC_set_string_intkey(Parrot_INTERP, Parrot_PMC, Parrot_Int,
Parrot_STRING);
-void Parrot_PMC_set_pointer(Parrot_INTERP, Parrot_PMC, void *);
void Parrot_PMC_set_pointer_intkey(Parrot_INTERP, Parrot_PMC, Parrot_Int, void
*);
void Parrot_PMC_set_cstring(Parrot_INTERP, Parrot_PMC, const char *);
void Parrot_PMC_set_cstring_intkey(Parrot_INTERP, Parrot_PMC, Parrot_Int,
const char *);
@@ -90,8 +87,6 @@ void Parrot_PMC_set_numval(Parrot_INTERP
void Parrot_PMC_set_numval_intkey(Parrot_INTERP, Parrot_PMC, Parrot_Int,
Parrot_Float);
void Parrot_PMC_push_intval(Parrot_INTERP, Parrot_PMC, Parrot_Int);
void Parrot_PMC_push_numval(Parrot_INTERP, Parrot_PMC, Parrot_Float);
-void Parrot_PMC_push_string(Parrot_INTERP, Parrot_PMC, Parrot_STRING);
-void Parrot_PMC_push_pmc(Parrot_INTERP, Parrot_PMC, Parrot_PMC);
void Parrot_PMC_delete_pmckey(Parrot_INTERP, Parrot_PMC, Parrot_PMC);
Parrot_PMC Parrot_PMC_new(Parrot_INTERP, Parrot_Int);
Modified: trunk/src/extend.c
==============================================================================
--- trunk/src/extend.c (original)
+++ trunk/src/extend.c Sun Oct 30 03:49:47 2005
@@ -64,25 +64,6 @@ can.
/*
=item C<Parrot_STRING
-Parrot_PMC_get_string(Parrot_INTERP interp, Parrot_PMC pmc)>
-
-Return an opaque string that represents the string contained in the PMC.
-
-=cut
-
-*/
-
-Parrot_STRING Parrot_PMC_get_string(Parrot_INTERP interp, Parrot_PMC pmc) {
- Parrot_STRING retval;
- PARROT_CALLIN_START(interp);
- retval = VTABLE_get_string(interp, pmc);
- PARROT_CALLIN_END(interp);
- return retval;
-}
-
-/*
-
-=item C<Parrot_STRING
Parrot_PMC_get_string_intkey(Parrot_INTERP interp, Parrot_PMC pmc, Parrot_Int
key)>
Return the integer keyed string value of the passed-in PMC
@@ -102,25 +83,6 @@ Parrot_STRING Parrot_PMC_get_string_intk
/*
-=item C<void *Parrot_PMC_get_pointer(Parrot_INTERP interp, Parrot_PMC pmc)>
-
-Returns a pointer. Used for PMCs that hold pointers to arbitrary data
-PMC.
-
-=cut
-
-*/
-
-void *Parrot_PMC_get_pointer(Parrot_INTERP interp, Parrot_PMC pmc) {
- void *retval;
- PARROT_CALLIN_START(interp);
- retval = VTABLE_get_pointer(interp, pmc);
- PARROT_CALLIN_END(interp);
- return retval;
-}
-
-/*
-
=item C<void *
Parrot_PMC_get_pointer_intkey(Parrot_INTERP interp, Parrot_PMC pmc,
Parrot_Int key)>
@@ -424,23 +386,6 @@ void Parrot_PMC_set_pmc_pmckey(Parrot_IN
/*
=item C<void
-Parrot_PMC_set_pointer(Parrot_INTERP interp, Parrot_PMC pmc, void *value)>
-
-Assign the passed-in pointer to the passed-in PMC.
-
-=cut
-
-*/
-
-void Parrot_PMC_set_pointer(Parrot_INTERP interp, Parrot_PMC pmc, void *value)
{
- PARROT_CALLIN_START(interp);
- VTABLE_set_pointer(interp, pmc, value);
- PARROT_CALLIN_END(interp);
-}
-
-/*
-
-=item C<void
Parrot_PMC_set_pointer_intkey(Parrot_INTERP interp, Parrot_PMC pmc,
Parrot_Int key, void *value)>
@@ -621,44 +566,6 @@ void Parrot_PMC_push_numval(Parrot_INTER
PARROT_CALLIN_END(interp);
}
-/*
-
-=item C<void
-Parrot_PMC_push_string(Parrot_INTERP interp, Parrot_PMC pmc,
- Parrot_Int value)>
-
-Push the passed-in Parrot string onto the passed in PMC
-
-=cut
-
-*/
-
-void Parrot_PMC_push_string(Parrot_INTERP interp, Parrot_PMC pmc,
- Parrot_STRING value) {
- PARROT_CALLIN_START(interp);
- VTABLE_push_string(interp, pmc, value);
- PARROT_CALLIN_END(interp);
-}
-
-/*
-
-=item C<void
-Parrot_PMC_push_pmc(Parrot_INTERP interp, Parrot_PMC pmc,
- Parrot_PMC value)>
-
-Push the passed-in PMC onto the passed in PMC
-
-=cut
-
-*/
-
-void Parrot_PMC_push_pmc(Parrot_INTERP interp, Parrot_PMC pmc,
- Parrot_PMC value) {
- PARROT_CALLIN_START(interp);
- VTABLE_push_pmc(interp, pmc, value);
- PARROT_CALLIN_END(interp);
-}
-
/*
=item C<void
