Honor -Up flag better.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@14474 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Richard Frith-Macdonald 2002-09-17 10:41:02 +00:00
parent ef2457a2f9
commit 8b72e1dcc2
2 changed files with 15 additions and 0 deletions

View file

@ -2,6 +2,9 @@
* Tools/AGSParser.m: Bugfix ... look for source files more
intelligently. Try both current directory and relative to header.
* Tools/AGSOutput.m: When creating template output file for functions
etc because none was supplied, take account of the -Up flag and
create an up link in it.
* Source/GSHTTPURLHandle.m: If response parsing fails, fail the
load operation and (conditionally when debug enabled) log an error.

View file

@ -2031,6 +2031,8 @@ static BOOL snuggleStart(NSString *t)
}
else
{
NSString *up = [ud stringForKey: @"Up"];
/*
* No pre-existing file, and no blank template available ...
* Generate a standard template.
@ -2043,6 +2045,16 @@ static BOOL snuggleStart(NSString *t)
[str appendString: @"\"http://www.gnustep.org/gsdoc-0_6_7.xml\">\n"];
[str appendString: @"<gsdoc base=\""];
[str appendString: [name lastPathComponent]];
/*
* If a -Up default has been set, create an up link in this
* template file... as long as the specified up link is not
* the template file itsself.
*/
if (up != nil && [up isEqual: [name lastPathComponent]] == NO)
{
[str appendString: @"\" up=\""];
[str appendString: up];
}
[str appendString: @"\">\n"];
[str appendString: @" <head>\n"];
[str appendString: @" <title>"];