quakeforge/tools/qwaq/test.r

42 lines
433 B
R

@interface Foo : Object
{
int x;
}
-run;
@end
@implementation Foo
+load
{
print ("+load\n");
return self;
}
+alloc
{
print ("+alloc\n");
return class_create_instance (self);
}
-init
{
print ("-init\n");
return [super init];
}
+ (void) initialize
{
print ("+initialize\n");
}
-run
{
print ("Hello world\n");
printf ("%i %p [%s %s]\n", self, &self.x, [self description],
__PRETTY_FUNCTION__);
return self;
}
@end