List methods in unit

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@11782 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Richard Frith-Macdonald 2001-12-17 08:27:49 +00:00
parent ca53f346fc
commit 53a3bac0df
4 changed files with 50 additions and 0 deletions

View file

@ -1179,6 +1179,8 @@ NSLog(@"Element '%@' not implemented", name); // FIXME
- (void) outputUnit: (GSXMLNode*)node to: (NSMutableString*)buf
{
NSMutableArray *a;
node = [node children];
if (node != nil && [[node name] isEqual: @"declared"] == YES)
{
@ -1203,6 +1205,31 @@ NSLog(@"Element '%@' not implemented", name); // FIXME
[self outputNode: node to: buf];
node = [node next];
}
a = [localRefs methodsInUnit: unit];
if ([a count] > 0)
{
NSEnumerator *e;
NSString *s;
[a sortUsingSelector: @selector(compare:)];
[buf appendString: indent];
[buf appendString: @"<h2>Methods</h2>\n"];
[buf appendString: indent];
[buf appendString: @"<ul>\n"];
[self incIndent];
e = [a objectEnumerator];
while ((s = [e nextObject]) != nil)
{
[buf appendString: indent];
[buf appendString: @"<li>"];
[buf appendString: [self makeLink: s ofType: @"method" isRef: YES]];
[buf appendString: s];
[buf appendString: @"</a></li>\n"];
}
[self decIndent];
[buf appendString: indent];
[buf appendString: @"</ul>\n"];
}
while (node != nil && [[node name] isEqual: @"method"] == YES)
{
[self outputNode: node to: buf];