From 2ea359856a4ab1b0ca808ec518521e0ec81cc2f9 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 4 Aug 2008 19:08:39 +0200 Subject: Remove MLKLinkedList. --- MLKDynamicContext.m | 1 - MLKLexicalContext.h | 2 +- MLKLexicalContext.m | 1 - MLKLexicalEnvironment.h | 2 +- MLKLexicalEnvironment.m | 1 - MLKLinkedList.h | 43 ------------------------ MLKLinkedList.m | 89 ------------------------------------------------- MLKLowLevelTests.m | 1 - 8 files changed, 2 insertions(+), 138 deletions(-) delete mode 100644 MLKLinkedList.h delete mode 100644 MLKLinkedList.m diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m index 2ddaba7..733a308 100644 --- a/MLKDynamicContext.m +++ b/MLKDynamicContext.m @@ -30,7 +30,6 @@ #import "MLKDispatchingMacroCharacterReader.h" #import "MLKDynamicContext.h" #import "MLKEnvironment.h" -#import "MLKLinkedList.h" #import "MLKPackage.h" #import "MLKParenReader.h" #import "MLKQuoteReader.h" diff --git a/MLKLexicalContext.h b/MLKLexicalContext.h index c4aafc2..e65f60c 100644 --- a/MLKLexicalContext.h +++ b/MLKLexicalContext.h @@ -22,7 +22,7 @@ #import #import -@class MLKEnvironment, MLKLexicalEnvironment, MLKSymbol, NSLinkedList, NSSet, +@class MLKEnvironment, MLKLexicalEnvironment, MLKSymbol, NSSet, NSMutableDictionary, NSString, MLKCons; diff --git a/MLKLexicalContext.m b/MLKLexicalContext.m index 3eac317..682cc90 100644 --- a/MLKLexicalContext.m +++ b/MLKLexicalContext.m @@ -28,7 +28,6 @@ #import "MLKLexicalContext.h" #import "MLKLexicalEnvironment.h" #import "MLKEnvironment.h" -#import "MLKLinkedList.h" #import "MLKPackage.h" #import "MLKParenReader.h" #import "MLKReadtable.h" diff --git a/MLKLexicalEnvironment.h b/MLKLexicalEnvironment.h index a97d5b9..5503931 100644 --- a/MLKLexicalEnvironment.h +++ b/MLKLexicalEnvironment.h @@ -18,7 +18,7 @@ #include -@class MLKEnvironment, MLKSymbol, NSLinkedList, +@class MLKEnvironment, MLKSymbol, NSMutableDictionary, NSString, NSSet; diff --git a/MLKLexicalEnvironment.m b/MLKLexicalEnvironment.m index eb84ada..eb7c962 100644 --- a/MLKLexicalEnvironment.m +++ b/MLKLexicalEnvironment.m @@ -27,7 +27,6 @@ #import "MLKCons.h" #import "MLKEnvironment.h" #import "MLKLexicalEnvironment.h" -#import "MLKLinkedList.h" #import "MLKPackage.h" #import "MLKParenReader.h" #import "MLKReadtable.h" diff --git a/MLKLinkedList.h b/MLKLinkedList.h deleted file mode 100644 index a891cb4..0000000 --- a/MLKLinkedList.h +++ /dev/null @@ -1,43 +0,0 @@ -/* -*- 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 . - */ - -#import "Foundation/NSObject.h" -#import "MLKLispValue.h" - -@class MLKCons; - - -@interface MLKLinkedList : NSObject -{ - MLKCons *_firstCons; -} - --(MLKLinkedList*) init; --(MLKLinkedList*) initWithCons:(MLKCons*)cons; - --(void) push: (id)object; --(id) pop; --(MLKCons*) firstCons; --(BOOL) null; - -#ifdef __OBJC2__ --(NSUInteger) countByEnumeratingWithState:(NSFastEnumerationState *)state objects:(id *)stackbuf count:(NSUInteger)len; -#endif - --(void) dealloc; -@end diff --git a/MLKLinkedList.m b/MLKLinkedList.m deleted file mode 100644 index 3dfd5eb..0000000 --- a/MLKLinkedList.m +++ /dev/null @@ -1,89 +0,0 @@ -/* -*- 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 . - */ - -#import "MLKLinkedList.h" -#import "MLKCons.h" -#import "runtime-compatibility.h" -#import "util.h" - - -@implementation MLKLinkedList --(MLKLinkedList*) init -{ - self = [super init]; - _firstCons = nil; - return self; -} - --(MLKLinkedList*) initWithCons:(MLKCons*)cons -{ - self = [super init]; - LASSIGN (_firstCons, cons); - return self; -} - --(void) push: (id)object -{ - LASSIGN (_firstCons, [MLKCons cons:object with:_firstCons]); -} - --(id) pop -{ - id retval = [_firstCons car]; - LRETAIN (retval); - LASSIGN (_firstCons, [_firstCons cdr]); - LAUTORELEASE (retval); - return retval; -} - --(MLKCons*) firstCons -{ - return _firstCons; -} - --(BOOL) null -{ - return !_firstCons; -} - -#ifdef __OBJC2__ --(NSUInteger) countByEnumeratingWithState:(NSFastEnumerationState *)state objects:(id *)stackbuf count:(NSUInteger)len -{ - if (state->state == 0) - { - state->mutationsPtr = &_firstCons; - state->extra[0] = (unsigned long) &_firstCons; - } - - MLKCons *currentCons = (MLKCons*) state->extra[0]; - if (currentCons) - { - state->itemsPtr = [currentCons car]; - return 1; - } - else - return 0; -} -#endif - --(void) dealloc -{ - LRELEASE (_firstCons); - [super dealloc]; -} -@end diff --git a/MLKLowLevelTests.m b/MLKLowLevelTests.m index ef11cfb..cf01a90 100644 --- a/MLKLowLevelTests.m +++ b/MLKLowLevelTests.m @@ -23,7 +23,6 @@ #include "MLKDoubleFloat.h" #include "MLKDynamicContext.h" #include "MLKEnvironment.h" -#include "MLKLinkedList.h" #include "MLKPackage.h" #include "MLKRatio.h" #include "MLKReader.h" -- cgit v1.2.3