mirror of
https://github.com/rn10950/RetroZilla.git
synced 2024-11-09 17:30:18 +01:00
313 lines
9.3 KiB
C
313 lines
9.3 KiB
C
|
/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
||
|
|
/* ***** BEGIN LICENSE BLOCK *****
|
||
|
|
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
||
|
|
*
|
||
|
|
* The contents of this file are subject to the Mozilla Public License Version
|
||
|
|
* 1.1 (the "License"); you may not use this file except in compliance with
|
||
|
|
* the License. You may obtain a copy of the License at
|
||
|
|
* http://www.mozilla.org/MPL/
|
||
|
|
*
|
||
|
|
* Software distributed under the License is distributed on an "AS IS" basis,
|
||
|
|
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
||
|
|
* for the specific language governing rights and limitations under the
|
||
|
|
* License.
|
||
|
|
*
|
||
|
|
* The Original Code is mozilla.org code.
|
||
|
|
*
|
||
|
|
* The Initial Developer of the Original Code is
|
||
|
|
* Netscape Communications Corporation.
|
||
|
|
* Portions created by the Initial Developer are Copyright (C) 1998
|
||
|
|
* the Initial Developer. All Rights Reserved.
|
||
|
|
*
|
||
|
|
* Contributor(s):
|
||
|
|
*
|
||
|
|
* Alternatively, the contents of this file may be used under the terms of
|
||
|
|
* either the GNU General Public License Version 2 or later (the "GPL"), or
|
||
|
|
* the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
||
|
|
* in which case the provisions of the GPL or the LGPL are applicable instead
|
||
|
|
* of those above. If you wish to allow use of your version of this file only
|
||
|
|
* under the terms of either the GPL or the LGPL, and not to allow others to
|
||
|
|
* use your version of this file under the terms of the MPL, indicate your
|
||
|
|
* decision by deleting the provisions above and replace them with the notice
|
||
|
|
* and other provisions required by the GPL or the LGPL. If you do not delete
|
||
|
|
* the provisions above, a recipient may use your version of this file under
|
||
|
|
* the terms of any one of the MPL, the GPL or the LGPL.
|
||
|
|
*
|
||
|
|
* ***** END LICENSE BLOCK ***** */
|
||
|
|
|
||
|
|
#include "xpidl.h"
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Generates documentation from javadoc-style comments in XPIDL files.
|
||
|
|
*/
|
||
|
|
|
||
|
|
static gboolean
|
||
|
|
doc_prolog(TreeState *state)
|
||
|
|
{
|
||
|
|
fprintf(state->file, "<html>\n");
|
||
|
|
fprintf(state->file, "<head>\n");
|
||
|
|
|
||
|
|
fprintf(state->file,
|
||
|
|
"<!-- this file is generated from %s.idl -->\n",
|
||
|
|
state->basename);
|
||
|
|
fprintf(state->file, "<title>documentation for %s.idl interfaces</title>\n",
|
||
|
|
state->basename);
|
||
|
|
fprintf(state->file, "</head>\n\n");
|
||
|
|
fprintf(state->file, "<body>\n");
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
static gboolean
|
||
|
|
doc_epilog(TreeState *state)
|
||
|
|
{
|
||
|
|
fprintf(state->file, "</body>\n");
|
||
|
|
fprintf(state->file, "</html>\n");
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
static gboolean
|
||
|
|
doc_list(TreeState *state)
|
||
|
|
{
|
||
|
|
IDL_tree iter;
|
||
|
|
for (iter = state->tree; iter; iter = IDL_LIST(iter).next) {
|
||
|
|
state->tree = IDL_LIST(iter).data;
|
||
|
|
if (!xpidl_process_node(state))
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
static gboolean
|
||
|
|
print_list(FILE *outfile, IDL_tree list)
|
||
|
|
{
|
||
|
|
if (list == NULL)
|
||
|
|
return TRUE;
|
||
|
|
|
||
|
|
fprintf(outfile, "<ul>\n");
|
||
|
|
while (list != NULL) {
|
||
|
|
fprintf(outfile, " <li>%s\n",
|
||
|
|
IDL_IDENT(IDL_LIST(list).data).str);
|
||
|
|
list = IDL_LIST(list).next;
|
||
|
|
}
|
||
|
|
fprintf(outfile, "</ul>\n");
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
static gboolean
|
||
|
|
doc_interface(TreeState *state)
|
||
|
|
{
|
||
|
|
IDL_tree iface = state->tree;
|
||
|
|
IDL_tree iter;
|
||
|
|
IDL_tree orig;
|
||
|
|
char *classname = IDL_IDENT(IDL_INTERFACE(iface).ident).str;
|
||
|
|
GSList *doc_comments = IDL_IDENT(IDL_INTERFACE(iface).ident).comments;
|
||
|
|
|
||
|
|
fprintf(state->file, "interface %s<br>\n", classname);
|
||
|
|
|
||
|
|
/* Much more could happen at this step. */
|
||
|
|
/*
|
||
|
|
* If parsing doc comments, you might need to take some care with line
|
||
|
|
* endings, as the xpidl frontend will return comments containing of /r,
|
||
|
|
* /n, /r/n depending on the platform. It's best to leave out platform
|
||
|
|
* #defines and just treat them all as equivalent.
|
||
|
|
*/
|
||
|
|
if (doc_comments != NULL) {
|
||
|
|
fprintf(state->file, "doc comments:<br>\n");
|
||
|
|
fprintf(state->file, "<pre>\n");
|
||
|
|
printlist(state->file, doc_comments);
|
||
|
|
fprintf(state->file, "</pre>\n");
|
||
|
|
fprintf(state->file, "<br>\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
/* inherits from */
|
||
|
|
/*
|
||
|
|
* Note that we accept multiple inheritance here (for e.g. gnome idl)
|
||
|
|
* even though the header backend (specific to mozilla idl) rejects it.
|
||
|
|
*/
|
||
|
|
if ((iter = IDL_INTERFACE(iface).inheritance_spec)) {
|
||
|
|
fprintf(state->file, "%s inherits from:<br>\n", classname);
|
||
|
|
print_list(state->file, iter);
|
||
|
|
fprintf(state->file, "<br>\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Call xpidl_process_node to recur through list of declarations in
|
||
|
|
* interface body; another option would be to explicitly iterate through
|
||
|
|
* the list. xpidl_process_node currently requires twiddling the state to
|
||
|
|
* get the right node; I'll fix that soon to just take the node. Makes it
|
||
|
|
* easier to follow what's going on, I think...
|
||
|
|
*/
|
||
|
|
orig = state->tree;
|
||
|
|
state->tree = IDL_INTERFACE(iface).body;
|
||
|
|
if (state->tree && !xpidl_process_node(state))
|
||
|
|
return FALSE;
|
||
|
|
state->tree = orig;
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Copied from xpidl_header.c. You'll probably want to change it; if you can
|
||
|
|
* use it verbatim or abstract it, we could move it to xpidl_util.c and share
|
||
|
|
* it from there.
|
||
|
|
*/
|
||
|
|
static gboolean
|
||
|
|
write_type(IDL_tree type_tree, FILE *outfile)
|
||
|
|
{
|
||
|
|
if (!type_tree) {
|
||
|
|
fputs("void", outfile);
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
switch (IDL_NODE_TYPE(type_tree)) {
|
||
|
|
case IDLN_TYPE_INTEGER: {
|
||
|
|
gboolean sign = IDL_TYPE_INTEGER(type_tree).f_signed;
|
||
|
|
switch (IDL_TYPE_INTEGER(type_tree).f_type) {
|
||
|
|
case IDL_INTEGER_TYPE_SHORT:
|
||
|
|
fputs(sign ? "PRInt16" : "PRUint16", outfile);
|
||
|
|
break;
|
||
|
|
case IDL_INTEGER_TYPE_LONG:
|
||
|
|
fputs(sign ? "PRInt32" : "PRUint32", outfile);
|
||
|
|
break;
|
||
|
|
case IDL_INTEGER_TYPE_LONGLONG:
|
||
|
|
fputs(sign ? "PRInt64" : "PRUint64", outfile);
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
g_error("Unknown integer type %d\n",
|
||
|
|
IDL_TYPE_INTEGER(type_tree).f_type);
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
case IDLN_TYPE_CHAR:
|
||
|
|
fputs("char", outfile);
|
||
|
|
break;
|
||
|
|
case IDLN_TYPE_WIDE_CHAR:
|
||
|
|
fputs("PRUnichar", outfile); /* wchar_t? */
|
||
|
|
break;
|
||
|
|
case IDLN_TYPE_WIDE_STRING:
|
||
|
|
fputs("PRUnichar *", outfile);
|
||
|
|
break;
|
||
|
|
case IDLN_TYPE_STRING:
|
||
|
|
fputs("char *", outfile);
|
||
|
|
break;
|
||
|
|
case IDLN_TYPE_BOOLEAN:
|
||
|
|
fputs("PRBool", outfile);
|
||
|
|
break;
|
||
|
|
case IDLN_TYPE_OCTET:
|
||
|
|
fputs("PRUint8", outfile);
|
||
|
|
break;
|
||
|
|
case IDLN_TYPE_FLOAT:
|
||
|
|
switch (IDL_TYPE_FLOAT(type_tree).f_type) {
|
||
|
|
case IDL_FLOAT_TYPE_FLOAT:
|
||
|
|
fputs("float", outfile);
|
||
|
|
break;
|
||
|
|
case IDL_FLOAT_TYPE_DOUBLE:
|
||
|
|
fputs("double", outfile);
|
||
|
|
break;
|
||
|
|
/* XXX 'long double' just ignored, or what? */
|
||
|
|
default:
|
||
|
|
fprintf(outfile, "unknown_type_%d", IDL_NODE_TYPE(type_tree));
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case IDLN_IDENT:
|
||
|
|
if (UP_IS_NATIVE(type_tree)) {
|
||
|
|
fputs(IDL_NATIVE(IDL_NODE_UP(type_tree)).user_type, outfile);
|
||
|
|
if (IDL_tree_property_get(type_tree, "ptr")) {
|
||
|
|
fputs(" *", outfile);
|
||
|
|
} else if (IDL_tree_property_get(type_tree, "ref")) {
|
||
|
|
fputs(" &", outfile);
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
fputs(IDL_IDENT(type_tree).str, outfile);
|
||
|
|
}
|
||
|
|
if (UP_IS_AGGREGATE(type_tree))
|
||
|
|
fputs(" *", outfile);
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
fprintf(outfile, "unknown_type_%d", IDL_NODE_TYPE(type_tree));
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* handle ATTR_DCL (attribute declaration) nodes */
|
||
|
|
static gboolean
|
||
|
|
doc_attribute_declaration(TreeState *state)
|
||
|
|
{
|
||
|
|
IDL_tree attr = state->tree;
|
||
|
|
|
||
|
|
if (!verify_attribute_declaration(attr))
|
||
|
|
return FALSE;
|
||
|
|
/*
|
||
|
|
* Attribute idents can also take doc comments. They're ignored here;
|
||
|
|
* should they be?
|
||
|
|
*/
|
||
|
|
|
||
|
|
if (IDL_ATTR_DCL(attr).f_readonly)
|
||
|
|
fprintf(state->file, "readonly ");
|
||
|
|
|
||
|
|
fprintf(state->file, "attribute ");
|
||
|
|
|
||
|
|
if (!write_type(IDL_ATTR_DCL(attr).param_type_spec, state->file))
|
||
|
|
return FALSE;
|
||
|
|
|
||
|
|
fprintf(state->file, "\n");
|
||
|
|
print_list(state->file, IDL_ATTR_DCL(attr).simple_declarations);
|
||
|
|
fprintf(state->file, "<br>\n");
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* handle OP_DCL (method declaration) nodes */
|
||
|
|
static gboolean
|
||
|
|
doc_method_declaration(TreeState *state)
|
||
|
|
{
|
||
|
|
/*
|
||
|
|
* Doc comment for attributes also applies here.
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Look at 'write_method_signature' in xpidl_header.c for an example of how
|
||
|
|
* to navigate parse trees for methods. For here, I just print the method
|
||
|
|
* name.
|
||
|
|
*/
|
||
|
|
|
||
|
|
fprintf(state->file,
|
||
|
|
"method %s<br>\n",
|
||
|
|
IDL_IDENT(IDL_OP_DCL(state->tree).ident).str);
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
backend *
|
||
|
|
xpidl_doc_dispatch(void)
|
||
|
|
{
|
||
|
|
static backend result;
|
||
|
|
static nodeHandler table[IDLN_LAST];
|
||
|
|
static gboolean initialized = FALSE;
|
||
|
|
|
||
|
|
result.emit_prolog = doc_prolog;
|
||
|
|
result.emit_epilog = doc_epilog;
|
||
|
|
|
||
|
|
if (!initialized) {
|
||
|
|
/* Initialize non-NULL elements */
|
||
|
|
|
||
|
|
/* I just handle a few... many still to be filled in! */
|
||
|
|
|
||
|
|
table[IDLN_LIST] = doc_list;
|
||
|
|
table[IDLN_INTERFACE] = doc_interface;
|
||
|
|
table[IDLN_ATTR_DCL] = doc_attribute_declaration;
|
||
|
|
table[IDLN_OP_DCL] = doc_method_declaration;
|
||
|
|
|
||
|
|
initialized = TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
result.dispatch_table = table;
|
||
|
|
return &result;
|
||
|
|
}
|