runtime/ObjC/Framework/BaseTree.h

// [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;