#include "AGSHtml.h"
static int XML_ELEMENT_NODE;
static int XML_TEXT_NODE;
@implementation AGSHtml
+ (void) initialize
{
if (self == [AGSHtml class])
{
/*
* Cache XML node information.
*/
XML_ELEMENT_NODE = [GSXMLNode typeFromDescription: @"XML_ELEMENT_NODE"];
XML_TEXT_NODE = [GSXMLNode typeFromDescription: @"XML_TEXT_NODE"];
}
}
- (void) dealloc
{
RELEASE(globalRefs);
RELEASE(localRefs);
RELEASE(indent);
[super dealloc];
}
- (void) decIndent
{
unsigned len = [indent length];
if (len >= 2)
{
[indent deleteCharactersInRange: NSMakeRange(len - 2, 2)];
}
}
- (void) incIndent
{
[indent appendString: @" "];
}
- (id) init
{
indent = [[NSMutableString alloc] initWithCapacity: 64];
return self;
}
- (NSString*) outputDocument: (GSXMLNode*)node
{
NSMutableString *buf;
if (localRefs == nil)
{
localRefs = [AGSIndex new];
[localRefs makeRefs: node];
}
buf = [NSMutableString stringWithCapacity: 4096];
[buf appendString: @"\n"];
[self incIndent];
[self outputNode: node to: buf];
[self decIndent];
[buf appendString: @"\n"];
return buf;
}
- (void) outputNode: (GSXMLNode*)node to: (NSMutableString*)buf
{
GSXMLNode *children = [node children];
GSXMLNode *next = [node next];
BOOL newUnit = NO;
if ([node type] == XML_ELEMENT_NODE)
{
NSString *name = [node name];
NSDictionary *prop = [node propertiesAsDictionary];
if ([name isEqual: @"back"] == YES)
{
// Open back division
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
[self outputNode: children to: buf];
children = nil;
// Close back division
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else if ([name isEqual: @"body"] == YES)
{
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
[self outputNode: children to: buf];
children = nil;
[self decIndent];
[buf appendString: indent];
[buf appendString: @"\n"];
}
else if ([name isEqual: @"category"] == YES)
{
newUnit = YES;
unit = [NSString stringWithFormat: @"%@(%@)",
[prop objectForKey: @"class"], [prop objectForKey: @"name"]];
[self outputUnit: node to: buf];
children = nil;
}
else if ([name isEqual: @"chapter"] == YES)
{
heading = @"h1";
[self outputNode: children to: buf];
children = nil;
}
else if ([name isEqual: @"class"] == YES)
{
newUnit = YES;
unit = [prop objectForKey: @"name"];
[self outputUnit: node to: buf];
children = nil;
}
else if ([name isEqual: @"desc"] == YES)
{
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
[self outputBlock: children to: buf inPara: YES];
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else if ([name isEqual: @"front"] == YES)
{
// Open front division
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
[self outputNode: children to: buf];
children = nil;
// Close front division
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else if ([name isEqual: @"gsdoc"] == YES)
{
base = [prop objectForKey: @"base"];
if (base == nil)
{
NSLog(@"No 'base' document name supplied in gsdoc element");
return;
}
nextFile = [prop objectForKey: @"next"];
nextFile = [nextFile stringByAppendingPathExtension: @"html"];
prevFile = [prop objectForKey: @"pref"];
prevFile = [prevFile stringByAppendingPathExtension: @"html"];
upFile = [prop objectForKey: @"up"];
upFile = [upFile stringByAppendingPathExtension: @"html"];
}
else if ([name isEqual: @"head"] == YES)
{
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
[self outputNode: children to: buf];
children = nil;
[self decIndent];
[buf appendString: indent];
[buf appendString: @"\n"];
}
else if ([name isEqual: @"heading"] == YES)
{
[buf appendString: indent];
[buf appendString: @"<"];
[buf appendString: heading];
[buf appendString: @">"];
[self outputText: children to: buf];
children = nil;
[buf appendString: @"\n"];
}
else if ([name isEqual: @"ivariable"] == YES)
{
NSString *tmp = [prop objectForKey: @"name"];
}
else if ([name isEqual: @"entry"] || [name isEqual: @"label"])
{
NSString *text;
NSString *val;
text = [children content];
children = nil;
val = [prop objectForKey: @"id"];
if (val == nil)
{
val = text;
}
}
else if ([name isEqual: @"method"] == YES)
{
NSString *sel = @"";
GSXMLNode *tmp = children;
sel = [prop objectForKey: @"factory"];
if (sel != nil && [sel boolValue] == YES)
{
sel = @"+";
}
else
{
sel = @"-";
}
children = nil;
while (tmp != nil)
{
if ([tmp type] == XML_ELEMENT_NODE)
{
if ([[tmp name] isEqual: @"sel"] == YES)
{
GSXMLNode *t = [tmp children];
while (t != nil)
{
if ([t type] == XML_TEXT_NODE)
{
sel = [sel stringByAppendingString: [t content]];
}
t = [t next];
}
}
else if ([[tmp name] isEqual: @"arg"] == NO)
{
children = tmp;
break;
}
else if ([[tmp name] isEqual: @"vararg"] == YES)
{
sel = [sel stringByAppendingString: @",..."];
children = [tmp next];
break;
}
}
tmp = [tmp next];
}
if ([sel length] > 1)
{
}
}
else if ([name isEqual: @"protocol"] == YES)
{
newUnit = YES;
unit = [prop objectForKey: @"name"];
[self outputUnit: node to: buf];
children = nil;
}
else if ([name isEqual: @"constant"] == YES
|| [name isEqual: @"EOEntity"] == YES
|| [name isEqual: @"EOModel"] == YES
|| [name isEqual: @"function"] == YES
|| [name isEqual: @"macro"] == YES
|| [name isEqual: @"type"] == YES
|| [name isEqual: @"variable"] == YES)
{
NSString *tmp = [prop objectForKey: @"name"];
}
else if ([name isEqual: @"section"] == YES)
{
heading = @"h2";
[self outputNode: children to: buf];
children = nil;
}
else if ([name isEqual: @"subsect"] == YES)
{
heading = @"h3";
[self outputNode: children to: buf];
children = nil;
}
else if ([name isEqual: @"subsubsect"] == YES)
{
heading = @"h4";
[self outputNode: children to: buf];
children = nil;
}
else if ([name isEqual: @"title"] == YES)
{
[buf appendString: indent];
[buf appendString: @""];
[self incIndent];
[self outputText: children to: buf];
children = nil;
[self decIndent];
[buf appendString: @"\n"];
}
else
{
GSXMLNode *tmp;
/*
* Try outputing as any of the common elements.
*/
tmp = [self outputBlock: node to: buf inPara: NO];
if (tmp == node)
{
NSLog(@"Element '%@' not implemented", name); // FIXME
}
else
{
next = tmp;
}
}
}
if (children != nil)
{
[self outputNode: children to: buf];
}
if (newUnit == YES)
{
unit = nil;
}
if (next != nil)
{
[self outputNode: next to: buf];
}
}
/**
* Outputs zero or more nodes at the same level as long as the nodes
* are valid %block elements. Returns nil or the first node not output.
* The value of flag is used to control paragraph nesting ... if YES
* we close a paragraph before opening a new one, and open again once
* the new paragraph closes.
*/
- (GSXMLNode*) outputBlock: (GSXMLNode*)node
to: (NSMutableString*)buf
inPara: (BOOL)flag
{
while (node != nil)
{
BOOL changed = YES;
while (changed == YES)
{
GSXMLNode *tmp = node;
node = [self outputText: node to: buf];
if (node == tmp)
{
node = [self outputList: node to: buf];
}
if (node == tmp)
{
changed = NO;
}
}
if (node != nil)
{
NSString *n;
if ([node type] != XML_ELEMENT_NODE)
{
NSLog(@"Unexpected node type in block");
break; // Not a known node type;
}
n = [node name];
if ([n isEqual: @"p"] == YES)
{
if (flag == YES)
{
[self decIndent];
[buf appendString: indent];
[buf appendString: @"\n"];
}
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
[self outputText: [node children] to: buf];
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
if (flag == YES)
{
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
}
node = [node next];
}
else if ([n isEqual: @"example"] == YES)
{
[buf appendString: @"\n
\n"];
[self outputText: [node children] to: buf];
[buf appendString: @"\n
\n"];
node = [node next];
}
else if ([n isEqual: @"embed"] == YES)
{
NSLog(@"Element 'embed' not supported");
node = [node next];
}
else
{
return node; // Not a block node.
}
}
}
return node;
}
/**
* Outputs zero or more nodes at the same level as long as the nodes
* are valid %list elements. Returns nil or the first node not output.
*/
- (GSXMLNode*) outputList: (GSXMLNode*)node to: (NSMutableString*)buf
{
while (node != nil && [node type] == XML_ELEMENT_NODE)
{
NSString *name = [node name];
GSXMLNode *children = [node children];
if ([name isEqual: @"list"] == YES)
{
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
while (children != nil)
{
[buf appendString: indent];
[buf appendString: @"- \n"];
[self incIndent];
[self outputBlock: [children children] to: buf inPara: NO];
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
children = [children next];
}
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else if ([name isEqual: @"enum"] == YES)
{
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
while (children != nil)
{
[buf appendString: indent];
[buf appendString: @"- \n"];
[self incIndent];
[self outputBlock: [children children] to: buf inPara: NO];
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
children = [children next];
}
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else if ([name isEqual: @"deflist"] == YES)
{
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
while (children != nil)
{
[buf appendString: indent];
[buf appendString: @"- "];
[self outputText: [children children] to: buf];
[buf appendString: @"
\n"];
children = [children next];
[buf appendString: indent];
[buf appendString: @"- \n"];
[self incIndent];
[self outputBlock: [children children] to: buf inPara: NO];
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
children = [children next];
}
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else if ([name isEqual: @"qalist"] == YES)
{
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
while (children != nil)
{
[buf appendString: indent];
[buf appendString: @"- "];
[self outputText: [children children] to: buf];
[buf appendString: @"
\n"];
children = [children next];
[buf appendString: indent];
[buf appendString: @"- \n"];
[self incIndent];
[self outputBlock: [children children] to: buf inPara: NO];
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
children = [children next];
}
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else if ([name isEqual: @"dictionary"] == YES)
{
NSLog(@"Element '%@' not implemented", name); // FIXME
}
else
{
return node; // Not a list
}
node = [node next];
}
return node;
}
/**
* Outputs zero or more nodes at the same level as long as the nodes
* are valid %text elements. Returns nil or the first node not output.
*/
- (GSXMLNode*) outputText: (GSXMLNode*)node to: (NSMutableString*)buf
{
while (node != nil)
{
if ([node type] == XML_TEXT_NODE)
{
[buf appendString: [node content]];
}
else if ([node type] == XML_ELEMENT_NODE)
{
NSString *name = [node name];
GSXMLNode *children = [node children];
NSDictionary *prop = [node propertiesAsDictionary];
if ([name isEqual: @"br"] == YES)
{
[buf appendString: @"
"];
}
else if ([name isEqual: @"ref"] == YES) // %xref
{
NSLog(@"Element '%@' not implemented", name); // FIXME
}
else if ([name isEqual: @"uref"] == YES)
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @""];
}
else if ([name isEqual: @"url"] == YES)
{
NSLog(@"Element '%@' not implemented", name); // FIXME
}
else if ([name isEqual: @"email"] == YES)
{
NSLog(@"Element '%@' not implemented", name); // FIXME
}
else if ([name isEqual: @"prjref"] == YES)
{
NSLog(@"Element '%@' not implemented", name); // FIXME
}
else if ([name isEqual: @"label"] == YES) // %anchor
{
NSLog(@"Element '%@' not implemented", name); // FIXME
}
else if ([name isEqual: @"entry"] == YES)
{
NSLog(@"Element '%@' not implemented", name); // FIXME
}
else if ([name isEqual: @"var"] == YES) // %phrase
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @""];
}
else if ([name isEqual: @"em"] == YES)
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @""];
}
else if ([name isEqual: @"code"] == YES)
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @""];
}
else if ([name isEqual: @"file"] == YES)
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @""];
}
else if ([name isEqual: @"site"] == YES)
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @""];
}
else if ([name isEqual: @"footnote"] == YES)
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @"
"];
}
else
{
return node; // Not a text node.
}
}
node = [node next];
}
return node;
}
- (void) outputUnit: (GSXMLNode*)node to: (NSMutableString*)buf
{
GSXMLNode *u = node;
node = [node children];
if (node != nil && [[node name] isEqual: @"declared"] == YES)
{
[buf appendString: indent];
[buf appendString: @"Declared: "];
[self outputText: [node children] to: buf];
[buf appendString: @"
\n"];
node = [node next];
}
while (node != nil && [[node name] isEqual: @"conform"] == YES)
{
[buf appendString: indent];
[buf appendString: @"Conform: "];
[self outputText: [node children] to: buf];
[buf appendString: @"
\n"];
node = [node next];
}
if (node != nil && [[node name] isEqual: @"desc"] == YES)
{
[self outputNode: node to: buf];
node = [node next];
}
while (node != nil && [[node name] isEqual: @"method"] == YES)
{
[self outputNode: node to: buf];
node = [node next];
}
if (node != nil && [[node name] isEqual: @"standaards"] == YES)
{
[self outputNode: node to: buf];
node = [node next];
}
}
- (void) setGlobalRefs: (AGSIndex*)r
{
ASSIGN(globalRefs, r);
}
- (void) setLocalRefs: (AGSIndex*)r
{
ASSIGN(localRefs, r);
}
@end