diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-28 16:26:07 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-28 16:26:07 +0200 |
commit | 3a5710bf7cb85da4ba6a327d6149db46e6bed82e (patch) | |
tree | fd63fdf8063ed5230e43785c64bd1990c42875a3 /MLKCharacterStream.m | |
parent | 5afdd34ed00ed1de76b90a884e5b04bd699dc0af (diff) |
Eliminate MLKStream, introduce MLKBinaryStream and MLKCharacterStream.
Diffstat (limited to 'MLKCharacterStream.m')
-rw-r--r-- | MLKCharacterStream.m | 111 |
1 files changed, 111 insertions, 0 deletions
diff --git a/MLKCharacterStream.m b/MLKCharacterStream.m new file mode 100644 index 0000000..d64ed3c --- /dev/null +++ b/MLKCharacterStream.m @@ -0,0 +1,111 @@ +/* -*- mode: objc; coding: utf-8 -*- */ +/* Toilet Lisp, 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 "MLKCharacterStream.h" +#import "runtime-compatibility.h" +#import "util.h" + +#import <Foundation/NSException.h> + +#include <unistd.h> +#include <stdlib.h> +#include <string.h> + + +@implementation MLKCharacterStream +-(id) init; +{ + self = [super init]; + _cachedChar = 0; + _charCached = NO; + return self; +} + +-(unichar) readChar +{ + if (_charCached) + { + char ch; + ch = _cachedChar; + _cachedChar = 0; + _charCached = NO; + return ch; + } + else + { + return [self readCharNoCache]; + } +} + +-(void) unreadChar:(unichar)ch +{ + if (_charCached) + [NSException raise:@"MLKInvalidOperationError" + format:@"Attempted to UNREAD-CHAR twice in a row."]; + + _charCached = YES; + _cachedChar = ch; +} + +-(unichar) peekChar +{ + unichar ch = [self readChar]; + [self unreadChar:ch]; + return ch; +} + +-(BOOL) isEOF +{ + BOOL eofp = NO; + + NS_DURING + { + [self peekChar]; + } + NS_HANDLER + { + if ([[localException name] isEqual:@"MLKStreamError"]) + eofp = YES; + else + [localException raise]; + } + NS_ENDHANDLER; + + return eofp; +} + +-(void) writeString:(NSString *)string +{ + int i; + + for (i = 0; i < [string length]; i++) + [self writeChar:[string characterAtIndex:i]]; +} + +-(void) writeChar:(unichar)ch +{ + [NSException raise:@"MLKNotImplementedError" format:@""]; + ch = 0; +} + +-(unichar) readCharNoCache +{ + [NSException raise:@"MLKNotImplementedError" format:@""]; + return 0; +} +@end |