-
Notifications
You must be signed in to change notification settings - Fork 49
/
PKTrack.m
121 lines (94 loc) · 3.5 KB
/
PKTrack.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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
// Copyright 2010 Todd Ditchendorf
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
// http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.
#import <ParseKit/PKTrack.h>
#import <ParseKit/PKAssembly.h>
#import <ParseKit/PKToken.h>
#import <ParseKit/PKTrackException.h>
#define NUM_DISPLAY_OBJS 6
@interface PKAssembly ()
- (id)peek;
- (NSString *)lastConsumedObjects:(NSUInteger)len joinedByString:(NSString *)delimiter;
@end
@interface PKParser ()
- (NSSet *)matchAndAssemble:(NSSet *)inAssemblies;
- (PKAssembly *)best:(NSSet *)inAssemblies;
@end
@interface PKTrack ()
- (void)throwTrackExceptionWithPreviousState:(NSSet *)inAssemblies parser:(PKParser *)p;
@end
@interface PKCollectionParser ()
+ (PKCollectionParser *)collectionParserWithFirst:(PKParser *)p1 rest:(va_list)rest;
@end
@implementation PKTrack
+ (PKTrack *)track {
return [self trackWithSubparsers:nil];
}
+ (PKTrack *)trackWithSubparsers:(PKParser *)p1, ... {
va_list vargs;
va_start(vargs, p1);
PKTrack *tr = (PKTrack *)[self collectionParserWithFirst:p1 rest:vargs];
va_end(vargs);
return tr;
}
- (NSSet *)allMatchesFor:(NSSet *)inAssemblies {
NSParameterAssert(inAssemblies);
BOOL inTrack = NO;
NSSet *lastAssemblies = inAssemblies;
NSSet *outAssemblies = inAssemblies;
for (PKParser *p in subparsers) {
outAssemblies = [p matchAndAssemble:outAssemblies];
if (![outAssemblies count]) {
if (inTrack) {
[self throwTrackExceptionWithPreviousState:lastAssemblies parser:p];
}
break;
}
inTrack = YES;
lastAssemblies = outAssemblies;
}
return outAssemblies;
}
- (void)throwTrackExceptionWithPreviousState:(NSSet *)inAssemblies parser:(PKParser *)p {
PKAssembly *best = [self best:inAssemblies];
id next = [best peek];
NSMutableString *reason = [NSMutableString stringWithString:@"\n\n"];
NSUInteger lineNum = NSNotFound;
if (next && [next isKindOfClass:[PKToken class]]) {
lineNum = [next lineNumber];
NSAssert(NSNotFound != lineNum, @"");
if (NSNotFound != lineNum) {
NSString *fmt = nil;
#if defined(__LP64__)
fmt = @"Line : %lu\n";
#else
fmt = @"Line : %u\n";
#endif
[reason appendFormat:fmt, lineNum];
}
}
NSString *after = [best lastConsumedObjects:NUM_DISPLAY_OBJS joinedByString:@" "];
if (![after length]) {
after = @"-nothing-";
}
NSString *expected = [p description];
NSString *found = next ? [next description] : @"-nothing-";
[reason appendFormat:@"After : %@\nExpected : %@\nFound : %@\n\n", after, expected, found];
NSDictionary *userInfo = [NSDictionary dictionaryWithObjectsAndKeys:
after, @"after",
expected, @"expected",
found, @"found",
nil];
[[PKTrackException exceptionWithName:PKTrackExceptionName reason:[[reason copy] autorelease] userInfo:userInfo] raise];
}
@end