quakeforge/tools/qwaq/test.r
Bill Currie 5a7650e54a Fix a missing return.
Yay, I've wanted this feature in qfcc for many years :).
2011-02-10 14:47:24 +09:00

41 lines
385 B
R

@interface Foo : Object
{
integer 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\n", self, &self.x);
return self;
}
@end