From 93bd600a7b1bc4062c29f1c8e961c29317312efb Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sat, 14 Jun 2008 23:29:25 +0200 Subject: Add class MLKReadtable. --- GNUmakefile | 4 +- MLKReadtable.h | 8 +++- MLKReadtable.m | 136 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 144 insertions(+), 4 deletions(-) create mode 100644 MLKReadtable.m diff --git a/GNUmakefile b/GNUmakefile index b9ddad3..4b614b0 100644 --- a/GNUmakefile +++ b/GNUmakefile @@ -21,8 +21,8 @@ TOOL_NAME = etoilisp etoilisp_OBJC_FILES = MLKCharacter.m MLKCons.m MLKDynamicContext.m \ MLKEndOfFileError.m MLKEnvironment.m MLKError.m \ MLKLinkedList.m MLKLispValue.m MLKPackage.m \ - MLKReader.m MLKReaderError.m MLKStream.m \ - MLKSymbol.m MLKThrowException.m \ + MLKReader.m MLKReadtable.m MLKReaderError.m \ + MLKStream.m MLKSymbol.m MLKThrowException.m \ MLKUndefinedVariableException.m BUNDLE_NAME = Test diff --git a/MLKReadtable.h b/MLKReadtable.h index 1f4bf97..2ea4cc7 100644 --- a/MLKReadtable.h +++ b/MLKReadtable.h @@ -18,6 +18,9 @@ #import "MLKLispValue.h" +#import +#import + @class MLKClosure, NSMutableDictionary; @@ -30,7 +33,7 @@ enum MLKReadtableCase }; -@interface MLKReadtable : MLKLispValue +@interface MLKReadtable : MLKLispValue { NSMutableDictionary *_syntaxTable; NSMutableDictionary *_readerMacros; @@ -39,7 +42,8 @@ enum MLKReadtableCase } -(MLKReadtable *) init; --(MLKReadtable *) copy; + +-(MLKReadtable *) copyWithZone:(NSZone *)zone; -(BOOL) isWhitespaceCharacter:(unichar)ch; -(BOOL) isMacroCharacter:(unichar)ch; diff --git a/MLKReadtable.m b/MLKReadtable.m new file mode 100644 index 0000000..41d6a9c --- /dev/null +++ b/MLKReadtable.m @@ -0,0 +1,136 @@ +/* -*- 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 "MLKReadtable.h" + +#import +#import + + +#define CONSTITUENT 0 +#define WHITESPACE 1 +#define TERMINATING_MACRO 2 +#define NONTERMINATING_MACRO 3 +#define SINGLE_ESCAPE 4 +#define MULTI_ESCAPE 5 + + +@implementation MLKReadtable +-(MLKReadtable *) init +{ + self = [super init]; + _syntaxTable = [[NSMutableDictionary alloc] init]; + _readerMacros = [[NSMutableDictionary alloc] init]; + _case = MLKReadtableCase_UPCASE; + return self; +} + +-(MLKReadtable *) copyWithZone:(NSZone *)zone +{ + MLKReadtable *copy = [MLKReadtable allocWithZone:zone]; + copy->_syntaxTable = [_syntaxTable mutableCopyWithZone:zone]; + copy->_readerMacros = [_readerMacros mutableCopyWithZone:zone]; + copy->_case = _case; + return copy; +} + +-(BOOL) isWhitespaceCharacter:(unichar)ch +{ + return ([[_syntaxTable objectForKey:[NSNumber numberWithLong:ch]] + isEqual:[NSNumber numberWithShort:WHITESPACE]]); +} + +-(BOOL) isMacroCharacter:(unichar)ch; +{ + return ([self isNonTerminatingMacroCharacter:ch] || + [self isTerminatingMacroCharacter:ch]); +} + +-(BOOL) isNonTerminatingMacroCharacter:(unichar)ch; +{ + return ([[_syntaxTable objectForKey:[NSNumber numberWithLong:ch]] + isEqual:[NSNumber numberWithShort:NONTERMINATING_MACRO]]); +} + +-(BOOL) isTerminatingMacroCharacter:(unichar)ch; +{ + return ([[_syntaxTable objectForKey:[NSNumber numberWithLong:ch]] + isEqual:[NSNumber numberWithShort:TERMINATING_MACRO]]); +} + +-(BOOL) isSingleEscapeCharacter:(unichar)ch; +{ + return ([[_syntaxTable objectForKey:[NSNumber numberWithLong:ch]] + isEqual:[NSNumber numberWithShort:SINGLE_ESCAPE]]); +} + +-(BOOL) isMultipleEscapeCharacter:(unichar)ch; +{ + return ([[_syntaxTable objectForKey:[NSNumber numberWithLong:ch]] + isEqual:[NSNumber numberWithShort:MULTI_ESCAPE]]); +} + +-(BOOL) isConstituentCharacter:(unichar)ch; +{ + return ([[_syntaxTable objectForKey:[NSNumber numberWithLong:ch]] + isEqual:[NSNumber numberWithShort:CONSTITUENT]]); +} + +-(BOOL) isInvalidCharacter:(unichar)ch; +{ + return ([_syntaxTable objectForKey:[NSNumber numberWithLong:ch]] == nil); +} + +-(BOOL) characterHasCase:(unichar)ch +{ + return (![[[NSString stringWithFormat:@"%C", ch] uppercaseString] + isEqual:[[NSString stringWithFormat:@"%C", ch] lowercaseString]]); +} + +-(MLKClosure *) macroFunctionForCharacter:(unichar)ch; +{ + return [_readerMacros objectForKey:[NSNumber numberWithLong:ch]]; +} + +-(unichar) charWithReadtableCase:(unichar)ch +{ + switch (_case) + { + case MLKReadtableCase_PRESERVE: + return ch; + case MLKReadtableCase_UPCASE: + return [[[NSString stringWithFormat:@"%C", ch] uppercaseString] + characterAtIndex:0]; + case MLKReadtableCase_DOWNCASE: + return [[[NSString stringWithFormat:@"%C", ch] lowercaseString] + characterAtIndex:0]; + case MLKReadtableCase_INVERT: + { + unichar upCh; + upCh = [[[NSString stringWithFormat:@"%C", ch] uppercaseString] + characterAtIndex:0]; + if (ch == upCh) + return [[[NSString stringWithFormat:@"%C", ch] lowercaseString] + characterAtIndex:0]; + else + return upCh; + } + } + return 0; +} +@end -- cgit v1.2.3