forked from pmougin/F-Script
-
Notifications
You must be signed in to change notification settings - Fork 8
/
Copy pathMessagePatternCodeNode.m
57 lines (49 loc) · 1.32 KB
/
MessagePatternCodeNode.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
45
46
47
48
49
50
51
52
53
54
55
56
57
/* MessagePatternCodeNode.m Copyright (c) 1998-2009 Philippe Mougin. */
/* This software is open source. See the license. */
#import "MessagePatternCodeNode.h"
#import <Foundation/Foundation.h>
#import "FSNumber.h"
#import "FSPattern.h"
#import "FSArray.h"
@implementation MessagePatternCodeNode
-(void)dealloc
{
[pattern release];
[super dealloc];
}
- (void)encodeWithCoder:(NSCoder *)coder
{
[super encodeWithCoder:coder];
if ([coder allowsKeyedCoding])
{
[coder encodeObject:pattern forKey:@"pattern"];
}
else
{
[coder encodeObject:pattern];
}
}
- (id)initWithCoder:(NSCoder *)coder
{
self = [super initWithCoder:coder];
if ([coder allowsKeyedCoding])
{
pattern = [[coder decodeObjectForKey:@"pattern"] retain];
}
else
{
pattern = [[coder decodeObject] retain];
}
return self;
}
- (id)setMessageWithReceiver:(CompiledCodeNode *) theReceiver
selector:(NSString *) theSelector
operatorSymbols:(NSString*) theOperatorSymbols
pattern:(FSPattern *) thePattern
{
pattern = [thePattern retain];
return [super setMessageWithReceiver:theReceiver selector:theSelector operatorSymbols:theOperatorSymbols];
}
- (FSPattern *)pattern
{ return pattern; }
@end