mirror of
https://github.com/kanaka/mal.git
synced 2024-10-27 14:52:16 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
50 lines
995 B
Objective-C
50 lines
995 B
Objective-C
#import "types.h"
|
|
|
|
#import "malfunc.h"
|
|
|
|
@implementation MalFunc
|
|
|
|
@synthesize ast = _ast;
|
|
@synthesize env = _env;
|
|
@synthesize params = _params;
|
|
@synthesize isMacro = _isMacro;
|
|
@synthesize meta = _meta;
|
|
|
|
- (id)init:(NSArray *)ast env:(Env *)env params:(NSArray *)params {
|
|
self = [super init];
|
|
if (self) {
|
|
_ast = ast;
|
|
_env = env;
|
|
_params = params;
|
|
_isMacro = false;
|
|
_meta = [NSNull alloc];
|
|
}
|
|
return self;
|
|
}
|
|
|
|
- (id)apply:(NSArray *)args {
|
|
return EVAL(_ast, [Env fromBindings:_env binds:_params exprs:args]);
|
|
}
|
|
|
|
- (id)copyWithZone:(NSZone *)zone
|
|
{
|
|
MalFunc * copy = [[[self class] alloc] init:_ast env:_env params:_params];
|
|
if (copy) {
|
|
copy.isMacro = _isMacro;
|
|
copy.meta = _meta;
|
|
}
|
|
return copy;
|
|
}
|
|
|
|
@end
|
|
|
|
|
|
NSObject * apply(id f, NSArray *args) {
|
|
if ([f isKindOfClass:[MalFunc class]]) {
|
|
return [f apply:args];
|
|
} else {
|
|
NSObject * (^ fn)(NSArray *) = f;
|
|
return fn(args);
|
|
}
|
|
}
|