MLKSemicolonReader.m
No OneTemporary
Actions

Size

1 KB

Referenced Files

None

Subscribers

None

MLKSemicolonReader.m
View Options

	/* -- 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 "MLKSemicolonReader.h"

	#import "MLKCons.h"
	#import "MLKCharacterStream.h"
	#import "runtime-compatibility.h"


	@implementation MLKSemicolonReader
	-(NSArray ) applyToArray:(NSArray )arguments
	{
	MLKCharacterStream *stream;
	unichar nextChar;

	stream = [arguments objectAtIndex:0];

	while (![stream isEOF])
	{
	if ((nextChar = [stream readChar]) == '\n')
	{
	[stream unreadChar:nextChar];
	break;
	}
	}

	return [NSArray array];
	}
	@end