\n"];
[self incIndent];
while (children != nil)
{
children = [self outputBlock: children to: buf inPara: YES];
}
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else if ([name isEqual: @"em"] == YES)
{
[buf appendString: @"\n"];
[self incIndent];
[self outputNodeList: children to: buf];
// Close front division
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else if ([name isEqual: @"function"] == YES)
{
NSString *fun;
NSString *str;
NSString *s;
GSXMLNode *tmp = children;
BOOL hadArg = NO;
fun = [prop objectForKey: @"name"];
str = [prop objectForKey: @"type"];
str = [str stringByAppendingFormat: @" %@(", fun];
children = nil;
while (tmp != nil)
{
if ([tmp type] == XML_ELEMENT_NODE)
{
if ([[tmp name] isEqual: @"arg"] == YES)
{
GSXMLNode *t = [tmp children];
NSString *s;
if (hadArg == YES)
{
str = [str stringByAppendingString: @", "];
}
s = [[tmp propertiesAsDictionary] objectForKey: @"type"];
s = [self typeRef: s];
str = [str stringByAppendingString: s];
str = [str stringByAppendingString: @" \n"];
[self incIndent];
if (prevFile != nil)
{
[buf appendString: indent];
[buf appendFormat: @"Prev\n", prevFile];
}
if (upFile != nil)
{
[buf appendString: indent];
[buf appendFormat: @"Up\n", upFile];
}
if (nextFile != nil)
{
[buf appendString: indent];
[buf appendFormat: @"Next\n", nextFile];
}
[buf appendString: indent];
[buf appendString: @"
\n"];
[buf appendString: indent];
[buf appendFormat: @"\n"];
[buf appendString: indent];
[buf appendString: @"Authors
\n"];
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
children = firstElement([children next]);
while ([[children name] isEqual: @"author"] == YES)
{
GSXMLNode *author = children;
GSXMLNode *tmp;
GSXMLNode *email = nil;
GSXMLNode *url = nil;
GSXMLNode *desc = nil;
children = [children next];
children = firstElement(children);
tmp = firstElement([author children]);
if ([[tmp name] isEqual: @"email"] == YES)
{
email = tmp;
tmp = firstElement([tmp next]);
}
if ([[tmp name] isEqual: @"url"] == YES)
{
url = tmp;
tmp = firstElement([tmp next]);
}
if ([[tmp name] isEqual: @"desc"] == YES)
{
desc = tmp;
tmp = firstElement([tmp next]);
}
[buf appendString: indent];
if (url == nil)
{
[buf appendString: @"- "];
[buf appendString: [[author propertiesAsDictionary]
objectForKey: @"name"]];
}
else
{
[buf appendString: @"
- "];
[buf appendString: [[author propertiesAsDictionary]
objectForKey: @"name"]];
[buf appendString: @""];
}
if (email != nil)
{
[buf appendString: @"("];
[self outputNode: email to: buf];
[buf appendString: @")"];
}
[buf appendString: @"
\n"];
[buf appendString: indent];
[buf appendString: @" - \n"];
if (desc != nil)
{
[self incIndent];
while (desc != nil)
{
desc = [self outputBlock: desc to: buf inPara: NO];
}
[self decIndent];
}
[buf appendString: indent];
[buf appendString: @"
\n"];
}
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
if ([[children name] isEqual: @"version"] == YES)
{
[buf appendString: indent];
[buf appendString: @"Version: "];
[self outputText: [children children] to: buf];
[buf appendString: @"
\n"];
children = firstElement([children next]);
}
if ([[children name] isEqual: @"date"] == YES)
{
[buf appendString: indent];
[buf appendString: @"Date: "];
[self outputText: [children children] to: buf];
[buf appendString: @"
\n"];
children = firstElement([children next]);
}
if ([[children name] isEqual: @"abstract"] == YES)
{
GSXMLNode *tmp = [children children];
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
while (tmp != nil)
{
tmp = [self outputBlock: tmp to: buf inPara: NO];
}
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
children = firstElement([children next]);
}
if ([[children name] isEqual: @"copy"] == YES)
{
[buf appendString: indent];
[buf appendString: @"Copyright: (C) "];
[self outputText: [children children] to: buf];
[buf appendString: @"
\n"];
children = firstElement([children next]);
}
}
else if ([name isEqual: @"heading"] == YES)
{
[buf appendString: indent];
[buf appendString: @"<"];
[buf appendString: heading];
[buf appendString: @">"];
[buf appendFormat: @"",
chap, sect, ssect, sssect];
[self outputText: children to: buf];
[buf appendString: @"\n"];
}
else if ([name isEqual: @"index"] == YES)
{
NSString *scope = [prop objectForKey: @"scope"];
NSString *type = [prop objectForKey: @"type"];
NSString *title = [type capitalizedString];
[self outputIndex: type scope: scope title: title to: buf];
}
else if ([name isEqual: @"ivar"] == YES) // %phrase
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @""];
}
else if ([name isEqual: @"ivariable"] == YES)
{
NSString *n = [prop objectForKey: @"name"];
NSString *t = [prop objectForKey: @"type"];
NSString *v = [prop objectForKey: @"validity"];
NSString *s;
GSXMLNode *tmp = children;
[buf appendString: indent];
[buf appendString: @""];
s = [self makeLink: n ofType: @"ivariable" inUnit: nil isRef: NO];
if (s != nil)
{
[buf appendString: s];
[buf appendString: n];
[buf appendString: @""];
}
else
{
[buf appendString: n];
}
[buf appendString: @"
\n"];
if (v == nil)
{
v = @"public";
}
[buf appendFormat: @"%@@%@ %@ %@;
\n", indent, v, t, n];
if ([[children name] isEqual: @"desc"] == YES)
{
children = [children next];
}
/*
* List standards with which method complies
*/
if ([[children name] isEqual: @"standards"])
{
[self outputNode: children to: buf];
}
if ([[tmp name] isEqual: @"desc"])
{
[self outputNode: tmp to: buf];
}
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else if ([name isEqual: @"label"] == YES) // %anchor
{
NSString *text;
NSString *val;
text = [children content];
val = [prop objectForKey: @"id"];
if (val == nil)
{
val = text;
}
[buf appendString:
[self makeAnchor: val ofType: @"label" name: text]];
}
else if ([name isEqual: @"method"] == YES)
{
NSString *sel;
NSString *str;
GSXMLNode *tmp = children;
BOOL hadArg = NO;
sel = [prop objectForKey: @"factory"];
str = [prop objectForKey: @"type"];
if (sel != nil && [sel boolValue] == YES)
{
sel = @"+";
str = [NSString stringWithFormat: @"+ (%@) ",
[self typeRef: str]];
}
else
{
sel = @"-";
str = [NSString stringWithFormat: @"- (%@) ",
[self typeRef: str]];
}
children = nil;
while (tmp != nil)
{
if ([tmp type] == XML_ELEMENT_NODE)
{
if ([[tmp name] isEqual: @"sel"] == YES)
{
GSXMLNode *t = [tmp children];
str = [str stringByAppendingString: @""];
while (t != nil)
{
if ([t type] == XML_TEXT_NODE)
{
NSString *content = [t content];
sel = [sel stringByAppendingString: content];
if (hadArg == YES)
{
str = [str stringByAppendingString: @" "];
}
str = [str stringByAppendingString: content];
}
t = [t next];
}
str = [str stringByAppendingString: @""];
}
else if ([[tmp name] isEqual: @"arg"] == YES)
{
GSXMLNode *t = [tmp children];
NSString *s;
s = [[tmp propertiesAsDictionary] objectForKey: @"type"];
s = [self typeRef: s];
str = [str stringByAppendingFormat: @" (%@)", s];
while (t != nil)
{
if ([t type] == XML_TEXT_NODE)
{
str = [str stringByAppendingString: [t content]];
}
t = [t next];
}
hadArg = YES; // Say we have found an arg.
}
else if ([[tmp name] isEqual: @"vararg"] == YES)
{
sel = [sel stringByAppendingString: @",..."];
str = [str stringByAppendingString: @",..."];
children = [tmp next];
break;
}
else
{
children = tmp;
break;
}
}
tmp = [tmp next];
}
if ([sel length] > 1)
{
NSString *s;
/*
* Output selector heading.
*/
[buf appendString: indent];
[buf appendString: @""];
s = [self makeLink: sel ofType: @"method" inUnit: nil isRef: NO];
if (s != nil)
{
[buf appendString: s];
[buf appendString: [sel substringFromIndex: 1]];
[buf appendString: @""];
}
else
{
[buf appendString: [sel substringFromIndex: 1]];
}
[buf appendString: @"
\n"];
[buf appendString: indent];
[buf appendString: str];
[buf appendString: @";
\n"];
node = firstElement(children);
/*
* List standards with which method complies
*/
children = firstElement(node);
if ([[children name] isEqual: @"standards"])
{
[self outputNode: children to: buf];
}
if ((str = [prop objectForKey: @"init"]) != nil
&& [str boolValue] == YES)
{
[buf appendString: @"This is a designated initialiser "
@"for the class.
\n"];
}
str = [prop objectForKey: @"override"];
if ([str isEqual: @"subclass"] == YES)
{
[buf appendString: @"Subclasses should "
@"override this method.
\n"];
}
else if ([str isEqual: @"never"] == YES)
{
[buf appendString: @"Subclasses should NOT "
@"override this method.
\n"];
}
if ([[node name] isEqual: @"desc"])
{
[self outputNode: node to: buf];
}
[buf appendString: indent];
[buf appendString: @"
\n"];
}
}
else if ([name isEqual: @"p"] == YES)
{
[self outputBlock: node to: buf inPara: NO];
}
else if ([name isEqual: @"prjref"] == YES)
{
NSLog(@"Element '%@' not implemented", name); // FIXME
}
else if ([name isEqual: @"ref"] == YES) // %xref
{
NSString *type = [prop objectForKey: @"type"];
NSString *r = [prop objectForKey: @"id"];
GSXMLNode *tmp = [node children];
NSString *s;
if ([type isEqual: @"method"] || [type isEqual: @"ivariable"])
{
s = [prop objectForKey: @"class"];
s = [self makeLink: r ofType: type inUnit: s isRef: YES];
}
else
{
s = [self makeLink: r ofType: type isRef: YES];
}
if (s == nil)
{
NSLog(@"ref '%@' not found for %@", r, type);
if (tmp == nil)
{
[buf appendString: r];
}
else
{
[self outputText: tmp to: buf];
}
[buf appendString: @"\n"];
}
else
{
[buf appendString: s];
if (tmp == nil)
{
[buf appendString: r];
}
else
{
[self outputText: tmp to: buf];
}
[buf appendString: @"\n"];
}
}
else if ([name isEqual: @"protocol"] == YES)
{
NSString *name = [prop objectForKey: @"name"];
unit = [NSString stringWithFormat: @"(%@)", name];
[buf appendString: indent];
[buf appendString: @""];
[buf appendString:
[self makeAnchor: unit ofType: @"protocol" name: name]];
[buf appendString: @"
\n"];
[self outputUnit: node to: buf];
unit = nil;
}
else if ([name isEqual: @"EOEntity"] == YES
|| [name isEqual: @"EOModel"] == YES
|| [name isEqual: @"macro"] == YES)
{
NSString *tmp = [prop objectForKey: @"name"];
NSLog(@"Element '%@' not implemented", name); // FIXME
}
else if ([name isEqual: @"section"] == YES)
{
heading = @"h2";
sect++;
ssect = 0;
sssect = 0;
[self outputNodeList: children to: buf];
}
else if ([name isEqual: @"site"] == YES)
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @""];
}
else if ([name isEqual: @"standards"])
{
GSXMLNode *tmp = [node children];
BOOL first = YES;
if (tmp != nil)
{
[buf appendString: indent];
[buf appendString: @"Standards:"];
while (tmp != nil)
{
if ([tmp type] == XML_ELEMENT_NODE)
{
if (first == YES)
{
first = NO;
[buf appendString: @" "];
}
else
{
[buf appendString: @", "];
}
[buf appendString: [tmp name]];
}
tmp = [tmp next];
}
[buf appendString: @"
\n"];
}
}
else if ([name isEqual: @"strong"] == YES)
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @""];
}
else if ([name isEqual: @"subsect"] == YES)
{
heading = @"h3";
ssect++;
sssect = 0;
[self outputNodeList: children to: buf];
}
else if ([name isEqual: @"subsubsect"] == YES)
{
heading = @"h4";
sssect++;
[self outputNodeList: children to: buf];
}
else if ([name isEqual: @"type"] == YES)
{
NSString *nam;
NSString *str;
NSString *s;
nam = [prop objectForKey: @"name"];
str = [prop objectForKey: @"type"];
str = [NSString stringWithFormat: @"typedef %@ %@", str, nam];
/*
* Output typedef heading.
*/
[buf appendString: indent];
[buf appendString: @""];
s = [self makeLink: nam ofType: @"type" isRef: NO];
if (s != nil)
{
[buf appendString: s];
[buf appendString: nam];
[buf appendString: @""];
}
else
{
[buf appendString: nam];
}
[buf appendString: @"
\n"];
[buf appendString: indent];
[buf appendString: str];
[buf appendString: @";
\n"];
node = firstElement(children);
if (node != nil && [[node name] isEqual: @"declared"] == YES)
{
[self outputNode: node to: buf];
node = firstElement(node);
}
children = firstElement(node);
if ([[children name] isEqual: @"standards"])
{
[self outputNode: children to: buf];
}
if (node != nil && [[node name] isEqual: @"desc"] == YES)
{
[self outputNode: node to: buf];
node = firstElement(node);
}
[buf appendString: indent];
[buf appendString: @"
\n"];
}
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: @"var"] == YES) // %phrase
{
[buf appendString: @""];
[self outputText: children to: buf];
[buf appendString: @""];
}
else if ([name isEqual: @"variable"] == YES)
{
NSString *nam;
NSString *str;
NSString *s;
nam = [prop objectForKey: @"name"];
str = [prop objectForKey: @"type"];
str = [str stringByAppendingFormat: @" %@", nam];
/*
* Output variable heading.
*/
[buf appendString: indent];
[buf appendString: @""];
s = [self makeLink: nam ofType: @"variable" isRef: NO];
if (s != nil)
{
[buf appendString: s];
[buf appendString: nam];
[buf appendString: @""];
}
else
{
[buf appendString: nam];
}
[buf appendString: @"
\n"];
[buf appendString: indent];
[buf appendString: str];
[buf appendString: @";
\n"];
node = firstElement(children);
if ([[node name] isEqual: @"declared"] == YES)
{
[self outputNode: node to: buf];
node = firstElement(node);
}
children = firstElement(node);
if ([[children name] isEqual: @"standards"])
{
[self outputNode: children to: buf];
}
if ([[node name] isEqual: @"desc"])
{
[self outputNode: node to: buf];
}
[buf appendString: indent];
[buf appendString: @"
\n"];
}
else
{
GSXMLNode *tmp;
/*
* Try outputing as any of the list elements.
*/
tmp = [self outputList: node to: buf];
if (tmp == node)
{
NSLog(@"Element '%@' not implemented", name); // FIXME
}
node = tmp;
}
}
RELEASE(arp);
}
- (void) outputNodeList: (GSXMLNode*)node to: (NSMutableString*)buf
{
while (node != nil)
{
GSXMLNode *next = [node next];
[self outputNode: node to: buf];
node = next;
}
}
/**
* 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
{
if (node != nil && [node type] == XML_ELEMENT_NODE)
{
GSXMLNode *tmp = node;
NSString *n;
node = [self outputList: node to: buf];
if (node != tmp)
{
return node;
}
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];
}
return [node next];
}
else if ([n isEqual: @"example"] == YES)
{
[buf appendString: @"
\n"];
[self outputText: [node children] to: buf];
[buf appendString: @"\n
\n"];
return [node next];
}
else if ([n isEqual: @"embed"] == YES)
{
NSLog(@"Element 'embed' not supported");
return [node next];
}
else if ([n isEqual: @"index"] == YES)
{
[self outputNode: node to: buf];
return [node next];
}
else if ([textNodes member: n] != nil)
{
[buf appendString: indent];
node = [self outputText: node to: buf];
[buf appendString: @"\n"];
return node;
}
else
{
NSLog(@"Non-block element '%@' in block ...", n);
return node;
}
}
[buf appendString: indent];
node = [self outputText: node to: buf];
[buf appendString: @"\n"];
return node;
}
/**
* Outputs a node as long as it is a
* valid %list element. Returns next node at this level.
*/
- (GSXMLNode*) outputList: (GSXMLNode*)node to: (NSMutableString*)buf
{
NSString *name = [node name];
GSXMLNode *children = [node children];
if ([name isEqual: @"list"] == YES)
{
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
while (children != nil)
{
GSXMLNode *tmp = [children children];
[buf appendString: indent];
[buf appendString: @"- \n"];
[self incIndent];
while (tmp != nil)
{
tmp = [self outputBlock: tmp 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)
{
GSXMLNode *tmp = [children children];
[buf appendString: indent];
[buf appendString: @"- \n"];
[self incIndent];
while (tmp != nil)
{
tmp = [self outputBlock: tmp 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)
{
GSXMLNode *tmp;
[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];
tmp = [children children];
while (tmp != nil)
{
tmp = [self outputBlock: tmp 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)
{
GSXMLNode *tmp;
[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];
tmp = [children children];
while (tmp != nil)
{
tmp = [self outputBlock: tmp 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_ENTITY_REF_NODE)
{
[buf appendString: @"&"];
[buf appendString: [node name]];
[buf appendString: @";"];
}
else if ([node type] == XML_ELEMENT_NODE)
{
NSString *name = [node name];
if ([textNodes member: name] != nil)
{
[self outputNode: node to: buf];
}
else
{
return node; // Not a text node.
}
}
node = [node next];
}
return node;
}
- (void) outputUnit: (GSXMLNode*)node to: (NSMutableString*)buf
{
GSXMLNode *t;
NSArray *a;
node = [node children];
if (node != nil && [[node name] isEqual: @"declared"] == YES)
{
[self outputNode: node to: buf];
node = [node next];
}
if (node != nil && [[node name] isEqual: @"conform"] == YES)
{
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
[buf appendString: indent];
[buf appendString: @"- Conforms to:
\n"];
while (node != nil && [[node name] isEqual: @"conform"] == YES)
{
NSString *text = [[node children] content];
[buf appendString: indent];
[buf appendString: @"- "];
[buf appendString: [self protocolRef: text]];
[buf appendString: @"
\n"];
node = [node next];
}
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
t = node;
while (t != nil && [[t name] isEqual: @"standards"] == NO)
{
t = [t next];
}
if (t != nil && [t children] != nil)
{
t = [t children];
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
[buf appendString: indent];
[buf appendString: @"Standards:\n"];
[buf appendString: indent];
[buf appendString: @"\n"];
[self incIndent];
while (t != nil)
{
if ([t type] == XML_ELEMENT_NODE)
{
[buf appendString: indent];
[buf appendString: @"- "];
[buf appendString: [t name]];
[buf appendString: @"
\n"];
}
t = [t next];
}
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
[self decIndent];
[buf appendString: indent];
[buf appendString: @"
\n"];
}
if (node != nil && [[node name] isEqual: @"desc"] == YES)
{
[self outputNode: node to: buf];
node = [node next];
}
if (node != nil && [[node name] isEqual: @"ivariable"] == YES)
{
[buf appendString: indent];
[buf appendString: @"
\n"];
[buf appendString: indent];
[buf appendString: @"Instance variables
\n"];
while (node != nil && [[node name] isEqual: @"ivariable"] == YES)
{
[self outputNode: node to: buf];
node = [node next];
}
}
a = [localRefs methodsInUnit: unit];
if ([a count] > 0)
{
[self outputIndex: @"method"
scope: @"global"
title: @"Method summary"
to: buf];
[buf appendString: indent];
[buf appendString: @"
\n"];
while (node != nil)
{
if ([[node name] isEqual: @"method"] == YES)
{
[self outputNode: node to: buf];
}
node = [node next];
}
}
}
/**
* Try to make a link to the documentation for the supplied protocol.
*/
- (NSString*) protocolRef: (NSString*)t
{
NSString *n;
NSString *s;
t = [t stringByTrimmingSpaces];
n = [NSString stringWithFormat: @"(%@)", t];
s = [self makeLink: n ofType: @"protocol" isRef: YES];
if (s != nil)
{
s = [s stringByAppendingString: t];
t = [s stringByAppendingString: @""];
}
return t;
}
- (void) setGlobalRefs: (AGSIndex*)r
{
ASSIGN(globalRefs, r);
}
- (void) setLocalRefs: (AGSIndex*)r
{
ASSIGN(localRefs, r);
}
- (void) setProjectRefs: (AGSIndex*)r
{
ASSIGN(projectRefs, r);
}
/**
* Assuming that the supplied string contains type information (as used
* in a method declaration or type cast), we make an attempt at extracting
* the basic type, and seeing if we can find a documented declaration for
* it. If we can, we return a modified version of the string containing
* a link to the appropriate documentation. Otherwise, we just return the
* plain type string. In all cases, we strip leading and trailing white space.
*/
- (NSString*) typeRef: (NSString*)t
{
NSString *orig = [t stringByTrimmingSpaces];
NSString *s;
unsigned end = [orig length];
unsigned start;
t = orig;
while (end > 0)
{
unichar c = [t characterAtIndex: end-1];
if (c != '*' && !isspace(c))
{
break;
}
end--;
}
start = end;
while (start > 0)
{
unichar c = [t characterAtIndex: start-1];
if (c != '_' && !isalnum(c))
{
break;
}
start--;
}
t = [orig substringWithRange: NSMakeRange(start, end - start)];
s = [self makeLink: t ofType: @"type" isRef: YES];
if (s == nil)
{
s = [self makeLink: t ofType: @"class" isRef: YES];
}
if (s != nil)
{
s = [s stringByAppendingFormat: @"%@", t];
if ([orig length] == [t length])
{
return s;
}
return [orig stringByReplacingString: t withString: s];
}
return orig;
}
@end