cvsuser 03/06/12 11:49:28
Modified: . core.ops
Added: . object.ops
classes parrotclass.pmc
Log:
initial, skeleton object checkin stuff
Revision Changes Path
1.278 +1 -26 parrot/core.ops
Index: core.ops
===================================================================
RCS file: /cvs/public/parrot/core.ops,v
retrieving revision 1.277
retrieving revision 1.278
diff -u -w -r1.277 -r1.278
--- core.ops 6 Jun 2003 16:27:00 -0000 1.277
+++ core.ops 12 Jun 2003 18:49:21 -0000 1.278
@@ -4488,31 +4488,6 @@
#######################################
-=item B<can>(out INT, in PMC, in STR)
-
-Sets $1 to true or false, depending on whether $2 ->can the method in
-$3
-
-=cut
-
-inline op can(out INT, in PMC, in STR) {
- $1 = $2->vtable->can(interpreter, $2, $3);
- goto NEXT();
-}
-
-=item B<does>(out INT, in PMC, in STR)
-
-Sets $1 to true or false, depending on whether $2 ->does the interface in
-$3
-
-=cut
-
-inline op does(out INT, in PMC, in STR) {
- $1 = $2->vtable->does(interpreter, $2, $3);
- goto NEXT();
-}
-
-
#######################################
=item B<setline>(in INT)
@@ -4767,7 +4742,7 @@
=head1 COPYRIGHT
-Copyright (C) 2001 Yet Another Society. All rights reserved.
+Copyright (C) 2001, 2002, 2003 Yet Another Society. All rights reserved.
=head1 LICENSE
1.1 parrot/object.ops
Index: object.ops
===================================================================
/*
** object.ops
*/
#include "parrot/method_util.h"
VERSION = PARROT_VERSION;
=head1 NAME
object.ops
=cut
=head1 DESCRIPTION
Parrot's library of object ops
=cut
=item B<callmeth>()
Call a method on an object as per Parrot's calling conventions. We assume
that all the registers are properly set up.
=cut
=item B<callmethcc>
Take the continuation for the next instruction, put it in P1, then call the
method as per the calling conventions.
=cut
=item B<tailcallmeth>
Restore the continuation in P1 then call the method as per the calling
conventions.
=cut
=item B<can>(out INT, in PMC, in STR)
Sets $1 to true or false, depending on whether $2 ->can the method in
$3
=cut
inline op can(out INT, in PMC, in STR) {
$1 = $2->vtable->can(interpreter, $2, $3);
goto NEXT();
}
=item B<does>(out INT, in PMC, in STR)
Sets $1 to true or false, depending on whether $2 ->does the interface in
$3
=cut
inline op does(out INT, in PMC, in STR) {
$1 = $2->vtable->does(interpreter, $2, $3);
goto NEXT();
}
###############################################################################
=head1 COPYRIGHT
Copyright (C) 2003 Yet Another Society. All rights reserved.
=head1 LICENSE
This program is free software. It is subject to the same license
as the Parrot interpreter itself.
=cut
1.1 parrot/classes/parrotclass.pmc
Index: parrotclass.pmc
===================================================================
/* parrotclass.pmc
* Copyright: 2003 Yet Another Society
* CVS Info
* $Id: parrotclass.pmc,v 1.1 2003/06/12 18:49:28 dan Exp $
* Overview:
* These are the vtable functions for the ParrotClass base class
* Data Structure and Algorithms:
* History:
* Notes:
* References:
*/
#include "parrot/parrot.h"
pmclass ParrotClass {
INTVAL type () {
return enum_class_ParrotClass;
}
STRING* name() {
return whoami;
}
}
