You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1137 lines
26 KiB
1137 lines
26 KiB
/*
|
|
* The XML and API file generator module for SIP-TQt.
|
|
*
|
|
* Copyright (c) 2010 Riverbank Computing Limited <info@riverbankcomputing.com>
|
|
*
|
|
* This file is part of SIP-TQt.
|
|
*
|
|
* This copy of SIP-TQt is licensed for use under the terms of the SIP License
|
|
* Agreement. See the file LICENSE for more details.
|
|
*
|
|
* This copy of SIP-TQt may also used under the terms of the GNU General Public
|
|
* License v2 or v3 as published by the Free Software Foundation which can be
|
|
* found in the files LICENSE-GPL2 and LICENSE-GPL3 included in this package.
|
|
*
|
|
* SIP-TQt is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
*/
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
#include "sip.h"
|
|
|
|
|
|
#define XML_VERSION_NR 0 /* The schema version number. */
|
|
|
|
/* Icon numbers. The values are those used by the eric IDE. */
|
|
#define CLASS_ID 1
|
|
#define METHOD_ID 4
|
|
#define VARIABLE_ID 7
|
|
#define ENUM_ID 10
|
|
|
|
|
|
static void apiEnums(sipSpec *pt, moduleDef *mod, classDef *scope, FILE *fp);
|
|
static void apiVars(sipSpec *pt, moduleDef *mod, classDef *scope, FILE *fp);
|
|
static int apiCtor(sipSpec *pt, moduleDef *mod, classDef *scope, ctorDef *ct,
|
|
int sec, FILE *fp);
|
|
static int apiOverload(sipSpec *pt, moduleDef *mod, classDef *scope,
|
|
overDef *od, int sec, FILE *fp);
|
|
static int apiArgument(sipSpec *pt, argDef *ad, int out, int need_comma,
|
|
int sec, int names, int defaults, int in_str, FILE *fp);
|
|
static void xmlClass(sipSpec *pt, moduleDef *mod, classDef *cd, FILE *fp);
|
|
static void xmlEnums(sipSpec *pt, moduleDef *mod, classDef *scope, int indent,
|
|
FILE *fp);
|
|
static void xmlVars(sipSpec *pt, moduleDef *mod, classDef *scope, int indent,
|
|
FILE *fp);
|
|
static void xmlFunction(sipSpec *pt, classDef *scope, memberDef *md,
|
|
overDef *oloads, int indent, FILE *fp);
|
|
static int xmlCtor(sipSpec *pt, classDef *scope, ctorDef *ct, int sec,
|
|
int indent, FILE *fp);
|
|
static int xmlOverload(sipSpec *pt, classDef *scope, memberDef *md,
|
|
overDef *od, classDef *xtnds, int stat, int sec, int indent, FILE *fp);
|
|
static void xmlCppSignature(FILE *fp, overDef *od);
|
|
static void xmlArgument(sipSpec *pt, argDef *ad, const char *dir, int res_xfer,
|
|
int sec, int indent, FILE *fp);
|
|
static void xmlType(sipSpec *pt, argDef *ad, int sec, FILE *fp);
|
|
static void xmlIndent(int indent, FILE *fp);
|
|
static const char *dirAttribute(argDef *ad);
|
|
static void exportDefaultValue(argDef *ad, int in_str, FILE *fp);
|
|
static const char *pyType(sipSpec *pt, argDef *ad, int sec, classDef **scope);
|
|
|
|
|
|
/*
|
|
* Generate the API file.
|
|
*/
|
|
void generateAPI(sipSpec *pt, moduleDef *mod, const char *apiFile)
|
|
{
|
|
overDef *od;
|
|
classDef *cd;
|
|
FILE *fp;
|
|
|
|
/* Generate the file. */
|
|
if ((fp = fopen(apiFile, "w")) == NULL)
|
|
fatal("Unable to create file \"%s\"\n", apiFile);
|
|
|
|
apiEnums(pt, mod, NULL, fp);
|
|
apiVars(pt, mod, NULL, fp);
|
|
|
|
for (od = mod->overs; od != NULL; od = od->next)
|
|
{
|
|
if (od->common->module != mod)
|
|
continue;
|
|
|
|
if (od->common->slot != no_slot)
|
|
continue;
|
|
|
|
if (apiOverload(pt, mod, NULL, od, FALSE, fp))
|
|
apiOverload(pt, mod, NULL, od, TRUE, fp);
|
|
}
|
|
|
|
for (cd = pt->classes; cd != NULL; cd = cd->next)
|
|
{
|
|
ctorDef *ct;
|
|
|
|
if (cd->iff->module != mod)
|
|
continue;
|
|
|
|
if (isExternal(cd))
|
|
continue;
|
|
|
|
apiEnums(pt, mod, cd, fp);
|
|
apiVars(pt, mod, cd, fp);
|
|
|
|
for (ct = cd->ctors; ct != NULL; ct = ct->next)
|
|
{
|
|
if (isPrivateCtor(ct))
|
|
continue;
|
|
|
|
if (apiCtor(pt, mod, cd, ct, FALSE, fp))
|
|
apiCtor(pt, mod, cd, ct, TRUE, fp);
|
|
}
|
|
|
|
for (od = cd->overs; od != NULL; od = od->next)
|
|
{
|
|
if (isPrivate(od))
|
|
continue;
|
|
|
|
if (od->common->slot != no_slot)
|
|
continue;
|
|
|
|
if (apiOverload(pt, mod, cd, od, FALSE, fp))
|
|
apiOverload(pt, mod, cd, od, TRUE, fp);
|
|
}
|
|
}
|
|
|
|
fclose(fp);
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate an API ctor.
|
|
*/
|
|
static int apiCtor(sipSpec *pt, moduleDef *mod, classDef *scope, ctorDef *ct,
|
|
int sec, FILE *fp)
|
|
{
|
|
int need_sec = FALSE, need_comma, a;
|
|
|
|
/* Do the callable type form. */
|
|
fprintf(fp, "%s.", mod->name);
|
|
prScopedPythonName(fp, scope->ecd, scope->pyname->text);
|
|
fprintf(fp, "?%d(", CLASS_ID);
|
|
|
|
need_comma = FALSE;
|
|
|
|
for (a = 0; a < ct->pysig.nrArgs; ++a)
|
|
{
|
|
argDef *ad = &ct->pysig.args[a];
|
|
|
|
need_comma = apiArgument(pt, ad, FALSE, need_comma, sec, TRUE, TRUE,
|
|
FALSE, fp);
|
|
|
|
if (ad->atype == rxcon_type || ad->atype == rxdis_type)
|
|
need_sec = TRUE;
|
|
}
|
|
|
|
fprintf(fp, ")\n");
|
|
|
|
/* Do the call __init__ form. */
|
|
fprintf(fp, "%s.", mod->name);
|
|
prScopedPythonName(fp, scope->ecd, scope->pyname->text);
|
|
fprintf(fp, ".__init__?%d(self", CLASS_ID);
|
|
|
|
for (a = 0; a < ct->pysig.nrArgs; ++a)
|
|
apiArgument(pt, &ct->pysig.args[a], FALSE, TRUE, sec, TRUE, TRUE,
|
|
FALSE, fp);
|
|
|
|
fprintf(fp, ")\n");
|
|
|
|
return need_sec;
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the APIs for all the enums in a scope.
|
|
*/
|
|
static void apiEnums(sipSpec *pt, moduleDef *mod, classDef *scope, FILE *fp)
|
|
{
|
|
enumDef *ed;
|
|
|
|
for (ed = pt->enums; ed != NULL; ed = ed->next)
|
|
{
|
|
enumMemberDef *emd;
|
|
|
|
if (ed->module != mod)
|
|
continue;
|
|
|
|
if (ed->ecd != scope)
|
|
continue;
|
|
|
|
if (ed->pyname != NULL)
|
|
{
|
|
fprintf(fp, "%s.", mod->name);
|
|
prScopedPythonName(fp, ed->ecd, ed->pyname->text);
|
|
fprintf(fp, "?%d\n", ENUM_ID);
|
|
}
|
|
|
|
for (emd = ed->members; emd != NULL; emd = emd->next)
|
|
{
|
|
fprintf(fp, "%s.", mod->name);
|
|
prScopedPythonName(fp, ed->ecd, emd->pyname->text);
|
|
fprintf(fp, "?%d\n", ENUM_ID);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the APIs for all the variables in a scope.
|
|
*/
|
|
static void apiVars(sipSpec *pt, moduleDef *mod, classDef *scope, FILE *fp)
|
|
{
|
|
varDef *vd;
|
|
|
|
for (vd = pt->vars; vd != NULL; vd = vd->next)
|
|
{
|
|
if (vd->module != mod)
|
|
continue;
|
|
|
|
if (vd->ecd != scope)
|
|
continue;
|
|
|
|
fprintf(fp, "%s.", mod->name);
|
|
prScopedPythonName(fp, vd->ecd, vd->pyname->text);
|
|
fprintf(fp, "?%d\n", VARIABLE_ID);
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate a single API overload.
|
|
*/
|
|
static int apiOverload(sipSpec *pt, moduleDef *mod, classDef *scope,
|
|
overDef *od, int sec, FILE *fp)
|
|
{
|
|
int need_sec;
|
|
|
|
fprintf(fp, "%s.", mod->name);
|
|
prScopedPythonName(fp, scope, od->common->pyname->text);
|
|
fprintf(fp, "?%d", METHOD_ID);
|
|
|
|
need_sec = prPythonSignature(pt, fp, &od->pysig, sec, TRUE, TRUE, FALSE,
|
|
FALSE);
|
|
|
|
fprintf(fp, "\n");
|
|
|
|
return need_sec;
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the API for an argument.
|
|
*/
|
|
static int apiArgument(sipSpec *pt, argDef *ad, int out, int need_comma,
|
|
int sec, int names, int defaults, int in_str, FILE *fp)
|
|
{
|
|
const char *tname;
|
|
classDef *tscope;
|
|
|
|
if (isArraySize(ad))
|
|
return need_comma;
|
|
|
|
if (sec && (ad->atype == slotcon_type || ad->atype == slotdis_type))
|
|
return need_comma;
|
|
|
|
if ((tname = pyType(pt, ad, sec, &tscope)) == NULL)
|
|
return need_comma;
|
|
|
|
if (need_comma)
|
|
fprintf(fp, ", ");
|
|
|
|
prScopedPythonName(fp, tscope, tname);
|
|
|
|
/*
|
|
* Handle the default value is required, but ignore it if it is an output
|
|
* only argument.
|
|
*/
|
|
if (defaults && ad->defval && !out)
|
|
{
|
|
if (names && ad->name != NULL)
|
|
fprintf(fp, " %s", ad->name->text);
|
|
|
|
fprintf(fp, "=");
|
|
prcode(fp, "%M");
|
|
exportDefaultValue(ad, in_str, fp);
|
|
prcode(fp, "%M");
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the XML export file.
|
|
*/
|
|
void generateXML(sipSpec *pt, moduleDef *mod, const char *xmlFile)
|
|
{
|
|
FILE *fp;
|
|
classDef *cd;
|
|
memberDef *md;
|
|
|
|
if ((fp = fopen(xmlFile, "w")) == NULL)
|
|
fatal("Unable to create file \"%s\"\n", xmlFile);
|
|
|
|
fprintf(fp, "<?xml version=\"1.0\"?>\n");
|
|
fprintf(fp, "<Module version=\"%u\" name=\"%s\">\n",
|
|
XML_VERSION_NR, mod->name);
|
|
|
|
/*
|
|
* Note that we don't yet handle mapped types, templates or exceptions.
|
|
*/
|
|
|
|
for (cd = pt->classes; cd != NULL; cd = cd->next)
|
|
{
|
|
if (cd->iff->module != mod)
|
|
continue;
|
|
|
|
if (isExternal(cd))
|
|
continue;
|
|
|
|
xmlClass(pt, mod, cd, fp);
|
|
}
|
|
|
|
for (cd = mod->proxies; cd != NULL; cd = cd->next)
|
|
xmlClass(pt, mod, cd, fp);
|
|
|
|
xmlEnums(pt, mod, NULL, 1, fp);
|
|
xmlVars(pt, mod, NULL, 1, fp);
|
|
|
|
for (md = mod->othfuncs; md != NULL; md = md->next)
|
|
xmlFunction(pt, NULL, md, mod->overs, 1, fp);
|
|
|
|
fprintf(fp, "</Module>\n");
|
|
|
|
fclose(fp);
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the XML for a class.
|
|
*/
|
|
static void xmlClass(sipSpec *pt, moduleDef *mod, classDef *cd, FILE *fp)
|
|
{
|
|
int indent = 1;
|
|
ctorDef *ct;
|
|
memberDef *md;
|
|
|
|
if (isOpaque(cd))
|
|
{
|
|
xmlIndent(indent, fp);
|
|
fprintf(fp, "<OpaqueClass name=\"");
|
|
prScopedPythonName(fp, cd->ecd, cd->pyname->text);
|
|
fprintf(fp, "\"/>\n");
|
|
|
|
return;
|
|
}
|
|
|
|
xmlIndent(indent++, fp);
|
|
fprintf(fp, "<Class name=\"");
|
|
prScopedPythonName(fp, cd->ecd, cd->pyname->text);
|
|
fprintf(fp, "\"");
|
|
|
|
if (cd->picklecode != NULL)
|
|
fprintf(fp, " pickle=\"1\"");
|
|
|
|
if (cd->convtocode != NULL)
|
|
fprintf(fp, " convert=\"1\"");
|
|
|
|
if (cd->real != NULL)
|
|
fprintf(fp, " extends=\"%s\"", cd->real->iff->module->name);
|
|
|
|
if (cd->supers != NULL)
|
|
{
|
|
classList *cl;
|
|
|
|
fprintf(fp, " inherits=\"");
|
|
|
|
for (cl = cd->supers; cl != NULL; cl = cl->next)
|
|
{
|
|
if (cl != cd->supers)
|
|
fprintf(fp, " ");
|
|
|
|
prScopedPythonName(fp, cl->cd->ecd, cl->cd->pyname->text);
|
|
}
|
|
|
|
fprintf(fp, "\"");
|
|
}
|
|
|
|
fprintf(fp, ">\n");
|
|
|
|
xmlEnums(pt, mod, cd, indent, fp);
|
|
xmlVars(pt, mod, cd, indent, fp);
|
|
|
|
for (ct = cd->ctors; ct != NULL; ct = ct->next)
|
|
{
|
|
if (isPrivateCtor(ct))
|
|
continue;
|
|
|
|
if (xmlCtor(pt, cd, ct, FALSE, indent, fp))
|
|
xmlCtor(pt, cd, ct, TRUE, indent, fp);
|
|
}
|
|
|
|
for (md = cd->members; md != NULL; md = md->next)
|
|
xmlFunction(pt, cd, md, cd->overs, indent, fp);
|
|
|
|
xmlIndent(--indent, fp);
|
|
fprintf(fp, "</Class>\n");
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the XML for all the enums in a scope.
|
|
*/
|
|
static void xmlEnums(sipSpec *pt, moduleDef *mod, classDef *scope, int indent,
|
|
FILE *fp)
|
|
{
|
|
enumDef *ed;
|
|
|
|
for (ed = pt->enums; ed != NULL; ed = ed->next)
|
|
{
|
|
if (ed->module != mod)
|
|
continue;
|
|
|
|
if (ed->ecd != scope)
|
|
continue;
|
|
|
|
if (ed->pyname != NULL)
|
|
{
|
|
enumMemberDef *emd;
|
|
|
|
xmlIndent(indent++, fp);
|
|
fprintf(fp, "<Enum name=\"");
|
|
prScopedPythonName(fp, ed->ecd, ed->pyname->text);
|
|
fprintf(fp, "\">\n");
|
|
|
|
for (emd = ed->members; emd != NULL; emd = emd->next)
|
|
{
|
|
xmlIndent(indent, fp);
|
|
fprintf(fp, "<EnumMember name=\"");
|
|
prScopedPythonName(fp, ed->ecd, emd->pyname->text);
|
|
fprintf(fp, "\"/>\n");
|
|
}
|
|
|
|
xmlIndent(--indent, fp);
|
|
fprintf(fp, "</Enum>\n");
|
|
}
|
|
else
|
|
{
|
|
enumMemberDef *emd;
|
|
|
|
for (emd = ed->members; emd != NULL; emd = emd->next)
|
|
{
|
|
xmlIndent(indent, fp);
|
|
fprintf(fp, "<Member name=\"");
|
|
prScopedPythonName(fp, ed->ecd, emd->pyname->text);
|
|
fprintf(fp, "\" const=\"1\" typename=\"int\"/>\n");
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the XML for all the variables in a scope.
|
|
*/
|
|
static void xmlVars(sipSpec *pt, moduleDef *mod, classDef *scope, int indent,
|
|
FILE *fp)
|
|
{
|
|
varDef *vd;
|
|
|
|
for (vd = pt->vars; vd != NULL; vd = vd->next)
|
|
{
|
|
if (vd->module != mod)
|
|
continue;
|
|
|
|
if (vd->ecd != scope)
|
|
continue;
|
|
|
|
xmlIndent(indent, fp);
|
|
fprintf(fp, "<Member name=\"");
|
|
prScopedPythonName(fp, vd->ecd, vd->pyname->text);
|
|
fprintf(fp, "\"");
|
|
|
|
if (isConstArg(&vd->type) || scope == NULL)
|
|
fprintf(fp, " const=\"1\"");
|
|
|
|
if (isStaticVar(vd))
|
|
fprintf(fp, " static=\"1\"");
|
|
|
|
xmlType(pt, &vd->type, FALSE, fp);
|
|
fprintf(fp, "/>\n");
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the XML for a ctor.
|
|
*/
|
|
static int xmlCtor(sipSpec *pt, classDef *scope, ctorDef *ct, int sec,
|
|
int indent, FILE *fp)
|
|
{
|
|
int a, need_sec;
|
|
|
|
xmlIndent(indent++, fp);
|
|
fprintf(fp, "<Function name=\"");
|
|
prScopedPythonName(fp, scope, "__init__");
|
|
fprintf(fp, "\"");
|
|
|
|
/* Handle the trivial case. */
|
|
if (ct->pysig.nrArgs == 0)
|
|
{
|
|
fprintf(fp, "/>\n");
|
|
return FALSE;
|
|
}
|
|
|
|
fprintf(fp, ">\n");
|
|
|
|
need_sec = FALSE;
|
|
|
|
for (a = 0; a < ct->pysig.nrArgs; ++a)
|
|
{
|
|
argDef *ad = &ct->pysig.args[a];
|
|
|
|
xmlArgument(pt, ad, dirAttribute(ad), FALSE, sec, indent, fp);
|
|
|
|
if (ad->atype == rxcon_type || ad->atype == rxdis_type)
|
|
need_sec = TRUE;
|
|
}
|
|
|
|
xmlIndent(--indent, fp);
|
|
fprintf(fp, "</Function>\n");
|
|
|
|
return need_sec;
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the XML for a function.
|
|
*/
|
|
static void xmlFunction(sipSpec *pt, classDef *scope, memberDef *md,
|
|
overDef *oloads, int indent, FILE *fp)
|
|
{
|
|
overDef *od;
|
|
const char *default_str = "default=\"1\" ";
|
|
|
|
for (od = oloads; od != NULL; od = od->next)
|
|
{
|
|
int isstat;
|
|
classDef *xtnds;
|
|
|
|
if (od->common != md)
|
|
continue;
|
|
|
|
if (isPrivate(od))
|
|
continue;
|
|
|
|
if (isSignal(od))
|
|
{
|
|
xmlIndent(indent, fp);
|
|
fprintf(fp, "<Signal %sname=\"", default_str);
|
|
prScopedPythonName(fp, scope, md->pyname->text);
|
|
fprintf(fp, "\" sig=\"");
|
|
xmlCppSignature(fp, od);
|
|
fprintf(fp, "\"/>\n");
|
|
|
|
default_str = "";
|
|
|
|
continue;
|
|
}
|
|
|
|
xtnds = NULL;
|
|
isstat = (scope == NULL || scope->iff->type == namespace_iface || isStatic(od));
|
|
|
|
if (scope == NULL && md->slot != no_slot && od->pysig.args[0].atype == class_type)
|
|
{
|
|
xtnds = od->pysig.args[0].u.cd;
|
|
isstat = FALSE;
|
|
}
|
|
|
|
if (xmlOverload(pt, scope, md, od, xtnds, isstat, FALSE, indent, fp))
|
|
xmlOverload(pt, scope, md, od, xtnds, isstat, TRUE, indent, fp);
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the XML for an overload.
|
|
*/
|
|
static int xmlOverload(sipSpec *pt, classDef *scope, memberDef *md,
|
|
overDef *od, classDef *xtnds, int stat, int sec, int indent, FILE *fp)
|
|
{
|
|
int a, need_sec, no_res;
|
|
|
|
xmlIndent(indent++, fp);
|
|
fprintf(fp, "<Function name=\"");
|
|
prScopedPythonName(fp, scope, md->pyname->text);
|
|
fprintf(fp, "\"");
|
|
|
|
if (isAbstract(od))
|
|
fprintf(fp, " abstract=\"1\"");
|
|
|
|
if (stat)
|
|
fprintf(fp, " static=\"1\"");
|
|
|
|
if (isSlot(od))
|
|
{
|
|
fprintf(fp, " slot=\"");
|
|
xmlCppSignature(fp, od);
|
|
fprintf(fp, "\"");
|
|
}
|
|
|
|
if (xtnds != NULL)
|
|
{
|
|
fprintf(fp, " extends=\"");
|
|
prScopedPythonName(fp, xtnds->ecd, xtnds->pyname->text);
|
|
fprintf(fp, "\"");
|
|
}
|
|
|
|
no_res = (od->pysig.result.atype == void_type && od->pysig.result.nrderefs == 0);
|
|
|
|
/* Handle the trivial case. */
|
|
if (no_res && od->pysig.nrArgs == 0)
|
|
{
|
|
fprintf(fp, "/>\n");
|
|
return FALSE;
|
|
}
|
|
|
|
fprintf(fp, ">\n");
|
|
|
|
if (!no_res)
|
|
xmlArgument(pt, &od->pysig.result, "out", isResultTransferredBack(od),
|
|
FALSE, indent, fp);
|
|
|
|
need_sec = FALSE;
|
|
|
|
for (a = 0; a < od->pysig.nrArgs; ++a)
|
|
{
|
|
argDef *ad = &od->pysig.args[a];
|
|
|
|
/* Ignore the first argument of number slots. */
|
|
if (isNumberSlot(md) && a == 0 && od->pysig.nrArgs == 2)
|
|
continue;
|
|
|
|
xmlArgument(pt, ad, dirAttribute(ad), FALSE, sec, indent, fp);
|
|
|
|
if (ad->atype == rxcon_type || ad->atype == rxdis_type)
|
|
need_sec = TRUE;
|
|
}
|
|
|
|
xmlIndent(--indent, fp);
|
|
fprintf(fp, "</Function>\n");
|
|
|
|
return need_sec;
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the XML for a C++ signature.
|
|
*/
|
|
static void xmlCppSignature(FILE *fp, overDef *od)
|
|
{
|
|
prcode(fp, "%M");
|
|
prOverloadDecl(fp, NULL, od, TRUE);
|
|
prcode(fp, "%M");
|
|
}
|
|
|
|
|
|
/*
|
|
* Convert an arguments direction to an XML attribute value.
|
|
*/
|
|
static const char *dirAttribute(argDef *ad)
|
|
{
|
|
if (isInArg(ad))
|
|
{
|
|
if (isOutArg(ad))
|
|
return "inout";
|
|
|
|
return NULL;
|
|
}
|
|
|
|
return "out";
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the XML for an argument.
|
|
*/
|
|
static void xmlArgument(sipSpec *pt, argDef *ad, const char *dir, int res_xfer,
|
|
int sec, int indent, FILE *fp)
|
|
{
|
|
if (isArraySize(ad))
|
|
return;
|
|
|
|
if (sec && (ad->atype == slotcon_type || ad->atype == slotdis_type))
|
|
return;
|
|
|
|
xmlIndent(indent, fp);
|
|
fprintf(fp, "<Argument");
|
|
xmlType(pt, ad, sec, fp);
|
|
|
|
if (dir != NULL)
|
|
fprintf(fp, " dir=\"%s\"", dir);
|
|
|
|
if (isAllowNone(ad))
|
|
fprintf(fp, " allownone=\"1\"");
|
|
|
|
if (isTransferred(ad))
|
|
fprintf(fp, " transfer=\"to\"");
|
|
else if (isThisTransferred(ad))
|
|
fprintf(fp, " transfer=\"this\"");
|
|
else if (res_xfer || isTransferredBack(ad))
|
|
fprintf(fp, " transfer=\"back\"");
|
|
|
|
/*
|
|
* Handle the default value, but ignore it if it is an output only
|
|
* argument.
|
|
*/
|
|
if (ad->defval && (dir == NULL || strcmp(dir, "out") != 0))
|
|
{
|
|
prcode(fp, " default=\"%M");
|
|
exportDefaultValue(ad, FALSE, fp);
|
|
prcode(fp, "%M\"");
|
|
}
|
|
|
|
fprintf(fp, "/>\n");
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the XML for a type.
|
|
*/
|
|
static void xmlType(sipSpec *pt, argDef *ad, int sec, FILE *fp)
|
|
{
|
|
const char *type_type = NULL, *type_name;
|
|
classDef *type_scope;
|
|
|
|
fprintf(fp, " typename=\"");
|
|
|
|
switch (ad->atype)
|
|
{
|
|
case class_type:
|
|
type_type = (isOpaque(ad->u.cd) ? "opaque" : "class");
|
|
break;
|
|
|
|
case enum_type:
|
|
if (ad->u.ed->pyname != NULL)
|
|
type_type = "enum";
|
|
break;
|
|
|
|
case rxcon_type:
|
|
case rxdis_type:
|
|
if (!sec)
|
|
type_type = "class";
|
|
break;
|
|
|
|
case tqobject_type:
|
|
type_type = "class";
|
|
break;
|
|
|
|
case slotcon_type:
|
|
case slotdis_type:
|
|
{
|
|
int a;
|
|
|
|
prcode(fp, "TQT_SLOT(");
|
|
|
|
for (a = 0; a < ad->u.sa->nrArgs; ++a)
|
|
{
|
|
if (a > 0)
|
|
prcode(fp, ", ");
|
|
|
|
prcode(fp, "%M%B%M", &ad->u.sa->args[a]);
|
|
}
|
|
|
|
prcode(fp, ")");
|
|
}
|
|
|
|
break;
|
|
|
|
case mapped_type:
|
|
type_type = "mappedtype";
|
|
break;
|
|
}
|
|
|
|
if ((type_name = pyType(pt, ad, sec, &type_scope)) != NULL)
|
|
prScopedPythonName(fp, type_scope, type_name);
|
|
|
|
fprintf(fp, "\"");
|
|
|
|
if (type_type != NULL)
|
|
fprintf(fp, " typetype=\"%s\"", type_type);
|
|
|
|
if (ad->name != NULL)
|
|
fprintf(fp, " name=\"%s\"", ad->name->text);
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate the indentation for a line.
|
|
*/
|
|
static void xmlIndent(int indent, FILE *fp)
|
|
{
|
|
while (indent-- > 0)
|
|
fprintf(fp, " ");
|
|
}
|
|
|
|
|
|
/*
|
|
* Export the default value of an argument.
|
|
*/
|
|
static void exportDefaultValue(argDef *ad, int in_str, FILE *fp)
|
|
{
|
|
/* Use any explicitly provided documentation. */
|
|
if (ad->docval != NULL)
|
|
{
|
|
prcode(fp, "%s", ad->docval);
|
|
return;
|
|
}
|
|
|
|
/* Translate some special cases. */
|
|
if (ad->defval->next == NULL && ad->defval->vtype == numeric_value)
|
|
{
|
|
if (ad->nrderefs > 0 && ad->defval->u.vnum == 0)
|
|
{
|
|
prcode(fp, "None");
|
|
return;
|
|
}
|
|
|
|
if (ad->atype == bool_type || ad->atype == cbool_type)
|
|
{
|
|
prcode(fp, ad->defval->u.vnum ? "True" : "False");
|
|
return;
|
|
}
|
|
}
|
|
|
|
generateExpression(ad->defval, in_str, fp);
|
|
}
|
|
|
|
|
|
/*
|
|
* Get the Python representation of a type.
|
|
*/
|
|
static const char *pyType(sipSpec *pt, argDef *ad, int sec, classDef **scope)
|
|
{
|
|
const char *type_name;
|
|
|
|
*scope = NULL;
|
|
|
|
/* Use any explicit documented type. */
|
|
if (ad->doctype != NULL)
|
|
return ad->doctype;
|
|
|
|
/* For classes and mapped types we need the default implementation. */
|
|
if (ad->atype == class_type || ad->atype == mapped_type)
|
|
{
|
|
classDef *def_cd = NULL;
|
|
mappedTypeDef *def_mtd = NULL;
|
|
ifaceFileDef *iff;
|
|
|
|
if (ad->atype == class_type)
|
|
{
|
|
iff = ad->u.cd->iff;
|
|
|
|
if (iff->api_range == NULL)
|
|
{
|
|
/* There is only one implementation. */
|
|
def_cd = ad->u.cd;
|
|
iff = NULL;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
iff = ad->u.mtd->iff;
|
|
|
|
if (iff->api_range == NULL)
|
|
{
|
|
/* There is only one implementation. */
|
|
def_mtd = ad->u.mtd;
|
|
iff = NULL;
|
|
}
|
|
}
|
|
|
|
if (iff != NULL)
|
|
{
|
|
int def_api;
|
|
|
|
/* Find the default implementation. */
|
|
def_api = findAPI(pt, iff->api_range->api_name->text)->from;
|
|
|
|
for (iff = iff->first_alt; iff != NULL; iff = iff->next_alt)
|
|
{
|
|
apiVersionRangeDef *avd = iff->api_range;
|
|
|
|
if (avd->from > 0 && avd->from > def_api)
|
|
continue;
|
|
|
|
if (avd->to > 0 && avd->to <= def_api)
|
|
continue;
|
|
|
|
/* It's within range. */
|
|
break;
|
|
}
|
|
|
|
/* Find the corresponding class or mapped type. */
|
|
for (def_cd = pt->classes; def_cd != NULL; def_cd = def_cd->next)
|
|
if (def_cd->iff == iff)
|
|
break;
|
|
|
|
if (def_cd == NULL)
|
|
for (def_mtd = pt->mappedtypes; def_mtd != NULL; def_mtd = def_mtd->next)
|
|
if (def_mtd->iff == iff)
|
|
break;
|
|
}
|
|
|
|
/* Now handle the correct implementation. */
|
|
if (def_cd != NULL)
|
|
{
|
|
*scope = def_cd->ecd;
|
|
type_name = def_cd->pyname->text;
|
|
}
|
|
else
|
|
{
|
|
/*
|
|
* Give a hint that /DocType/ should be used, or there is no
|
|
* default implementation.
|
|
*/
|
|
type_name = "unknown-type";
|
|
|
|
if (def_mtd != NULL)
|
|
{
|
|
if (def_mtd->doctype != NULL)
|
|
type_name = def_mtd->doctype;
|
|
else if (def_mtd->pyname != NULL)
|
|
type_name = def_mtd->pyname->text;
|
|
}
|
|
}
|
|
|
|
return type_name;
|
|
}
|
|
|
|
switch (ad->atype)
|
|
{
|
|
case struct_type:
|
|
case void_type:
|
|
type_name = "sip.voidptr";
|
|
break;
|
|
|
|
case enum_type:
|
|
if (ad->u.ed->pyname != NULL)
|
|
{
|
|
type_name = ad->u.ed->pyname->text;
|
|
*scope = ad->u.ed->ecd;
|
|
}
|
|
else
|
|
type_name = "int";
|
|
break;
|
|
|
|
case signal_type:
|
|
type_name = "TQT_SIGNAL()";
|
|
break;
|
|
|
|
case slot_type:
|
|
type_name = "TQT_SLOT()";
|
|
break;
|
|
|
|
case rxcon_type:
|
|
case rxdis_type:
|
|
if (sec)
|
|
type_name = "callable";
|
|
else
|
|
type_name = "TQObject";
|
|
|
|
break;
|
|
|
|
case tqobject_type:
|
|
type_name = "TQObject";
|
|
break;
|
|
|
|
case ustring_type:
|
|
case string_type:
|
|
case sstring_type:
|
|
case wstring_type:
|
|
case ascii_string_type:
|
|
case latin1_string_type:
|
|
case utf8_string_type:
|
|
type_name = "str";
|
|
break;
|
|
|
|
case ushort_type:
|
|
case uint_type:
|
|
case long_type:
|
|
case longlong_type:
|
|
case ulong_type:
|
|
case ulonglong_type:
|
|
case short_type:
|
|
case int_type:
|
|
case cint_type:
|
|
type_name = "int";
|
|
break;
|
|
|
|
case float_type:
|
|
case cfloat_type:
|
|
case double_type:
|
|
case cdouble_type:
|
|
type_name = "float";
|
|
break;
|
|
|
|
case bool_type:
|
|
case cbool_type:
|
|
type_name = "bool";
|
|
break;
|
|
|
|
case pyobject_type:
|
|
type_name = "object";
|
|
break;
|
|
|
|
case pytuple_type:
|
|
type_name = "tuple";
|
|
break;
|
|
|
|
case pylist_type:
|
|
type_name = "list";
|
|
break;
|
|
|
|
case pydict_type:
|
|
type_name = "dict";
|
|
break;
|
|
|
|
case pycallable_type:
|
|
type_name = "callable";
|
|
break;
|
|
|
|
case pyslice_type:
|
|
type_name = "slice";
|
|
break;
|
|
|
|
case pytype_type:
|
|
type_name = "type";
|
|
break;
|
|
|
|
case ellipsis_type:
|
|
type_name = "...";
|
|
break;
|
|
|
|
case slotcon_type:
|
|
case anyslot_type:
|
|
type_name = "TQT_SLOT()";
|
|
break;
|
|
|
|
default:
|
|
type_name = NULL;
|
|
}
|
|
|
|
return type_name;
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate a scoped Python name.
|
|
*/
|
|
void prScopedPythonName(FILE *fp, classDef *scope, const char *pyname)
|
|
{
|
|
if (scope != NULL)
|
|
{
|
|
prScopedPythonName(fp, scope->ecd, NULL);
|
|
fprintf(fp, "%s.", scope->pyname->text);
|
|
}
|
|
|
|
if (pyname != NULL)
|
|
fprintf(fp, "%s", pyname);
|
|
}
|
|
|
|
|
|
/*
|
|
* Generate a Python signature.
|
|
*/
|
|
int prPythonSignature(sipSpec *pt, FILE *fp, signatureDef *sd, int sec,
|
|
int names, int defaults, int in_str, int is_signal)
|
|
{
|
|
int need_sec = FALSE, need_comma = FALSE, is_res, nr_out, a;
|
|
|
|
fprintf(fp, "%c", (is_signal ? '[' : '('));
|
|
|
|
nr_out = 0;
|
|
|
|
for (a = 0; a < sd->nrArgs; ++a)
|
|
{
|
|
argDef *ad = &sd->args[a];
|
|
|
|
if (isOutArg(ad))
|
|
++nr_out;
|
|
|
|
if (!isInArg(ad))
|
|
continue;
|
|
|
|
need_comma = apiArgument(pt, ad, FALSE, need_comma, sec, names,
|
|
defaults, in_str, fp);
|
|
|
|
if (ad->atype == rxcon_type || ad->atype == rxdis_type)
|
|
need_sec = TRUE;
|
|
}
|
|
|
|
fprintf(fp, "%c", (is_signal ? ']' : ')'));
|
|
|
|
is_res = !((sd->result.atype == void_type && sd->result.nrderefs == 0) ||
|
|
(sd->result.doctype != NULL && sd->result.doctype[0] == '\0'));
|
|
|
|
if (is_res || nr_out > 0)
|
|
{
|
|
fprintf(fp, " -> ");
|
|
|
|
if ((is_res && nr_out > 0) || nr_out > 1)
|
|
fprintf(fp, "(");
|
|
|
|
if (is_res)
|
|
need_comma = apiArgument(pt, &sd->result, TRUE, FALSE, sec, FALSE,
|
|
FALSE, in_str, fp);
|
|
else
|
|
need_comma = FALSE;
|
|
|
|
for (a = 0; a < sd->nrArgs; ++a)
|
|
{
|
|
argDef *ad = &sd->args[a];
|
|
|
|
if (isOutArg(ad))
|
|
/* We don't want the name in the result tuple. */
|
|
need_comma = apiArgument(pt, ad, TRUE, need_comma, sec, FALSE,
|
|
FALSE, in_str, fp);
|
|
}
|
|
|
|
if ((is_res && nr_out > 0) || nr_out > 1)
|
|
fprintf(fp, ")");
|
|
}
|
|
|
|
return need_sec;
|
|
}
|