mirror of
https://github.com/kanaka/mal.git
synced 2024-10-26 14:22:25 +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.
76 lines
1.7 KiB
Objective-C
76 lines
1.7 KiB
Objective-C
#import <Foundation/Foundation.h>
|
|
|
|
#import "types.h"
|
|
//#import "env.h"
|
|
|
|
@implementation Env
|
|
|
|
@synthesize data = _data;
|
|
@synthesize outer = _outer;
|
|
|
|
- (id)initWithBindings:(Env *)outer binds:(NSArray *)binds exprs:(NSArray *)exprs {
|
|
self = [super init];
|
|
if (self) {
|
|
_outer = outer;
|
|
_data = [NSMutableDictionary dictionary];
|
|
|
|
for (int i=0; i < [binds count]; i++) {
|
|
if ([(NSString *)binds[i] isEqualTo:@"&"]) {
|
|
if ([exprs count] > i) {
|
|
NSRange r = NSMakeRange(i, [exprs count] - i);
|
|
_data[binds[i+1]] = [exprs subarrayWithRange:r];
|
|
} else {
|
|
_data[binds[i+1]] = @[];
|
|
}
|
|
break;
|
|
} else {
|
|
_data[binds[i]] = exprs[i];
|
|
}
|
|
}
|
|
}
|
|
return self;
|
|
}
|
|
|
|
- (id)initWithOuter:(Env *)outer {
|
|
return [self initWithBindings:outer binds:@[] exprs:@[]];
|
|
}
|
|
|
|
- (id)init {
|
|
return [self initWithBindings:nil binds:@[] exprs:@[]];
|
|
}
|
|
|
|
+ (id)fromOuter:(Env *)outer {
|
|
return [[Env alloc] initWithOuter:outer];
|
|
}
|
|
|
|
+ (id)fromBindings:(Env *)outer binds:(NSArray *)binds exprs:(NSArray *)exprs {
|
|
return [[Env alloc] initWithBindings:outer binds:binds exprs:exprs];
|
|
}
|
|
|
|
- (NSObject *) set:(MalSymbol *)key val:(NSObject *)val {
|
|
_data[key] = val;
|
|
return val;
|
|
}
|
|
|
|
- (Env *) find:(MalSymbol *)key {
|
|
if (_data[key]) {
|
|
return self;
|
|
} else if (_outer) {
|
|
Env * e = _outer;
|
|
return [e find:key];
|
|
} else {
|
|
return nil;
|
|
}
|
|
}
|
|
|
|
- (NSObject *) get:(MalSymbol *)key {
|
|
Env * e = [self find:key];
|
|
if (e) {
|
|
return e.data[key];
|
|
} else {
|
|
@throw [NSString stringWithFormat:@"'%@' not found", key];
|
|
}
|
|
}
|
|
|
|
@end
|