-
Notifications
You must be signed in to change notification settings - Fork 0
/
OCFileStream.m
44 lines (36 loc) · 1017 Bytes
/
OCFileStream.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
//
// OCFileStream.m
// Objective-Curry
//
// Created by Josh Weinberg on 6/6/10.
// Copyright 2010 __MyCompanyName__. All rights reserved.
//
#import "OCFileStream.h"
OCStream * byteStream(NSFileHandle * file)
{
NSData * nextChar = [file readDataOfLength:1];
if ([nextChar length] == 0)
return nil;
return [OCStream streamWithValue:[NSNumber numberWithChar:*((char*)[nextChar bytes])]
generator:^{return byteStream(file);}];
}
@implementation OCFileStream
+ (id)fileStreamWithFileHandle:(NSFileHandle*)aHandle;
{
return [[[OCFileStream alloc] initWithFileHandle:aHandle] autorelease];
}
- (id)initWithFileHandle:(NSFileHandle*)aHandle;
{
if ((self = [super initWithValue:[NSNumber numberWithChar:*((char*)[[aHandle readDataOfLength:1] bytes])]
generator:^{return byteStream(aHandle);}]))
{
_file = [aHandle retain];
}
return self;
}
- (void)dealloc;
{
[_file release];
[super dealloc];
}
@end