Add class MLKPackage.

1 files changed, 144 insertions, 0 deletions

diff --git a/MLKPackage.m b/MLKPackage.m
new file mode 100644
index 0000000..66d3035
--- /dev/null
+++ b/MLKPackage.m
@@ -0,0 +1,144 @@
+/* -*- mode: objc; coding: utf-8 -*- */
+/* Étoilisp/Mulklisp, a Common Lisp subset for the Étoilé runtime.
+ * Copyright (C) 2008  Matthias Andreas Benkard.
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or (at
+ * your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#import "MLKPackage.h"
+#import "MLKSymbol.h"
+#import "MLKError.h"
+
+#import <Foundation/NSDictionary.h>
+#import <Foundation/NSSet.h>
+#import <Foundation/NSString.h>
+#import <Foundation/NSArray.h>
+
+
+static NSMutableDictionary *packages = nil;
+
+
+@implementation MLKPackage : MLKLispValue
+-(MLKPackage *) initWithName:(NSString *)name
+                   nicknames:(NSSet *)nicknames
+{
+  int i;
+  NSArray *e;
+
+  self = [self init];
+
+  // FIXME: Make this thread-safe.
+  if (!packages)
+    packages = [[NSMutableDictionary alloc] init];
+
+  [packages setObject:self forKey:name];
+
+  e = [nicknames allObjects];
+  for (i = 0; i < [e count]; i++)
+    {
+      [packages setObject:self forKey:[e objectAtIndex:i]];
+    }
+
+  _symbols = [[NSMutableDictionary alloc] init];
+  _exported_symbols = [[NSMutableSet alloc] init];
+  _shadowed_symbols = [[NSMutableSet alloc] init];
+  _nicknames = [[NSMutableSet alloc] initWithSet:nicknames];
+  ASSIGN (_name, name);
+
+  return self;
+}
+
++(MLKPackage *)findPackage:(NSString *)name
+{
+  return [packages objectForKey:name];
+}
+
+-(void) usePackage:(MLKPackage *)aPackage
+{
+  int i;
+  NSArray *symbols;
+
+  symbols = [[aPackage allSymbols] allObjects];
+
+  for (i = 0; i < [symbols count]; i++)
+    [self import:[symbols objectAtIndex:i]];
+}
+
+-(void) import:(MLKSymbol *)aSymbol
+{
+  // FIXME: Check for conflicts.
+
+  // FIXME: What to do about exported and shadowed symbols that conflict
+  // with the new one?
+  [_symbols setObject:aSymbol forKey:[aSymbol name]];
+}
+
+-(void) shadow:(MLKSymbol *)aSymbol
+{
+  [_shadowed_symbols addObject:aSymbol];
+}
+
+-(void) unintern:(MLKSymbol *)aSymbol
+{
+  [_symbols removeObjectForKey:[aSymbol name]];
+}
+
+-(MLKSymbol *) intern:(NSString *)symbolName
+{
+  if ([[_symbols allKeys] containsObject:symbolName])
+    return [_symbols objectForKey:symbolName];
+  else
+    {
+      MLKSymbol *symbol = [[MLKSymbol alloc] initWithName:symbolName
+                                             package:self];
+      [_symbols setObject:symbol forKey:symbolName];
+      return symbol;
+    }
+}
+
+-(MLKSymbol *) findSymbol:(NSString *)symbolName
+{
+  if ([[_symbols allKeys] containsObject:symbolName])
+    return [_symbols objectForKey:symbolName];
+  else
+    [[MLKError errorWithMessage:@"Symbol not found."] raise];
+
+  return nil;
+}
+
+-(NSString *) name
+{
+  return _name;
+}
+
+-(NSSet *) nicknames
+{
+  return _nicknames;
+}
+
+-(NSSet *) exportedSymbols
+{
+  return _exported_symbols;
+}
+
+-(NSSet *) shadowedSymbols
+{
+  return _shadowed_symbols;
+}
+
+-(NSSet *) allSymbols
+{
+  return [NSSet setWithArray:[_symbols allValues]];
+}
+@end