You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
211 lines
6.7 KiB
211 lines
6.7 KiB
// [The "BSD licence"]
|
|
// Copyright (c) 2006-2007 Kay Roepke 2010 Alan Condit
|
|
// All rights reserved.
|
|
//
|
|
// Redistribution and use in source and binary forms, with or without
|
|
// modification, are permitted provided that the following conditions
|
|
// are met:
|
|
// 1. Redistributions of source code must retain the above copyright
|
|
// notice, this list of conditions and the following disclaimer.
|
|
// 2. Redistributions in binary form must reproduce the above copyright
|
|
// notice, this list of conditions and the following disclaimer in the
|
|
// documentation and/or other materials provided with the distribution.
|
|
// 3. The name of the author may not be used to endorse or promote products
|
|
// derived from this software without specific prior written permission.
|
|
//
|
|
// THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
|
// IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
// OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
// IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
// NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
// THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
#import "Tree.h"
|
|
#import "CommonToken.h"
|
|
#import "AMutableArray.h"
|
|
|
|
@protocol BaseTree <Tree>
|
|
|
|
+ (id<BaseTree>) INVALID_NODE;
|
|
|
|
+ (id<BaseTree>) newTree;
|
|
+ (id<BaseTree>) newTree:(id<BaseTree>)node;
|
|
|
|
- (id<BaseTree>) init;
|
|
- (id<BaseTree>) initWith:(id<BaseTree>)node;
|
|
|
|
- (id<BaseTree>) getChild:(NSUInteger)i;
|
|
- (AMutableArray *)children;
|
|
- (void) setChildren:(AMutableArray *)anArray;
|
|
- (id<BaseTree>)getFirstChildWithType:(NSInteger)type;
|
|
- (NSUInteger) getChildCount;
|
|
|
|
// Add t as a child to this node. If t is null, do nothing. If t
|
|
// is nil, add all children of t to this' children.
|
|
|
|
- (void) addChild:(id<BaseTree>) tree;
|
|
- (void) addChildren:(NSArray *) theChildren;
|
|
//- (void) removeAllChildren;
|
|
|
|
- (void) setChild:(NSInteger) i With:(id<BaseTree>)t;
|
|
- (id) deleteChild:(NSInteger) i;
|
|
- (AMutableArray *) createChildrenList;
|
|
- (void) replaceChildrenFrom:(NSInteger)startChildIndex To:(NSInteger)stopChildIndex With:(id) t;
|
|
// Indicates the node is a nil node but may still have children, meaning
|
|
// the tree is a flat list.
|
|
|
|
- (BOOL) isNil;
|
|
- (NSInteger) getTokenStartIndex;
|
|
- (void) setTokenStartIndex:(NSInteger) index;
|
|
- (NSInteger) getTokenStopIndex;
|
|
- (void) setTokenStopIndex:(NSInteger) index;
|
|
|
|
- (void) freshenParentAndChildIndexes;
|
|
- (void) freshenParentAndChildIndexes:(NSInteger) offset;
|
|
- (void) sanityCheckParentAndChildIndexes;
|
|
- (void) sanityCheckParentAndChildIndexes:(id<BaseTree>) parent At:(NSInteger) i;
|
|
|
|
- (NSInteger) getChildIndex;
|
|
- (void) setChildIndex:(NSInteger)i;
|
|
|
|
- (id<BaseTree>)getAncestor:(NSInteger)ttype;
|
|
- (AMutableArray *)getAncestors;
|
|
|
|
#pragma mark Copying
|
|
- (id) copyWithZone:(NSZone *)aZone; // the children themselves are not copied here!
|
|
- (id) deepCopy; // performs a deepCopyWithZone: with the default zone
|
|
- (id) deepCopyWithZone:(NSZone *)aZone;
|
|
|
|
#pragma mark Tree Parser support
|
|
- (NSInteger)type;
|
|
- (NSString *)text;
|
|
// In case we don't have a token payload, what is the line for errors?
|
|
- (NSUInteger)line;
|
|
- (NSUInteger)charPositionInLine;
|
|
|
|
|
|
#pragma mark Informational
|
|
- (NSString *) treeDescription;
|
|
- (NSString *) description;
|
|
|
|
- (NSString *) toString;
|
|
- (NSString *) toStringTree;
|
|
|
|
@property (retain) AMutableArray *children;
|
|
@property (retain) NSException *anException;
|
|
|
|
@end
|
|
|
|
@interface BaseTree : NSObject <BaseTree>
|
|
{
|
|
__strong AMutableArray *children;
|
|
__strong NSException *anException;
|
|
}
|
|
|
|
+ (id<BaseTree>) INVALID_NODE;
|
|
+ (id<BaseTree>) newTree;
|
|
+ (id<BaseTree>) newTree:(id<BaseTree>)node;
|
|
|
|
- (id<BaseTree>) init;
|
|
- (id<BaseTree>) initWith:(id<BaseTree>)node;
|
|
|
|
- (id<BaseTree>) getChild:(NSUInteger)i;
|
|
- (AMutableArray *)children;
|
|
- (void) setChildren:(AMutableArray *)anArray;
|
|
- (id<BaseTree>)getFirstChildWithType:(NSInteger)type;
|
|
- (NSUInteger) getChildCount;
|
|
|
|
//- (void) removeAllChildren;
|
|
|
|
// Add t as a child to this node. If t is null, do nothing. If t
|
|
// is nil, add all children of t to this' children.
|
|
|
|
- (void) addChild:(id<BaseTree>) tree;
|
|
- (void) addChildren:(NSArray *) theChildren;
|
|
|
|
- (void) setChild:(NSUInteger) i With:(id<BaseTree>)t;
|
|
- (id) deleteChild:(NSUInteger) idx;
|
|
- (AMutableArray *) createChildrenList;
|
|
- (void) replaceChildrenFrom:(NSInteger)startChildIndex To:(NSInteger)stopChildIndex With:(id) t;
|
|
// Indicates the node is a nil node but may still have children, meaning
|
|
// the tree is a flat list.
|
|
|
|
- (BOOL) isNil;
|
|
- (NSInteger) getTokenStartIndex;
|
|
- (void) setTokenStartIndex:(NSInteger) index;
|
|
- (NSInteger) getTokenStopIndex;
|
|
- (void) setTokenStopIndex:(NSInteger) index;
|
|
|
|
- (void) freshenParentAndChildIndexes;
|
|
- (void) freshenParentAndChildIndexes:(NSInteger) offset;
|
|
- (void) sanityCheckParentAndChildIndexes;
|
|
- (void) sanityCheckParentAndChildIndexes:(id<BaseTree>)parent At:(NSInteger) i;
|
|
|
|
- (NSInteger) getChildIndex;
|
|
- (void) setChildIndex:(NSInteger)i;
|
|
|
|
- (BOOL) hasAncestor:(NSInteger) ttype;
|
|
- (id<BaseTree>)getAncestor:(NSInteger)ttype;
|
|
- (AMutableArray *)getAncestors;
|
|
|
|
- (id) copyWithZone:(NSZone *)aZone;
|
|
- (id) deepCopy; // performs a deepCopyWithZone: with the default zone
|
|
- (id) deepCopyWithZone:(NSZone *)aZone;
|
|
|
|
// Return a token type; needed for tree parsing
|
|
- (NSInteger)type;
|
|
- (NSString *)text;
|
|
|
|
// In case we don't have a token payload, what is the line for errors?
|
|
- (NSUInteger)line;
|
|
- (NSUInteger)charPositionInLine;
|
|
- (void) setCharPositionInLine:(NSUInteger)pos;
|
|
|
|
- (NSString *) treeDescription;
|
|
- (NSString *) description;
|
|
- (NSString *) toString;
|
|
- (NSString *) toStringTree;
|
|
|
|
@property (retain) AMutableArray *children;
|
|
@property (retain) NSException *anException;
|
|
|
|
@end
|
|
|
|
@interface TreeNavigationNode : BaseTree {
|
|
}
|
|
- (id) init;
|
|
- (id) copyWithZone:(NSZone *)aZone;
|
|
@end
|
|
|
|
@interface TreeNavigationNodeDown : TreeNavigationNode {
|
|
}
|
|
+ (TreeNavigationNodeDown *) getNavigationNodeDown;
|
|
- (id) init;
|
|
- (NSInteger) tokenType;
|
|
- (NSString *) description;
|
|
@end
|
|
|
|
@interface TreeNavigationNodeUp : TreeNavigationNode {
|
|
}
|
|
+ (TreeNavigationNodeUp *) getNavigationNodeUp;
|
|
- (id) init;
|
|
- (NSInteger) tokenType;
|
|
- (NSString *) description;
|
|
@end
|
|
|
|
@interface TreeNavigationNodeEOF : TreeNavigationNode {
|
|
}
|
|
+ (TreeNavigationNodeEOF *) getNavigationNodeEOF;
|
|
- (id) init;
|
|
- (NSInteger) tokenType;
|
|
- (NSString *) description;
|
|
@end
|
|
|
|
extern TreeNavigationNodeDown *navigationNodeDown;
|
|
extern TreeNavigationNodeUp *navigationNodeUp;
|
|
extern TreeNavigationNodeEOF *navigationNodeEOF;
|