mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-12-13 06:00:42 +00:00
32 lines
590 B
R
32 lines
590 B
R
#include "Primitive.h"
|
|
#include "Machine.h"
|
|
#include "Continuation.h"
|
|
|
|
@implementation Primitive
|
|
+ (id) newFromFunc: (primfunc_t) f
|
|
{
|
|
return [[self alloc] initWithFunc: f];
|
|
}
|
|
- (id) initWithFunc: (primfunc_t) f
|
|
{
|
|
self = [super init];
|
|
func = f;
|
|
return self;
|
|
}
|
|
- (SchemeObject*) invokeOnMachine: (Machine*) m
|
|
{
|
|
local SchemeObject *value = func ([m stack], m);
|
|
[super invokeOnMachine: m];
|
|
if (value) {
|
|
[m value: value];
|
|
[[m continuation] restoreOnMachine: m];
|
|
}
|
|
return value;
|
|
}
|
|
|
|
- (string) printForm
|
|
{
|
|
return "<primitive>";
|
|
}
|
|
|
|
@end
|