libs-base/Tools/autogsdoc.m

2489 lines
83 KiB
Objective-C

/** This tool produces GSDoc files from source files.
<title>Autogsdoc ... a tool to make documentation from source code</title>
Copyright (C) 2001-2023 Free Software Foundation, Inc.
Written By: Richard Frith-Macdonald <richard@brainstorm.co.uk>
This file is part of the GNUstep Project
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either
version 3 of the License, or (at your option) any later version.
You should have received a copy of the GNU General Public
License along with this program; see the file COPYINGv3.
If not, write to the Free Software Foundation,
31 Milk Street #960789 Boston, MA 02196 USA.
<chapter>
<heading>autogsdoc</heading>
<section>
<heading>autogsdoc</heading>
<p>
The autogsdoc tool is a command-line utility that helps developers
produce reference documentation for GNUstep APIs. It also enables
developers to write and maintain other documentation in XML and have it
converted to HTML. In detail, autogsdoc will:
</p>
<list>
<item>
Extract special comments describing the public interfaces of classes,
categories, protocols, functions, and macros from Objective C source
code (header files and optionally source files) into GSDoc XML files.
(Note that since C is a subset of Objective C, this tool can operate
to document functions and other C structures in plain C source.)
</item>
<item>
Convert GSDoc XML files, whether generated from source code or written
manually by developers, into HTML.
</item>
<item>
Construct indices based on GSDoc XML file sets, and convert those
to HTML as well.
</item>
</list>
<p>
synopsis: <code>autogsdoc (options) (files)</code><br/>
&#160;&#160;&#160;&#160;(options) described below<br/>
&#160;&#160;&#160;&#160;(files) <code>.h</code>, <code>.m</code>, <code>.gsdoc</code>, and/or <code>.html</code> files, in any order.
</p>
<p>
The most common usage this is to run the command with one or more
header file names as arguments ... the tool will automatically
parse corresponding source files in the same directory as the
headers (or the current directory, or the directory specified
using the DocumentationDirectory default), and produce GSDoc
and HTML files as output. For best results this mode should be
run from the directory containing the source files.
</p>
<p>
GSDoc files may also be given directly in addition or by themselves, and
will be converted to HTML. See the
<uref url="gsdoc.html">GSDoc reference</uref> for information
on the GSDoc format.
</p>
<p>
Finally, HTML files may be given on the command line. Cross-references
to other parts of code documentation found within them will be rewritten
based on what is found in the project currently.
</p>
</section>
<section>
<heading>Source Code Markup</heading>
<p>
The source code parser will automatically produce GSDoc documents
listing the methods in the classes found in the source files, and it
will include text from specially formatted comments from the source
files.
</p>
<p>
Any comment beginning with slash and <em>two</em> asterisks rather than
the common slash and single asterisk, is taken to be GSDoc markup, to
be use as the description of the class or method following it. This
comment text is reformatted and then inserted into the output.<br />
Where multiple comments are associated with the same item, they are
joined together with a line break (&lt;br /&gt;) between each if
necessary.<br />
Within a comment the special markup &lt;ignore&gt; and &lt;/ignore&gt;
may be used to tell autogsdoc to completely ignore the sourcecode
between these two pieces of markup (ie. the parser will skip from the
point just before it is told to start ignoring, to just after the point
where it is told to stop (or end of file if that occurs first).
</p>
<p>
The tool can easily be used to document programs as well as libraries,
simply by giving it the name of the source file containing the main()
function of the program - it takes the special comments from that
function and handles them specially, inserting them as a section at
the end of the first chapter of the document (it creates the first
chapter if necessary).
</p>
<p>
<strong>Options</strong> are described in the section
<em>Arguments and Defaults</em> below.
</p>
</section>
<section>
<heading>Extra markup</heading>
<p>
There are some cases where special extra processing is performed,
predominantly in the first comment found in the source file,
from which various chunks of GSDoc markup may be extracted and
placed into appropriate locations in the output document -
</p>
<list>
<item><strong>AutogsdocSource</strong>:&#160;
In any line where <code>AutogsdocSource</code>:&#160; is found, the
remainder of the line is taken as a source file name to be used
instead of making the assumption that each&#160;.h file processed uses
a &#160;.m file of the same name. You may supply multiple
<code>AutogsdocSource</code>:&#160; lines where a header file declares
items which are defined in multiple source files.<br /> If a file name
is absolute, it is used just as supplied.<br /> If on the other hand,
it is a relative path, the software looks for the source file first
relative to the location of the header file, and if not found there,
relative to the current directory in which autogsdoc is running, and
finally relative to the directory specified by the
<code>DocumentationDirectory</code> default.
</item>
<item><strong>&lt;abstract&gt;</strong>
An abstract of the content of the document ... placed in the head
of the GSDoc output.
</item>
<item><strong>&lt;author&gt;</strong>
A description of the author of the code - may be repeated to handle
the case where a document has multiple authors. Placed in the
head of the GSDoc output.<br />
As an aid to readability of the source, some special additional
processing is performed related to the document author -<br />
Any line of the form '<code>Author</code>: name &lt;email-address&gt;',
or '<code>By</code>: name &lt;email-address&gt;',
or '<code>Author</code>: name' or '<code>By</code>: name'
will be recognised and converted to an <em>author</em> element,
possibly containing an <em>email</em> element.
</item>
<item><strong>&lt;back&gt;</strong>
Placed in the GSDoc output just before the end of the body of the
document - intended to be used for appendices, index etc..
</item>
<item><strong>&lt;chapter&gt;</strong>
Placed immediately before any generated class documentation ...
intended to be used to provide overall description of how the
code being documented works.<br />Any documentation for the main()
function of a program is inserted as a section at the end of this
chapter.
</item>
<item><strong>&lt;copy&gt;</strong>
Copyright of the content of the document ... placed in the head
of the GSDoc output.<br />
As an aid to readability of the source, some special additional
processing is performed -<br />
Any line of the form 'Copyright (C) text' will be recognised and
converted to a <em>copy</em> element.
</item>
<item><strong>&lt;date&gt;</strong>
Date of the revision of the document ... placed in the head
of the GSDoc output. If this is omitted the tool will try to
construct a value from the RCS Date tag (if available).
</item>
<item><strong>&lt;front&gt;</strong>
Inserted into the document at the start of the body ... intended
to provide for introduction or contents pages etc.
</item>
<item><strong>&lt;title&gt;</strong>
Title of the document ... placed in the head of the GSDoc output.
If this is omitted the tool will generate a (probably poor)
title of its own - so you should include this markup manually.
</item>
<item><strong>&lt;version&gt;</strong>
Version identifier of the document ... placed in the head
of the GSDoc output. If this is omitted the tool will try to
construct a value from the RCS Revision tag (if available).
</item>
</list>
<p>
<strong>NB</strong>The markup just described may be used within class,
category, or protocol documentation ... if so, it is extracted and
wrapped round the rest of the documentation for the class as the
class's chapter. The rest of the class documentation is normally
inserted at the end of the chapter, but may instead be substituted in
in place of the &lt;unit /&gt; pseudo-element within the
&lt;chapter&gt; element.
</p>
</section>
<section>
<heading>Method markup</heading>
<p>
In comments being used to provide text for a method description, the
following markup is removed from the text and handled specially -
</p>
<list>
<item><strong>&lt;init /&gt;</strong>
The method is marked as being the designated initialiser for the class.
</item>
<item><strong>&lt;override-subclass /&gt;</strong>
The method is marked as being one which subclasses must override
(e.g. an abstract method).
</item>
<item><strong>&lt;override-dummy /&gt;</strong>
The method is marked as being one which is a dummy implementation
intended for subclasses to override, though not one they are forced
to implement.
</item>
<item><strong>&lt;override-never /&gt;</strong>
The method is marked as being one which subclasses should <em>NOT</em>
override.
</item>
</list>
</section>
<section>
<heading>Automated markup</heading>
<p>
Generally, the text in comments is reformatted to standardise and
indent it nicely ... the reformatting is <em>not</em> performed on
any text inside an &lt;example&gt; element.<br />
When the text is reformatted, it is broken into whitespace separated
'words' which are then subjected to some extra processing ...
</p>
<list>
<item>Certain well known constants such as YES, NO, and nil are
enclosed in &lt;code&gt; ... &lt;/code&gt; markup.
</item>
<item>The names of method arguments within method descriptions are
enclosed in &lt;var&gt; ... &lt;/var&gt; markup.
</item>
<item>Method names (beginning with a plus or minus) are enclosed
in &lt;ref...&gt; ... &lt;/ref&gt; markup.<br />
e.g. "-init" (without the quotes) would be wrapped in a GSDoc
reference element to point to the init method of the current
class or, if only one known class had an init method, it
would refer to the method of that class.
<br />Note the fact that the method name must be surrounded by
whitespace to be recognized (though a comma, fullstop, or semicolon
at the end of the specifier will act like whitespace).
</item>
<item>Method specifiers including class names (beginning and ending with
square brackets) are enclosed in &lt;ref...&gt; ... &lt;/ref&gt; markup.
<br />e.g. <code>[</code>NSObject-init<code>]</code>,
will create a reference to the init method of NSObject (either the
class proper, or any of its categories), while
<br /><code>[</code>(NSCopying)-copyWithZone:<code>]</code>, creates a
reference to a method in the NSCopying protocol.
<br />Note that no spaces must appear between the square brackets
in these specifiers.
<br />Protocol names are enclosed in round brackets rather than
the customary angle brackets, because GSDoc is an XML language, and
XML treats angle brackets specially.
</item>
<item>Class names (and also protocol and category names) enclosed
in square brackets are also cross referenced.
<br />Protocol names are enclosed in round brackets rather than
the customary angle brackets, because GSDoc is an XML language, and
XML treats angle brackets specially.
</item>
<item>Function names (ending with '()') other than 'main()' are enclosed
in &lt;ref...&gt; ... &lt;/ref&gt; markup.<br />
e.g. "NSLogv()" (without the quotes) would be wrapped in a GSDoc
reference element to point to the documentation of the NSLog function.
<br />Note the fact that the function name must be surrounded by
whitespace (though a comma, fullstop, or semicolon at the end
of the specifier will also act as a whitespace terminator).
<br />
</item>
</list>
</section>
<section>
<heading>Arguments and Defaults</heading>
<p>
The tool accepts certain user defaults (which can of course be
supplied as command-line arguments by prepending '-' before the default
name and giving the value afterwards, as in -<code>Clean YES</code>):
</p>
<list>
<item><strong>Clean</strong>
If this boolean value is set to YES, then rather than generating
documentation, the tool removes all GSDoc files generated in the
project, and all html files generated from them (as well as any
which would be generated from GSDoc files listed explicitly),
and finally removes the project index file.<br />
The only exception to this is that template GSDoc files (i.e. those
specified using "-ConstantsTemplate ...", "-FunctionsTemplate ..."
arguments etc) are not deleted unless the CleanTemplates flag is set.
</item>
<item><strong>CleanTemplates</strong>
This flag specifies whether template GSDoc files are to be removed
along with other files when the Clean option is specified.
The default is for them not to be removed ... since these templates
may have been produced manually and just had data inserted into them.
</item>
<item><strong>ConstantsTemplate</strong>
Specify the name of a template document into which documentation
about constants should be inserted from all files in the project.<br />
This is useful if constants in the source code are scattered around many
files, and you need to group them into one place.<br />
You are responsible for ensuring that the basic template document
(into which individual constant documentation is inserted) contains
all the other information you want, but as a convenience autogsdoc
will generate a simple template (which you may then edit) for you
if the file does not exist.
<br />Insertion takes place immediately before the <em>back</em>
element (or if that does not exist, immediately before the end
of the <em>body</em> element) in the template.
</item>
<item><strong>Declared</strong>
Specify where headers are to be documented as being found.<br />
The actual name produced in the documentation is formed by appending
the last component of the header file name to the value of this
default.<br />
If this default is not specified, the full name of the header file
(as supplied on the command line), with the HeaderDirectory
default prepended, is used.<br />
A typical usage of this might be <code>"-Declared Foundation"</code>
when generating documentation for the GNUstep base library. This
would result in the documentation saying that NSString is declared
in <code>Foundation/NSString.h</code>
</item>
<item><strong>DocumentAllInstanceVariables</strong>
This flag permits you to generate documentation for all instance
variables. Normally, only those explicitly declared 'public' or
'protected' will be documented.
</item>
<item><strong>DocumentInstanceVariables</strong>
This flag permits you to turn off documentation for instance
variables completely. Normally, explicitly declared 'public' or
'protected' instance variables will be documented.
</item>
<item><strong>InstanceVariablesAtEnd</strong>
This flag, if set, directs the HTML generator to place instance
variable documentation at the end of the class, instead of the
beginning. This is useful if you use a lot of protected instance
variables which are only going to be of secondary interest to general
users of the class.
</item>
<item><strong>DocumentationDirectory</strong>
May be used to specify the directory in which generated documentation
is to be placed. If this is not set, output is placed in the current
directory. This directory is also used as a last resort to locate
source files (not headers), and more importantly, it is used as the
<em>first and only</em> resort to locate any <code>.gsdoc</code> files
that are passed in on the command line. Any path information given
for these files is <em><strong>removed</strong></em> and they are
searched for in <code>DocumentationDirectory</code> (even though they
may not have been autogenerated).
</item>
<item><strong>Files</strong>
Specifies the name of a file containing a list of file names as
a property list array <em>(name1,name2,...)</em> format. If this
is present, filenames in the program argument list are ignored and
the names in this file are used as the list of names to process.
</item>
<item><strong>FunctionsTemplate</strong>
Specify the name of a template document into which documentation
about functions should be inserted from all files in the project.<br />
This is useful if function source code is scattered around many
files, and you need to group it into one place.<br />
You are responsible for ensuring that the basic template document
(into which individual function documentation is inserted) contains
all the other information you want, but as a convenience autogsdoc
will generate a simple template (which you may then edit) for you
if the file does not exist.
<br />Insertion takes place immediately before the <em>back</em>
element (or if that does not exist, immediately before the end
of the <em>body</em> element) in the template.
</item>
<item><strong>GenerateHtml</strong>
May be used to specify if HTML output is to be generated.
Defaults to YES.
</item>
<item><strong>HeaderDirectory</strong>
May be used to specify the directory to be searched for header files.
When supplied, this value is prepended to relative header names,
otherwise the relative header names are interpreted relative to
the current directory.<br />
Header files specified as absolute paths are not influenced by this
default.
</item>
<item><strong>IgnoreDependencies</strong>
A boolean value which may be used to specify that the program should
ignore file modification times and regenerate files anyway. Provided
for use in conjunction with the <code>make</code> system, which is
expected to manage dependency checking itself.
</item>
<item><strong>LocalProjects</strong>
This value is used to control the automatic inclusion of local
external projects into the indexing system for generation of
cross-references in final document output.<br />
If set to 'None', then no local project references are done,
otherwise, the 'Local' GNUstep documentation directory is recursively
searched for files with a <code>.igsdoc</code> extension, and the
indexing information from those files is used.<br />
The value of this string is also used to generate the filenames in
the cross reference ... if it is an empty string, the path to use
is assumed to be a file in the same directory where the igsdoc
file was found, otherwise it is used as a prefix to the name in
the index.<br />
NB. Local projects with the same name as the project currently
being documented will <em>not</em> be included by this mechanism.
If you wish to include such projects, you must do so explicitly
using <em>"-Projects ..."</em>
</item>
<item><strong>MacrosTemplate</strong>
Specify the name of a template document into which documentation
about macros should be inserted from all files in the project.<br />
This is useful if macro code is scattered around many
files, and you need to group it into one place.<br />
You are responsible for ensuring that the basic template document
(into which individual macro documentation is inserted) contains
all the other information you want, but as a convenience autogsdoc
will generate a simple template (which you may then edit) for you
if the file does not exist.
<br />Insertion takes place immediately before the <em>back</em>
element (or if that does not exist, immediately before the end
of the <em>body</em> element) in the template.
</item>
<item><strong>MakeDependencies</strong>
A filename to be used to output dependency information for make. This
will take the form of listing all header and source files known for
the project as dependencies of the project name (see
<code>Project</code>).
</item>
<item><strong>Project</strong>
Specifies the name of this project ... determines the
name of the index reference file produced as part of the documentation
to provide information enabling other projects to cross-reference to
items in this project. If not set, 'Untitled' is used.
</item>
<item><strong>Projects</strong>
This value may be supplied as a dictionary containing the paths to
the igsdoc index/reference files used by external projects, along
with values to be used to map the filenames found in the indexes.<br />
For example, if a project index (igsdoc) file says that the class
<code>Foo</code> is found in the file <code>Foo</code>, and the
path associated with that project index is <code>/usr/doc/proj</code>,
Then generated html output may reference the class as being in
<code>/usr/doc/prj/Foo.html</code> . Note that a dictionary may be
given on the command line by using the standard PropertyList format
(not the XML format of OS X), using semicolons as line-separators, and
enclosing it in single quotes.
</item>
<item><strong>ShowDependencies</strong>
A boolean value which may be used to specify that the program should
log which files are being regenerated because of their dependencies
on other files.
</item>
<item><strong>Standards</strong>
A boolean value used to specify whether the program should insert
information about standards complience into the documentation.
This should only be used when documenting the GNUstep libraries
and tools themselves as it assumes that the code being documented
is part of GNUstep and possibly complies with the OpenStep standard
or implements MacOS-X compatible methods.
</item>
<item><strong>StylesheetURL</strong>
The URL of a CSS document to be used as the stadard stylesheet for
generated autogsdoc files. If this is not specified the default of
a local document default-styles.css is used.
</item>
<item><strong>SystemProjects</strong>
This value is used to control the automatic inclusion of system
external projects into the indexing system for generation of
cross-references in final document output.<br />
If set to 'None', then no system project references are done,
otherwise, the 'System' GNUstep documentation directory is recursively
searched for files with a <code>.igsdoc</code> extension, and the
indexing information from those files is used.<br />
The value of this string is also used to generate the filenames in
the cross reference ... if it is an empty string, the path to use
is assumed to be a file in the same directory where the igsdoc
file was found, otherwise it is used as a prefix to the name in
the index.<br />
NB. System projects with the same name as the project currently
being documented will <em>not</em> be included by this mechanism.
If you wish to include such projects, you must do so explicitly
using <em>"-Projects ..."</em>
</item>
<item><strong>TypedefsTemplate</strong>
Specify the name of a template document into which documentation
about typedefs should be inserted from all files in the project.<br />
This is useful if typedef source code is scattered around many
files, and you need to group it into one place.<br />
You are responsible for ensuring that the basic template document
(into which individual typedef documentation is inserted) contains
all the other information you want, but as a convenience autogsdoc
will generate a simple template (which you may then edit) for you
if the file does not exist.
<br />Insertion takes place immediately before the <em>back</em>
element (or if that does not exist, immediately before the end
of the <em>body</em> element) in the template.
</item>
<item><strong>Up</strong>
A string used to supply the name to be used in the 'up' link from
generated GSDoc documents. This should normally be the name of a
file which contains an index of the contents of a project.<br />
If this is missing or set to an empty string, then no 'up' link
will be provided in the documents.
</item>
<item><strong>VariablesTemplate</strong>
Specify the name of a template document into which documentation
about variables should be inserted from all files in the project.<br />
This is useful if variable source code is scattered around many
files, and you need to group it into one place.<br />
You are responsible for ensuring that the basic template document
(into which individual variable documentation is inserted) contains
all the other information you want, but as a convenience autogsdoc
will generate a simple template (which you may then edit) for you
if the file does not exist.
<br />Insertion takes place immediately before the <em>back</em>
element (or if that does not exist, immediately before the end
of the <em>body</em> element) in the template.
</item>
<item><strong>Verbose</strong>
A boolean used to specify whether you want verbose debug/warning
output to be produced.
</item>
<item><strong>Warn</strong>
A boolean used to specify whether you want standard warning
output (e.g. report of undocumented methods) produced.
</item>
<item><strong>WordMap</strong>
This value is a dictionary used to map identifiers/keywords found
in the source files to other words. Generally you will not have
to use this, but it is sometimes helpful to avoid the parser being
confused by the use of C preprocessor macros. You can effectively
redefine the macro to something less confusing.<br />
The value you map the identifier to must be one of -<br />
Another identifier,<br />
An empty string - the value is ignored,<br />
Two slashes ('//') - the rest of the line is ignored.<br />
Note that a dictionary may be given on the command line by using the
standard PropertyList format (not the XML format of OS X), using
semicolons as line-separators, and enclosing it in single quotes.
</item>
</list>
</section>
<section>
<heading>Inter-document linkage</heading>
<p>
The 'Up' default is used to specify the name of a document which
should be used as the 'up' link for any other documents used.<br />
This name must not include a path or extension.<br />
Generally, the document referred to by this default should be a
hand-edited GSDoc document which should have a <em>back</em>
section containing a project index. e.g.
</p>
<example>
&lt;?xml version="1.0"?&gt;
&lt;!DOCTYPE gsdoc PUBLIC "-//GNUstep//DTD gsdoc 1.0.4//EN"
"http://www.gnustep.org/gsdoc-1_0_4.dtd"&gt;
&lt;gsdoc base="index"&gt;
&lt;head&gt;
&lt;title&gt;My project reference&lt;/title&gt;
&lt;author name="my name"&gt;&lt;/author&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;chapter&gt;
&lt;heading&gt;My project reference&lt;/heading&gt;
&lt;/chapter&gt;
&lt;back&gt;
&lt;index scope="project" type="title" /&gt;
&lt;/back&gt;
&lt;/body&gt;
&lt;/gsdoc&gt;
</example>
</section>
<section>
<heading>Implementation Notes</heading>
<p>
The autogsdoc tool internally makes use of the following four classes-
</p>
<deflist>
<term><ref type="class" id="AGSParser"/></term>
<desc>Parses source code comments to an internal representation.
</desc>
<term><ref type="class" id="AGSOutput"/></term>
<desc>Converts internal representation of source comments to a gsdoc
document.</desc>
<term><ref type="class" id="AGSIndex"/></term>
<desc>Internal representation of an igsdoc file, representing indices
of a project's files.</desc>
<term><ref type="class" id="AGSHtml"/></term>
<desc>Converts gsdoc XML to HTML, using AGSIndex instances.</desc>
</deflist>
</section>
</chapter>
<back>
<index type="title" scope="project" />
</back>
*/
#import "common.h"
#import "Foundation/NSArray.h"
#import "Foundation/NSAutoreleasePool.h"
#import "Foundation/NSData.h"
#import "Foundation/NSDictionary.h"
#import "Foundation/NSEnumerator.h"
#import "Foundation/NSFileManager.h"
#import "Foundation/NSPathUtilities.h"
#import "Foundation/NSProcessInfo.h"
#import "Foundation/NSSet.h"
#import "Foundation/NSUserDefaults.h"
#import "AGSParser.h"
#import "AGSOutput.h"
#import "AGSIndex.h"
#import "AGSHtml.h"
#import "GNUstepBase/GSObjCRuntime.h"
#import "GNUstepBase/NSString+GNUstepBase.h"
#import "GNUstepBase/NSMutableString+GNUstepBase.h"
int
main(int argc, char **argv, char **env)
{
NSProcessInfo *proc;
unsigned i;
NSMutableDictionary *safe;
NSDictionary *argsRecognized;
NSUserDefaults *defs;
NSFileManager *mgr;
NSString *documentationDirectory;
NSString *declared;
NSString *headerDirectory;
NSString *project;
NSString *refsName;
NSDictionary *originalIndex;
AGSIndex *projectRefs;
AGSIndex *globalRefs;
NSDate *rDate = nil;
NSString *refsFile;
id obj;
unsigned count;
unsigned firstFile = 1;
BOOL generateHtml = YES;
BOOL ignoreDependencies = NO;
BOOL showDependencies = NO;
BOOL verbose = NO;
BOOL warn = NO;
BOOL instanceVarsAtEnd = YES;
NSArray *files = nil;
NSMutableArray *sFiles = nil; // Source
NSMutableArray *gFiles = nil; // GSDOC
NSMutableArray *hFiles = nil; // HTML
NSString *symbolDeclsFile = nil;
NSMutableDictionary *symbolDecls = nil;
NSMutableSet *deps = nil;
NSAutoreleasePool *outer = nil;
NSAutoreleasePool *pool = nil;
NSString *arg;
NSString *opt;
NSSet *argSet;
NSArray *argsGiven;
NSArray *informalProtocols = nil;
/*
Overall process in this file is as follows:
1) Get/test defaults and arguments.
2) Init filename list, and move .h/.m into "source files", .gsdoc into
"gsdoc files", and .html into "html files".
3) Load existing .igsdoc file (PropertyList/Dictionary format) if found,
initializing an AGSIndex from it.
Also load existing OrderedSymbolDeclarations.plist if found.
4) Clean if desired:
4a) Build list of all template files, and remove generated content
from them if not cleaning templates.
4b) Figure out generated files from index file (if none assumes none
generated) and remove them (but not template files unless
supposed to).
4c) Remove index file.
4d) Remove HTML files corresponding to .gsdoc files in current list.
4e) Remove the OrderedSymbolDeclarations plist file
5) Start with "source files".. for each one (hereafter called a "header
file"):
5a) Parse declarations (in .h or .m) using an AGSParser object.
5b) Determine (possibly multiple) dependent .m files corresponding to
a .h and parse them.
5c) Feed parser results to an AGSOutput instance.
Finally write the OrderedSymbolDeclarations.plist built by the parser.
6) Move to "gsdoc files" (including both command-line given ones and
just-generated ones).. and generate the index; for each one:
6a) Remove any path specification and search in
documentationDirectory then CWD for it.
6b) Parse the file, call [localRefs makeRefs: root],
[projectRefs mergeRefs: localRefs] to make indices.
7) Write the .igsdoc file.
8) Build index references to external projects.
9) Create HTML frames auxiliary files.
10) If needed, re-pass through the "gsdoc files" to generate HTML.
10a) Find files as before.
10b) Parse as before.
10c) Feed the DOM tree to an AGSHtml instance, and dump the result to
a file.
11) For HTML files that were given on the command line, adjust all cross
reference HREFs to paths given in arguments.
12) If MakeDependencies was requested, list all header and source files
as colon-dependencies of the project name.
*/
#ifdef GS_PASS_ARGUMENTS
GSInitializeProcess(argc, argv, env);
#endif
outer = [NSAutoreleasePool new];
/* Objects we want to persist until the outer autorelease pool is exited
* can be stored in the 'safe; dictionary.
*/
safe = [NSMutableDictionary dictionary];
#ifndef HAVE_LIBXML
NSLog(@"ERROR: The GNUstep Base Library was built\n"
@" without an available libxml library. Autogsdoc needs the libxml\n"
@" library to function. Aborting");
exit(EXIT_FAILURE);
#endif
/*
* 1) Get/test defaults and arguments.
*/
defs = [NSUserDefaults standardUserDefaults];
[defs registerDefaults: [NSDictionary dictionaryWithObjectsAndKeys:
@"Untitled", @"Project",
@"default-styles.css", @"StylesheetURL",
nil]];
// BEGIN test for any unrecognized arguments, or "--help"
argsRecognized = [NSDictionary dictionaryWithObjectsAndKeys:
@"\t\t\tBOOL\t(NO)\n\tproduce verbose output",
@"Verbose",
@"\t\t\tBOOL\t(NO)\n\tproduce warnings",
@"Warn",
@"\tBOOL\t(NO)\n\tignore file mod times (always generate)",
@"IgnoreDependencies",
@"\t\tBOOL\t(NO)\n\tlog files being regenerated due to dependencies",
@"ShowDependencies",
@"\t\tBOOL\t(YES)\n\tgenerate HTML output "
@"(as opposed to just gsdoc from source)",
@"GenerateHtml",
@"\t\t\tSTR\t(\"\")\n\tspecify where headers "
@"are to be documented as being found",
@"Declared",
@"\t\t\tSTR\t(\"Untitled\")\n\thead title name of this documentation",
@"Project",
@"\t\tSTR\t(.)\n\tdirectory to search for .h files",
@"HeaderDirectory",
@"\tSTR\t(.)\n\tdirectory to place generated files and "
@"search for gsdoc files",
@"DocumentationDirectory",
@"\t\t\tSTR\t(\"\")\n\tname of file containing filenames to document",
@"Files",
@"\t\t\tBOOL\t(NO)\n\tremove all generated files",
@"Clean",
@"\t\tBOOL\t(NO)\n\tremove template files when cleaning",
@"CleanTemplates",
@"\t\t\tSTR\t(\"\")\n\tfilename to link to from generated HTML",
@"Up",
@"\t\t\tspecial\t(nil)\n\tdictionary used to preprocess (see docs)",
@"WordMap",
@"\t\t\tBOOL\t(NO)\n\twhether to insert information on "
@"standards compliance",
@"Standards",
@"BOOL\t(NO)\n\tdocument private instance variables",
@"DocumentAllInstanceVariables",
@"\tBOOL\t(YES)\n\tdocument instance variables at all",
@"DocumentInstanceVariables",
@"\tBOOL\t(YES)\n\tput instance variable docs at end of class",
@"InstanceVariablesAtEnd",
@"\t\tSTR\t(\"None\")\n\twhether to include other projects in index",
@"LocalProjects",
@"\t\tSTR\t(\"None\")\n\twhether to include system projects in index",
@"SystemProjects",
@"\t\t\tSTR\t(\"None\")\n\texplicit list of other projects to index",
@"Projects",
@"\t\tSTR\t(\"\")\n\tfile to output dependency info for 'make' into",
@"MakeDependencies",
@"\t\tSTR\t(\"\")\n\tfile into which docs for constants "
@"should be consolidated",
@"ConstantsTemplate",
@"\t\tSTR\t(\"\")\n\tfile into which docs for functions "
@"should be consolidated",
@"FunctionsTemplate",
@"\t\tSTR\t(\"\")\n\tfile into which docs for macros "
@"should be consolidated",
@"IndexFile",
@"\t\tSTR\t(\"\")\n\tHTML file name (extension omitted) "
@"copied to index.html",
@"MacrosTemplate",
@"\t\tSTR\t(\"\")\n\tfile into which docs for typedefs "
@"should be consolidated",
@"TypedefsTemplate",
@"\t\tSTR\t(\"\")\n\tfile into which docs for variables "
@"should be consolidated",
@"VariablesTemplate",
@"\t\tBOOL\t(NO)\n\tif YES, create documentation pages "
@"for display in HTML frames",
@"StylesheetURL",
@"\t\tString\t(nil)\n\tIf set, stylesheet of generated agsdoc files",
@"MakeFrames",
@"\t\tString\t(nil)\n\tIf set, look for DTDs in the given directory",
@"DTDs",
@"\tBOOL\t(NO)\n\tif YES, wrap paragraphs delimited by \\n\\n in "
@"<p> tags when possible",
@"GenerateParagraphMarkup",
nil];
argSet = [NSSet setWithArray: [argsRecognized allKeys]];
argsGiven = [[NSProcessInfo processInfo] arguments];
for (i = 0; i < [argsGiven count]; i++)
{
arg = [argsGiven objectAtIndex: i];
if ([arg characterAtIndex: 0] == '-')
{
opt = ([arg characterAtIndex: 1] == '-')
? [arg substringFromIndex: 2] : [arg substringFromIndex: 1];
}
else
{
continue;
}
if (![argSet containsObject: opt] || [@"help" isEqual: opt])
{
NSArray *args = [argsRecognized allKeys];
if (![@"help" isEqual: opt])
{
GSPrintf(stderr, @"Unknown option: '%@'\n", opt);
}
GSPrintf(stderr, @"Usage:\n");
GSPrintf(stderr, [NSString stringWithFormat:
@" %@ [options] [files]\n", [argsGiven objectAtIndex: 0]]);
GSPrintf(stderr, @"\n Options:\n");
for (i = 0; i < [args count]; i++)
{
arg = [args objectAtIndex: i];
GSPrintf(stderr,
[NSString stringWithFormat: @" -%@\t%@\n\n",
arg, [argsRecognized objectForKey: arg]]);
}
GSPrintf(stderr, @"\n Files:\n");
GSPrintf(stderr, @" [.h files]\t\tMust be in 'HeaderDirectory'\n");
GSPrintf(stderr,
@" [.m files]\t\tAbsolute or relative path (from here)\n");
GSPrintf(stderr,
@" [.gsdoc files]\tMust be in 'DocumentationDirectory'\n\n");
exit(1);
}
}
mgr = [NSFileManager defaultManager];
if ([GSXMLParser respondsToSelector: @selector(setDTDs:)])
{
[GSXMLParser setDTDs: [defs stringForKey: @"DTDs"]];
}
verbose = [defs boolForKey: @"Verbose"];
warn = [defs boolForKey: @"Warn"];
if (YES == warn)
{
verbose = YES; // Do we want this?
}
ignoreDependencies = [defs boolForKey: @"IgnoreDependencies"];
showDependencies = [defs boolForKey: @"ShowDependencies"];
if (ignoreDependencies == YES)
{
if (showDependencies == YES)
{
showDependencies = NO;
NSLog(@"ShowDependencies(YES) used with IgnoreDependencies(YES)");
}
}
obj = [defs objectForKey: @"GenerateHtml"];
if (obj != nil)
{
generateHtml = [defs boolForKey: @"GenerateHtml"];
}
obj = [defs objectForKey: @"InstanceVariablesAtEnd"];
if (obj != nil)
{
instanceVarsAtEnd = [defs boolForKey: @"InstanceVariablesAtEnd"];
}
declared = [defs stringForKey: @"Declared"];
project = [defs stringForKey: @"Project"];
refsName = [project stringByAppendingPathExtension: @"igsdoc"];
[safe setObject: refsName forKey: @"refsName"];
headerDirectory = [defs stringForKey: @"HeaderDirectory"];
if (headerDirectory == nil)
{
headerDirectory = @"";
}
documentationDirectory = [defs stringForKey: @"DocumentationDirectory"];
if (documentationDirectory == nil)
{
documentationDirectory = @"";
}
if ([documentationDirectory length] > 0
&& [mgr fileExistsAtPath: documentationDirectory] == NO)
{
[mgr createDirectoryAtPath: documentationDirectory
withIntermediateDirectories: YES
attributes: nil
error: NULL];
}
symbolDeclsFile = [documentationDirectory
stringByAppendingPathComponent: @"OrderedSymbolDeclarations.plist"];
proc = [NSProcessInfo processInfo];
if (proc == nil)
{
NSLog(@"unable to get process information!");
exit(EXIT_FAILURE);
}
/*
* 2) Build an array of files to be processed.
*/
obj = [defs stringForKey: @"Files"];
if (obj != nil)
{
files = [NSArray arrayWithContentsOfFile: obj];
if (files == nil)
{
NSLog(@"Failed to load files from '%@'", obj);
exit(EXIT_FAILURE);
}
firstFile = 0; // Not an argument list ... read from index 0
}
else
{
files = [proc arguments];
firstFile = 1; // An argument list ... ignore the program name.
}
sFiles = [NSMutableArray array];
gFiles = [NSMutableArray array];
hFiles = [NSMutableArray array];
count = [files count];
if (verbose == YES)
{
NSLog(@"Proc ... %@", proc);
NSLog(@"Name ... %@", [proc processName]);
NSLog(@"Files ... %@", files);
NSLog(@"HeaderDirectory ... %@", headerDirectory);
NSLog(@"DocumentationDirectory ... %@", documentationDirectory);
}
for (i = firstFile; i < count; i++)
{
NSString *arg = [files objectAtIndex: i];
if ([arg hasPrefix: @"-"] == YES)
{
i++; // a default
}
else if ([arg hasSuffix: @".h"] == YES)
{
[sFiles addObject: arg];
}
else if (([arg hasSuffix: @".m"] == YES)
|| ([arg hasSuffix: @".c"] == YES))
{
[sFiles addObject: arg];
}
else if ([arg hasSuffix: @".gsdoc"] == YES)
{
[gFiles addObject: arg];
}
else if ([arg hasSuffix: @".html"] == YES)
{
[hFiles addObject: arg];
}
else
{
// Skip this value ... not a known file type.
NSLog(@"Unknown argument '%@' ... ignored", arg);
}
}
/*
* Note explicitly supplied gsdoc files for dependencies later.
*/
deps = [NSMutableSet setWithCapacity: 1024];
[deps addObjectsFromArray: gFiles];
/*
* 3) Load old project indexing information from the .igsdoc file if
* present and determine when the indexing information was last
* updated (never ==> distant past).
*/
refsFile = [documentationDirectory
stringByAppendingPathComponent: project];
refsFile = [refsFile stringByAppendingPathExtension: @"igsdoc"];
projectRefs = AUTORELEASE([AGSIndex new]);
[safe setObject: projectRefs forKey: @"projectRefs"];
originalIndex = nil;
rDate = [NSDate distantPast];
if ([mgr isReadableFileAtPath: refsFile] == YES)
{
originalIndex
= AUTORELEASE([[NSDictionary alloc] initWithContentsOfFile: refsFile]);
if (originalIndex == nil)
{
NSLog(@"Unable to read project file '%@'", refsFile);
}
else
{
NSDictionary *dict;
[safe setObject: originalIndex forKey: @"originalIndex"];
[projectRefs mergeRefs: originalIndex override: NO];
if (verbose)
{
NSLog(@"Initialised projectRefs from %@", refsFile);
}
dict = [mgr fileAttributesAtPath: refsFile traverseLink: YES];
rDate = [dict fileModificationDate];
}
}
/*
* Load old OrderedSymbolDeclarations.plist to merge it later
*/
if ([mgr isReadableFileAtPath: symbolDeclsFile])
{
symbolDecls =
[NSMutableDictionary dictionaryWithContentsOfFile: symbolDeclsFile];
if (symbolDeclsFile == nil)
{
NSLog(@"Unable to read ordered symbols file '%@'", symbolDeclsFile);
}
}
if (symbolDecls == nil)
{
symbolDecls = [NSMutableDictionary dictionary];
}
/*
* 4) Clean if desired:
*/
if ([defs boolForKey: @"Clean"] == YES)
{
NSDictionary *output;
NSEnumerator *enumerator;
NSArray *outputNames;
NSMutableSet *allPaths;
NSMutableSet *templates = nil;
NSSet *preserve = nil;
NSString *path;
NSArray *keys = [NSArray arrayWithObjects:
@"Constants",
@"Functions",
@"Macros",
@"Typedefs",
@"Variables",
nil];
/*
* 4a) Build a set of all template files.
*/
templates = AUTORELEASE([NSMutableSet new]);
enumerator = [keys objectEnumerator];
while ((path = [enumerator nextObject]) != nil)
{
path = [path stringByAppendingString: @"Template"];
path = [defs stringForKey: path];
if (path != nil)
{
path = [path stringByAppendingPathExtension: @"gsdoc"];
if ([path isAbsolutePath] == NO)
{
path = [documentationDirectory
stringByAppendingPathComponent: path];
}
[templates addObject: path];
}
}
/*
* 4b) Unless we are supposed to clean templates, we preserve any
* template gsdoc files, but remove any generated content.
*/
if ([defs boolForKey: @"CleanTemplates"] == NO)
{
preserve = templates;
enumerator = [templates objectEnumerator];
while ((path = [enumerator nextObject]) != nil)
{
if ([mgr isReadableFileAtPath: path] == YES)
{
NSMutableString *ms;
NSEnumerator *e = [keys objectEnumerator];
NSString *k;
unsigned length;
ms = [NSMutableString stringWithContentsOfFile: path];
if (ms == nil)
{
NSLog(@"Cleaning ... failed to read '%@'", path);
continue;
}
length = [ms length];
while ((k = [e nextObject]) != nil)
{
NSString *ss;
NSString *es;
NSRange sr;
NSRange er;
ss = [NSString stringWithFormat: @"<!--Start%@-->", k];
sr = [ms rangeOfString: ss];
es = [NSString stringWithFormat: @"<!--End%@-->", k];
er = [ms rangeOfString: es];
if (sr.length > 0 && er.length > 0
&& er.location > sr.location)
{
NSRange r;
r.location = sr.location;
r.length = NSMaxRange(er) - r.location;
[ms replaceCharactersInRange: r withString: @""];
}
}
if ([ms length] != length)
{
if ([ms writeToFile: path atomically: YES] == NO)
{
NSLog(@"Cleaning ... failed to write '%@'", path);
}
}
}
}
}
/*
* 4b) Build a list of all generated gsdoc files, then remove them
* and their corresponding html documents.
*/
output = [[projectRefs refs] objectForKey: @"output"];
enumerator = [output objectEnumerator];
allPaths = [[NSMutableSet alloc] initWithSet: templates];
while ((outputNames = [enumerator nextObject]) != nil)
{
[allPaths addObjectsFromArray: outputNames];
}
enumerator = [allPaths objectEnumerator];
while ((path = [enumerator nextObject]) != nil)
{
/*
* Delete any gsdoc files which are not in the preserve set.
*/
if ([preserve member: path] == nil)
{
if ([mgr fileExistsAtPath: path] == YES)
{
if ([mgr removeFileAtPath: path handler: nil] == NO)
{
NSLog(@"Cleaning ... failed to remove %@", path);
}
}
}
path = [path stringByDeletingPathExtension];
path = [path stringByAppendingPathExtension: @"html"];
if ([mgr fileExistsAtPath: path] == YES)
{
if ([mgr removeFileAtPath: path handler: nil] == NO)
{
NSLog(@"Cleaning ... failed to remove %@", path);
}
}
}
RELEASE(allPaths);
/*
* 4c) Remove the project index file.
*/
if ([mgr fileExistsAtPath: refsFile] == YES)
{
if ([mgr removeFileAtPath: refsFile handler: nil] == NO)
{
NSLog(@"Cleaning ... failed to remove %@", refsFile);
}
}
/*
* 4d) Remove any HTML documents resulting from gsdoc files which
* were specified on the command line rather than generated.
*/
enumerator = [gFiles objectEnumerator];
while ((path = [enumerator nextObject]) != nil)
{
path = [path lastPathComponent];
path = [path stringByDeletingPathExtension];
path = [path stringByAppendingPathExtension: @"html"];
path = [documentationDirectory
stringByAppendingPathComponent: path];
if ([mgr fileExistsAtPath: path] == YES)
{
if ([mgr removeFileAtPath: path handler: nil] == NO)
{
NSLog(@"Cleaning ... failed to remove %@", path);
}
}
}
/*
* 4e) Remove the OrderedSymbolDeclarations plist file.
*/
if ([mgr fileExistsAtPath: symbolDeclsFile])
{
if ([mgr removeFileAtPath: symbolDeclsFile handler: nil] == NO)
{
NSLog(@"Cleaning ... failed to remove %@", symbolDeclsFile);
}
}
return 0;
}
if ([sFiles count] == 0 && [gFiles count] == 0 && [hFiles count] == 0)
{
NSLog(@"No .h, .m, .c, .gsdoc, or .html filename arguments found"
@" ... giving up");
return 1;
}
/*
* 5) Start with "source files".. for each one (hereafter called a
* "header file"):
* a) Parse declarations (in .h or .m/.c) using an AGSParser object.
* b) Determine (possibly multiple) dependent .m/.c files corresponding to
* a .h and parse them.
* c) Feed parser results to an AGSOutput instance.
*/
count = [sFiles count];
if (count > 0)
{
AGSParser *parser;
AGSOutput *output;
NSString *up;
NSMutableDictionary *wm;
up = [defs stringForKey: @"Up"];
pool = [NSAutoreleasePool new];
parser = [AGSParser new];
wm = [[defs dictionaryForKey: @"WordMap"] mutableCopy];
if (nil == wm)
{
wm = [NSMutableDictionary new];
}
if ([defs boolForKey: @"DisableDefaultWords"] == NO)
{
[wm setObject: @"" forKey: @"BLOCK_SCOPE"];
[wm setObject: @"//" forKey: @"DEFINE_BLOCK_TYPE"];
[wm setObject: @"//" forKey: @"DEFINE_BLOCK_TYPE"];
[wm setObject: @"//" forKey: @"DEFINE_BLOCK_TYPE_NO_ARGS"];
[wm setObject: @"" forKey: @"GS_DECLARE"];
[wm setObject: @"" forKey: @"GS_DEPRECATED"];
[wm setObject: @"" forKey: @"GS_DEPRECATED_FUNC"];
[wm setObject: @"extern" forKey: @"GS_EXPORT"];
[wm setObject: @"" forKey: @"GS_EXPORT_CLASS"];
[wm setObject: @"" forKey: @"GS_GC_STRONG"];
[wm setObject: @"" forKey: @"GS_GEOM_ATTR"];
[wm setObject: @"extern" forKey: @"GS_GEOM_SCOPE"];
[wm setObject: @"" forKey: @"GS_IMPORT"];
[wm setObject: @"" forKey: @"GS_NON_PORTABLE"];
[wm setObject: @"" forKey: @"GS_NORETURN_METHOD"];
[wm setObject: @"//" forKey: @"GS_PRIVATE_INTERNAL"];
[wm setObject: @"" forKey: @"GS_RANGE_ATTR"];
[wm setObject: @"extern" forKey: @"GS_RANGE_SCOPE"];
[wm setObject: @"" forKey: @"GS_ROOT_CLASS"];
[wm setObject: @"static" forKey: @"GS_STATIC_INLINE"];
[wm setObject: @"" forKey: @"GS_UNUSED_ARG"];
[wm setObject: @"" forKey: @"GS_UNUSED_FUNC"];
[wm setObject: @"" forKey: @"GS_UNUSED_IVAR"];
[wm setObject: @"" forKey: @"GS_ZONE_ATTR"];
[wm setObject: @"extern" forKey: @"GS_ZONE_SCOPE"];
[wm setObject: @"" forKey: @"NS_ASSUME_NONNULL_BEGIN"];
[wm setObject: @"" forKey: @"NS_ASSUME_NONNULL_END"];
[wm setObject: @"" forKey: @"NS_AUTOMATED_REFCOUNT_UNAVAILABLE"];
[wm setObject: @"" forKey: @"NS_CONSUMED"];
[wm setObject: @"" forKey: @"NS_CONSUMES_SELF"];
[wm setObject: @"" forKey: @"NS_RETURNS_NOT_RETAINED"];
[wm setObject: @"" forKey: @"NS_RETURNS_RETAINED"];
[wm setObject: @"" forKey: @"_Nonnull"];
[wm setObject: @"" forKey: @"_Null_unspecified"];
[wm setObject: @"" forKey: @"_Nullable"];
[wm setObject: @"" forKey: @"__strong"];
[wm setObject: @"" forKey: @"__weak"];
[wm setObject: @"" forKey: @"WEAK_ATTRIBUTE"];
[wm setObject: @"" forKey: @"WINAPI"];
[wm setObject: @"" forKey: @"WSAAPI"];
}
[parser setWordMap: wm];
RELEASE(wm);
output = [AGSOutput new];
if ([defs boolForKey: @"Standards"] == YES)
{
[parser setGenerateStandards: YES];
}
if ([defs boolForKey: @"DocumentAllInstanceVariables"] == YES)
{
[parser setDocumentAllInstanceVariables: YES];
}
if ([defs objectForKey: @"DocumentInstanceVariables"] != nil
&& [defs boolForKey: @"DocumentInstanceVariables"] == NO)
{
[parser setDocumentInstanceVariables: NO];
}
for (i = 0; i < count; i++)
{
NSString *hfile = [sFiles objectAtIndex: i];
NSString *gsdocfile;
NSString *file;
NSString *sourceName = nil;
NSMutableArray *a;
NSDictionary *attrs;
NSDate *sDate = nil;
NSDate *gDate = nil;
unsigned j;
if (pool != nil)
{
RELEASE(pool);
pool = [NSAutoreleasePool new];
}
/*
* Note the name of the header file without path or extension.
* This will be used to generate the output file.
*/
file = [hfile stringByDeletingPathExtension];
file = [file lastPathComponent];
/*
* Ensure that header file name is set up using the
* header directory specified unless it is absolute.
*/
if ([hfile isAbsolutePath] == NO)
{
if ([headerDirectory length] > 0
&& [[hfile pathExtension] isEqual: @"h"] == YES)
{
hfile = [headerDirectory stringByAppendingPathComponent:
hfile];
}
}
gsdocfile = [documentationDirectory
stringByAppendingPathComponent: file];
gsdocfile = [gsdocfile stringByAppendingPathExtension: @"gsdoc"];
if (ignoreDependencies == NO)
{
NSUInteger pos;
NSDate *d;
/*
* Ask existing project info (.gsdoc file) for dependency
* information. Then check the dates on the source files
* and the header file.
*/
a = [projectRefs sourcesForHeader: hfile];
pos = [a indexOfObject: hfile];
[a insertObject: hfile atIndex: 0];
if (pos != NSNotFound)
{
[a removeObjectAtIndex: pos + 1];
}
[projectRefs setSources: a forHeader: hfile];
for (j = 0; j < [a count]; j++)
{
NSString *sfile = [a objectAtIndex: j];
attrs = [mgr fileAttributesAtPath: sfile
traverseLink: YES];
d = [attrs fileModificationDate];
if (sDate == nil || [d earlierDate: sDate] != d)
{
sDate = d;
IF_NO_ARC([[sDate retain] autorelease];)
}
}
if (verbose == YES)
{
NSLog(@"Saved sources for %@ are %@ ... %@", hfile, a, sDate);
}
/*
* Ask existing project info (.gsdoc file) for dependency
* information. Then check the dates on the output files.
* If none are set, assume the default.
*/
a = [projectRefs outputsForHeader: hfile];
if ([a count] == 0)
{
[a insertObject: gsdocfile atIndex: 0];
[projectRefs setOutputs: a forHeader: hfile];
}
for (j = 0; j < [a count]; j++)
{
NSString *ofile = [a objectAtIndex: j];
attrs = [mgr fileAttributesAtPath: ofile traverseLink: YES];
d = [attrs fileModificationDate];
if (gDate == nil || [d laterDate: gDate] != d)
{
gDate = d;
IF_NO_ARC([[gDate retain] autorelease];)
}
}
if (verbose == YES)
{
NSLog(@"Saved outputs for %@ are %@ ... %@", hfile, a, gDate);
}
}
if (gDate == nil || [sDate earlierDate: gDate] != sDate)
{
NSArray *modified;
if (showDependencies == YES)
{
NSLog(@"%@: source %@, gsdoc %@ ==> regenerate",
file, sDate, gDate);
}
[parser reset];
/*
* Try to parse header to see what needs documenting.
* If the header given was actually a .m/.c file, this will
* parse that file for declarations rather than definitions.
*/
if ([mgr isReadableFileAtPath: hfile] == NO)
{
NSLog(@"No readable header at '%@' ... skipping", hfile);
continue;
}
if (declared != nil)
{
[parser setDeclared:
[declared stringByAppendingPathComponent:
[hfile lastPathComponent]]];
}
[parser parseFile: hfile isSource: NO];
/*
* Record dependency information.
*/
a = [parser outputs];
if ([a count] > 0)
{
/*
* Adjust the location of the output files to be in the
* documentation directory.
*/
for (j = 0; j < [a count]; j++)
{
NSString *s = [a objectAtIndex: j];
if ([s isAbsolutePath] == NO)
{
s = [documentationDirectory
stringByAppendingPathComponent: s];
[a replaceObjectAtIndex: j withObject: s];
}
}
if (verbose == YES)
{
NSLog(@"Computed outputs for %@ are %@", hfile, a);
}
[projectRefs setOutputs: a forHeader: hfile];
}
a = [parser sources];
/*
* Collect any matching .m files provided as autogsdoc arguments
* for the current header (hfile).
*/
sourceName = [[hfile lastPathComponent]
stringByDeletingPathExtension];
sourceName = [sourceName stringByAppendingPathExtension: @"m"];
for (j = 0; j < [sFiles count]; j++)
{
NSString *sourcePath = [sFiles objectAtIndex: j];
if ([sourcePath hasSuffix: sourceName]
&& [mgr isReadableFileAtPath: sourcePath])
{
NSUInteger index;
index = [a indexOfObject: sourcePath];
[a addObject: sourcePath];
if (index != NSNotFound)
{
[a removeObjectAtIndex: index];
}
}
}
if ([a count] > 0)
{
[projectRefs setSources: a forHeader: hfile];
}
if (verbose == YES)
{
NSLog(@"Computed sources for %@ are %@", hfile, a);
}
for (j = 0; j < [a count]; j++)
{
NSString *sfile = [a objectAtIndex: j];
/*
* If we can read a source file, parse it for any
* additional information on items found in the header.
*/
if ([mgr isReadableFileAtPath: sfile] == YES)
{
[parser parseFile: sfile isSource: YES];
}
else
{
NSLog(@"No readable source at '%@' ... ignored", sfile);
}
}
/*
* Set up linkage for this file.
*/
[[parser info] setObject: file forKey: @"base"];
[[parser info] setObject: documentationDirectory
forKey: @"directory"];
/*
* Only produce linkage if the up link is not empty.
* Do not add an up link if this *is* the up link document.
*/
if ([up length] > 0 && [up isEqual: file] == NO)
{
[[parser info] setObject: up forKey: @"up"];
}
modified = [output output: [parser info]];
if (modified == nil)
{
NSLog(@"Sorry unable to write %@", gsdocfile);
}
else
{
unsigned c = [modified count];
while (c-- > 0)
{
NSString *f;
f = [[modified objectAtIndex: c] lastPathComponent];
if ([gFiles containsObject: f] == NO)
{
[gFiles addObject: f];
}
}
}
}
else
{
/*
* Add the .h file to the list of those to process.
*/
[gFiles addObject: [hfile lastPathComponent]];
}
}
/*
* Ask the parser for the OrderedSymbolDeclarations plist, merge with
* the previously output plist and save it
*/
[symbolDecls addEntriesFromDictionary:
[parser orderedSymbolDeclarationsByUnit]];
[symbolDecls writeToFile: symbolDeclsFile atomically: YES];
informalProtocols = RETAIN([output informalProtocols]);
DESTROY(pool);
DESTROY(parser);
DESTROY(output);
AUTORELEASE(informalProtocols);
}
/*
* 6) Now move to "gsdoc files" (including both command-line given ones and
* just-generated ones).. and generate the index.
*
*/
count = [gFiles count];
if (count > 0)
{
NSMutableArray *merged
= [[NSMutableArray alloc] initWithCapacity: count];
CREATE_AUTORELEASE_POOL(arp);
NSDictionary *projectIndex;
for (i = 0; i < count; i++)
{
NSString *arg = [gFiles objectAtIndex: i];
NSString *gsdocfile;
NSString *file;
NSDictionary *attrs;
NSDate *gDate = nil;
if (arp != nil)
{
RELEASE(arp);
arp = [NSAutoreleasePool new];
}
/*
* 6a) Chop off any path specification that might be there (for files
* given on the command line) and search for the file only in
* 'DocumentationDirectory' or the CWD (which is assumed to be
* the directory with the source files, though this will not be
* true if path information was given for them on the command
* line).
*/
file = [[arg lastPathComponent] stringByDeletingPathExtension];
gsdocfile = [documentationDirectory
stringByAppendingPathComponent: file];
gsdocfile = [gsdocfile stringByAppendingPathExtension: @"gsdoc"];
/*
* If our source file is a gsdoc file ... it may be located
* in the current (input) directory rather than the documentation
* (output) directory.
*/
if ([mgr isReadableFileAtPath: gsdocfile] == NO)
{
gsdocfile = [file stringByAppendingPathExtension: @"gsdoc"];
}
if (ignoreDependencies == NO)
{
attrs = [mgr fileAttributesAtPath: gsdocfile traverseLink: YES];
gDate = [attrs fileModificationDate];
IF_NO_ARC([[gDate retain] autorelease];)
}
/*
* 6b) Now we try to process the gsdoc data to make index info
* unless the project index is already more up to date than
* this file (or the gsdoc file does not exist of course).
*/
if (gDate != nil && [gDate earlierDate: rDate] != gDate)
{
if (showDependencies == YES)
{
NSLog(@"%@: gsdoc %@, index %@ ==> regenerate",
file, gDate, rDate);
}
if ([mgr isReadableFileAtPath: gsdocfile] == YES)
{
GSXMLNode *root;
GSXMLParser *parser;
AGSIndex *localRefs;
// This parses the file for index info
parser = [GSXMLParser parserWithContentsOfFile: gsdocfile];
[parser doValidityChecking: YES];
[parser keepBlanks: NO];
[parser substituteEntities: NO];
if ([parser parse] == NO)
{
NSLog(@"WARNING %@ is not a valid document", gsdocfile);
}
root = [[parser document] root];
if (![[root name] isEqualToString: @"gsdoc"])
{
NSLog(@"not a gsdoc document - because name node is %@",
[root name]);
DESTROY(merged);
return 1;
}
localRefs = AUTORELEASE([AGSIndex new]);
// This is the main call that computes index information
[localRefs makeRefs: root];
/*
* accumulate index info in project references
*/
[projectRefs mergeRefs: [localRefs refs] override: NO];
[merged addObject: gsdocfile];
}
else
{
NSLog(@"File '%@' not found in $DocumentationDirectory or '.' ... skipping indexing",
gsdocfile);
}
}
}
if (verbose)
{
NSLog(@"Merged indexes into projectRefs from %@", merged);
}
if (informalProtocols != nil)
{
[projectRefs addInformalProtocols: informalProtocols];
if (verbose)
{
NSLog(@"Added informal protocols into projectRefs");
}
}
DESTROY(arp);
/*
* 7) Save project references if they have been modified
* (into an .igsdoc file named for the project).
*/
projectIndex = [projectRefs refs];
if (projectIndex != nil && [originalIndex isEqual: projectIndex] == NO)
{
if ([projectIndex writeToFile: refsFile atomically: YES] == NO)
{
NSLog(@"Sorry unable to write %@", refsFile);
}
}
originalIndex = nil;
DESTROY(merged);
}
globalRefs = AUTORELEASE([AGSIndex new]);
[safe setObject: globalRefs forKey: @"globalRefs"];
/*
* 8) If we are either generating html output, or relocating existing
* html documents, we must build up the indexing information needed
* for any cross-referencing etc.. This comes from the "xxxProjects"
* defaults. Each of these is used to find a project directory, in
* which an .igsdoc index cache file is searched for. If found, its
* contents are read in and merged with the current project (but NOT
* merged into its index file).
*/
if (generateHtml == YES || [hFiles count] > 0)
{
NSMutableDictionary *projects;
NSString *systemProjects;
NSString *localProjects;
CREATE_AUTORELEASE_POOL (pool);
localProjects = [defs stringForKey: @"LocalProjects"];
if (localProjects == nil)
{
localProjects = @"";
}
systemProjects = [defs stringForKey: @"SystemProjects"];
if (systemProjects == nil)
{
systemProjects = @"";
}
projects = [[defs dictionaryForKey: @"Projects"] mutableCopy];
IF_NO_ARC([projects autorelease];)
/*
* Merge any system project references.
*/
if ([systemProjects caseInsensitiveCompare: @"None"] != NSOrderedSame)
{
NSString *base = [NSSearchPathForDirectoriesInDomains(
NSDocumentationDirectory, NSSystemDomainMask, NO) lastObject];
base = [base stringByStandardizingPath];
if (base != nil)
{
NSDirectoryEnumerator *enumerator = [mgr enumeratorAtPath: base];
NSString *file;
if ([systemProjects isEqual: @""] == YES)
{
systemProjects = base; // Absolute path
}
while ((file = [enumerator nextObject]) != nil)
{
NSString *ext = [file pathExtension];
if ([ext isEqualToString: @"igsdoc"] == YES
&& [[file lastPathComponent] isEqual: refsName] == NO)
{
NSString *key;
NSString *val;
if (projects == nil)
{
projects = [NSMutableDictionary dictionary];
}
key = [base stringByAppendingPathComponent: file];
val = [file stringByDeletingLastPathComponent];
val
= [systemProjects stringByAppendingPathComponent: val];
[projects setObject: val forKey: key];
}
}
}
}
/*
* Merge any local project references.
*/
if ([localProjects caseInsensitiveCompare: @"None"] != NSOrderedSame)
{
NSString *base = [NSSearchPathForDirectoriesInDomains(
NSDocumentationDirectory, NSLocalDomainMask, NO) lastObject];
base = [base stringByStandardizingPath];
if (base != nil)
{
NSDirectoryEnumerator *enumerator;
NSString *file;
enumerator = [mgr enumeratorAtPath: base];
if ([localProjects isEqual: @""] == YES)
{
localProjects = base; // Absolute path
}
while ((file = [enumerator nextObject]) != nil)
{
NSString *ext = [file pathExtension];
if ([ext isEqualToString: @"igsdoc"] == YES
&& [[file lastPathComponent] isEqual: refsName] == NO)
{
NSString *key;
NSString *val;
if (projects == nil)
{
projects = [NSMutableDictionary dictionary];
}
key = [base stringByAppendingPathComponent: file];
val = [file stringByDeletingLastPathComponent];
val = [localProjects stringByAppendingPathComponent: val];
[projects setObject: val forKey: key];
}
}
}
}
/*
* Merge any "plain project" references.
*/
if ([projects count] > 0)
{
NSEnumerator *e = [projects keyEnumerator];
NSMutableArray *merged;
NSString *k;
merged = [NSMutableArray arrayWithCapacity: [projects count]];
while ((k = [e nextObject]) != nil)
{
if ([mgr isReadableFileAtPath: k] == NO)
{
NSLog(@"Unable to read project file '%@'", k);
}
else
{
NSDictionary *dict;
dict = [[NSDictionary alloc] initWithContentsOfFile: k];
if (dict == nil)
{
NSLog(@"Unable to read project file '%@'", k);
}
else
{
AGSIndex *tmp;
NSString *p;
tmp = [AGSIndex new];
[tmp mergeRefs: dict override: NO];
RELEASE(dict);
/*
* Adjust path to external project files ...
*/
p = [projects objectForKey: k];
if ([p isEqual: @""] == YES)
{
p = [k stringByDeletingLastPathComponent];
}
[tmp setDirectory: p];
[globalRefs mergeRefs: [tmp refs] override: YES];
RELEASE(tmp);
[merged addObject: k];
}
}
}
if (verbose)
{
NSLog(@"Merged indexes into globalRefs from %@", merged);
}
}
/*
* Accumulate project index info into global index
*/
[globalRefs mergeRefs: [projectRefs refs] override: YES];
if (verbose)
{
NSLog(@"Merged indexes from projectRefs into globalRefs");
}
RELEASE(pool);
}
/*
* 9) If we are generating HTML frames, create the gsdoc files specifying
* indices that we will use.
*/
if ([defs boolForKey: @"MakeFrames"] == YES)
{
int i;
int cap = 1360;
NSArray *idxTypes = [NSArray arrayWithObjects:
@"class",
@"protocol",
@"constant",
@"function",
@"macro",
@"type",
@"variable",
@"tool",
nil];
NSString *idxIndexFile;
NSMutableString *idxIndex= [NSMutableString stringWithCapacity: 5*cap];
NSString *framesetFile;
NSMutableString *frameset = [NSMutableString stringWithCapacity: cap];
NSMutableString *tocSkel = [NSMutableString stringWithCapacity: cap];
NSString *prjFile =
[NSString stringWithFormat: @"%@.gsdoc",project];
// skeleton for table of contents files
[tocSkel setString: @"<?xml version=\"1.0\"?>\n"
@"<!DOCTYPE gsdoc PUBLIC \"-//GNUstep//DTD gsdoc 1.0.4//EN\" \"http://www.gnustep.org/gsdoc-1_0_4.dtd\">\n"
@"<gsdoc base=\"[typeU]\" stylesheeturl=\"gsdoc_contents\">\n"
@" <head>\n"
@" <title>[typeU]</title>\n"
@" </head>\n"
@" <body>\n"
@" <chapter>\n"
@" <index type=\"[typeL]\" scope=\"project\" target=\"mainFrame\"\n"
@" style=\"bare\" />\n"
@" </chapter>\n"
@" </body>\n"
@"</gsdoc>\n"];
[tocSkel replaceString: @"[prjName]" withString: project];
// file for top-left frame (header only; rest appended below)
idxIndexFile = [@"MainIndex" stringByAppendingPathExtension: @"html"];
[idxIndex setString: @"<!DOCTYPE HTML>\n"
@"<HTML>\n"
@" <HEAD>\n"
@" <META charset=\"utf-8\">\n"
@" </HEAD>\n"
@" <BODY>\n"
@" <B>Index</B><BR>\n"];
// this becomes index.html
framesetFile = [@"index" stringByAppendingPathExtension: @"html"];
[frameset setString: @"<!DOCTYPE HTML>\n"
@"<HTML lang=\"en\">\n"
@" <HEAD>\n"
@" <META charset=\"utf-8\">\n"
@" <TITLE>\n"
@" Autogsdoc-generated Documentation for [prjName]\n"
@" </TITLE>\n"
@" </HEAD>\n"
@" <FRAMESET cols=\"20%,80%\">\n"
@" <FRAMESET rows=\"30%,70%\">\n"
@" <FRAME src=\"MainIndex.html\" name=\"packageListFrame\">\n"
@" <FRAME src=\"ClassesTOC.html\" name=\"packageFrame\">\n"
@" </FRAMESET>\n"
@" <FRAME src=\"[prjName].html\" name=\"mainFrame\">\n"
@" </FRAMESET>\n"
@"</HTML>\n"];
[frameset replaceString: @"[prjName]" withString: project];
// generate the table of contents gsdoc files
for (i = 0; i < [idxTypes count]; i++)
{
NSString *gsdocFile;
NSString *htmlFile;
NSMutableString *contents;
NSString *typeL = [idxTypes objectAtIndex: i];
NSString *typeU = [typeL capitalizedString];
contents = [NSMutableString stringWithCapacity: cap];
[contents setString: tocSkel];
typeU = [@"Class" isEqualToString: typeU] ?
[typeU stringByAppendingString: @"es"] :
[typeU stringByAppendingString: @"s"];
[contents replaceString: @"[typeL]" withString: typeL];
[contents replaceString: @"[typeU]" withString: typeU];
gsdocFile = [[typeU stringByAppendingString: @"TOC"]
stringByAppendingPathExtension: @"gsdoc"];
htmlFile = [[typeU stringByAppendingString: @"TOC"]
stringByAppendingPathExtension: @"html"];
if ([[projectRefs refs] objectForKey: typeL] != nil)
{
[contents writeToFile:
[documentationDirectory stringByAppendingPathComponent:
gsdocFile]
atomically: YES];
[gFiles addObject: gsdocFile];
[idxIndex appendFormat:
@" <A HREF=\"%@\" TARGET=\"packageFrame\">%@</A><BR/>\n",
htmlFile, typeU];
}
}
[idxIndex appendString: @" <BR/>\n"];
[idxIndex appendFormat:
@" (<A HREF=\"%@.html\" TARGET=\"mainFrame\">intro</A>)&nbsp;",
project];
[idxIndex appendFormat:
@"&nbsp;(<A HREF=\"%@.html\" TARGET=\"_top\">unframe</A>)\n",
project];
[idxIndex appendString: @" </BODY>\n</HTML>\n"];
[idxIndex writeToFile:
[documentationDirectory stringByAppendingPathComponent: idxIndexFile]
atomically: YES];
[frameset writeToFile:
[documentationDirectory stringByAppendingPathComponent: framesetFile]
atomically: YES];
// it is possible that <project>.gsdoc does not exist; if that is the
// case, generate one now as a placeholder
for (i = 0; i < [gFiles count]; i++)
{
NSString *fname = [gFiles objectAtIndex: i];
if ([fname rangeOfString: prjFile].length > 0)
break;
}
if (i == [gFiles count])
{
NSMutableString *prjFileContents =
[NSMutableString stringWithCapacity: cap];
NSLog(@"\n\nNOTE: Generating a simple introductory page for your"
@" project.\nTo replace this with a custom version, edit the gsdoc file \n"
@"named %@ in the documentation output directory.\n"
@"Then include this file in the arguments to autogsdoc.\n\n", prjFile);
[prjFileContents setString: @"<?xml version=\"1.0\"?>\n"
@"<!DOCTYPE gsdoc PUBLIC \"-//GNUstep//DTD gsdoc 1.0.3//EN\" \"http://www.gnustep.org/gsdoc-1_0_4.dtd\">\n"
@"<gsdoc base=\"[prjName]\">\n"
@" <head>\n"
@" <title>The [prjName] Project</title>\n"
@" </head>\n"
@" <body>\n"
@" <chapter>\n"
@" <p>The index below lists the major components of the [prjName] \n"
@" documentation.<br/></p>\n"
@" <index type=\"title\" scope=\"project\" target=\"mainFrame\" />\n"
@" </chapter>\n"
@" </body>\n"
@"</gsdoc>\n"];
[prjFileContents replaceString: @"[prjName]" withString: project];
[prjFileContents writeToFile:
[documentationDirectory stringByAppendingPathComponent: prjFile]
atomically: YES];
[gFiles addObject: prjFile];
}
}
/*
* 10) Next pass ... generate html output from gsdoc files if required.
*/
count = [gFiles count];
if (generateHtml == YES && count > 0)
{
NSString *htmlIndexFile;
htmlIndexFile = [defs stringForKey: @"IndexFile"];
pool = [NSAutoreleasePool new];
for (i = 0; i < count; i++)
{
NSString *arg = [gFiles objectAtIndex: i];
NSString *gsdocfile;
NSString *htmlfile;
NSString *file;
NSString *generated;
NSDictionary *attrs;
NSDate *gDate = nil;
NSDate *hDate = nil;
if (pool != nil)
{
RELEASE(pool);
pool = [NSAutoreleasePool new];
}
/*
* 10a) As before in connection with (6a), drop path information
* and look for gsdoc files in 'documentationDirectory' or
* CWD.
*/
file = [[arg lastPathComponent] stringByDeletingPathExtension];
gsdocfile = [documentationDirectory
stringByAppendingPathComponent: file];
gsdocfile = [gsdocfile stringByAppendingPathExtension: @"gsdoc"];
htmlfile = [documentationDirectory
stringByAppendingPathComponent: file];
htmlfile = [htmlfile stringByAppendingPathExtension: @"html"];
/*
* If the gsdoc file name was specified as a source file,
* it may be in the source directory rather than the documentation
* directory.
*/
if ([mgr isReadableFileAtPath: gsdocfile] == NO
&& [arg hasSuffix: @".gsdoc"] == YES)
{
gsdocfile = [file stringByAppendingPathExtension: @"gsdoc"];
}
if (ignoreDependencies == NO)
{
/*
* When were the files last modified?
*/
attrs = [mgr fileAttributesAtPath: gsdocfile traverseLink: YES];
gDate = [attrs fileModificationDate];
IF_NO_ARC([[gDate retain] autorelease];)
attrs = [mgr fileAttributesAtPath: htmlfile traverseLink: YES];
hDate = [attrs fileModificationDate];
IF_NO_ARC([[hDate retain] autorelease];)
}
if ([mgr isReadableFileAtPath: gsdocfile] == YES)
{
if (hDate == nil || [gDate earlierDate: hDate] != gDate)
{
NSData *d;
GSXMLNode *root;
GSXMLParser *parser;
AGSIndex *localRefs;
AGSHtml *html;
if (showDependencies == YES)
{
NSLog(@"%@: gsdoc %@, html %@ ==> regenerate",
file, gDate, hDate);
}
// 10b) parse the .gsdoc file
parser = [GSXMLParser parserWithContentsOfFile: gsdocfile];
[parser doValidityChecking: YES];
[parser keepBlanks: NO];
[parser substituteEntities: NO];
if ([parser parse] == NO)
{
NSLog(@"WARNING %@ is not a valid document", gsdocfile);
}
root = [[parser document] root];
if (![[root name] isEqualToString: @"gsdoc"])
{
NSLog(@"not a gsdoc document - because name node is %@",
[root name]);
return 1;
}
localRefs = AUTORELEASE([AGSIndex new]);
[localRefs makeRefs: root];
/*
* 10c) Feed the XML tree to an AGSHtml instance, and dump
* the result to a file.
*/
html = AUTORELEASE([AGSHtml new]);
[html setGlobalRefs: globalRefs];
[html setProjectRefs: projectRefs];
[html setLocalRefs: localRefs];
[html setInstanceVariablesAtEnd: instanceVarsAtEnd];
generated = [html outputDocument: root name: gsdocfile];
d = [generated dataUsingEncoding: NSUTF8StringEncoding];
if ([d writeToFile: htmlfile atomically: YES] == NO)
{
NSLog(@"Sorry unable to write %@", htmlfile);
}
if ([file isEqual: htmlIndexFile])
{
NSString *s;
s = [documentationDirectory
stringByAppendingPathComponent: @"index.html"];
if ([d writeToFile: s atomically: YES] == NO)
{
NSLog(@"Sorry unable to write %@ to %@", htmlfile, s);
}
}
}
}
else if ([arg hasSuffix: @".gsdoc"] == YES)
{
NSLog(@"File '%@' not found in $DocumentationDirectory or '.' ... skipping",
gsdocfile);
}
}
RELEASE(pool);
}
/*
* 11) Relocate existing html documents if required ... adjust all cross
* referencing within those documents. This entails searching for
* <a rel="..." href="..."> links, parsing the key, and replacing the
* contents as per our current index info (which may have changed).
*/
count = [hFiles count];
if (count > 0)
{
pool = [NSAutoreleasePool new];
for (i = 0; i < count; i++)
{
NSString *file = [hFiles objectAtIndex: i];
NSString *src;
NSString *dst;
if (pool != nil)
{
RELEASE(pool);
pool = [NSAutoreleasePool new];
}
file = [file lastPathComponent];
src = file;
dst = [documentationDirectory stringByAppendingPathComponent: file];
/*
* If we can't find the file in the source directory, assume
* it is in the documentation directory already, and just needs
* cross-refs rebuilding.
*/
if ([mgr isReadableFileAtPath: src] == NO)
{
src = dst;
}
if ([mgr isReadableFileAtPath: src] == YES)
{
NSData *d;
NSMutableString *s;
NSRange r;
unsigned l;
unsigned p;
AGSHtml *html;
html = AUTORELEASE([AGSHtml new]);
[html setGlobalRefs: globalRefs];
[html setProjectRefs: projectRefs];
[html setLocalRefs: nil];
[html setInstanceVariablesAtEnd: instanceVarsAtEnd];
s = [NSMutableString stringWithContentsOfFile: src];
l = [s length];
p = 0;
r = NSMakeRange(p, l);
r = [s rangeOfString: @"<a rel=\"gsdoc\" href=\""
options: NSLiteralSearch
range: r];
while (r.length > 0)
{
NSRange replace;
NSString *repstr;
NSString *href;
NSString *type;
NSString *unit = nil;
replace.location = r.location;
p = NSMaxRange(r);
r = [s rangeOfString: @"\">"
options: NSLiteralSearch
range: NSMakeRange(p, l - p)];
if (r.length == 0)
{
NSLog(@"Unterminated gsdoc rel at %u", p);
break;
}
else
{
replace = NSMakeRange(replace.location,
NSMaxRange(r) - replace.location);
href = [s substringWithRange:
NSMakeRange(p, r.location - p)];
p = NSMaxRange(replace);
}
/*
* Skip past the '#' to the local reference.
*/
r = [href rangeOfString: @"#"
options: NSLiteralSearch];
if (r.length == 0)
{
NSLog(@"Missing '#' in href at %lu", (unsigned long)replace.location);
break;
}
href = [href substringFromIndex: NSMaxRange(r)];
/*
* Split out the reference type information.
*/
r = [href rangeOfString: @"$"
options: NSLiteralSearch];
if (r.length == 0)
{
NSLog(@"Missing '$' in href at %lu", (unsigned long)replace.location);
break;
}
type = [href substringToIndex: r.location];
href = [href substringFromIndex: NSMaxRange(r)];
/*
* Parse unit name from method or instance variable link.
*/
if ([type isEqual: @"method"] == YES
|| [type isEqual: @"ivariable"] == YES)
{
if ([type isEqual: @"method"] == YES)
{
r = [href rangeOfString: @"-"
options: NSLiteralSearch];
if (r.length == 0)
{
r = [href rangeOfString: @"+"
options: NSLiteralSearch];
}
if (r.length > 0)
{
unit = [href substringToIndex: r.location];
href = [href substringFromIndex: NSMaxRange(r)-1];
}
}
else
{
r = [href rangeOfString: @"*"
options: NSLiteralSearch];
if (r.length > 0)
{
unit = [href substringToIndex: r.location];
href = [href substringFromIndex: NSMaxRange(r)];
}
}
if (unit == nil)
{
NSLog(@"Missing unit name terminator at %lu",
(unsigned long)replace.location);
break;
}
}
if (unit == nil)
{
repstr = [html makeLink: href
ofType: type
isRef: YES];
}
else
{
repstr = [html makeLink: href
ofType: type
inUnit: unit
isRef: YES];
}
if (verbose == YES)
{
NSLog(@"Replace %@ with %@",
[s substringWithRange: replace],
repstr ? (id)repstr : (id)@"self");
}
if (repstr != nil)
{
int offset = [repstr length] - replace.length;
p += offset;
l += offset;
[s replaceCharactersInRange: replace withString: repstr];
}
r = [s rangeOfString: @"<a rel=\"gsdoc\" href=\""
options: NSLiteralSearch
range: NSMakeRange(p, l - p)];
}
d = [s dataUsingEncoding: NSUTF8StringEncoding];
[d writeToFile: dst atomically: YES];
}
else if ([file hasSuffix: @".gsdoc"] == YES)
{
NSLog(@"No readable documentation at '%@' ... skipping", src);
}
else
{
NSLog(@"Type of file '%@' unrecognized ... skipping", src);
}
}
RELEASE(pool);
}
/*
* 12) If MakeDependencies was requested, add all header and source files
* as colon-dependencies of the project name.
*/
if ([defs stringForKey: @"MakeDependencies"] != nil)
{
NSString *stamp = [defs stringForKey: @"MakeDependencies"];
NSDictionary *files = [[projectRefs refs] objectForKey: @"source"];
NSEnumerator *enumerator = [files keyEnumerator];
NSString *file;
NSMutableString *depend;
/*
* Build set of all header and source files used in project.
*/
while ((file = [enumerator nextObject]) != nil)
{
[deps addObject: file];
[deps addObjectsFromArray: [files objectForKey: file]];
}
enumerator = [deps objectEnumerator];
depend = [NSMutableString stringWithFormat: @"%@:", stamp];
while ((file = [enumerator nextObject]) != nil)
{
[depend appendFormat: @" \\\n\t%@", file];
}
file = [stamp stringByDeletingLastPathComponent];
if ([file length]> 0 && [mgr fileExistsAtPath: file] == NO)
{
[mgr createDirectoryAtPath: file
withIntermediateDirectories: YES
attributes: nil
error: NULL];
}
[depend writeToFile: stamp atomically: YES];
}
RELEASE(outer);
return 0;
}