summaryrefslogtreecommitdiffstats
path: root/python/sip/sipgen
diff options
context:
space:
mode:
Diffstat (limited to 'python/sip/sipgen')
-rw-r--r--python/sip/sipgen/export.c998
-rw-r--r--python/sip/sipgen/gencode.c10820
-rw-r--r--python/sip/sipgen/heap.c115
-rw-r--r--python/sip/sipgen/lexer.c3266
-rw-r--r--python/sip/sipgen/lexer.l567
-rw-r--r--python/sip/sipgen/main.c484
-rw-r--r--python/sip/sipgen/parser.c7526
-rw-r--r--python/sip/sipgen/parser.h268
-rw-r--r--python/sip/sipgen/parser.y4945
-rw-r--r--python/sip/sipgen/sip.h1027
-rw-r--r--python/sip/sipgen/sipgen.sbf16
-rw-r--r--python/sip/sipgen/transform.c2856
12 files changed, 0 insertions, 32888 deletions
diff --git a/python/sip/sipgen/export.c b/python/sip/sipgen/export.c
deleted file mode 100644
index 5200b2cf..00000000
--- a/python/sip/sipgen/export.c
+++ /dev/null
@@ -1,998 +0,0 @@
-/*
- * The XML and API file generator module for SIP.
- *
- * Copyright (c) 2007
- * Riverbank Computing Limited <info@riverbankcomputing.co.uk>
- *
- * This file is part of SIP.
- *
- * This copy of SIP is licensed for use under the terms of the SIP License
- * Agreement. See the file LICENSE for more details.
- *
- * SIP is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- */
-
-
-#include <stdio.h>
-
-#include "sip.h"
-
-
-#define XML_VERSION_NR 0 /* The schema version number. */
-
-
-static void apiEnums(sipSpec *pt, classDef *scope, FILE *fp);
-static void apiVars(sipSpec *pt, classDef *scope, FILE *fp);
-static int apiCtor(sipSpec *pt, classDef *scope, ctorDef *ct, int sec,
- FILE *fp);
-static int apiOverload(sipSpec *pt, classDef *scope, overDef *od, int sec,
- FILE *fp);
-static int apiArgument(argDef *ad, int out, int need_comma, int sec, FILE *fp);
-static void xmlClass(sipSpec *pt, classDef *cd, FILE *fp);
-static void xmlEnums(sipSpec *pt, classDef *scope, int indent, FILE *fp);
-static void xmlVars(sipSpec *pt, classDef *scope, int indent, FILE *fp);
-static void xmlFunction(classDef *scope, memberDef *md, overDef *oloads,
- int indent, FILE *fp);
-static int xmlCtor(classDef *scope, ctorDef *ct, int sec, int indent, FILE *fp);
-static int xmlOverload(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(argDef *ad, const char *dir, int res_xfer, int sec,
- int indent, FILE *fp);
-static void xmlType(argDef *ad, int sec, FILE *fp);
-static void xmlIndent(int indent, FILE *fp);
-static const char *dirAttribute(argDef *ad);
-static void exportDefaultValue(argDef *ad, FILE *fp);
-static const char *pyType(argDef *ad, int sec, classDef **scope);
-
-
-/*
- * Generate the API file.
- */
-void generateAPI(sipSpec *pt, 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, NULL, fp);
- apiVars(pt, NULL, fp);
-
- for (od = pt->overs; od != NULL; od = od->next)
- {
- if (od->common->module != pt->module)
- continue;
-
- if (od->common->slot != no_slot)
- continue;
-
- if (apiOverload(pt, NULL, od, FALSE, fp))
- apiOverload(pt, NULL, od, TRUE, fp);
- }
-
- for (cd = pt->classes; cd != NULL; cd = cd->next)
- {
- ctorDef *ct;
-
- if (cd->iff->module != pt->module)
- continue;
-
- if (isExternal(cd))
- continue;
-
- apiEnums(pt, cd, fp);
- apiVars(pt, cd, fp);
-
- for (ct = cd->ctors; ct != NULL; ct = ct->next)
- {
- if (isPrivateCtor(ct))
- continue;
-
- if (apiCtor(pt, cd, ct, FALSE, fp))
- apiCtor(pt, 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, cd, od, FALSE, fp))
- apiOverload(pt, cd, od, TRUE, fp);
- }
- }
-
- fclose(fp);
-}
-
-
-/*
- * Generate an API ctor.
- */
-static int apiCtor(sipSpec *pt, classDef *scope, ctorDef *ct, int sec,
- FILE *fp)
-{
- int need_sec = FALSE, need_comma, a;
-
- /* Do the callable type form. */
- fprintf(fp, "%s.", pt->module->name);
- prScopedPythonName(fp, scope->ecd, scope->pyname);
- fprintf(fp, "(");
-
- need_comma = FALSE;
-
- for (a = 0; a < ct->pysig.nrArgs; ++a)
- {
- argDef *ad = &ct->pysig.args[a];
-
- need_comma = apiArgument(ad, FALSE, need_comma, sec, fp);
-
- if (ad->atype == rxcon_type || ad->atype == rxdis_type)
- need_sec = TRUE;
- }
-
- fprintf(fp, ")\n");
-
- /* Do the call __init__ form. */
- fprintf(fp, "%s.", pt->module->name);
- prScopedPythonName(fp, scope->ecd, scope->pyname);
- fprintf(fp, ".__init__(self");
-
- for (a = 0; a < ct->pysig.nrArgs; ++a)
- apiArgument(&ct->pysig.args[a], FALSE, TRUE, sec, fp);
-
- fprintf(fp, ")\n");
-
- return need_sec;
-}
-
-
-/*
- * Generate the APIs for all the enums in a scope.
- */
-static void apiEnums(sipSpec *pt, classDef *scope, FILE *fp)
-{
- enumDef *ed;
-
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- enumMemberDef *emd;
-
- if (ed->module != pt->module)
- continue;
-
- if (ed->ecd != scope)
- continue;
-
- if (ed->pyname != NULL)
- {
- fprintf(fp, "%s.", pt->module->name);
- prScopedPythonName(fp, ed->ecd, ed->pyname->text);
- fprintf(fp, "\n");
- }
-
- for (emd = ed->members; emd != NULL; emd = emd->next)
- {
- fprintf(fp, "%s.", pt->module->name);
- prScopedPythonName(fp, ed->ecd, emd->pyname->text);
- fprintf(fp, "\n");
- }
- }
-}
-
-
-/*
- * Generate the APIs for all the variables in a scope.
- */
-static void apiVars(sipSpec *pt, classDef *scope, FILE *fp)
-{
- varDef *vd;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- if (vd->module != pt->module)
- continue;
-
- if (vd->ecd != scope)
- continue;
-
- fprintf(fp, "%s.", pt->module->name);
- prScopedPythonName(fp, vd->ecd, vd->pyname->text);
- fprintf(fp, "\n");
- }
-}
-
-
-/*
- * Generate a single API overload.
- */
-static int apiOverload(sipSpec *pt, classDef *scope, overDef *od, int sec,
- FILE *fp)
-{
- int need_sec = FALSE, need_comma = FALSE, is_res, nr_out, a;
-
- fprintf(fp, "%s.", pt->module->name);
- prScopedPythonName(fp, scope, od->common->pyname->text);
- fprintf(fp, "(");
-
- if (scope != NULL && scope->iff->type != namespace_iface && !isStatic(od))
- {
- fprintf(fp, "self");
- need_comma = TRUE;
- }
-
- nr_out = 0;
-
- for (a = 0; a < od->pysig.nrArgs; ++a)
- {
- argDef *ad = &od->pysig.args[a];
-
- if (isOutArg(ad))
- ++nr_out;
-
- if (!isInArg(ad))
- continue;
-
- need_comma = apiArgument(ad, FALSE, need_comma, sec, fp);
-
- if (ad->atype == rxcon_type || ad->atype == rxdis_type)
- need_sec = TRUE;
- }
-
- fprintf(fp, ")");
-
- is_res = (od->pysig.result.atype != void_type || od->pysig.result.nrderefs != 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(&od->pysig.result, TRUE, FALSE, sec, fp);
- else
- need_comma = FALSE;
-
- for (a = 0; a < od->pysig.nrArgs; ++a)
- {
- argDef *ad = &od->pysig.args[a];
-
- if (!isOutArg(ad))
- continue;
-
- need_comma = apiArgument(ad, TRUE, need_comma, sec, fp);
- }
-
- if ((is_res && nr_out > 0) || nr_out > 1)
- fprintf(fp, ")");
- }
-
- fprintf(fp, "\n");
-
- return need_sec;
-}
-
-
-/*
- * Generate the API for an argument.
- */
-static int apiArgument(argDef *ad, int out, int need_comma, int sec, 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(ad, sec, &tscope)) == NULL)
- return need_comma;
-
- if (need_comma)
- fprintf(fp, ", ");
-
- prScopedPythonName(fp, tscope, tname);
-
- if (ad->name != NULL)
- fprintf(fp, " %s", ad->name);
-
- /*
- * Handle the default value, but ignore it if it is an output only
- * argument.
- */
- if (ad->defval && !out)
- {
- fprintf(fp, "=");
- prcode(fp, "%M");
- exportDefaultValue(ad, fp);
- prcode(fp, "%M");
- }
-
- return TRUE;
-}
-
-
-/*
- * Generate the XML export file.
- */
-void generateXML(sipSpec *pt, 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, pt->module->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 != pt->module)
- continue;
-
- if (isExternal(cd))
- continue;
-
- xmlClass(pt, cd, fp);
- }
-
- for (cd = pt->proxies; cd != NULL; cd = cd->next)
- xmlClass(pt, cd, fp);
-
- xmlEnums(pt, NULL, 1, fp);
- xmlVars(pt, NULL, 1, fp);
-
- for (md = pt->othfuncs; md != NULL; md = md->next)
- {
- if (md->module != pt->module)
- continue;
-
- xmlFunction(NULL, md, pt->overs, 1, fp);
- }
-
- fprintf(fp, "</Module>\n");
-
- fclose(fp);
-}
-
-
-/*
- * Generate the XML for a class.
- */
-static void xmlClass(sipSpec *pt, classDef *cd, FILE *fp)
-{
- int indent = 1;
- ctorDef *ct;
- memberDef *md;
-
- if (isOpaque(cd))
- {
- xmlIndent(indent, fp);
- fprintf(fp, "<OpaqueClass name=\"", cd->pyname);
- prScopedPythonName(fp, cd->ecd, cd->pyname);
- fprintf(fp, "\"/>\n");
-
- return;
- }
-
- xmlIndent(indent++, fp);
- fprintf(fp, "<Class name=\"", cd->pyname);
- prScopedPythonName(fp, cd->ecd, cd->pyname);
- fprintf(fp, "\"");
-
- 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);
- }
-
- fprintf(fp, "\"");
- }
-
- fprintf(fp, ">\n");
-
- xmlEnums(pt, cd, indent, fp);
- xmlVars(pt, cd, indent, fp);
-
- for (ct = cd->ctors; ct != NULL; ct = ct->next)
- {
- if (isPrivateCtor(ct))
- continue;
-
- if (xmlCtor(cd, ct, FALSE, indent, fp))
- xmlCtor(cd, ct, TRUE, indent, fp);
- }
-
- for (md = cd->members; md != NULL; md = md->next)
- xmlFunction(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, classDef *scope, int indent, FILE *fp)
-{
- enumDef *ed;
-
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- if (ed->module != pt->module)
- 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, classDef *scope, int indent, FILE *fp)
-{
- varDef *vd;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- if (vd->module != pt->module)
- 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(&vd->type, FALSE, fp);
- fprintf(fp, "/>\n");
- }
-}
-
-
-/*
- * Generate the XML for a ctor.
- */
-static int xmlCtor(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(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(classDef *scope, memberDef *md, overDef *oloads,
- int indent, FILE *fp)
-{
- overDef *od;
-
- 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 name=\"");
- prScopedPythonName(fp, scope, md->pyname->text);
- fprintf(fp, "\" sig=\"");
- xmlCppSignature(fp, od);
- fprintf(fp, "\"/>\n", md->pyname->text);
-
- 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(scope, md, od, xtnds, isstat, FALSE, indent, fp))
- xmlOverload(scope, md, od, xtnds, isstat, TRUE, indent, fp);
- }
-}
-
-
-/*
- * Generate the XML for an overload.
- */
-static int xmlOverload(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);
- 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(&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(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, 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(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(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, fp);
- prcode(fp, "%M\"");
- }
-
- fprintf(fp, "/>\n");
-}
-
-
-/*
- * Generate the XML for a type.
- */
-static void xmlType(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 qobject_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:
- prcode(fp, "%M%B%M", &ad->u.mtd->type);
- type_type = "mappedtype";
- break;
- }
-
- if ((type_name = pyType(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);
-}
-
-
-/*
- * 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, FILE *fp)
-{
- /* 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, fp);
-}
-
-
-/*
- * Get the Python representation of a type.
- */
-static const char *pyType(argDef *ad, int sec, classDef **scope)
-{
- const char *type_name;
-
- *scope = NULL;
-
- switch (ad->atype)
- {
- case class_type:
- type_name = ad->u.cd->pyname;
- *scope = ad->u.cd->ecd;
- break;
-
- 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 qobject_type:
- type_name = "TQObject";
- break;
-
- case ustring_type:
- case string_type:
- case sstring_type:
- case wstring_type:
- if (ad->nrderefs > 0)
- type_name = "str";
- else
- type_name = "char";
-
- break;
-
- case short_type:
- case int_type:
- case cint_type:
- type_name = "int";
- break;
-
- case ushort_type:
- case uint_type:
- case ulong_type:
- case ulonglong_type:
- type_name = "unsigned long";
- break;
-
- case long_type:
- case longlong_type:
- type_name = "long";
- 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 anyslot_type:
- /* Need to check if this is enough. */
- type_name = "TQT_SLOT()";
- break;
-
- default:
- type_name = NULL;
- }
-
- return type_name;
-}
diff --git a/python/sip/sipgen/gencode.c b/python/sip/sipgen/gencode.c
deleted file mode 100644
index ff1b93b9..00000000
--- a/python/sip/sipgen/gencode.c
+++ /dev/null
@@ -1,10820 +0,0 @@
-/*
- * The code generator module for SIP.
- *
- * Copyright (c) 2007
- * Riverbank Computing Limited <info@riverbankcomputing.co.uk>
- *
- * This file is part of SIP.
- *
- * This copy of SIP is licensed for use under the terms of the SIP License
- * Agreement. See the file LICENSE for more details.
- *
- * SIP is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- */
-
-
-#include <stdio.h>
-#include <time.h>
-#include <errno.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
-
-#include "sip.h"
-
-
-/*
- * These must match the values of SIP_TYPE_FLAGS_SHIFT and SIP_TYPE_FLAGS_MASK
- * in siplib/sip.h.
- */
-#define TYPE_FLAGS_SHIFT 8
-#define TYPE_FLAGS_MASK 0x0f00
-
-
-/* Control what generateSingleArg() actually generates. */
-typedef enum {
- Call,
- Declaration,
- Definition
-} funcArgType;
-
-
-/* An entry in the sorted array of methods. */
-typedef struct {
- memberDef *md; /* The method. */
- int is_static; /* Set if all overloads are static. */
-} sortedMethTab;
-
-
-static int currentLineNr; /* Current output line number. */
-static char *currentFileName; /* Current output file name. */
-static int previousLineNr; /* Previous output line number. */
-static char *previousFileName; /* Previous output file name. */
-static int exceptions; /* Set if exceptions are enabled. */
-static int tracing; /* Set if tracing is enabled. */
-static int generating_c; /* Set if generating C. */
-static int release_gil; /* Set if always releasing the GIL. */
-static const char *prcode_last = NULL; /* The last prcode format string. */
-static int prcode_xml = FALSE; /* Set if prcode is XML aware. */
-
-
-static void generateDocumentation(sipSpec *, char *);
-static void generateBuildFile(sipSpec *, char *, char *, int);
-static void generateInternalAPIHeader(sipSpec *, char *, stringList *);
-static void generateCpp(sipSpec *, char *, char *, int *);
-static void generateIfaceCpp(sipSpec *, ifaceFileDef *, char *, char *,
- FILE *);
-static void generateMappedTypeCpp(mappedTypeDef *, FILE *);
-static void generateImportedMappedTypeHeader(mappedTypeDef *mtd, sipSpec *pt,
- FILE *fp);
-static void generateMappedTypeHeader(mappedTypeDef *, int, FILE *);
-static void generateClassCpp(classDef *cd, sipSpec *pt, FILE *fp);
-static void generateImportedClassHeader(classDef *cd, sipSpec *pt, FILE *fp);
-static void generateClassTableEntries(sipSpec *pt, nodeDef *nd, FILE *fp);
-static void generateClassHeader(classDef *, int, sipSpec *, FILE *);
-static void generateClassFunctions(sipSpec *, classDef *, FILE *);
-static void generateShadowCode(sipSpec *, classDef *, FILE *);
-static void generateFunction(sipSpec *, memberDef *, overDef *, classDef *,
- classDef *, FILE *);
-static void generateFunctionBody(sipSpec *, overDef *, classDef *, classDef *,
- int deref, FILE *);
-static void generateTypeDefinition(sipSpec *pt, classDef *cd, FILE *fp);
-static void generateTypeInit(sipSpec *, classDef *, FILE *);
-static void generateCppCodeBlock(codeBlock *, FILE *);
-static void generateUsedIncludes(ifaceFileList *, int, FILE *);
-static void generateIfaceHeader(sipSpec *, ifaceFileDef *, char *);
-static void generateShadowClassDeclaration(sipSpec *, classDef *, FILE *);
-static int hasConvertToCode(argDef *ad);
-static void deleteTemps(signatureDef *sd, FILE *fp);
-static void gc_ellipsis(signatureDef *sd, FILE *fp);
-static void generateArgs(signatureDef *, funcArgType, FILE *);
-static void generateVariable(argDef *, int, FILE *);
-static void generateNamedValueType(argDef *, char *, FILE *);
-static void generateSingleArg(argDef *, int, funcArgType, FILE *);
-static void generateBaseType(argDef *, FILE *);
-static void generateNamedBaseType(argDef *, char *, FILE *);
-static void generateTupleBuilder(signatureDef *, FILE *);
-static void generateEmitters(sipSpec *pt, classDef *cd, FILE *fp);
-static void generateEmitter(sipSpec *, classDef *, visibleList *, FILE *);
-static void generateVirtualHandler(sipSpec *, virtHandlerDef *, FILE *);
-static void generateVirtHandlerErrorReturn(argDef *res, FILE *fp);
-static void generateVirtualCatcher(sipSpec *, classDef *, int, virtOverDef *,
- FILE *);
-static void generateUnambiguousClass(classDef *cd, classDef *scope, FILE *fp);
-static void generateProtectedEnums(sipSpec *, classDef *, FILE *);
-static void generateProtectedDeclarations(classDef *, FILE *);
-static void generateProtectedDefinitions(classDef *, FILE *);
-static void generateProtectedCallArgs(overDef *od, FILE *fp);
-static void generateConstructorCall(classDef *, ctorDef *, int, FILE *);
-static void generateHandleResult(overDef *, int, char *, FILE *);
-static void generateOrdinaryFunction(sipSpec *, classDef *, memberDef *,
- FILE *);
-static void generateSimpleFunctionCall(fcallDef *, FILE *);
-static void generateFunctionCall(classDef *cd, classDef *ocd, overDef *od,
- int deref, FILE *fp);
-static void generateCppFunctionCall(classDef *cd, classDef *ocd, overDef *od,
- FILE *fp);
-static void generateSlotArg(signatureDef *sd, int argnr, FILE *fp);
-static void generateBinarySlotCall(overDef *od, char *op, int deref, FILE *fp);
-static void generateNumberSlotCall(overDef *od, char *op, FILE *fp);
-static void generateVariableHandler(varDef *, FILE *);
-static int generateObjToCppConversion(argDef *, FILE *);
-static void generateVarClassConversion(varDef *, FILE *);
-static void generateVarMember(varDef *vd, FILE *fp);
-static int generateVoidPointers(sipSpec *, classDef *, FILE *);
-static int generateChars(sipSpec *, classDef *, FILE *);
-static int generateStrings(sipSpec *, classDef *, FILE *);
-static sortedMethTab *createFunctionTable(classDef *, int *);
-static sortedMethTab *createMethodTable(classDef *, int *);
-static int generateMethodTable(classDef *, FILE *);
-static void generateEnumMacros(sipSpec *pt, classDef *cd, FILE *fp);
-static int generateEnumMemberTable(sipSpec *, classDef *, FILE *);
-static int generateInts(sipSpec *, classDef *, FILE *);
-static int generateLongs(sipSpec *, classDef *, FILE *);
-static int generateUnsignedLongs(sipSpec *, classDef *, FILE *);
-static int generateLongLongs(sipSpec *, classDef *, FILE *);
-static int generateUnsignedLongLongs(sipSpec *, classDef *, FILE *);
-static int generateVariableType(sipSpec *pt, classDef *cd, argType atype,
- const char *eng, const char *s1, const char *s2, FILE *fp);
-static int generateDoubles(sipSpec *, classDef *, FILE *);
-static int generateEnums(sipSpec *, classDef *, FILE *);
-static int generateClasses(sipSpec *, classDef *, FILE *);
-static void generateEnumsInline(sipSpec *, FILE *);
-static void generateClassesInline(sipSpec *, FILE *);
-static void generateAccessFunctions(sipSpec *, classDef *, FILE *);
-static void generateConvertToDefinitions(mappedTypeDef *, classDef *, FILE *);
-static void generateEncodedClass(sipSpec *, classDef *, int, FILE *);
-static int generateArgParser(sipSpec *, signatureDef *, classDef *, ctorDef *,
- overDef *, int, FILE *);
-static void generateTry(throwArgs *, FILE *);
-static void generateCatch(throwArgs *ta, signatureDef *sd, FILE *fp);
-static void generateThrowSpecifier(throwArgs *, FILE *);
-static void generateSlot(sipSpec *pt, classDef *cd, enumDef *ed, memberDef *md,
- FILE *fp);
-static void generateCastZero(argDef *ad, FILE *fp);
-static void generateCallDefaultCtor(ctorDef *ct, FILE *fp);
-static int countVirtuals(classDef *);
-static int skipOverload(overDef *, memberDef *, classDef *, classDef *, int);
-static int compareMethTab(const void *, const void *);
-static int compareEnumMembers(const void *, const void *);
-static char *getSubFormatChar(char, argDef *);
-static char *createIfaceFileName(char *, ifaceFileDef *, char *);
-static FILE *createCompilationUnit(sipSpec *pt, char *fname,
- char *description);
-static FILE *createFile(sipSpec *, char *, char *);
-static void closeFile(FILE *);
-static void prScopedName(FILE *fp, scopedNameDef *snd, char *sep);
-static void prTypeName(FILE *, argDef *, int);
-static void prScopedClassName(FILE *, classDef *, char *);
-static int isZeroArgSlot(memberDef *md);
-static int isMultiArgSlot(memberDef *md);
-static int isIntArgSlot(memberDef *md);
-static int isInplaceNumberSlot(memberDef *md);
-static int isInplaceSequenceSlot(memberDef *md);
-static int needErrorFlag(codeBlock *cb);
-static int needNewInstance(argDef *ad);
-static int needDealloc(classDef *cd);
-static char getBuildResultFormat(argDef *ad);
-static const char *getParseResultFormat(argDef *ad, int isres, int xfervh);
-static void generateParseResultExtraArgs(argDef *ad, int isres, FILE *fp);
-static char *makePartName(char *codeDir, char *mname, int part,
- char *srcSuffix);
-static void normaliseArgs(signatureDef *);
-static void restoreArgs(signatureDef *);
-static const char *slotName(slotType st);
-static void ints_intro(classDef *cd, FILE *fp);
-static const char *argName(const char *name, codeBlock *cb);
-static int usedInCode(codeBlock *code, const char *str);
-static void generateDefaultValue(argDef *ad, int argnr, FILE *fp);
-static void generateClassFromVoid(classDef *cd, const char *cname,
- const char *vname, FILE *fp);
-static void generateMappedTypeFromVoid(mappedTypeDef *mtd, const char *cname,
- const char *vname, FILE *fp);
-static int generateSubClassConvertors(sipSpec *pt, FILE *fp);
-static void generateRegisterMetaType(classDef *cd, FILE *fp);
-
-
-/*
- * Generate the code from a specification.
- */
-void generateCode(sipSpec *pt, char *codeDir, char *buildfile, char *docFile,
- char *srcSuffix, int except, int trace, int releaseGIL, int parts,
- stringList *xsl)
-{
- exceptions = except;
- tracing = trace;
- release_gil = releaseGIL;
- generating_c = pt->genc;
-
- if (srcSuffix == NULL)
- srcSuffix = (generating_c ? ".c" : ".cpp");
-
- /* Generate the documentation. */
- if (docFile != NULL)
- generateDocumentation(pt,docFile);
-
- /* Generate the code. */
- if (codeDir != NULL)
- {
- generateCpp(pt,codeDir,srcSuffix,&parts);
- generateInternalAPIHeader(pt,codeDir,xsl);
- }
-
- /* Generate the build file. */
- if (buildfile != NULL)
- generateBuildFile(pt,buildfile,srcSuffix,parts);
-}
-
-
-/*
- * Generate the documentation.
- */
-static void generateDocumentation(sipSpec *pt, char *docFile)
-{
- FILE *fp;
- codeBlock *cb;
-
- fp = createFile(pt, docFile, NULL);
-
- for (cb = pt->docs; cb != NULL; cb = cb->next)
- fputs(cb->frag, fp);
-
- closeFile(fp);
-}
-
-
-/*
- * Generate the build file.
- */
-static void generateBuildFile(sipSpec *pt, char *buildFile, char *srcSuffix,
- int parts)
-{
- char *mname = pt->module->name;
- ifaceFileDef *iff;
- FILE *fp;
-
- fp = createFile(pt, buildFile, NULL);
-
- prcode(fp, "target = %s\nsources = ", mname);
-
- if (parts)
- {
- int p;
-
- for (p = 0; p < parts; ++p)
- {
- if (p > 0)
- prcode(fp, " ");
-
- prcode(fp, "sip%spart%d%s", mname, p, srcSuffix);
- }
- }
- else
- {
- prcode(fp, "sip%scmodule%s", mname, srcSuffix);
-
- for (iff = pt->ifacefiles; iff != NULL; iff = iff->next)
- {
- if (iff->module != pt->module)
- continue;
-
- if (iff->type == exception_iface)
- continue;
-
- prcode(fp, " sip%s%F%s", mname, iff->fqcname, srcSuffix);
- }
- }
-
- prcode(fp, "\nheaders = sipAPI%s.h", mname);
-
- for (iff = pt->ifacefiles; iff != NULL; iff = iff->next)
- {
- char *imname;
-
- imname = (iff->module == pt->module ? mname : iff->module->name);
-
- prcode(fp, " sip%s%F.h", imname, iff->fqcname);
- }
-
- prcode(fp, "\n");
-
- closeFile(fp);
-}
-
-
-/*
- * Generate an expression in C++.
- */
-void generateExpression(valueDef *vd, FILE *fp)
-{
- while (vd != NULL)
- {
- if (vd->vunop != '\0')
- prcode(fp,"%c",vd->vunop);
-
- switch (vd->vtype)
- {
- case qchar_value:
- prcode(fp,"'%c'",vd->u.vqchar);
- break;
-
- case string_value:
- prcode(fp,"\"%s\"",vd->u.vstr);
- break;
-
- case numeric_value:
- prcode(fp,"%l",vd->u.vnum);
- break;
-
- case real_value:
- prcode(fp,"%g",vd->u.vreal);
- break;
-
- case scoped_value:
- if (prcode_xml)
- prScopedName(fp, vd->u.vscp, ".");
- else
- prcode(fp, "%S", vd->u.vscp);
-
- break;
-
- case fcall_value:
- generateSimpleFunctionCall(vd->u.fcd,fp);
- break;
- }
-
- if (vd->vbinop != '\0')
- prcode(fp," %c ",vd->vbinop);
-
- vd = vd->next;
- }
-}
-
-
-/*
- * Generate the C++ internal module API header file.
- */
-static void generateInternalAPIHeader(sipSpec *pt,char *codeDir,stringList *xsl)
-{
- char *hfile, *mname = pt->module->name;
- int noIntro;
- FILE *fp;
- nameDef *nd;
- moduleDef *mod;
- moduleListDef *mld;
-
- hfile = concat(codeDir,"/sipAPI",mname,".h",NULL);
- fp = createFile(pt,hfile,"Internal module API header file.");
-
- /* Include files. */
-
- prcode(fp,
-"\n"
-"#ifndef _%sAPI_H\n"
-"#define _%sAPI_H\n"
-"\n"
-"\n"
-"#include <sip.h>\n"
- ,mname
- ,mname);
-
- if (optRegisterTypes(pt))
- prcode(fp,
-"\n"
-"#include <QMetaType>\n"
- );
-
- /* Define the enabled features. */
- noIntro = TRUE;
-
- for (mod = pt->modules; mod != NULL; mod = mod->next)
- {
- qualDef *qd;
-
- for (qd = mod->qualifiers; qd != NULL; qd = qd->next)
- if (qd->qtype == feature_qualifier && !excludedFeature(xsl,qd))
- {
- if (noIntro)
- {
- prcode(fp,
-"\n"
-"\n"
-"/* These are the features that are enabled. */\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-"#define SIP_FEATURE_%s\n"
- ,qd->name);
- }
- }
-
- generateCppCodeBlock(pt->exphdrcode,fp);
- generateCppCodeBlock(pt->hdrcode,fp);
-
- /* Shortcuts that hide the messy detail of the APIs. */
- noIntro = TRUE;
-
- for (nd = pt->namecache; nd != NULL; nd = nd->next)
- {
- if (!isClassName(nd))
- continue;
-
- if (noIntro)
- {
- prcode(fp,
-"\n"
-"\n"
-"/*\n"
-" * Convenient names to refer to the names of classes defined in this module.\n"
-" * These are part of the public API.\n"
-" */\n"
-"\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-"#define sipName_%s %N\n"
- ,nd->text,nd);
- }
-
- prcode(fp,
-"\n"
-"\n"
-"/* Convenient names to call the SIP API. */\n"
-"#define sipConvertFromSliceObject(o,len,start,stop,step,slen) PySlice_GetIndicesEx((PySliceObject *)(o),(len),(start),(stop),(step),(slen))\n"
-"#define sipIsSubClassInstance(o,wt) PyObject_TypeCheck((o),(PyTypeObject *)(wt))\n"
-"\n"
-"#define sipMapStringToClass sipAPI_%s->api_map_string_to_class\n"
-"#define sipMapIntToClass sipAPI_%s->api_map_int_to_class\n"
-"#define sipMalloc sipAPI_%s->api_malloc\n"
-"#define sipFree sipAPI_%s->api_free\n"
-"#define sipBuildResult sipAPI_%s->api_build_result\n"
-"#define sipCallMethod sipAPI_%s->api_call_method\n"
-"#define sipParseResult sipAPI_%s->api_parse_result\n"
-"#define sipParseArgs sipAPI_%s->api_parse_args\n"
-"#define sipParsePair sipAPI_%s->api_parse_pair\n"
-"#define sipCommonCtor sipAPI_%s->api_common_ctor\n"
-"#define sipCommonDtor sipAPI_%s->api_common_dtor\n"
-"#define sipConvertFromSequenceIndex sipAPI_%s->api_convert_from_sequence_index\n"
-"#define sipConvertFromVoidPtr sipAPI_%s->api_convert_from_void_ptr\n"
-"#define sipConvertToCpp sipAPI_%s->api_convert_to_cpp\n"
-"#define sipConvertToVoidPtr sipAPI_%s->api_convert_to_void_ptr\n"
-"#define sipNoFunction sipAPI_%s->api_no_function\n"
-"#define sipNoMethod sipAPI_%s->api_no_method\n"
-"#define sipAbstractMethod sipAPI_%s->api_abstract_method\n"
-"#define sipBadClass sipAPI_%s->api_bad_class\n"
-"#define sipBadSetType sipAPI_%s->api_bad_set_type\n"
-"#define sipBadCatcherResult sipAPI_%s->api_bad_catcher_result\n"
-"#define sipBadOperatorArg sipAPI_%s->api_bad_operator_arg\n"
-"#define sipTrace sipAPI_%s->api_trace\n"
-"#define sipTransfer sipAPI_%s->api_transfer\n"
-"#define sipTransferBack sipAPI_%s->api_transfer_back\n"
-"#define sipTransferTo sipAPI_%s->api_transfer_to\n"
-"#define sipWrapper_Check sipAPI_%s->api_wrapper_check\n"
-"#define sipGetWrapper sipAPI_%s->api_get_wrapper\n"
-"#define sipGetCppPtr sipAPI_%s->api_get_cpp_ptr\n"
-"#define sipGetComplexCppPtr sipAPI_%s->api_get_complex_cpp_ptr\n"
-"#define sipIsPyMethod sipAPI_%s->api_is_py_method\n"
-"#define sipCallHook sipAPI_%s->api_call_hook\n"
-"#define sipStartThread sipAPI_%s->api_start_thread\n"
-"#define sipEndThread sipAPI_%s->api_end_thread\n"
-"#define sipEmitSignal sipAPI_%s->api_emit_signal\n"
-"#define sipConnectRx sipAPI_%s->api_connect_rx\n"
-"#define sipDisconnectRx sipAPI_%s->api_disconnect_rx\n"
-"#define sipGetSender sipAPI_%s->api_get_sender\n"
-"#define sipRaiseUnknownException sipAPI_%s->api_raise_unknown_exception\n"
-"#define sipRaiseClassException sipAPI_%s->api_raise_class_exception\n"
-"#define sipRaiseSubClassException sipAPI_%s->api_raise_sub_class_exception\n"
-"#define sipBadLengthForSlice sipAPI_%s->api_bad_length_for_slice\n"
-"#define sipClassName sipAPI_%s->api_class_name\n"
-"#define sipAddClassInstance sipAPI_%s->api_add_class_instance\n"
-"#define sipAddMappedTypeInstance sipAPI_%s->api_add_mapped_type_instance\n"
-"#define sipAddEnumInstance sipAPI_%s->api_add_enum_instance\n"
-"#define sipConvertFromNamedEnum sipAPI_%s->api_convert_from_named_enum\n"
-"#define sipGetAddress sipAPI_%s->api_get_address\n"
-"#define sipFreeConnection sipAPI_%s->api_free_connection\n"
-"#define sipEmitToSlot sipAPI_%s->api_emit_to_slot\n"
-"#define sipSameConnection sipAPI_%s->api_same_connection\n"
-"#define sipPySlotExtend sipAPI_%s->api_pyslot_extend\n"
-"#define sipConvertRx sipAPI_%s->api_convert_rx\n"
-"#define sipAddDelayedDtor sipAPI_%s->api_add_delayed_dtor\n"
-"#define sipCanConvertToInstance sipAPI_%s->api_can_convert_to_instance\n"
-"#define sipCanConvertToMappedType sipAPI_%s->api_can_convert_to_mapped_type\n"
-"#define sipConvertToInstance sipAPI_%s->api_convert_to_instance\n"
-"#define sipConvertToMappedType sipAPI_%s->api_convert_to_mapped_type\n"
-"#define sipForceConvertToInstance sipAPI_%s->api_force_convert_to_instance\n"
-"#define sipForceConvertToMappedType sipAPI_%s->api_force_convert_to_mapped_type\n"
-"#define sipReleaseInstance sipAPI_%s->api_release_instance\n"
-"#define sipReleaseMappedType sipAPI_%s->api_release_mapped_type\n"
-"#define sipConvertFromInstance sipAPI_%s->api_convert_from_instance\n"
-"#define sipConvertFromNewInstance sipAPI_%s->api_convert_from_new_instance\n"
-"#define sipConvertFromMappedType sipAPI_%s->api_convert_from_mapped_type\n"
-"#define sipGetState sipAPI_%s->api_get_state\n"
-"#define sipFindMappedType sipAPI_%s->api_find_mapped_type\n"
-"#define sipLong_AsUnsignedLong sipAPI_%s->api_long_as_unsigned_long\n"
-"#define sipExportSymbol sipAPI_%s->api_export_symbol\n"
-"#define sipImportSymbol sipAPI_%s->api_import_symbol\n"
-"#define sipRegisterIntTypes sipAPI_%s->api_register_int_types\n"
-"#define sipParseSignature sipAPI_%s->api_parse_signature\n"
-"#define sipFindClass sipAPI_%s->api_find_class\n"
-"#define sipFindNamedEnum sipAPI_%s->api_find_named_enum\n"
-"#define sipString_AsChar sipAPI_%s->api_string_as_char\n"
-"#define sipUnicode_AsWChar sipAPI_%s->api_unicode_as_wchar\n"
-"#define sipUnicode_AsWString sipAPI_%s->api_unicode_as_wstring\n"
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname
- ,mname);
-
- /* The name strings. */
- noIntro = TRUE;
-
- for (nd = pt->namecache; nd != NULL; nd = nd->next)
- {
- if (!isUsedName(nd))
- continue;
-
- if (noIntro)
- {
- prcode(fp,
-"\n"
-"\n"
-"/* The strings used by this module. */\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-"extern char %N[];\n"
- ,nd);
- }
-
- /* The unscoped enum macros. */
- generateEnumMacros(pt, NULL, fp);
-
- prcode(fp,
-"\n"
-"\n"
-"/* The SIP API, this module's API and the APIs of any imported modules. */\n"
-"extern const sipAPIDef *sipAPI_%s;\n"
-"extern sipExportedModuleDef sipModuleAPI_%s;\n"
- ,mname
- ,mname,mname);
-
- for (mld = pt->module->allimports; mld != NULL; mld = mld->next)
- prcode(fp,
-"extern const sipExportedModuleDef *sipModuleAPI_%s_%s;\n"
- ,mname,mld->module->name);
-
- if (optQ_OBJECT4(pt))
- prcode(fp,
-"\n"
-"typedef const TQMetaObject *(*sip_qt_metaobject_func)(sipWrapper *,sipWrapperType *,const TQMetaObject *);\n"
-"extern sip_qt_metaobject_func sip_%s_qt_metaobject;\n"
-"\n"
-"typedef int (*sip_qt_metacall_func)(sipWrapper *,sipWrapperType *,TQMetaObject::Call,int,void **);\n"
-"extern sip_qt_metacall_func sip_%s_qt_metacall;\n"
- , mname
- , mname);
-
- /*
- * Note that we don't forward declare the virtual handlers. This is
- * because we would need to #include everything needed for their
- * argument types.
- */
-
- prcode(fp,
-"\n"
-"#endif\n"
- );
-
- closeFile(fp);
- free(hfile);
-}
-
-
-/*
- * Return the filename of a source code part on the heap.
- */
-static char *makePartName(char *codeDir,char *mname,int part,char *srcSuffix)
-{
- char buf[20];
-
- sprintf(buf,"part%d",part);
-
- return concat(codeDir,"/sip",mname,buf,srcSuffix,NULL);
-}
-
-
-/*
- * Generate the C/C++ code.
- */
-static void generateCpp(sipSpec *pt, char *codeDir, char *srcSuffix, int *parts)
-{
- char *cppfile, *mname = pt->module->name;
- int noIntro, nrSccs = 0, files_in_part, max_per_part, this_part;
- int is_inst_class, is_inst_voidp, is_inst_char, is_inst_string;
- int is_inst_int, is_inst_long, is_inst_ulong, is_inst_longlong;
- int is_inst_ulonglong, is_inst_double, is_inst_enum, nr_enummembers;
- int hasexternal = FALSE, slot_extenders = FALSE, ctor_extenders = FALSE;
- FILE *fp;
- moduleListDef *mld;
- classDef *cd;
- memberDef *md;
- ifaceFileDef *iff;
- virtHandlerDef *vhd;
- nameDef *nd;
- exceptionDef *xd;
-
- /* Calculate the number of files in each part. */
- if (*parts)
- {
- int nr_files = 1;
-
- for (iff = pt->ifacefiles; iff != NULL; iff = iff->next)
- if (iff->module == pt->module)
- ++nr_files;
-
- max_per_part = (nr_files + *parts - 1) / *parts;
- files_in_part = 1;
- this_part = 0;
-
- cppfile = makePartName(codeDir,mname,0,srcSuffix);
- }
- else
- cppfile = concat(codeDir,"/sip",mname,"cmodule",srcSuffix,NULL);
-
- fp = createCompilationUnit(pt, cppfile, "Module code.");
-
- prcode(fp,
-"\n"
-"#include \"sipAPI%s.h\"\n"
-"\n"
- ,mname);
-
- for (iff = pt->ifacefiles; iff != NULL; iff = iff->next)
- if (iff->module == pt->module && iff->type != exception_iface)
- prcode(fp,
-"#include \"sip%s%F.h\"\n"
- ,iff->module->name,iff->fqcname);
-
- generateUsedIncludes(pt->used, FALSE, fp);
-
- /*
- * If there should be a Qt support API then generate stubs values for the
- * optional parts. These should be undefined in %ModuleCode if a C++
- * implementation is provided.
- */
- if (pt->qobjclass >= 0)
- prcode(fp,
-"\n"
-"#define sipQtIsQtSignal 0\n"
-"#define sipQtCreateUniversalSignalShortcut 0\n"
-"#define sipQtCreateUniversalSignal 0\n"
-"#define sipQtFindUniversalSignalShortcut 0\n"
-"#define sipQtFindUniversalSignal 0\n"
-"#define sipQtEmitSignalShortcut 0\n"
-"#define sipQtEmitSignal 0\n"
- );
-
- /* Define the names. */
- noIntro = TRUE;
-
- for (nd = pt->namecache; nd != NULL; nd = nd->next)
- {
- if (!isUsedName(nd))
- continue;
-
- if (noIntro)
- {
- prcode(fp,
-"\n"
-"\n"
-"/* Define the strings used by this module. */\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-"char %N[] = \"%s\";\n"
- ,nd,nd->text);
- }
-
- /* Generate the C++ code blocks. */
- generateCppCodeBlock(pt->cppcode,fp);
-
- /* Generate any virtual handler declarations. */
- for (vhd = pt->module->virthandlers; vhd != NULL; vhd = vhd->next)
- if (!isDuplicateVH(vhd))
- generateVirtualHandler(pt,vhd,fp);
-
- /* Generate the global functions. */
- for (md = pt->othfuncs; md != NULL; md = md->next)
- {
- if (md->module != pt->module)
- continue;
-
- if (md->slot == no_slot)
- generateOrdinaryFunction(pt,NULL,md,fp);
- else
- {
- overDef *od;
-
- /*
- * Make sure that there is still an overload and we
- * haven't moved them all to classes.
- */
- for (od = pt->overs; od != NULL; od = od->next)
- if (od->common == md)
- {
- generateSlot(pt, NULL, NULL, md, fp);
- slot_extenders = TRUE;
- break;
- }
- }
- }
-
- /* Generate any class specific ctor or slot extenders. */
- for (cd = pt->proxies; cd != NULL; cd = cd->next)
- {
- if (cd->ctors != NULL)
- {
- generateTypeInit(pt, cd, fp);
- ctor_extenders = TRUE;
- }
-
- for (md = cd->members; md != NULL; md = md->next)
- {
- generateSlot(pt, cd, NULL, md, fp);
- slot_extenders = TRUE;
- }
- }
-
- /* Generate any ctor extender table. */
- if (ctor_extenders)
- {
- prcode(fp,
-"\n"
-"static sipInitExtenderDef initExtenders[] = {\n"
- );
-
- for (cd = pt->proxies; cd != NULL; cd = cd->next)
- if (cd->ctors != NULL)
- {
- prcode(fp,
-" {init_%C, ", classFQCName(cd));
-
- generateEncodedClass(pt, cd, 0, fp);
-
- prcode(fp, ", NULL},\n"
- );
- }
-
- prcode(fp,
-" {NULL, {0, 0, 0}, NULL}\n"
-"};\n"
- );
- }
-
- /* Generate any slot extender table. */
- if (slot_extenders)
- {
- prcode(fp,
-"\n"
-"static sipPySlotExtenderDef slotExtenders[] = {\n"
- );
-
- for (md = pt->othfuncs; md != NULL; md = md->next)
- {
- overDef *od;
-
- if (md->module != pt->module)
- continue;
-
- if (md->slot == no_slot)
- continue;
-
- for (od = pt->overs; od != NULL; od = od->next)
- if (od->common == md)
- {
- prcode(fp,
-" {(void *)slot_%s, %s, {0, 0, 0}},\n"
- , md->pyname->text, slotName(md->slot));
-
- break;
- }
- }
-
- for (cd = pt->proxies; cd != NULL; cd = cd->next)
- for (md = cd->members; md != NULL; md = md->next)
- {
- prcode(fp,
-" {(void *)slot_%C_%s, %s, ", classFQCName(cd), md->pyname->text, slotName(md->slot));
-
- generateEncodedClass(pt, cd, 0, fp);
-
- prcode(fp, "},\n"
- );
- }
-
- prcode(fp,
-" {NULL, (sipPySlotType)0, {0, 0, 0}}\n"
-"};\n"
- );
- }
-
- /* Generate the global access functions. */
- generateAccessFunctions(pt,NULL,fp);
-
- /* Generate the module data structures. */
- if (pt->module->nrclasses > 0)
- {
- nrSccs = generateSubClassConvertors(pt, fp);
-
- prcode(fp,
-"\n"
-"\n"
-"/*\n"
-" * This defines each class in this module. The values are replaced by the\n"
-" * proper Python types during the export process.\n"
-" */\n"
-"static sipWrapperType *typesTable[] = {\n"
- );
-
- generateClassTableEntries(pt, &pt->module->root, fp);
-
- prcode(fp,
-"};\n"
- );
-
- /* Generate the external classes table if needed. */
- for (cd = pt->classes; cd != NULL; cd = cd->next)
- {
- if (!isExternal(cd))
- continue;
-
- if (cd->iff->module != pt->module)
- continue;
-
- if (!hasexternal)
- {
- prcode(fp,
-"\n"
-"\n"
-"/* This defines each external type declared in this module, */\n"
-"static sipExternalTypeDef externalTypesTable[] = {\n"
- );
-
- hasexternal = TRUE;
- }
-
- prcode(fp,
-" {%d, \"", cd->classnr);
- prScopedName(fp, classFQCName(cd), ".");
- prcode(fp,"\"},\n"
- );
- }
-
- if (hasexternal)
- prcode(fp,
-" {-1, NULL}\n"
-"};\n"
- );
- }
-
- if (pt->module->nrmappedtypes > 0)
- {
- mappedTypeDef *mtd;
- argDef type;
-
- type.argflags = 0;
- type.name = NULL;
- type.nrderefs = 0;
- type.defval = NULL;
-
- prcode(fp,
-"\n"
-"\n"
-"/* This defines each mapped type in this module. */\n"
-"static sipMappedType *mappedTypesTable[] = {\n"
- );
-
- for (mtd = pt->mappedtypes; mtd != NULL; mtd = mtd->next)
- {
- if (mtd->iff->module != pt->module)
- continue;
-
- type.atype = mapped_type;
- type.u.mtd = mtd;
-
- prcode(fp,
-" &sipMappedTypeDef_%T,\n"
- ,&type);
- }
-
- prcode(fp,
-" 0\n"
-"};\n"
- );
- }
-
- if (pt->module->nrenums > 0)
- {
- enumDef *ed;
-
- prcode(fp,
-"\n"
-"\n"
-"/* Define each named enum in this module. */\n"
- );
-
- /* Generate any slot tables. */
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- memberDef *slot;
-
- if (ed->module != pt->module || ed->fqcname == NULL)
- continue;
-
- if (ed->slots == NULL)
- continue;
-
- for (slot = ed->slots; slot != NULL; slot = slot->next)
- generateSlot(pt, NULL, ed, slot, fp);
-
- prcode(fp,
-"\n"
-"static sipPySlotDef slots_%C[] = {\n"
- , ed->fqcname);
-
- for (slot = ed->slots; slot != NULL; slot = slot->next)
- {
- const char *stype;
-
- if ((stype = slotName(slot->slot)) != NULL)
- prcode(fp,
-" {(void *)slot_%C_%s, %s},\n"
- , ed->fqcname, slot->pyname->text, stype);
- }
-
- prcode(fp,
-" {0, (sipPySlotType)0}\n"
-"};\n"
-"\n"
- );
- }
-
- prcode(fp,
-"static sipEnumDef enumTypesTable[] = {\n"
- );
-
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- char *emname;
-
- if (ed->module != pt->module || ed->fqcname == NULL)
- continue;
-
- if (ed->ecd == NULL)
- emname = mname;
- else if (ed->ecd->real == NULL)
- emname = ed->module->name;
- else
- emname = ed->ecd->real->iff->module->name;
-
- prcode(fp,
-" {\"%s.%P\", ", emname, ed->ecd, ed->pyname->text);
-
- if (isRenamedEnum(ed) || (ed->ecd != NULL && isRenamedClass(ed->ecd)))
- prcode(fp, "\"%S\", ", ed->fqcname);
- else
- prcode(fp, "NULL, ");
-
- if (ed->ecd == NULL)
- prcode(fp, "-1");
- else
- prcode(fp, "%d", ed->ecd->classnr);
-
- if (ed->slots != NULL)
- prcode(fp, ", slots_%C", ed->fqcname);
- else
- prcode(fp, ", NULL");
-
- prcode(fp, "},\n"
- );
- }
-
- prcode(fp,
-"};\n"
- );
-
- nr_enummembers = generateEnumMemberTable(pt,NULL,fp);
- }
- else
- nr_enummembers = 0;
-
- if (pt->module->nrtypedefs > 0)
- {
- typedefDef *td;
-
- prcode(fp,
-"\n"
-"\n"
-"/*\n"
-" * These define each typedef in this module. They are only needed in case\n"
-" * they are used as arguments to Qt signals.\n"
-" */\n"
-"\n"
-"static sipTypedefDef typedefsTable[] = {\n"
- );
-
- for (td = pt->typedefs; td != NULL; td = td->next)
- {
- char *tdmname, *sat;
- scopedNameDef *fqname;
-
- if (td->module != pt->module)
- continue;
-
- fqname = NULL;
- tdmname = NULL;
- sat = "unknown";
-
- switch (td->type.atype)
- {
- case string_type:
- sat = (td->type.nrderefs == 0 ? "char" : "string");
- break;
-
- case sstring_type:
- sat = (td->type.nrderefs == 0 ? "schar" : "sstring");
- break;
-
- case ustring_type:
- sat = (td->type.nrderefs == 0 ? "uchar" : "ustring");
- break;
-
- case wstring_type:
- sat = (td->type.nrderefs == 0 ? "wchar" : "wstring");
- break;
-
- case short_type:
- sat = "short";
- break;
-
- case ushort_type:
- sat = "ushort";
- break;
-
- case cint_type:
- case int_type:
- sat = "int";
- break;
-
- case uint_type:
- sat = "uint";
- break;
-
- case long_type:
- sat = "long";
- break;
-
- case ulong_type:
- sat = "ulong";
- break;
-
- case longlong_type:
- sat = "longlong";
- break;
-
- case ulonglong_type:
- sat = "ulonglong";
- break;
-
- case cfloat_type:
- case float_type:
- sat = "float";
- break;
-
- case cdouble_type:
- case double_type:
- sat = "double";
- break;
-
- case bool_type:
- case cbool_type:
- sat = "bool";
- break;
-
- case void_type:
- if (td->type.nrderefs != 0)
- sat = "void";
- break;
-
- case enum_type:
- if ((fqname = td->type.u.ed->fqcname) != NULL)
- {
- sat = "enum";
-
- if (td->type.u.ed->module != pt->module)
- tdmname = td->type.u.ed->module->fullname;
- }
- break;
-
- case class_type:
- sat = "class";
- fqname = classFQCName(td->type.u.cd);
-
- if (td->type.u.cd->iff->module != pt->module)
- tdmname = td->type.u.cd->iff->module->fullname;
- break;
-
- case mapped_type:
- sat = "mtype";
- fqname = td->type.u.mtd->iff->fqcname;
-
- if (td->type.u.mtd->iff->module != pt->module)
- tdmname = td->type.u.mtd->iff->module->fullname;
- break;
- }
-
- prcode(fp,
-" {\"%S\", %s_sat", td->fqname, sat);
-
- if (fqname != NULL)
- prcode(fp, ", \"%S\"", fqname);
- else
- prcode(fp, ", NULL");
-
- if (tdmname != NULL)
- prcode(fp, ", \"%s\"", tdmname);
- else
- prcode(fp, ", NULL");
-
- prcode(fp, "},\n"
- );
- }
-
- prcode(fp,
-" {NULL, unknown_sat, NULL, NULL}\n"
-"};\n"
- );
- }
-
- if (pt->module->nrvirthandlers > 0)
- {
- prcode(fp,
-"\n"
-"\n"
-"/*\n"
-" * This defines the virtual handlers that this module implements and can be\n"
-" * used by other modules.\n"
-" */\n"
-"static sipVirtHandlerFunc virtHandlersTable[] = {\n"
- );
-
- for (vhd = pt->module->virthandlers; vhd != NULL; vhd = vhd->next)
- if (!isDuplicateVH(vhd))
- prcode(fp,
-" (sipVirtHandlerFunc)sipVH_%s_%d,\n"
- ,mname,vhd->virthandlernr);
-
- prcode(fp,
-"};\n"
- );
- }
-
- if (pt->module->allimports != NULL)
- {
- prcode(fp,
-"\n"
-"\n"
-"/* This defines the modules that this module needs to import. */\n"
-"static sipImportedModuleDef importsTable[] = {\n"
- );
-
- for (mld = pt->module->allimports; mld != NULL; mld = mld->next)
- prcode(fp,
-" {\"%s\", %d, NULL},\n"
- , mld->module->fullname, mld->module->version);
-
- prcode(fp,
-" {NULL, -1, NULL}\n"
-"};\n"
- );
- }
-
- if (nrSccs > 0)
- {
- prcode(fp,
-"\n"
-"\n"
-"/* This defines the class sub-convertors that this module defines. */\n"
-"static sipSubClassConvertorDef convertorsTable[] = {\n"
- );
-
- for (cd = pt->classes; cd != NULL; cd = cd->next)
- {
- if (cd->iff->module != pt->module)
- continue;
-
- if (cd->convtosubcode == NULL)
- continue;
-
- prcode(fp,
-" {sipSubClass_%C, ",classFQCName(cd));
-
- generateEncodedClass(pt,cd->subbase,0,fp);
-
- prcode(fp,", NULL},\n");
- }
-
- prcode(fp,
-" {NULL, {0, 0, 0}, NULL}\n"
-"};\n"
- );
- }
-
- /* Generate any license information. */
- if (pt->module->license != NULL)
- {
- licenseDef *ld = pt->module->license;
-
- prcode(fp,
-"\n"
-"\n"
-"/* Define the module's license. */\n"
-"static sipLicenseDef module_license = {\n"
- );
-
- prcode(fp,
-" \"%s\",\n"
- ,ld->type);
-
- if (ld->licensee != NULL)
- prcode(fp,
-" \"%s\",\n"
- ,ld->licensee);
- else
- prcode(fp,
-" NULL,\n"
- );
-
- if (ld->timestamp != NULL)
- prcode(fp,
-" \"%s\",\n"
- ,ld->timestamp);
- else
- prcode(fp,
-" NULL,\n"
- );
-
- if (ld->sig != NULL)
- prcode(fp,
-" \"%s\"\n"
- ,ld->sig);
- else
- prcode(fp,
-" NULL\n"
- );
-
- prcode(fp,
-"};\n"
- );
- }
-
- /* Generate each instance table. */
- is_inst_class = generateClasses(pt,NULL,fp);
- is_inst_voidp = generateVoidPointers(pt,NULL,fp);
- is_inst_char = generateChars(pt,NULL,fp);
- is_inst_string = generateStrings(pt,NULL,fp);
- is_inst_int = generateInts(pt,NULL,fp);
- is_inst_long = generateLongs(pt,NULL,fp);
- is_inst_ulong = generateUnsignedLongs(pt,NULL,fp);
- is_inst_longlong = generateLongLongs(pt,NULL,fp);
- is_inst_ulonglong = generateUnsignedLongLongs(pt,NULL,fp);
- is_inst_double = generateDoubles(pt,NULL,fp);
- is_inst_enum = generateEnums(pt,NULL,fp);
-
- /* Generate any exceptions table. */
- if (pt->module->nrexceptions > 0)
- prcode(fp,
-"\n"
-"\n"
-"static PyObject *exceptionsTable[%d];\n"
- ,pt->module->nrexceptions);
-
- /* Generate any Qt support API. */
- if (pt->qobjclass >= 0)
- prcode(fp,
-"\n"
-"\n"
-"/* This defines the Qt support API. */\n"
-"\n"
-"static sipQtAPI qtAPI = {\n"
-" &typesTable[%d],\n"
-" sipQtIsQtSignal,\n"
-" sipQtCreateUniversalSignalShortcut,\n"
-" sipQtCreateUniversalSignal,\n"
-" sipQtFindUniversalSignalShortcut,\n"
-" sipQtFindUniversalSignal,\n"
-" sipQtEmitSignalShortcut,\n"
-" sipQtEmitSignal,\n"
-" sipQtCreateUniversalSlot,\n"
-" sipQtDestroyUniversalSlot,\n"
-" sipQtFindSlot,\n"
-" sipQtConnect,\n"
-" sipQtDisconnect,\n"
-" sipQtSignalsBlocked,\n"
-" sipQtGetSender,\n"
-" sipQtForgetSender,\n"
-" sipQtSameSignalSlotName,\n"
-" sipQtFindConnection\n"
-"};\n"
- ,pt->qobjclass);
-
- prcode(fp,
-"\n"
-"\n"
-"/* This defines this module. */\n"
-"sipExportedModuleDef sipModuleAPI_%s = {\n"
-" NULL,\n"
-" SIP_API_MINOR_NR,\n"
-" \"%s\",\n"
-" NULL,\n"
-" %d,\n"
-" %s,\n"
-" %s,\n"
-" %d,\n"
-" %s,\n"
-" %s,\n"
-" %s,\n"
-" %d,\n"
-" NULL,\n"
-" %s,\n"
-" %d,\n"
-" %s,\n"
-" %s,\n"
-" %s,\n"
-" %s,\n"
-" {%s, %s, %s, %s, %s, %s, %s, %s, %s, %s, %s},\n"
-" %s,\n"
-" %s,\n"
-" %s,\n"
-" %s,\n"
-" %s,\n"
-" NULL\n"
-"};\n"
- , mname
- , pt->module->fullname
- , pt->module->version
- , pt->module->allimports != NULL ? "importsTable" : "NULL"
- , pt->qobjclass >= 0 ? "&qtAPI" : "NULL"
- , pt->module->nrclasses
- , pt->module->nrclasses > 0 ? "typesTable" : "NULL"
- , hasexternal ? "externalTypesTable" : "NULL"
- , pt->module->nrmappedtypes > 0 ? "mappedTypesTable" : "NULL"
- , pt->module->nrenums
- , pt->module->nrenums > 0 ? "enumTypesTable" : "NULL"
- , nr_enummembers
- , nr_enummembers > 0 ? "enummembers" : "NULL"
- , pt->module->nrtypedefs > 0 ? "typedefsTable" : "NULL"
- , pt->module->nrvirthandlers > 0 ? "virtHandlersTable" : "NULL"
- , nrSccs > 0 ? "convertorsTable" : "NULL"
- , is_inst_class ? "classInstances" : "NULL"
- , is_inst_voidp ? "voidPtrInstances" : "NULL"
- , is_inst_char ? "charInstances" : "NULL"
- , is_inst_string ? "stringInstances" : "NULL"
- , is_inst_int ? "intInstances" : "NULL"
- , is_inst_long ? "longInstances" : "NULL"
- , is_inst_ulong ? "unsignedLongInstances" : "NULL"
- , is_inst_longlong ? "longLongInstances" : "NULL"
- , is_inst_ulonglong ? "unsignedLongLongInstances" : "NULL"
- , is_inst_double ? "doubleInstances" : "NULL"
- , is_inst_enum ? "enumInstances" : "NULL"
- , pt->module->license != NULL ? "&module_license" : "NULL"
- , pt->module->nrexceptions > 0 ? "exceptionsTable" : "NULL"
- , slot_extenders ? "slotExtenders" : "NULL"
- , ctor_extenders ? "initExtenders" : "NULL"
- , hasDelayedDtors(pt->module) ? "sipDelayedDtors" : "NULL");
-
- /* Generate the storage for the external API pointers. */
- prcode(fp,
-"\n"
-"\n"
-"/* The SIP API and the APIs of any imported modules. */\n"
-"const sipAPIDef *sipAPI_%s;\n"
- ,mname);
-
- for (mld = pt->module->allimports; mld != NULL; mld = mld->next)
- prcode(fp,
-"const sipExportedModuleDef *sipModuleAPI_%s_%s;\n"
- ,mname,mld->module->name);
-
- if (optQ_OBJECT4(pt))
- prcode(fp,
-"\n"
-"sip_qt_metaobject_func sip_%s_qt_metaobject;\n"
-"sip_qt_metacall_func sip_%s_qt_metacall;\n"
- , mname
- , mname);
-
- /* Generate the Python module initialisation function. */
- prcode(fp,
-"\n"
-"\n"
-"/* The Python module initialisation function. */\n"
-"#if defined(SIP_STATIC_MODULE)\n"
-"%svoid init%s()\n"
-"#else\n"
-"PyMODINIT_FUNC init%s()\n"
-"#endif\n"
-"{\n"
-" static PyMethodDef sip_methods[] = {\n"
- ,(generating_c ? "" : "extern \"C\" "), mname
- ,mname);
-
- /* Generate the global functions. */
-
- for (md = pt->othfuncs; md != NULL; md = md->next)
- if (md->module == pt->module && md->slot == no_slot)
- prcode(fp,
-" {%N, func_%s, METH_VARARGS, NULL},\n"
- ,md->pyname,md->pyname->text);
-
- prcode(fp,
-" {0, 0, 0, 0}\n"
-" };\n"
-"\n"
-" PyObject *sipModule, *sipModuleDict, *sip_sipmod, *sip_capiobj;\n"
-"\n"
- );
-
- /* Generate the pre-initialisation code. */
- generateCppCodeBlock(pt->preinitcode,fp);
-
- prcode(fp,
-" /* Initialise the module and get it's dictionary. */\n"
-" sipModule = Py_InitModule((char *)sipModuleAPI_%s.em_name,sip_methods);\n"
-" sipModuleDict = PyModule_GetDict(sipModule);\n"
-"\n"
-" /* Import the SIP module and get it's API. */\n"
-" sip_sipmod = PyImport_ImportModule((char *)\"sip\");\n"
-"\n"
-" if (sip_sipmod == NULL)\n"
-" return;\n"
-"\n"
-" sip_capiobj = PyDict_GetItemString(PyModule_GetDict(sip_sipmod),\"_C_API\");\n"
-"\n"
-" if (sip_capiobj == NULL || !PyCObject_Check(sip_capiobj))\n"
-" return;\n"
-"\n"
- ,mname);
-
- if (generating_c)
- prcode(fp,
-" sipAPI_%s = (const sipAPIDef *)PyCObject_AsVoidPtr(sip_capiobj);\n"
- ,mname);
- else
- prcode(fp,
-" sipAPI_%s = reinterpret_cast<const sipAPIDef *>(PyCObject_AsVoidPtr(sip_capiobj));\n"
- ,mname);
-
- prcode(fp,
-"\n"
-" /* Export the module and publish it's API. */\n"
-" if (sipAPI_%s->api_export_module(&sipModuleAPI_%s,SIP_API_MAJOR_NR,SIP_API_MINOR_NR,sipModuleDict) < 0)\n"
-" return;\n"
- ,mname
- ,mname);
-
- noIntro = TRUE;
-
- for (mld = pt->module->allimports; mld != NULL; mld = mld->next)
- {
- if (noIntro)
- {
- prcode(fp,
-"\n"
-" /* Get the APIs of the modules that this one is dependent on. */\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" sipModuleAPI_%s_%s = sipModuleAPI_%s.em_imports[%d].im_module;\n"
- ,mname,mld->module->name,mname,mld->module->modulenr);
- }
-
- generateClassesInline(pt,fp);
- generateEnumsInline(pt, fp);
-
- /* Create any exceptions. */
- for (xd = pt->exceptions; xd != NULL; xd = xd->next)
- {
- if (xd->iff->module != pt->module)
- continue;
-
- if (xd->iff->type != exception_iface)
- continue;
-
- if (xd->exceptionnr < 0)
- continue;
-
- prcode(fp,
-"\n"
-" if ((exceptionsTable[%d] = PyErr_NewException((char *)\"%s.%s\",", xd->exceptionnr, xd->iff->module->name, xd->pyname);
-
- if (xd->bibase != NULL)
- prcode(fp, "PyExc_%s", xd->bibase);
- else if (xd->base->iff->module == pt->module)
- prcode(fp, "exceptionsTable[%d]", xd->base->exceptionnr);
- else
- prcode(fp, "sipException_%C", xd->base->iff->fqcname);
-
- prcode(fp, ",NULL)) == NULL || PyDict_SetItemString(sipModuleDict,\"%s\",exceptionsTable[%d]) < 0)\n"
-" return;\n"
- , xd->pyname, xd->exceptionnr);
- }
-
- /* Generate any Qt metatype registration calls. */
- if (optRegisterTypes(pt))
- for (cd = pt->classes; cd != NULL; cd = cd->next)
- {
- if (cd->iff->module != pt->module)
- continue;
-
- generateRegisterMetaType(cd, fp);
- }
-
- /* Generate the post-initialisation code. */
- generateCppCodeBlock(pt->postinitcode,fp);
-
- /*
- * This has to be done after the post-initialisation code in case this
- * module is exporting the symbol.
- */
- if (optQ_OBJECT4(pt))
- prcode(fp,
-"\n"
-" sip_%s_qt_metaobject = (sip_qt_metaobject_func)sipImportSymbol(\"qtcore_qt_metaobject\");\n"
-" sip_%s_qt_metacall = (sip_qt_metacall_func)sipImportSymbol(\"qtcore_qt_metacall\");\n"
- , mname
- , mname);
-
- prcode(fp,
-"}\n"
- );
-
- /* Generate the interface source and header files. */
- for (iff = pt->ifacefiles; iff != NULL; iff = iff->next)
- {
- if (iff->module == pt->module && iff->type != exception_iface)
- {
- if (*parts && files_in_part++ == max_per_part)
- {
- /* Close the old part. */
- closeFile(fp);
- free(cppfile);
-
- /* Create a new one. */
- files_in_part = 1;
- ++this_part;
-
- cppfile = makePartName(codeDir,mname,this_part,srcSuffix);
- fp = createCompilationUnit(pt, cppfile, "Module code.");
- }
-
- generateIfaceCpp(pt,iff,codeDir,srcSuffix,(*parts ? fp : NULL));
- }
-
- generateIfaceHeader(pt,iff,codeDir);
- }
-
- closeFile(fp);
- free(cppfile);
-
- /* How many parts we actually generated. */
- if (*parts)
- *parts = this_part + 1;
-}
-
-
-/*
- * Generate all the sub-class convertors for a module.
- */
-static int generateSubClassConvertors(sipSpec *pt, FILE *fp)
-{
- int nrSccs = 0;
- classDef *cd;
-
- for (cd = pt->classes; cd != NULL; cd = cd->next)
- {
- if (cd->iff->module != pt->module)
- continue;
-
- if (cd->convtosubcode == NULL)
- continue;
-
- prcode(fp,
-"\n"
-"\n"
-"/* Convert to a sub-class if possible. */\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static sipWrapperType *sipSubClass_%C(void **);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static sipWrapperType *sipSubClass_%C(void **sipCppRet)\n"
-"{\n"
-" %S *sipCpp = reinterpret_cast<%S *>(*sipCppRet);\n"
-" sipWrapperType *sipClass;\n"
-"\n"
- , classFQCName(cd)
- , classFQCName(cd->subbase), classFQCName(cd->subbase));
-
- generateCppCodeBlock(cd->convtosubcode, fp);
-
- prcode(fp,
-"\n"
-" return sipClass;\n"
-"}\n"
- );
-
- ++nrSccs;
- }
-
- return nrSccs;
-}
-
-
-/*
- * Generate an entry for a class in the classes table and all its children.
- */
-static void generateClassTableEntries(sipSpec *pt, nodeDef *nd, FILE *fp)
-{
- nodeDef *cnd;
-
- /* Generate the entry if it's not the root. */
- if (nd->cd != NULL)
- if (isExternal(nd->cd))
- prcode(fp,
-" 0,\n"
- );
- else
- prcode(fp,
-" (sipWrapperType *)(void *)&sipType_%s_%C,\n"
- , pt->module->name, classFQCName(nd->cd));
-
- /* Generate all it's children. */
- for (cnd = nd->child; cnd != NULL; cnd = cnd->next)
- generateClassTableEntries(pt, cnd, fp);
-}
-
-
-/*
- * Generate the structure representing an encoded class.
- */
-static void generateEncodedClass(sipSpec *pt,classDef *cd,int last,FILE *fp)
-{
- moduleDef *mod = cd->iff->module;
-
- prcode(fp,"{%u, ",cd->classnr);
-
- if (mod == pt->module)
- prcode(fp,"255");
- else
- prcode(fp,"%u",mod->modulenr);
-
- prcode(fp,", %u}",last);
-}
-
-
-/*
- * Generate an ordinary function (ie. not a class method).
- */
-static void generateOrdinaryFunction(sipSpec *pt,classDef *cd,memberDef *md,
- FILE *fp)
-{
- overDef *od;
-
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (cd != NULL)
- {
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static PyObject *meth_%C_%s(PyObject *,PyObject *);}\n"
- , classFQCName(cd), md->pyname->text);
-
- prcode(fp,
-"static PyObject *meth_%C_%s(PyObject *,PyObject *sipArgs)\n"
- ,classFQCName(cd),md->pyname->text);
-
- od = cd->overs;
- }
- else
- {
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static PyObject *func_%s(PyObject *,PyObject *);}\n"
- , md->pyname->text);
-
- prcode(fp,
-"static PyObject *func_%s(PyObject *%s,PyObject *sipArgs)\n"
- ,md->pyname->text,(generating_c ? "sipSelf" : ""));
-
- od = pt->overs;
- }
-
- prcode(fp,
-"{\n"
-" int sipArgsParsed = 0;\n"
- );
-
- while (od != NULL)
- {
- if (od->common == md)
- generateFunctionBody(pt,od,cd,cd,TRUE,fp);
-
- od = od->next;
- }
-
- prcode(fp,
-"\n"
-" /* Raise an exception if the arguments couldn't be parsed. */\n"
-" sipNoFunction(sipArgsParsed,%N);\n"
-"\n"
-" return NULL;\n"
-"}\n"
- ,md->pyname);
-}
-
-
-/*
- * Generate the table of enum members for a scope. Return the number of them.
- */
-static int generateEnumMemberTable(sipSpec *pt,classDef *cd,FILE *fp)
-{
- int i, nr_members;
- enumDef *ed;
- enumMemberDef **etab, **et;
-
- /* First we count how many. */
-
- nr_members = 0;
-
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- enumMemberDef *emd;
-
- if (ed->ecd != cd || ed->module != pt->module)
- continue;
-
- if (cd == NULL && ed->fqcname == NULL)
- continue;
-
- for (emd = ed->members; emd != NULL; emd = emd->next)
- ++nr_members;
- }
-
- if (nr_members == 0)
- return 0;
-
- /* Create a table so they can be sorted. */
-
- etab = sipMalloc(sizeof (enumMemberDef *) * nr_members);
-
- et = etab;
-
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- enumMemberDef *emd;
-
- if (ed->ecd != cd || ed->module != pt->module)
- continue;
-
- if (cd == NULL && ed->fqcname == NULL)
- continue;
-
- for (emd = ed->members; emd != NULL; emd = emd->next)
- *et++ = emd;
- }
-
- qsort(etab,nr_members,sizeof (enumMemberDef *),compareEnumMembers);
-
- /* Now generate the table. */
-
- if (cd != NULL)
- prcode(fp,
-"\n"
-"static sipEnumMemberDef enummembers_%C[] = {\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-"\n"
-"/* These are the enum members of all global enums. */\n"
-"static sipEnumMemberDef enummembers[] = {\n"
- );
-
- for (i = 0; i < nr_members; ++i)
- {
- enumMemberDef *emd;
-
- emd = etab[i];
-
- prcode(fp,
-" {%N, ",emd->pyname);
-
- if (cd != NULL)
- {
- if (isProtectedEnum(emd->ed))
- prcode(fp,"sip");
-
- prcode(fp,"%S::%s",classFQCName(cd),emd->cname);
- }
- else
- prcode(fp,"%s"
- ,emd->cname);
-
- prcode(fp, ", %d},\n", emd->ed->enumnr);
- }
-
- prcode(fp,
-"};\n"
- );
-
- return nr_members;
-}
-
-
-/*
- * The qsort helper to compare two enumMemberDef structures based on the name
- * of the enum member.
- */
-
-static int compareEnumMembers(const void *m1,const void *m2)
-{
- return strcmp((*(enumMemberDef **)m1)->pyname->text,
- (*(enumMemberDef **)m2)->pyname->text);
-}
-
-
-/*
- * Generate the access functions for the variables.
- */
-static void generateAccessFunctions(sipSpec *pt,classDef *cd,FILE *fp)
-{
- varDef *vd;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- if (vd->accessfunc == NULL)
- continue;
-
- if (vd->ecd != cd || vd->module != pt->module)
- continue;
-
- prcode(fp,
-"\n"
-"\n"
-"/* Access function. */\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static void *access_%C();}\n"
- , vd->fqcname);
-
- prcode(fp,
-"static void *access_%C()\n"
-"{\n"
- ,vd->fqcname);
-
- generateCppCodeBlock(vd->accessfunc,fp);
-
- prcode(fp,
-"}\n"
- );
- }
-}
-
-
-/*
- * Generate the inline code to add a set of enum instances to a dictionary.
- */
-static void generateEnumsInline(sipSpec *pt, FILE *fp)
-{
- int noIntro;
- varDef *vd;
-
- noIntro = TRUE;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- if (vd->module != pt->module)
- continue;
-
- if (vd->type.atype != enum_type)
- continue;
-
- if (needsHandler(vd))
- continue;
-
- /* Skip enums that don't need inline code. */
- if (generating_c || vd->accessfunc != NULL || vd->type.nrderefs != 0)
- continue;
-
- if (noIntro)
- {
- prcode(fp,
-"\n"
-" /* Define the enum instances that have to be added inline. */\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" sipAddEnumInstance(");
-
- if (vd->ecd == NULL)
- prcode(fp,"sipModuleDict");
- else
- prcode(fp,"(PyObject *)sipClass_%C",classFQCName(vd->ecd));
-
- prcode(fp,",%N,(int)%S,sipEnum_%C);\n"
- , vd->pyname, vd->fqcname, vd->type.u.ed->fqcname);
- }
-}
-
-
-/*
- * Generate the inline code to add a set of class instances to a dictionary.
- */
-static void generateClassesInline(sipSpec *pt,FILE *fp)
-{
- int noIntro;
- varDef *vd;
-
- noIntro = TRUE;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- if (vd->module != pt->module)
- continue;
-
- if (vd->type.atype != class_type && vd->type.atype != mapped_type)
- continue;
-
- if (needsHandler(vd))
- continue;
-
- /* Skip classes that don't need inline code. */
- if (generating_c || vd->accessfunc != NULL || vd->type.nrderefs != 0)
- continue;
-
- if (noIntro)
- {
- prcode(fp,
-"\n"
-" /*\n"
-" * Define the class and mapped type instances that have to be added\n"
-" * inline.\n"
-" */\n"
- );
-
- noIntro = FALSE;
- }
-
- if (vd->type.atype == class_type)
- prcode(fp,
-" sipAddClassInstance(");
- else
- prcode(fp,
-" sipAddMappedTypeInstance(");
-
- if (vd->ecd == NULL)
- prcode(fp,"sipModuleDict");
- else
- prcode(fp,"(PyObject *)sipClass_%C",classFQCName(vd->ecd));
-
- prcode(fp,",%N,",vd->pyname);
-
- if (isConstArg(&vd->type))
- prcode(fp,"const_cast<%b *>(&%S)",&vd->type,vd->fqcname);
- else
- prcode(fp,"&%S",vd->fqcname);
-
- if (vd->type.atype == class_type)
- prcode(fp, ",sipClass_%C);\n"
- , classFQCName(vd->type.u.cd));
- else
- prcode(fp, ",sipMappedType_%T);\n"
- , &vd->type);
- }
-}
-
-
-/*
- * Generate the code to add a set of class instances to a dictionary. Return
- * TRUE if there was at least one.
- */
-static int generateClasses(sipSpec *pt,classDef *cd,FILE *fp)
-{
- int noIntro;
- varDef *vd;
-
- noIntro = TRUE;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- scopedNameDef *vcname;
-
- if (vd->ecd != cd || vd->module != pt->module)
- continue;
-
- if (vd->type.atype != class_type)
- continue;
-
- if (needsHandler(vd))
- continue;
-
- /*
- * Skip ordinary C++ class instances which need to be done with
- * inline code rather than through a static table. This is
- * because C++ does not guarantee the order in which the table
- * and the instance will be created. So far this has only been
- * seen to be a problem when statically linking SIP generated
- * modules on Windows.
- */
- if (!generating_c && vd->accessfunc == NULL && vd->type.nrderefs == 0)
- continue;
-
- if (noIntro)
- {
- if (cd != NULL)
- prcode(fp,
-"\n"
-"\n"
-"/* Define the class instances to be added to this type dictionary. */\n"
-"static sipClassInstanceDef classInstances_%C[] = {\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-"\n"
-"\n"
-"/* Define the class instances to be added to this module dictionary. */\n"
-"static sipClassInstanceDef classInstances[] = {\n"
- );
-
- noIntro = FALSE;
- }
-
- vcname = classFQCName(vd->type.u.cd);
-
- if (vd->accessfunc != NULL)
- {
- prcode(fp,
-" {%N, (void *)access_%C, &sipClass_%C, SIP_ACCFUNC},\n"
- ,vd->pyname,vd->fqcname,vcname);
- }
- else if (vd->type.nrderefs != 0)
- {
- prcode(fp,
-" {%N, &%S, &sipClass_%C, SIP_INDIRECT},\n"
- ,vd->pyname,vd->fqcname,vcname);
- }
- else if (isConstArg(&vd->type))
- {
- prcode(fp,
-" {%N, const_cast<%b *>(&%S), &sipClass_%C, 0},\n"
- ,vd->pyname,&vd->type,vd->fqcname,vcname);
- }
- else
- {
- prcode(fp,
-" {%N, &%S, &sipClass_%C, 0},\n"
- ,vd->pyname,vd->fqcname,vcname);
- }
- }
-
- if (!noIntro)
- prcode(fp,
-" {0, 0, 0, 0}\n"
-"};\n"
- );
-
- return !noIntro;
-}
-
-
-/*
- * Generate the code to add a set of void pointers to a dictionary. Return
- * TRUE if there was at least one.
- */
-static int generateVoidPointers(sipSpec *pt,classDef *cd,FILE *fp)
-{
- int noIntro;
- varDef *vd;
-
- noIntro = TRUE;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- if (vd->ecd != cd || vd->module != pt->module)
- continue;
-
- if (vd->type.atype != void_type && vd->type.atype != struct_type)
- continue;
-
- if (needsHandler(vd))
- continue;
-
- if (noIntro)
- {
- if (cd != NULL)
- prcode(fp,
-"\n"
-"\n"
-"/* Define the void pointers to be added to this type dictionary. */\n"
-"static sipVoidPtrInstanceDef voidPtrInstances_%C[] = {\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-"\n"
-"\n"
-"/* Define the void pointers to be added to this module dictionary. */\n"
-"static sipVoidPtrInstanceDef voidPtrInstances[] = {\n"
- );
-
- noIntro = FALSE;
- }
-
- if (isConstArg(&vd->type))
- prcode(fp,
-" {%N, const_cast<%b *>(%S)},\n"
- , vd->pyname, &vd->type, vd->fqcname);
- else
- prcode(fp,
-" {%N, %S},\n"
- , vd->pyname, vd->fqcname);
- }
-
- if (!noIntro)
- prcode(fp,
-" {0, 0}\n"
-"};\n"
- );
-
- return !noIntro;
-}
-
-
-/*
- * Generate the code to add a set of characters to a dictionary. Return TRUE
- * if there was at least one.
- */
-static int generateChars(sipSpec *pt,classDef *cd,FILE *fp)
-{
- int noIntro;
- varDef *vd;
-
- noIntro = TRUE;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- argType vtype = vd->type.atype;
-
- if (vd->ecd != cd || vd->module != pt->module)
- continue;
-
- if (!((vtype == sstring_type || vtype == ustring_type || vtype == string_type || vtype == wstring_type) && vd->type.nrderefs == 0))
- continue;
-
- if (needsHandler(vd))
- continue;
-
- if (noIntro)
- {
- if (cd != NULL)
- prcode(fp,
-"\n"
-"\n"
-"/* Define the chars to be added to this type dictionary. */\n"
-"static sipCharInstanceDef charInstances_%C[] = {\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-"\n"
-"\n"
-"/* Define the chars to be added to this module dictionary. */\n"
-"static sipCharInstanceDef charInstances[] = {\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" {%N, %S},\n"
- ,vd->pyname,vd->fqcname);
- }
-
- if (!noIntro)
- prcode(fp,
-" {0, 0}\n"
-"};\n"
- );
-
- return !noIntro;
-}
-
-
-/*
- * Generate the code to add a set of strings to a dictionary. Return TRUE if
- * there is at least one.
- */
-static int generateStrings(sipSpec *pt,classDef *cd,FILE *fp)
-{
- int noIntro;
- varDef *vd;
-
- noIntro = TRUE;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- argType vtype = vd->type.atype;
-
- if (vd->ecd != cd || vd->module != pt->module)
- continue;
-
- if (!((vtype == sstring_type || vtype == ustring_type || vtype == string_type || vtype == wstring_type) && vd->type.nrderefs != 0))
- continue;
-
- if (needsHandler(vd))
- continue;
-
- if (noIntro)
- {
- if (cd != NULL)
- prcode(fp,
-"\n"
-"\n"
-"/* Define the strings to be added to this type dictionary. */\n"
-"static sipStringInstanceDef stringInstances_%C[] = {\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-"\n"
-"\n"
-"/* Define the strings to be added to this module dictionary. */\n"
-"static sipStringInstanceDef stringInstances[] = {\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" {%N, %S},\n"
- ,vd->pyname,vd->fqcname);
- }
-
- if (!noIntro)
- prcode(fp,
-" {0, 0}\n"
-"};\n"
- );
-
- return !noIntro;
-}
-
-
-/*
- * Generate the code to add a set of enum instances to a dictionary. Return
- * TRUE if there was at least one.
- */
-static int generateEnums(sipSpec *pt, classDef *cd, FILE *fp)
-{
- int noIntro;
- varDef *vd;
-
- noIntro = TRUE;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- if (vd->ecd != cd || vd->module != pt->module)
- continue;
-
- if (vd->type.atype != enum_type || vd->type.u.ed->fqcname == NULL)
- continue;
-
- if (needsHandler(vd))
- continue;
-
- /* Skip enums that need inline code. */
- if (!generating_c && vd->accessfunc == NULL && vd->type.nrderefs == 0)
- continue;
-
- if (noIntro)
- {
- if (cd != NULL)
- prcode(fp,
-"\n"
-"\n"
-"/* Define the enum instances to be added to this type dictionary. */\n"
-"static sipEnumInstanceDef enumInstances_%C[] = {\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-"\n"
-"\n"
-"/* Define the enum instances to be added to this module dictionary. */\n"
-"static sipEnumInstanceDef enumInstances[] = {\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" {%N, (int)%S, &sipEnum_%C},\n"
- ,vd->pyname,vd->fqcname,vd->type.u.ed->fqcname);
- }
-
- if (!noIntro)
- prcode(fp,
-" {0, 0, 0}\n"
-"};\n"
- );
-
- return !noIntro;
-}
-
-
-/*
- * Generate the code to add a set of ints to a dictionary. Return TRUE if
- * there was at least one.
- */
-static int generateInts(sipSpec *pt, classDef *cd, FILE *fp)
-{
- int noIntro;
- varDef *vd;
- enumDef *ed;
-
- noIntro = TRUE;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- argType vtype = vd->type.atype;
-
- if (vd->ecd != cd || vd->module != pt->module)
- continue;
-
- if (!(vtype == enum_type || vtype == ushort_type ||
- vtype == short_type || vtype == uint_type ||
- vtype == cint_type || vtype == int_type ||
- vtype == bool_type || vtype == cbool_type))
- continue;
-
- if (needsHandler(vd))
- continue;
-
- /* Named enums are handled elsewhere. */
- if (vtype == enum_type && vd->type.u.ed->fqcname != NULL)
- continue;
-
- if (noIntro)
- {
- ints_intro(cd, fp);
- noIntro = FALSE;
- }
-
- prcode(fp,
-" {%N, %S},\n"
- ,vd->pyname,vd->fqcname);
- }
-
- /* Now do global anonymous enums. */
- if (cd == NULL)
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- enumMemberDef *em;
-
- if (ed->ecd != cd || ed->module != pt->module)
- continue;
-
- if (ed->fqcname != NULL)
- continue;
-
- for (em = ed->members; em != NULL; em = em->next)
- {
- if (noIntro)
- {
- ints_intro(cd, fp);
- noIntro = FALSE;
- }
-
- prcode(fp,
-" {%N, %s},\n"
- , em->pyname, em->cname);
- }
- }
-
- if (!noIntro)
- prcode(fp,
-" {0, 0}\n"
-"};\n"
- );
-
- return !noIntro;
-}
-
-
-/*
- * Generate the intro for a table of int instances.
- */
-static void ints_intro(classDef *cd, FILE *fp)
-{
- if (cd != NULL)
- prcode(fp,
-"\n"
-"\n"
-"/* Define the ints to be added to this type dictionary. */\n"
-"static sipIntInstanceDef intInstances_%C[] = {\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-"\n"
-"\n"
-"/* Define the ints to be added to this module dictionary. */\n"
-"static sipIntInstanceDef intInstances[] = {\n"
- );
-}
-
-
-/*
- * Generate the code to add a set of longs to a dictionary. Return TRUE if
- * there was at least one.
- */
-static int generateLongs(sipSpec *pt, classDef *cd, FILE *fp)
-{
- return generateVariableType(pt, cd, long_type, "long", "Long", "long", fp);
-}
-
-
-/*
- * Generate the code to add a set of unsigned longs to a dictionary. Return
- * TRUE if there was at least one.
- */
-static int generateUnsignedLongs(sipSpec *pt, classDef *cd, FILE *fp)
-{
- return generateVariableType(pt, cd, ulong_type, "unsigned long", "UnsignedLong", "unsignedLong", fp);
-}
-
-
-/*
- * Generate the code to add a set of long longs to a dictionary. Return TRUE
- * if there was at least one.
- */
-static int generateLongLongs(sipSpec *pt, classDef *cd, FILE *fp)
-{
- return generateVariableType(pt, cd, longlong_type, "long long", "LongLong", "longLong", fp);
-}
-
-
-/*
- * Generate the code to add a set of unsigned long longs to a dictionary.
- * Return TRUE if there was at least one.
- */
-static int generateUnsignedLongLongs(sipSpec *pt, classDef *cd, FILE *fp)
-{
- return generateVariableType(pt, cd, ulonglong_type, "unsigned long long", "UnsignedLongLong", "unsignedLongLong", fp);
-}
-
-
-/*
- * Generate the code to add a set of a particular type to a dictionary. Return
- * TRUE if there was at least one.
- */
-static int generateVariableType(sipSpec *pt, classDef *cd, argType atype, const char *eng, const char *s1, const char *s2, FILE *fp)
-{
- int noIntro;
- varDef *vd;
-
- noIntro = TRUE;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- argType vtype = vd->type.atype;
-
- if (vd->ecd != cd || vd->module != pt->module)
- continue;
-
- if (vtype != atype)
- continue;
-
- if (needsHandler(vd))
- continue;
-
- if (noIntro)
- {
- if (cd != NULL)
- prcode(fp,
-"\n"
-"\n"
-"/* Define the %ss to be added to this type dictionary. */\n"
-"static sip%sInstanceDef %sInstances_%C[] = {\n"
- , eng
- , s1, s2, classFQCName(cd));
- else
- prcode(fp,
-"\n"
-"\n"
-"/* Define the %ss to be added to this module dictionary. */\n"
-"static sip%sInstanceDef %sInstances[] = {\n"
- , eng
- , s1, s2);
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" {%N, %S},\n"
- ,vd->pyname,vd->fqcname);
- }
-
- if (!noIntro)
- prcode(fp,
-" {0, 0}\n"
-"};\n"
- );
-
- return !noIntro;
-}
-
-
-/*
- * Generate the code to add a set of doubles to a dictionary. Return TRUE if
- * there was at least one.
- */
-static int generateDoubles(sipSpec *pt,classDef *cd,FILE *fp)
-{
- int noIntro;
- varDef *vd;
-
- noIntro = TRUE;
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- {
- argType vtype = vd->type.atype;
-
- if (vd->ecd != cd || vd->module != pt->module)
- continue;
-
- if (!(vtype == float_type || vtype == cfloat_type || vtype == double_type || vtype == cdouble_type))
- continue;
-
- if (needsHandler(vd))
- continue;
-
- if (noIntro)
- {
- if (cd != NULL)
- prcode(fp,
-"\n"
-"\n"
-"/* Define the doubles to be added to this type dictionary. */\n"
-"static sipDoubleInstanceDef doubleInstances_%C[] = {\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-"\n"
-"\n"
-"/* Define the doubles to be added to this module dictionary. */\n"
-"static sipDoubleInstanceDef doubleInstances[] = {\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" {%N, %S},\n"
- ,vd->pyname,vd->fqcname);
- }
-
- if (!noIntro)
- prcode(fp,
-" {0, 0}\n"
-"};\n"
- );
-
- return !noIntro;
-}
-
-
-/*
- * Generate the C/C++ code for an interface.
- */
-static void generateIfaceCpp(sipSpec *pt,ifaceFileDef *iff,char *codeDir,
- char *srcSuffix,FILE *master)
-{
- char *cppfile, *cmname = iff->module->name;
- classDef *cd;
- mappedTypeDef *mtd;
- FILE *fp;
-
- if (master == NULL)
- {
- cppfile = createIfaceFileName(codeDir,iff,srcSuffix);
- fp = createCompilationUnit(pt, cppfile, "Interface wrapper code.");
- }
- else
- fp = master;
-
- prcode(fp,
-"\n"
-"#include \"sipAPI%s.h\"\n"
-"#include \"sip%s%F.h\"\n"
- ,cmname
- ,cmname,iff->fqcname);
-
- generateUsedIncludes(iff->used, FALSE, fp);
-
- for (cd = pt->classes; cd != NULL; cd = cd->next)
- if (cd->iff == iff)
- {
- if (isProtectedClass(cd))
- prcode(fp,
-"\n"
-"#include \"sip%s%F.h\"\n"
- ,cmname,cd->ecd->iff->fqcname);
-
- if (!isExternal(cd))
- generateClassCpp(cd, pt, fp);
- }
-
- for (mtd = pt->mappedtypes; mtd != NULL; mtd = mtd->next)
- if (mtd->iff == iff)
- generateMappedTypeCpp(mtd,fp);
-
- if (master == NULL)
- {
- closeFile(fp);
- free(cppfile);
- }
-}
-
-
-/*
- * Return a filename for an interface C++ or header file on the heap.
- */
-static char *createIfaceFileName(char *codeDir,ifaceFileDef *iff,char *suffix)
-{
- char *fn;
- scopedNameDef *snd;
-
- fn = concat(codeDir,"/sip",iff->module->name,NULL);
-
- for (snd = iff->fqcname; snd != NULL; snd = snd->next)
- append(&fn,snd->name);
-
- append(&fn,suffix);
-
- return fn;
-}
-
-
-/*
- * Generate the C++ code for a mapped type version.
- */
-static void generateMappedTypeCpp(mappedTypeDef *mtd,FILE *fp)
-{
- int need_xfer;
-
- prcode(fp,
-"\n"
-"\n"
-"/* Call the mapped type's destructor. */\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static void release_%T(void *, int);}\n"
- , &mtd->type);
-
- prcode(fp,
-"static void release_%T(void *ptr, int%s)\n"
-"{\n"
- , &mtd->type, (generating_c ? " status" : ""));
-
- if (release_gil)
- prcode(fp,
-" Py_BEGIN_ALLOW_THREADS\n"
- );
-
- if (generating_c)
- prcode(fp,
-" sipFree(ptr);\n"
- );
- else
- prcode(fp,
-" delete reinterpret_cast<%b *>(ptr);\n"
- , &mtd->type);
-
- if (release_gil)
- prcode(fp,
-" Py_END_ALLOW_THREADS\n"
- );
-
- prcode(fp,
-"}\n"
-"\n"
- );
-
- generateConvertToDefinitions(mtd,NULL,fp);
-
- /* Generate the from type convertor. */
-
- need_xfer = (generating_c || usedInCode(mtd->convfromcode, "sipTransferObj"));
-
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static PyObject *convertFrom_%T(void *, PyObject *);}\n"
- , &mtd->type);
-
- prcode(fp,
-"static PyObject *convertFrom_%T(void *sipCppV,PyObject *%s)\n"
-"{\n"
-" ", &mtd->type, (need_xfer ? "sipTransferObj" : ""));
-
- generateMappedTypeFromVoid(mtd, "sipCpp", "sipCppV", fp);
-
- prcode(fp, ";\n"
-"\n"
- );
-
- generateCppCodeBlock(mtd->convfromcode,fp);
-
- prcode(fp,
-"}\n"
-"\n"
-"\n"
-"sipMappedType sipMappedTypeDef_%T = {\n"
-" \"%B\",\n"
-" release_%T,\n"
-" forceConvertTo_%T,\n"
-" convertTo_%T,\n"
-" convertFrom_%T\n"
-"};\n"
- , &mtd->type
- , &mtd->type
- , &mtd->type
- , &mtd->type
- , &mtd->type
- , &mtd->type
- , &mtd->type);
-}
-
-
-/*
- * Generate the C++ code for a class.
- */
-static void generateClassCpp(classDef *cd,sipSpec *pt,FILE *fp)
-{
- varDef *vd;
-
- /* Generate any local class code. */
-
- generateCppCodeBlock(cd->cppcode,fp);
-
- generateClassFunctions(pt,cd,fp);
-
- generateAccessFunctions(pt,cd,fp);
-
- /* Generate the variable handlers. */
- if (hasVarHandlers(cd))
- {
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- if (vd->ecd == cd && needsHandler(vd))
- generateVariableHandler(vd,fp);
-
- /* Generate the variable table. */
- prcode(fp,
-"\n"
-"PyMethodDef variables_%C[] = {\n"
- ,classFQCName(cd));
-
- for (vd = pt->vars; vd != NULL; vd = vd->next)
- if (vd->ecd == cd && needsHandler(vd))
- prcode(fp,
-" {%N, var_%C, %s, NULL},\n"
- ,vd->pyname,vd->fqcname,(isStaticVar(vd) ? "METH_STATIC" : "0"));
-
- prcode(fp,
-" {0, 0, 0, 0}\n"
-"};\n"
- );
- }
-
- if (cd->iff->type != namespace_iface)
- generateConvertToDefinitions(NULL,cd,fp);
-
- /* The type definition structure. */
- generateTypeDefinition(pt, cd, fp);
-}
-
-
-/*
- * Return a sorted array of relevant functions for a namespace.
- */
-
-static sortedMethTab *createFunctionTable(classDef *cd,int *nrp)
-{
- int nr;
- sortedMethTab *mtab, *mt;
- memberDef *md;
-
- /* First we need to count the number of applicable functions. */
-
- nr = 0;
-
- for (md = cd->members; md != NULL; md = md->next)
- ++nr;
-
- if ((*nrp = nr) == 0)
- return NULL;
-
- /* Create the table of methods. */
-
- mtab = sipMalloc(sizeof (sortedMethTab) * nr);
-
- /* Initialise the table. */
-
- mt = mtab;
-
- for (md = cd->members; md != NULL; md = md->next)
- {
- mt->md = md;
- mt->is_static = TRUE;
-
- ++mt;
- }
-
- /* Finally sort the table. */
-
- qsort(mtab,nr,sizeof (sortedMethTab),compareMethTab);
-
- return mtab;
-}
-
-
-/*
- * Return a sorted array of relevant methods (either lazy or non-lazy) for a
- * class.
- */
-static sortedMethTab *createMethodTable(classDef *cd, int *nrp)
-{
- int nr;
- visibleList *vl;
- sortedMethTab *mtab, *mt;
-
- /*
- * First we need to count the number of applicable methods. Only provide
- * an entry point if there is at least one overload that is defined in this
- * class and is a non-abstract function or slot. We allow private (even
- * though we don't actually generate code) because we need to intercept the
- * name before it reaches a more public version further up the class
- * hierarchy. We add the ctor and any variable handlers as special
- * entries.
- */
- nr = 0;
-
- for (vl = cd->visible; vl != NULL; vl = vl->next)
- {
- overDef *od;
-
- if (vl->m->slot != no_slot)
- continue;
-
- for (od = vl->cd->overs; od != NULL; od = od->next)
- {
- /*
- * Skip protected methods if we don't have the means to
- * handle them.
- */
- if (isProtected(od) && !hasShadow(cd))
- continue;
-
- if (skipOverload(od,vl->m,cd,vl->cd,TRUE))
- continue;
-
- ++nr;
-
- break;
- }
- }
-
- if ((*nrp = nr) == 0)
- return NULL;
-
- /* Create the table of methods. */
-
- mtab = sipMalloc(sizeof (sortedMethTab) * nr);
-
- /* Initialise the table. */
-
- mt = mtab;
-
- for (vl = cd->visible; vl != NULL; vl = vl->next)
- {
- int need_method, is_static;
- overDef *od;
-
- if (vl->m->slot != no_slot)
- continue;
-
- need_method = FALSE;
- is_static = TRUE;
-
- for (od = vl->cd->overs; od != NULL; od = od->next)
- {
- /*
- * Skip protected methods if we don't have the means to
- * handle them.
- */
- if (isProtected(od) && !hasShadow(cd))
- continue;
-
- if (!skipOverload(od,vl->m,cd,vl->cd,TRUE))
- {
- need_method = TRUE;
-
- if (!isPrivate(od) && !isStatic(od))
- is_static = FALSE;
- }
- }
-
- if (need_method)
- {
- mt->md = vl->m;
- mt->is_static = is_static;
-
- ++mt;
- }
- }
-
- /* Finally sort the table. */
-
- qsort(mtab,nr,sizeof (sortedMethTab),compareMethTab);
-
- return mtab;
-}
-
-
-/*
- * The qsort helper to compare two sortedMethTab structures based on the Python
- * name of the method.
- */
-
-static int compareMethTab(const void *m1,const void *m2)
-{
- return strcmp(((sortedMethTab *)m1)->md->pyname->text,
- ((sortedMethTab *)m2)->md->pyname->text);
-}
-
-
-/*
- * Generate the sorted table of methods and return the number of entries.
- */
-static int generateMethodTable(classDef *cd,FILE *fp)
-{
- int nr;
- sortedMethTab *mtab;
-
- mtab = (cd->iff->type == namespace_iface) ?
- createFunctionTable(cd,&nr) :
- createMethodTable(cd,&nr);
-
- if (mtab != NULL)
- {
- int i;
-
- prcode(fp,
-"\n"
-"\n"
-"static PyMethodDef methods_%C[] = {\n"
- ,classFQCName(cd));
-
- for (i = 0; i < nr; ++i)
- {
- memberDef *md = mtab[i].md;
-
- /*
- * For the moment we are suppressing the generation of
- * METH_STATIC until we understand descriptors better.
- * It could be that they will simplify the handling of
- * lazy attributes and allow things to be cached in the
- * type dictionary.
- */
- mtab[i].is_static = FALSE;
-
- prcode(fp,
-" {%N, meth_%C_%s, METH_VARARGS%s, NULL}%s\n"
- ,md->pyname,classFQCName(cd),md->pyname->text,(mtab[i].is_static ? "|METH_STATIC" : ""),((i + 1) < nr) ? "," : "");
- }
-
- free(mtab);
-
- prcode(fp,
-"};\n"
- );
- }
-
- return nr;
-}
-
-
-/*
- * Generate the "to type" convertor definitions.
- */
-
-static void generateConvertToDefinitions(mappedTypeDef *mtd,classDef *cd,
- FILE *fp)
-{
- codeBlock *convtocode;
- ifaceFileDef *iff;
- argDef type;
-
- if (cd != NULL)
- {
- convtocode = cd->convtocode;
-
- iff = cd->iff;
-
- type.atype = class_type;
- type.u.cd = cd;
- }
- else
- {
- convtocode = mtd->convtocode;
-
- iff = mtd->iff;
-
- type.atype = mapped_type;
- type.u.mtd = mtd;
- }
-
- type.argflags = 0;
- type.name = NULL;
- type.nrderefs = 0;
- type.defval = NULL;
-
- /* Generate the type convertors. */
-
- if (convtocode != NULL)
- {
- int need_ptr, need_xfer;
-
- /*
- * Sometimes type convertors are just stubs that set the error
- * flag, so check if we actually need everything so that we
- * can avoid compiler warnings.
- */
- need_ptr = (generating_c || usedInCode(convtocode, "sipCppPtr"));
- need_xfer = (generating_c || usedInCode(convtocode, "sipTransferObj"));
-
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static int convertTo_%T(PyObject *, void **, int *, PyObject *);}\n"
- , &type);
-
- prcode(fp,
-"static int convertTo_%T(PyObject *sipPy,void **%s,int *sipIsErr,PyObject *%s)\n"
-"{\n"
- , &type, (need_ptr ? "sipCppPtrV" : ""), (need_xfer ? "sipTransferObj" : ""));
-
- if (need_ptr)
- if (generating_c)
- prcode(fp,
-" %b **sipCppPtr = (%b **)sipCppPtrV;\n"
-"\n"
- , &type, &type);
- else
- prcode(fp,
-" %b **sipCppPtr = reinterpret_cast<%b **>(sipCppPtrV);\n"
-"\n"
- , &type, &type);
-
- generateCppCodeBlock(convtocode,fp);
-
- prcode(fp,
-"}\n"
- );
- }
-
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static void *forceConvertTo_%T(PyObject *, int *);}\n"
- , &type);
-
- prcode(fp,
-"static void *forceConvertTo_%T(PyObject *valobj,int *iserrp)\n"
-"{\n"
-" if (*iserrp || valobj == NULL)\n"
-" return NULL;\n"
-"\n"
- ,&type);
-
- if (convtocode != NULL)
- prcode(fp,
-" if (convertTo_%T(valobj,NULL,NULL,NULL))\n"
-" {\n"
-" void *val;\n"
-"\n"
-" /*\n"
-" * Note that we throw away the flag that says if the value\n"
-" * has just been created on the heap or not.\n"
-" */\n"
-" convertTo_%T(valobj,&val,iserrp,NULL);\n"
-"\n"
-" return val;\n"
-" }\n"
- ,&type
- ,&type);
- else
- prcode(fp,
-" if (valobj == Py_None || sipIsSubClassInstance(valobj,sipClass_%T))\n"
-" return sipConvertToCpp(valobj,sipClass_%T,iserrp);\n"
- ,&type
- ,&type);
-
- if (cd != NULL)
- prcode(fp,
-"\n"
-" sipBadClass(%N);\n"
- , iff->name);
- else
- prcode(fp,
-"\n"
-" sipBadClass(\"%B\");\n"
- , &mtd->type);
-
- prcode(fp,
-"\n"
-" *iserrp = 1;\n"
-"\n"
-" return NULL;\n"
-"}\n"
- );
-}
-
-
-/*
- * Generate a variable handler.
- */
-static void generateVariableHandler(varDef *vd,FILE *fp)
-{
- argType atype = vd->type.atype;
-
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static PyObject *var_%C(PyObject *, PyObject *);}\n"
- , vd->fqcname);
-
- prcode(fp,
-"static PyObject *var_%C(PyObject *%s,PyObject *sipPy)\n"
-"{\n"
- ,vd->fqcname,(isStaticVar(vd) ? "" : "sipSelf"));
-
- if (atype == class_type || atype == mapped_type)
- prcode(fp,
-" int sipIsErr = 0;\n"
- );
-
- if (vd->type.nrderefs == 0 && (atype == mapped_type || (atype == class_type && vd->type.u.cd->convtocode != NULL)))
- prcode(fp,
-" int sipValState;\n"
- );
-
- if (vd->getcode == NULL || vd->setcode == NULL)
- {
- prcode(fp,
-" ");
-
- generateNamedValueType(&vd->type, "sipVal", fp);
-
- prcode(fp, ";\n"
- );
- }
-
- if (!isStaticVar(vd))
- {
- if (generating_c)
- prcode(fp,
-" %S *sipCpp = (%S *)sipGetCppPtr((sipWrapper *)sipSelf,sipClass_%C);\n"
- ,classFQCName(vd->ecd),classFQCName(vd->ecd),classFQCName(vd->ecd));
- else
- prcode(fp,
-" %S *sipCpp = reinterpret_cast<%S *>(sipGetCppPtr((sipWrapper *)sipSelf,sipClass_%C));\n"
- ,classFQCName(vd->ecd),classFQCName(vd->ecd),classFQCName(vd->ecd));
-
- prcode(fp,
-"\n"
-" if (!sipCpp)\n"
-" return NULL;\n"
- );
- }
-
- prcode(fp,
-"\n"
-" if (sipPy == NULL)\n"
-" {\n"
- );
-
- /* Generate the get handler part. */
-
- if (vd->getcode != NULL)
- {
- generateCppCodeBlock(vd->getcode, fp);
-
- prcode(fp,
-"\n"
-" return sipPy;\n"
- );
- }
- else
- {
- int pyobj = FALSE;
-
- prcode(fp,
-" sipVal = %s", (((atype == class_type || atype == mapped_type) && vd->type.nrderefs == 0) ? "&" : ""));
-
- generateVarMember(vd, fp);
-
- prcode(fp, ";\n"
-"\n"
- );
-
- switch (atype)
- {
- case mapped_type:
- prcode(fp,
-" sipPy = sipConvertFromMappedType(sipVal,sipMappedType_%T,NULL);\n"
- ,&vd->type);
-
- break;
-
- case class_type:
- generateVarClassConversion(vd,fp);
- break;
-
- case bool_type:
- case cbool_type:
- prcode(fp,
-" sipPy = PyBool_FromLong(sipVal);\n"
- );
-
- break;
-
- case sstring_type:
- case ustring_type:
- case string_type:
- if (vd->type.nrderefs == 0)
- prcode(fp,
-" sipPy = PyString_FromStringAndSize(%s&sipVal,1);\n"
- ,(atype != string_type) ? "(char *)" : "");
- else
- prcode(fp,
-" sipPy = PyString_FromString(%ssipVal);\n"
- ,(atype != string_type) ? "(char *)" : "");
-
- break;
-
- case wstring_type:
- if (vd->type.nrderefs == 0)
- prcode(fp,
-" sipPy = PyUnicode_FromWideChar(&sipVal,1);\n"
- );
- else
- prcode(fp,
-" sipPy = PyUnicode_FromWideChar(sipVal,(SIP_SSIZE_T)wcslen(sipVal));\n"
- );
-
- break;
-
- case float_type:
- case cfloat_type:
- prcode(fp,
-" sipPy = PyFloat_FromDouble((double)sipVal);\n"
- );
- break;
-
- case double_type:
- case cdouble_type:
- prcode(fp,
-" sipPy = PyFloat_FromDouble(sipVal);\n"
- );
- break;
-
- case enum_type:
- if (vd->type.u.ed->fqcname != NULL)
- {
- prcode(fp,
-" sipPy = sipConvertFromNamedEnum(sipVal,sipEnum_%C);\n"
- ,vd->type.u.ed->fqcname);
-
- break;
- }
-
- /* Drop through. */
-
- case short_type:
- case cint_type:
- case int_type:
- prcode(fp,
-" sipPy = PyInt_FromLong(sipVal);\n"
- );
- break;
-
- case long_type:
- prcode(fp,
-" sipPy = PyLong_FromLong(sipVal);\n"
- );
- break;
-
- case ushort_type:
- case uint_type:
- case ulong_type:
- prcode(fp,
-" sipPy = PyLong_FromUnsignedLong(sipVal);\n"
- );
- break;
-
- case longlong_type:
- prcode(fp,
-" sipPy = PyLong_FromLongLong(sipVal);\n"
- );
- break;
-
- case ulonglong_type:
- prcode(fp,
-" sipPy = PyLong_FromUnsignedLongLong(sipVal);\n"
- );
- break;
-
- case struct_type:
- prcode(fp,
-" sipPy = sipConvertFromVoidPtr(");
-
- if (isConstArg(&vd->type))
- prcode(fp, "const_cast<%b *>(sipVal)", &vd->type);
- else
- prcode(fp, "sipVal");
-
- prcode(fp, ");\n"
- );
-
- break;
-
- case void_type:
- prcode(fp,
-" sipPy = sipConvertFromVoidPtr(");
-
- if (isConstArg(&vd->type))
- prcode(fp, "const_cast<void *>(sipVal)");
- else
- prcode(fp, "sipVal");
-
- prcode(fp, ");\n"
- );
-
- break;
-
- case pyobject_type:
- case pytuple_type:
- case pylist_type:
- case pydict_type:
- case pycallable_type:
- case pyslice_type:
- case pytype_type:
- prcode(fp,
-" Py_XINCREF(sipVal);\n"
- );
- pyobj = TRUE;
- break;
- }
-
- prcode(fp,
-"\n"
-" return %s;\n"
- ,(pyobj ? "sipVal" : "sipPy"));
- }
-
- prcode(fp,
-" }\n"
-"\n"
- );
-
- /* Generate the set handler part. */
-
- if (vd->setcode != NULL)
- {
- prcode(fp,
-" {\n"
-" int sipErr = 0;\n"
-"\n"
- );
-
- generateCppCodeBlock(vd->setcode, fp);
-
- prcode(fp,
-"\n"
-" if (sipErr)\n"
-" return NULL;\n"
-" }\n"
- );
- }
- else
- {
- char *deref;
- int might_be_temp;
-
- might_be_temp = generateObjToCppConversion(&vd->type,fp);
-
- deref = "";
-
- if (atype == class_type || atype == mapped_type)
- {
- if (vd->type.nrderefs == 0)
- deref = "*";
-
- prcode(fp,
-"\n"
-" if (sipIsErr)\n"
-" return NULL;\n"
-"\n"
- );
- }
- else
- {
- if ((atype == sstring_type || atype == ustring_type || atype == string_type || atype == wstring_type) && vd->type.nrderefs != 0)
- {
- prcode(fp,
-"\n"
-" if (sipVal == NULL)\n"
- );
- }
- else
- prcode(fp,
-"\n"
-" if (PyErr_Occurred() != NULL)\n"
- );
-
- prcode(fp,
-" {\n"
-" sipBadSetType(%N,%N);\n"
-" return NULL;\n"
-" }\n"
-"\n"
- ,vd->ecd->iff->name,vd->pyname);
- }
-
- if (atype == pyobject_type || atype == pytuple_type ||
- atype == pylist_type || atype == pydict_type ||
- atype == pycallable_type || atype == pyslice_type ||
- atype == pytype_type)
- {
- prcode(fp,
-" Py_XDECREF(");
-
- generateVarMember(vd, fp);
-
- prcode(fp, ");\n"
-" Py_INCREF(sipVal);\n"
-"\n"
- );
- }
-
- prcode(fp,
-" ");
-
- generateVarMember(vd, fp);
-
- prcode(fp, " = %ssipVal;\n"
- , deref);
-
- /* Note that wchar_t * leaks here. */
-
- if (might_be_temp)
- prcode(fp,
-"\n"
-" sipReleaseInstance(sipVal,sipClass_%C,sipValState);\n"
- , classFQCName(vd->type.u.cd));
- else if (vd->type.atype == mapped_type && vd->type.nrderefs == 0)
- prcode(fp,
-"\n"
-" sipReleaseMappedType(sipVal,sipMappedType_%T,sipValState);\n"
- , &vd->type);
- }
-
- prcode(fp,
-"\n"
-" Py_INCREF(Py_None);\n"
-" return Py_None;\n"
-"}\n"
- );
-}
-
-
-/*
- * Generate the member variable of a class.
- */
-static void generateVarMember(varDef *vd, FILE *fp)
-{
- if (isStaticVar(vd))
- prcode(fp,"%S::",classFQCName(vd->ecd));
- else
- prcode(fp,"sipCpp->");
-
- prcode(fp, "%s", scopedNameTail(vd->fqcname));
-}
-
-
-/*
- * Generate an variable class conversion fragment.
- */
-static void generateVarClassConversion(varDef *vd,FILE *fp)
-{
- classDef *cd = vd->type.u.cd;
-
- prcode(fp,
-" sipPy = sipConvertFromInstance(");
-
- if (isConstArg(&vd->type))
- prcode(fp,"const_cast<%b *>(sipVal)",&vd->type);
- else
- prcode(fp,"sipVal");
-
- prcode(fp,",sipClass_%C,NULL);\n"
- ,classFQCName(cd));
-}
-
-
-/*
- * Generate the declaration of a variable that is initialised from a Python
- * object. Return TRUE if the value might be a temporary on the heap.
- */
-static int generateObjToCppConversion(argDef *ad,FILE *fp)
-{
- int might_be_temp = FALSE;
- char *rhs = NULL;
-
- prcode(fp,
-" sipVal = ");
-
- switch (ad->atype)
- {
- case mapped_type:
- {
- const char *tail;
-
- if (generating_c)
- {
- prcode(fp, "(%b *)", ad);
- tail = "";
- }
- else
- {
- prcode(fp, "reinterpret_cast<%b *>(", ad);
- tail = ")";
- }
-
- /*
- * Note that we don't support /Transfer/ but could do.
- */
-
- prcode(fp, "sipForceConvertToMappedType(sipPy,sipMappedType_%T,NULL,%s,%s,&sipIsErr)", ad, (ad->nrderefs ? "0" : "SIP_NOT_NONE"), (ad->nrderefs ? "NULL" : "&sipValState"));
-
- prcode(fp, "%s;\n"
- , tail);
- }
- break;
-
- case class_type:
- {
- const char *tail;
-
- if (ad->nrderefs == 0 && ad->u.cd->convtocode != NULL)
- might_be_temp = TRUE;
-
- if (generating_c)
- {
- prcode(fp, "(%b *)", ad);
- tail = "";
- }
- else
- {
- prcode(fp, "reinterpret_cast<%b *>(", ad);
- tail = ")";
- }
-
- /*
- * Note that we don't support /Transfer/ but could do.
- * We could also support /Constrained/ (so long as we
- * also supported it for all types).
- */
-
- prcode(fp, "sipForceConvertToInstance(sipPy,sipClass_%C,NULL,%s,%s,&sipIsErr)", classFQCName(ad->u.cd), (ad->nrderefs ? "0" : "SIP_NOT_NONE"), (might_be_temp ? "&sipValState" : "NULL"));
-
- prcode(fp, "%s;\n"
- , tail);
- }
- break;
-
- case enum_type:
- prcode(fp, "(%E)PyInt_AsLong(sipPy);\n"
- , ad->u.ed);
- break;
-
- case sstring_type:
- if (ad->nrderefs == 0)
- rhs = "(signed char)sipString_AsChar(sipPy)";
- else
- rhs = "(signed char *)PyString_AsString(sipPy)";
- break;
-
- case ustring_type:
- if (ad->nrderefs == 0)
- rhs = "(unsigned char)sipString_AsChar(sipPy)";
- else
- rhs = "(unsigned char *)PyString_AsString(sipPy)";
- break;
-
- case string_type:
- if (ad->nrderefs == 0)
- rhs = "sipString_AsChar(sipPy)";
- else
- rhs = "PyString_AsString(sipPy)";
- break;
-
- case wstring_type:
- if (ad->nrderefs == 0)
- rhs = "sipUnicode_AsWChar(sipPy)";
- else
- rhs = "sipUnicode_AsWString(sipPy)";
- break;
-
- case float_type:
- case cfloat_type:
- rhs = "(float)PyFloat_AsDouble(sipPy)";
- break;
-
- case double_type:
- case cdouble_type:
- rhs = "PyFloat_AsDouble(sipPy)";
- break;
-
- case bool_type:
- case cbool_type:
- rhs = "(bool)PyInt_AsLong(sipPy)";
- break;
-
- case ushort_type:
- rhs = "(unsigned short)sipLong_AsUnsignedLong(sipPy)";
- break;
-
- case short_type:
- rhs = "(short)PyInt_AsLong(sipPy)";
- break;
-
- case uint_type:
- rhs = "(unsigned)sipLong_AsUnsignedLong(sipPy)";
- break;
-
- case int_type:
- case cint_type:
- rhs = "(int)PyInt_AsLong(sipPy)";
- break;
-
- case ulong_type:
- rhs = "sipLong_AsUnsignedLong(sipPy)";
- break;
-
- case long_type:
- rhs = "PyLong_AsLong(sipPy)";
- break;
-
- case ulonglong_type:
- rhs = "PyLong_AsUnsignedLongLong(sipPy)";
- break;
-
- case longlong_type:
- rhs = "PyLong_AsLongLong(sipPy)";
- break;
-
- case struct_type:
- prcode(fp, "(struct %S *)sipConvertToVoidPtr(sipPy);\n"
- , ad->u.sname);
- break;
-
- case void_type:
- rhs = "sipConvertToVoidPtr(sipPy)";
- break;
-
- case pyobject_type:
- case pytuple_type:
- case pylist_type:
- case pydict_type:
- case pycallable_type:
- case pyslice_type:
- case pytype_type:
- rhs = "sipPy";
- break;
- }
-
- if (rhs != NULL)
- prcode(fp, "%s;\n"
- , rhs);
-
- return might_be_temp;
-}
-
-
-/*
- * Returns TRUE if the given method is a slot that takes zero arguments.
- */
-static int isZeroArgSlot(memberDef *md)
-{
- slotType st = md->slot;
-
- return (st == str_slot || st == int_slot || st == long_slot ||
- st == float_slot || st == invert_slot || st == neg_slot ||
- st == len_slot || st == nonzero_slot || st == pos_slot ||
- st == abs_slot || st == repr_slot || st == hash_slot);
-}
-
-
-/*
- * Returns TRUE if the given method is a slot that takes more than one
- * argument.
- */
-static int isMultiArgSlot(memberDef *md)
-{
- slotType st = md->slot;
-
- return (st == setitem_slot || st == call_slot);
-}
-
-
-/*
- * Returns TRUE if the given method is a slot that returns void (ie. nothing
- * other than an error indicator).
- */
-int isVoidReturnSlot(memberDef *md)
-{
- slotType st = md->slot;
-
- return (st == setitem_slot || st == delitem_slot);
-}
-
-
-/*
- * Returns TRUE if the given method is a slot that returns int.
- */
-int isIntReturnSlot(memberDef *md)
-{
- slotType st = md->slot;
-
- return (st == len_slot || st == nonzero_slot || st == contains_slot ||
- st == cmp_slot);
-}
-
-
-/*
- * Returns TRUE if the given method is a slot that returns long.
- */
-int isLongReturnSlot(memberDef *md)
-{
- slotType st = md->slot;
-
- return (st == hash_slot);
-}
-
-
-/*
- * Returns TRUE if the given method is a slot that takes an int argument.
- */
-static int isIntArgSlot(memberDef *md)
-{
- slotType st = md->slot;
-
- return (st == repeat_slot || st == irepeat_slot);
-}
-
-
-/*
- * Returns TRUE if the given method is an inplace number slot.
- */
-static int isInplaceNumberSlot(memberDef *md)
-{
- slotType st = md->slot;
-
- return (st == iadd_slot || st == isub_slot || st == imul_slot ||
- st == idiv_slot || st == imod_slot ||
- st == ior_slot || st == ixor_slot || st == iand_slot ||
- st == ilshift_slot || st == irshift_slot);
-}
-
-
-/*
- * Returns TRUE if the given method is an inplace sequence slot.
- */
-static int isInplaceSequenceSlot(memberDef *md)
-{
- slotType st = md->slot;
-
- return (st == iconcat_slot || st == irepeat_slot);
-}
-
-
-/*
- * Returns TRUE if the given method is a number slot slot.
- */
-int isNumberSlot(memberDef *md)
-{
- slotType st = md->slot;
-
- return (st == add_slot || st == sub_slot || st == mul_slot ||
- st == div_slot || st == mod_slot ||
- st == and_slot || st == or_slot || st == xor_slot ||
- st == lshift_slot || st == rshift_slot);
-}
-
-
-/*
- * Returns TRUE if the given method is a rich compare slot.
- */
-int isRichCompareSlot(memberDef *md)
-{
- slotType st = md->slot;
-
- return (st == lt_slot || st == le_slot || st == eq_slot ||
- st == ne_slot || st == gt_slot || st == ge_slot);
-}
-
-
-/*
- * Generate a Python slot handler for either a class, an enum or an extender.
- */
-static void generateSlot(sipSpec *pt, classDef *cd, enumDef *ed, memberDef *md, FILE *fp)
-{
- char *arg_str, *prefix, *ret_type;
- int ret_int, nr_args;
- overDef *od, *overs;
- scopedNameDef *fqcname;
- nameDef *pyname;
-
- if (ed != NULL)
- {
- prefix = "Enum";
- pyname = ed->pyname;
- fqcname = ed->fqcname;
- overs = ed->overs;
- }
- else if (cd != NULL)
- {
- prefix = "Class";
- pyname = cd->iff->name;
- fqcname = classFQCName(cd);
- overs = cd->overs;
- }
- else
- {
- prefix = NULL;
- pyname = NULL;
- fqcname = NULL;
- overs = pt->overs;
- }
-
- if (isVoidReturnSlot(md) || isIntReturnSlot(md))
- {
- ret_int = TRUE;
- ret_type = "int ";
- }
- else
- {
- ret_int = FALSE;
-
- if (isLongReturnSlot(md))
- ret_type = "long ";
- else
- ret_type = "PyObject *";
- }
-
- if (isIntArgSlot(md))
- {
- nr_args = 0;
- arg_str = "PyObject *sipSelf,int a0";
- }
- else if (isMultiArgSlot(md))
- {
- nr_args = 2;
- arg_str = "PyObject *sipSelf,PyObject *sipArgs";
- }
- else if (isZeroArgSlot(md))
- {
- nr_args = 0;
- arg_str = "PyObject *sipSelf";
- }
- else if (isNumberSlot(md))
- {
- nr_args = 2;
- arg_str = "PyObject *sipArg0,PyObject *sipArg1";
- }
- else
- {
- nr_args = 1;
- arg_str = "PyObject *sipSelf,PyObject *sipArg";
- }
-
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- {
- prcode(fp,
-"extern \"C\" {static %sslot_", ret_type);
-
- if (fqcname != NULL)
- prcode(fp, "%C_", fqcname);
-
- prcode(fp, "%s(%s);}\n"
- , md->pyname->text, arg_str);
- }
-
- prcode(fp,
-"static %sslot_", ret_type);
-
- if (fqcname != NULL)
- prcode(fp, "%C_", fqcname);
-
- prcode(fp, "%s(%s)\n"
-"{\n"
- , md->pyname->text, arg_str);
-
- if (isInplaceNumberSlot(md))
- prcode(fp,
-" if (!PyObject_TypeCheck(sipSelf,(PyTypeObject *)sip%s_%C))\n"
-" {\n"
-" Py_INCREF(Py_NotImplemented);\n"
-" return Py_NotImplemented;\n"
-" }\n"
-"\n"
- , prefix, fqcname);
-
- if (!isNumberSlot(md))
- if (cd != NULL)
- prcode(fp,
-" %S *sipCpp = reinterpret_cast<%S *>(sipGetCppPtr((sipWrapper *)sipSelf,sipClass_%C));\n"
-"\n"
-" if (!sipCpp)\n"
-" return %s;\n"
-"\n"
- , fqcname, fqcname, fqcname
- , (md->slot == cmp_slot ? "-2" : (ret_int ? "-1" : "0")));
- else
- prcode(fp,
-" %S sipCpp = static_cast<%S>(PyInt_AsLong(sipSelf));\n"
-"\n"
- , fqcname, fqcname);
-
- if (nr_args > 0)
- prcode(fp,
-" int sipArgsParsed = 0;\n"
- );
-
- for (od = overs; od != NULL; od = od->next)
- if (od->common == md && isAbstract(od))
- {
- prcode(fp,
-" bool sipSelfWasArg = !sipSelf;\n"
- );
-
- break;
- }
-
- for (od = overs; od != NULL; od = od->next)
- if (od->common == md)
- generateFunctionBody(pt, od, cd, cd, (ed == NULL && !dontDerefSelf(od)), fp);
-
- if (nr_args > 0)
- switch (md->slot)
- {
- case cmp_slot:
- prcode(fp,
-"\n"
-" return 2;\n"
- );
- break;
-
- case concat_slot:
- case iconcat_slot:
- case repeat_slot:
- case irepeat_slot:
- prcode(fp,
-"\n"
-" /* Raise an exception if the argument couldn't be parsed. */\n"
-" sipBadOperatorArg(sipSelf,sipArg,%s);\n"
-"\n"
-" return NULL;\n"
- ,slotName(md->slot));
- break;
-
- default:
- if (isNumberSlot(md) || isRichCompareSlot(md))
- {
- /* We can't extend enum slots. */
- if (cd == NULL)
- prcode(fp,
-"\n"
-" Py_INCREF(Py_NotImplemented);\n"
-" return Py_NotImplemented;\n"
- );
- else if (isNumberSlot(md))
- prcode(fp,
-"\n"
-" return sipPySlotExtend(&sipModuleAPI_%s,%s,NULL,sipArg0,sipArg1);\n"
- , pt->module->name, slotName(md->slot));
- else
- prcode(fp,
-"\n"
-" return sipPySlotExtend(&sipModuleAPI_%s,%s,sip%s_%C,sipSelf,sipArg);\n"
- , pt->module->name, slotName(md->slot), prefix, fqcname);
- }
- else if (isInplaceNumberSlot(md))
- prcode(fp,
-"\n"
-" PyErr_Clear();\n"
-"\n"
-" Py_INCREF(Py_NotImplemented);\n"
-" return Py_NotImplemented;\n"
- );
- else
- prcode(fp,
-"\n"
-" /* Raise an exception if the arguments couldn't be parsed. */\n"
-" sipNoMethod(sipArgsParsed,%N,%N);\n"
-"\n"
-" return %s;\n"
- , pyname, md->pyname
- ,ret_int ? "-1" : "0");
- }
-
- prcode(fp,
-"}\n"
- );
-}
-
-
-/*
- * Generate the member functions for a class.
- */
-static void generateClassFunctions(sipSpec *pt,classDef *cd,FILE *fp)
-{
- visibleList *vl;
- memberDef *md;
-
- /* Any shadow code. */
- if (hasShadow(cd))
- generateShadowCode(pt,cd,fp);
-
- /* The member functions. */
- for (vl = cd->visible; vl != NULL; vl = vl->next)
- if (vl->m->slot == no_slot)
- generateFunction(pt, vl->m, vl->cd->overs, cd, vl->cd, fp);
-
- /* The slot functions. */
- for (md = cd->members; md != NULL; md = md->next)
- if (cd->iff->type == namespace_iface)
- generateOrdinaryFunction(pt,cd,md,fp);
- else if (md->slot != no_slot && md->slot != unicode_slot)
- generateSlot(pt, cd, NULL, md, fp);
-
- if (cd->iff->type != namespace_iface && !generating_c)
- {
- classList *cl;
- int need_ptr, need_state;
-
- /* The cast function. */
- prcode(fp,
-"\n"
-"\n"
-"/* Cast a pointer to a type somewhere in its superclass hierarchy. */\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static void *cast_%C(void *, sipWrapperType *);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static void *cast_%C(void *ptr,sipWrapperType *targetClass)\n"
-"{\n"
- ,classFQCName(cd));
-
- if (cd->supers != NULL)
- prcode(fp,
-" void *res;\n"
-"\n"
- );
-
- prcode(fp,
-" if (targetClass == sipClass_%C)\n"
-" return ptr;\n"
- ,classFQCName(cd));
-
- for (cl = cd->supers; cl != NULL; cl = cl->next)
- {
- scopedNameDef *sname = cl->cd->iff->fqcname;
-
- prcode(fp,
-"\n"
-" if ((res = sipCast_%C((%S *)(%S *)ptr,targetClass)) != NULL)\n"
-" return res;\n"
- ,sname,sname,classFQCName(cd));
- }
-
- prcode(fp,
-"\n"
-" return NULL;\n"
-"}\n"
- );
-
- /* Generate the release function without compiler warnings. */
- need_ptr = need_state = FALSE;
-
- if (canCreate(cd) || isPublicDtor(cd))
- {
- if (hasShadow(cd))
- need_ptr = need_state = TRUE;
- else if (isPublicDtor(cd))
- need_ptr = TRUE;
- }
-
- prcode(fp,
-"\n"
-"\n"
-"/* Call the instance's destructor. */\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static void release_%C(void *, int);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static void release_%C(void *%s,int%s)\n"
-"{\n"
- , classFQCName(cd), (need_ptr ? "ptr" : ""), (need_state ? " state" : ""));
-
- /*
- * If there is an explicit public dtor then assume there is
- * some way to call it which we haven't worked out (because we
- * don't fully understand C++).
- */
- if (canCreate(cd) || isPublicDtor(cd))
- {
- int rgil = ((release_gil || isReleaseGILDtor(cd)) && !isHoldGILDtor(cd));
-
- if (rgil)
- prcode(fp,
-" Py_BEGIN_ALLOW_THREADS\n"
-"\n"
- );
-
- if (hasShadow(cd))
- {
- prcode(fp,
-" if (state & SIP_DERIVED_CLASS)\n"
-" delete reinterpret_cast<sip%C *>(ptr);\n"
- , classFQCName(cd));
-
- if (isPublicDtor(cd))
- prcode(fp,
-" else\n"
-" delete reinterpret_cast<%U *>(ptr);\n"
- , cd);
- }
- else if (isPublicDtor(cd))
- prcode(fp,
-" delete reinterpret_cast<%U *>(ptr);\n"
- , cd);
-
- if (rgil)
- prcode(fp,
-"\n"
-" Py_END_ALLOW_THREADS\n"
- );
- }
-
- prcode(fp,
-"}\n"
- );
- }
-
- /* The traverse function. */
- if (cd->travcode != NULL)
- {
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static int traverse_%C(void *, visitproc, void *);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static int traverse_%C(void *sipCppV,visitproc sipVisit,void *sipArg)\n"
-"{\n"
-" ", classFQCName(cd));
-
- generateClassFromVoid(cd, "sipCpp", "sipCppV", fp);
-
- prcode(fp, ";\n"
-" int sipRes;\n"
-"\n"
- );
-
- generateCppCodeBlock(cd->travcode, fp);
-
- prcode(fp,
-"\n"
-" return sipRes;\n"
-"}\n"
- );
- }
-
- /* The clear function. */
- if (cd->clearcode != NULL)
- {
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static int clear_%C(void *);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static int clear_%C(void *sipCppV)\n"
-"{\n"
-" ", classFQCName(cd));
-
- generateClassFromVoid(cd, "sipCpp", "sipCppV", fp);
-
- prcode(fp, ";\n"
-" int sipRes;\n"
-"\n"
- );
-
- generateCppCodeBlock(cd->clearcode, fp);
-
- prcode(fp,
-"\n"
-" return sipRes;\n"
-"}\n"
- );
- }
-
- /* The buffer interface functions. */
- if (cd->readbufcode != NULL)
- {
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static SIP_SSIZE_T getreadbuffer_%C(PyObject *, void *, SIP_SSIZE_T, void **);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static SIP_SSIZE_T getreadbuffer_%C(PyObject *%s, void *sipCppV, SIP_SSIZE_T %s, void **%s)\n"
-"{\n"
-" ", classFQCName(cd)
- , argName("sipSelf", cd->readbufcode)
- , argName("sipSegment", cd->readbufcode)
- , argName("sipPtrPtr", cd->readbufcode));
-
- generateClassFromVoid(cd, "sipCpp", "sipCppV", fp);
-
- prcode(fp, ";\n"
-" SIP_SSIZE_T sipRes;\n"
-"\n"
- );
-
- generateCppCodeBlock(cd->readbufcode, fp);
-
- prcode(fp,
-"\n"
-" return sipRes;\n"
-"}\n"
- );
- }
-
- if (cd->writebufcode != NULL)
- {
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static SIP_SSIZE_T getwritebuffer_%C(PyObject *, void *, SIP_SSIZE_T, void **);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static SIP_SSIZE_T getwritebuffer_%C(PyObject *%s, void *sipCppV, SIP_SSIZE_T %s, void **%s)\n"
-"{\n"
-" ", classFQCName(cd)
- , argName("sipSelf", cd->writebufcode)
- , argName("sipSegment", cd->writebufcode)
- , argName("sipPtrPtr", cd->writebufcode));
-
- generateClassFromVoid(cd, "sipCpp", "sipCppV", fp);
-
- prcode(fp, ";\n"
-" SIP_SSIZE_T sipRes;\n"
-"\n"
- );
-
- generateCppCodeBlock(cd->writebufcode, fp);
-
- prcode(fp,
-"\n"
-" return sipRes;\n"
-"}\n"
- );
- }
-
- if (cd->segcountcode != NULL)
- {
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static SIP_SSIZE_T getsegcount_%C(PyObject *, void *, SIP_SSIZE_T *);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static SIP_SSIZE_T getsegcount_%C(PyObject *%s, void *sipCppV, SIP_SSIZE_T *%s)\n"
-"{\n"
-" ", classFQCName(cd)
- , argName("sipSelf", cd->segcountcode)
- , argName("sipLenPtr", cd->segcountcode));
-
- generateClassFromVoid(cd, "sipCpp", "sipCppV", fp);
-
- prcode(fp, ";\n"
-" SIP_SSIZE_T sipRes;\n"
-"\n"
- );
-
- generateCppCodeBlock(cd->segcountcode, fp);
-
- prcode(fp,
-"\n"
-" return sipRes;\n"
-"}\n"
- );
- }
-
- if (cd->charbufcode != NULL)
- {
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static SIP_SSIZE_T getcharbuffer_%C(PyObject *, void *, SIP_SSIZE_T, void **);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static SIP_SSIZE_T getcharbuffer_%C(PyObject *%s, void *sipCppV, SIP_SSIZE_T %s, void **%s)\n"
-"{\n"
-" ", classFQCName(cd)
- , argName("sipSelf", cd->charbufcode)
- , argName("sipSegment", cd->charbufcode)
- , argName("sipPtrPtr", cd->charbufcode));
-
- generateClassFromVoid(cd, "sipCpp", "sipCppV", fp);
-
- prcode(fp, ";\n"
-" SIP_SSIZE_T sipRes;\n"
-"\n"
- );
-
- generateCppCodeBlock(cd->charbufcode, fp);
-
- prcode(fp,
-"\n"
-" return sipRes;\n"
-"}\n"
- );
- }
-
- /* The dealloc function. */
- if (needDealloc(cd))
- {
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static void dealloc_%C(sipWrapper *);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static void dealloc_%C(sipWrapper *sipSelf)\n"
-"{\n"
- ,classFQCName(cd));
-
- if (tracing)
- prcode(fp,
-" sipTrace(SIP_TRACE_DEALLOCS,\"dealloc_%C()\\n\");\n"
-"\n"
- ,classFQCName(cd));
-
- /* Disable the virtual handlers. */
- if (hasShadow(cd))
- prcode(fp,
-" if (sipIsDerived(sipSelf))\n"
-" reinterpret_cast<sip%C *>(sipSelf->u.cppPtr)->sipPySelf = NULL;\n"
-"\n"
- ,classFQCName(cd));
-
- if (generating_c || isPublicDtor(cd) || (hasShadow(cd) && isProtectedDtor(cd)))
- {
- prcode(fp,
-" if (sipIsPyOwned(sipSelf))\n"
-" {\n"
- );
-
- if (cd->dealloccode != NULL)
- {
- if (usedInCode(cd->dealloccode, "sipCpp"))
- {
- prcode(fp,
-" ");
-
- generateClassFromVoid(cd, "sipCpp", "sipSelf->u.cppPtr", fp);
-
- prcode(fp, ";\n"
- );
- }
-
- generateCppCodeBlock(cd->dealloccode,fp);
-
- prcode(fp,
-"\n"
- );
- }
-
- if (isDelayedDtor(cd))
- prcode(fp,
-" sipAddDelayedDtor(sipSelf);\n"
- );
- else if (generating_c)
- prcode(fp,
-" sipFree(sipSelf->u.cppPtr);\n"
- );
- else
- prcode(fp,
-" release_%C(sipSelf->u.cppPtr,%s);\n"
- , classFQCName(cd), (hasShadow(cd) ? "sipSelf->flags" : "0"));
-
- prcode(fp,
-" }\n"
- );
- }
-
- prcode(fp,
-"}\n"
- );
- }
-
- /* The type initialisation function. */
- if (canCreate(cd))
- generateTypeInit(pt, cd, fp);
-}
-
-
-/*
- * Generate the shadow (derived) class code.
- */
-static void generateShadowCode(sipSpec *pt,classDef *cd,FILE *fp)
-{
- int nrVirts, virtNr;
- virtOverDef *vod;
- ctorDef *ct;
-
- nrVirts = countVirtuals(cd);
-
- /* Generate the wrapper class constructors. */
-
- for (ct = cd->ctors; ct != NULL; ct = ct->next)
- {
- char *prefix;
- int a;
- ctorDef *dct;
-
- if (isPrivateCtor(ct))
- continue;
-
- if (ct->cppsig == NULL)
- continue;
-
- /* Check we haven't already handled this C++ signature. */
- for (dct = cd->ctors; dct != ct; dct = dct->next)
- if (dct->cppsig != NULL && sameSignature(dct->cppsig, ct->cppsig, TRUE))
- break;
-
- if (dct != ct)
- continue;
-
- prcode(fp,
-"\n"
-"sip%C::sip%C(",classFQCName(cd),classFQCName(cd));
-
- generateArgs(ct->cppsig,Definition,fp);
-
- prcode(fp,")%X: %S(",ct->exceptions,classFQCName(cd));
-
- prefix = "";
-
- for (a = 0; a < ct->cppsig->nrArgs; ++a)
- {
- prcode(fp,"%sa%d",prefix,a);
- prefix = ",";
- }
-
- prcode(fp,"), sipPySelf(0)\n"
-"{\n"
- );
-
- if (tracing)
- {
- prcode(fp,
-" sipTrace(SIP_TRACE_CTORS,\"sip%C::sip%C(",classFQCName(cd),classFQCName(cd));
- generateArgs(ct->cppsig,Declaration,fp);
- prcode(fp,")%X (this=0x%%08x)\\n\",this);\n"
-"\n"
- ,ct->exceptions);
- }
-
- prcode(fp,
-" sipCommonCtor(%s,%d);\n"
-"}\n"
- ,(nrVirts > 0 ? "sipPyMethods" : "NULL"),nrVirts);
- }
-
- /* The destructor. */
-
- if (!isPrivateDtor(cd))
- {
- prcode(fp,
-"\n"
-"sip%C::~sip%C()%X\n"
-"{\n"
- ,classFQCName(cd),classFQCName(cd),cd->dtorexceptions);
-
- if (tracing)
- prcode(fp,
-" sipTrace(SIP_TRACE_DTORS,\"sip%C::~sip%C()%X (this=0x%%08x)\\n\",this);\n"
-"\n"
- ,classFQCName(cd),classFQCName(cd),cd->dtorexceptions);
-
- if (cd->dtorcode != NULL)
- generateCppCodeBlock(cd->dtorcode,fp);
-
- prcode(fp,
-" sipCommonDtor(sipPySelf);\n"
-"}\n"
- );
- }
-
- /* The metacall method if required. */
- if (isQObjectSubClass(cd) && optQ_OBJECT4(pt))
- {
- prcode(fp,
-"\n"
-"const TQMetaObject *sip%C::metaObject() const\n"
-"{\n"
-" return sip_%s_qt_metaobject(sipPySelf,sipClass_%C,%S::metaObject());\n"
-"}\n"
-"\n"
-"int sip%C::qt_metacall(TQMetaObject::Call _c,int _id,void **_a)\n"
-"{\n"
-" sip%C::metaObject();\n"
-"\n"
-" _id = %S::qt_metacall(_c,_id,_a);\n"
-"\n"
-" if (_id >= 0)\n"
-" {\n"
-" SIP_BLOCK_THREADS\n"
-" _id = sip_%s_qt_metacall(sipPySelf,sipClass_%C,_c,_id,_a);\n"
-" SIP_UNBLOCK_THREADS\n"
-" }\n"
-"\n"
-" return _id;\n"
-"}\n"
- , classFQCName(cd)
- , pt->module->name, classFQCName(cd), classFQCName(cd)
- , classFQCName(cd)
- , classFQCName(cd)
- , classFQCName(cd)
- , pt->module->name, classFQCName(cd));
- }
-
- /* Generate the virtual catchers. */
-
- virtNr = 0;
-
- for (vod = cd->vmembers; vod != NULL; vod = vod->next)
- {
- overDef *od = &vod->o;
- virtOverDef *dvod;
-
- if (isPrivate(od))
- continue;
-
- /* Check we haven't already handled this C++ signature. */
- for (dvod = cd->vmembers; dvod != vod; dvod = dvod->next)
- if (strcmp(dvod->o.cppname,od->cppname) == 0 && sameSignature(dvod->o.cppsig,od->cppsig,TRUE))
- break;
-
- if (dvod != vod)
- continue;
-
- generateVirtualCatcher(pt,cd,virtNr++,vod,fp);
- }
-
- /* Generate the wrapper around each protected member function. */
-
- generateProtectedDefinitions(cd,fp);
-
- /* Generate the emitters if needed. */
- if (!optNoEmitters(pt))
- generateEmitters(pt, cd, fp);
-}
-
-
-/*
- * Generate the emitter functions.
- */
-static void generateEmitters(sipSpec *pt, classDef *cd, FILE *fp)
-{
- int noIntro;
- visibleList *vl;
-
- for (vl = cd->visible; vl != NULL; vl = vl->next)
- {
- overDef *od;
-
- for (od = vl->cd->overs; od != NULL; od = od->next)
- if (od->common == vl->m && isSignal(od))
- {
- generateEmitter(pt,cd,vl,fp);
- break;
- }
- }
-
- /* Generate the table of signals to support fan-outs. */
-
- noIntro = TRUE;
-
- for (vl = cd->visible; vl != NULL; vl = vl->next)
- {
- overDef *od;
-
- for (od = vl->cd->overs; od != NULL; od = od->next)
- if (od->common == vl->m && isSignal(od))
- {
- if (noIntro)
- {
- setHasSigSlots(cd);
-
- prcode(fp,
-"\n"
-"static sipQtSignal signals_%C[] = {\n"
- ,classFQCName(cd));
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" {%N, %C_emit_%s},\n"
- ,vl->m->pyname,classFQCName(cd),vl->m->pyname->text);
-
- break;
- }
- }
-
- if (!noIntro)
- prcode(fp,
-" {NULL, NULL}\n"
-"};\n"
- );
-}
-
-
-/*
- * Generate the protected enums for a class.
- */
-static void generateProtectedEnums(sipSpec *pt,classDef *cd,FILE *fp)
-{
- enumDef *ed;
-
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- char *eol;
- enumMemberDef *emd;
-
- /* Ignore unless this class is the publisher. */
- if (cd != ed->pcd)
- continue;
-
- prcode(fp,
-"\n"
-" /* Expose this protected enum. */\n"
-" enum");
-
- if (ed->fqcname != NULL)
- prcode(fp," sip%s",scopedNameTail(ed->fqcname));
-
- prcode(fp," {");
-
- eol = "\n";
-
- for (emd = ed->members; emd != NULL; emd = emd->next)
- {
- prcode(fp,"%s"
-" %s = %S::%s",eol,emd->cname,classFQCName(ed->ecd),emd->cname);
-
- eol = ",\n";
- }
-
- prcode(fp,"\n"
-" };\n"
- );
- }
-}
-
-
-/*
- * Generate the catcher for a virtual function.
- */
-static void generateVirtualCatcher(sipSpec *pt, classDef *cd, int virtNr,
- virtOverDef *vod, FILE *fp)
-{
- overDef *od = &vod->o;
- virtHandlerDef *vhd = od->virthandler;
- argDef *res, *ad;
- int a;
-
- normaliseArgs(od->cppsig);
-
- res = &od->cppsig->result;
-
- if (res->atype == void_type && res->nrderefs == 0)
- res = NULL;
-
- prcode(fp,
-"\n");
-
- generateBaseType(&od->cppsig->result,fp);
-
- prcode(fp," sip%C::%O(",classFQCName(cd),od);
- generateArgs(od->cppsig,Definition,fp);
- prcode(fp,")%s%X\n"
-"{\n"
- ,(isConst(od) ? " const" : ""),od->exceptions);
-
- if (tracing)
- {
- prcode(fp,
-" sipTrace(SIP_TRACE_CATCHERS,\"");
-
- generateBaseType(&od->cppsig->result,fp);
- prcode(fp," sip%C::%O(",classFQCName(cd),od);
- generateArgs(od->cppsig,Declaration,fp);
- prcode(fp,")%s%X (this=0x%%08x)\\n\",this);\n"
-"\n"
- ,(isConst(od) ? " const" : ""),od->exceptions);
- }
-
- restoreArgs(od->cppsig);
-
- if (vhd->module == pt->module)
- {
- prcode(fp,
-" extern ");
-
- generateBaseType(&od->cppsig->result,fp);
-
- prcode(fp," sipVH_%s_%d(sip_gilstate_t,PyObject *",vhd->module->name,vhd->virthandlernr);
- }
- else
- {
- prcode(fp,
-" typedef ");
-
- generateBaseType(&od->cppsig->result,fp);
-
- prcode(fp," (*sipVH_%s_%d)(sip_gilstate_t,PyObject *",vhd->module->name,vhd->virthandlernr);
- }
-
- if (vhd->cppsig->nrArgs > 0)
- {
- prcode(fp,",");
- generateArgs(vhd->cppsig,Declaration,fp);
- }
-
- prcode(fp,");\n"
- );
-
- if (isNewThread(od))
- prcode(fp,
-"\n"
-" SIP_BLOCK_THREADS\n"
- );
-
- prcode(fp,
-"\n"
-" sip_gilstate_t sipGILState;\n"
-" PyObject *meth;\n"
-"\n"
-" meth = sipIsPyMethod(&sipGILState,");
-
- if (isConst(od))
- prcode(fp,"const_cast<sipMethodCache *>(");
-
- prcode(fp,"&sipPyMethods[%d]",virtNr);
-
- if (isConst(od))
- prcode(fp,")");
-
- prcode(fp,",sipPySelf,");
-
- if (isAbstract(od))
- prcode(fp,"%N",cd->iff->name);
- else
- prcode(fp,"NULL");
-
- prcode(fp,",%N);\n"
-"\n"
- ,od->common->pyname);
-
- if (isNewThread(od))
- prcode(fp,
-" if (meth)\n"
-" {\n"
-" sipStartThread();\n"
-" ");
- else
- {
- prcode(fp,
-" if (!meth)\n"
- );
-
- if (isAbstract(od))
- generateVirtHandlerErrorReturn(res,fp);
- else
- {
- if (res == NULL)
- prcode(fp,
-" {\n"
-" ");
- else
- prcode(fp,
-" return ");
-
- generateUnambiguousClass(cd,vod->scope,fp);
-
- prcode(fp,"::%O(",od);
-
- for (a = 0; a < od->cppsig->nrArgs; ++a)
- prcode(fp,"%sa%d",(a == 0 ? "" : ","),a);
-
- prcode(fp,");\n"
- );
-
- if (res == NULL)
- prcode(fp,
-" return;\n"
-" }\n"
- );
- }
-
- prcode(fp,
-"\n"
-" ");
-
- if (res != NULL)
- prcode(fp,"return ");
- }
-
- if (vhd->module == pt->module)
- prcode(fp,"sipVH_%s_%d",vhd->module->name,vhd->virthandlernr);
- else
- prcode(fp,"((sipVH_%s_%d)(sipModuleAPI_%s_%s->em_virthandlers[%d]))",vhd->module->name,vhd->virthandlernr,pt->module->name,vhd->module->name,vhd->virthandlernr);
-
- prcode(fp,"(sipGILState,meth");
-
- ad = od->cppsig->args;
-
- for (a = 0; a < od->cppsig->nrArgs; ++a)
- {
- if (ad->atype == class_type && isProtectedClass(ad->u.cd))
- prcode(fp,",static_cast<%U *>(a%d)",ad->u.cd,a);
- else if (ad->atype == enum_type && isProtectedEnum(ad->u.ed))
- prcode(fp, ",(%E)a%d", ad->u.ed, a);
- else
- prcode(fp,",a%d",a);
-
- ++ad;
- }
-
- prcode(fp,");\n"
- );
-
- if (isNewThread(od))
- prcode(fp,
-" sipEndThread();\n"
-" }\n"
-"\n"
-" SIP_UNBLOCK_THREADS\n"
- );
-
- prcode(fp,
-"}\n"
- );
-}
-
-
-/*
- * Generate the scope of the near class of a virtual taking duplicate
- * super-classes into account.
- */
-static void generateUnambiguousClass(classDef *cd,classDef *scope,FILE *fp)
-{
- mroDef *mro;
-
- /* See if the near class has a duplicate. */
- for (mro = cd->mro; mro != NULL; mro = mro->next)
- if (mro->cd == scope)
- {
- if (hasDuplicateSuper(mro))
- {
- mroDef *guardc;
-
- /*
- * Backtrack to find the class that directly
- * sub-classes the duplicated one. This will
- * be the one that disambiguates the duplicated
- * one.
- */
- guardc = mro;
-
- while (guardc != cd->mro)
- {
- mroDef *sub;
- classList *cl;
-
- for (sub = cd->mro; sub->next != guardc; sub = sub->next)
- ;
-
- for (cl = sub->cd->supers; cl != NULL; cl = cl->next)
- if (cl->cd == mro->cd)
- {
- prcode(fp,"%S",classFQCName(sub->cd));
-
- return;
- }
-
- /* Try the previous one. */
- guardc = sub;
- }
- }
-
- break;
- }
-
- /* If we got here there is nothing to worry about. */
- prcode(fp,"%S",classFQCName(scope));
-}
-
-
-/*
- * Generate a cast to zero.
- */
-static void generateCastZero(argDef *ad,FILE *fp)
-{
- if (ad->atype == enum_type)
- prcode(fp,"(%E)",ad->u.ed);
-
- prcode(fp,"0");
-}
-
-
-/*
- * Generate the return statement for a virtual handler when there has been an
- * error (ie. there is nothing sensible to return).
- */
-static void generateVirtHandlerErrorReturn(argDef *res,FILE *fp)
-{
- prcode(fp,
-" return");
-
- if (res == NULL)
- {
- prcode(fp,";\n"
- );
-
- return;
- }
-
- prcode(fp," ");
-
- if (res->atype == mapped_type && res->nrderefs == 0)
- {
- argDef res_noconstref;
-
- /*
- * We don't know anything about the mapped type so we just hope
- * is has a default ctor.
- */
-
- if (isReference(res))
- prcode(fp,"*new ");
-
- res_noconstref = *res;
- resetIsConstArg(&res_noconstref);
- resetIsReference(&res_noconstref);
- prcode(fp,"%B()",&res_noconstref);
- }
- else if (res->atype == class_type && res->nrderefs == 0)
- {
- ctorDef *ct = res->u.cd->defctor;
-
- /*
- * If we don't have a suitable ctor then the generated code
- * will issue an error message.
- */
- if (ct != NULL && isPublicCtor(ct) && ct->cppsig != NULL)
- {
- argDef res_noconstref;
-
- /*
- * If this is a badly designed class. We can only
- * generate correct code by leaking memory.
- */
- if (isReference(res))
- prcode(fp,"*new ");
-
- res_noconstref = *res;
- resetIsConstArg(&res_noconstref);
- resetIsReference(&res_noconstref);
- prcode(fp,"%B",&res_noconstref);
-
- generateCallDefaultCtor(ct,fp);
- }
- else
- {
- fatalScopedName(classFQCName(res->u.cd));
- fatal(" must have a default constructor\n");
- }
- }
- else
- generateCastZero(res,fp);
-
- prcode(fp,";\n"
- );
-}
-
-
-/*
- * Generate the call to a default ctor.
- */
-static void generateCallDefaultCtor(ctorDef *ct, FILE *fp)
-{
- int a;
-
- prcode(fp, "(");
-
- for (a = 0; a < ct->cppsig->nrArgs; ++a)
- {
- argDef *ad = &ct->cppsig->args[a];
-
- if (ad->defval != NULL)
- break;
-
- if (a > 0)
- prcode(fp, ",");
-
- /*
- * Do what we can to provide type information to the compiler.
- */
- if (ad->atype == class_type && ad->nrderefs > 0 && !isReference(ad))
- prcode(fp, "static_cast<%B>(0)", ad);
- else if (ad->atype == enum_type)
- prcode(fp, "static_cast<%E>(0)", ad->u.ed);
- else if (ad->atype == float_type || ad->atype == cfloat_type)
- prcode(fp, "0.0F");
- else if (ad->atype == double_type || ad->atype == cdouble_type)
- prcode(fp, "0.0");
- else if (ad->atype == uint_type)
- prcode(fp, "0U");
- else if (ad->atype == long_type || ad->atype == longlong_type)
- prcode(fp, "0L");
- else if (ad->atype == ulong_type || ad->atype == ulonglong_type)
- prcode(fp, "0UL");
- else if ((ad->atype == ustring_type || ad->atype == sstring_type || ad->atype == string_type) && ad->nrderefs == 0)
- prcode(fp, "'\\0'");
- else if (ad->atype == wstring_type && ad->nrderefs == 0)
- prcode(fp, "L'\\0'");
- else
- prcode(fp, "0");
- }
-
- prcode(fp, ")");
-}
-
-
-/*
- * Generate the emitter function for a signal.
- */
-static void generateEmitter(sipSpec *pt,classDef *cd,visibleList *vl,FILE *fp)
-{
- char *pname = vl->m->pyname->text;
- overDef *od;
-
- prcode(fp,
-"\n"
-"int sip%C::sipEmit_%s(PyObject *sipArgs)\n"
-"{\n"
-" int sipArgsParsed = 0;\n"
- ,classFQCName(cd),pname);
-
- for (od = vl->cd->overs; od != NULL; od = od->next)
- {
- int rgil = ((release_gil || isReleaseGIL(od)) && !isHoldGIL(od));
-
- if (od->common != vl->m || !isSignal(od))
- continue;
-
- /*
- * Generate the code that parses the args and emits the
- * appropriate overloaded signal.
- */
- prcode(fp,
-"\n"
-" {\n"
- );
-
- generateArgParser(pt, &od->pysig, cd, NULL, NULL, FALSE, fp);
-
- prcode(fp,
-" {\n"
- );
-
- if (rgil)
- prcode(fp,
-" Py_BEGIN_ALLOW_THREADS\n"
- );
-
- prcode(fp,
-" emit %s("
- ,od->cppname);
-
- generateArgs(od->cppsig,Call,fp);
-
- prcode(fp,");\n"
- );
-
- if (rgil)
- prcode(fp,
-" Py_END_ALLOW_THREADS\n"
- );
-
- deleteTemps(&od->pysig, fp);
-
- prcode(fp,
-"\n"
-" return 0;\n"
-" }\n"
-" }\n"
- );
- }
-
- prcode(fp,
-"\n"
-" sipNoMethod(sipArgsParsed,%N,%N);\n"
-"\n"
-" return -1;\n"
-"}\n"
-"\n"
- , cd->iff->name, vl->m->pyname);
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static int %C_emit_%s(sipWrapper *, PyObject *);}\n"
- , classFQCName(cd), pname);
-
- prcode(fp,
-"static int %C_emit_%s(sipWrapper *w,PyObject *sipArgs)\n"
-"{\n"
-" sip%C *ptr = reinterpret_cast<sip%C *>(sipGetComplexCppPtr(w));\n"
-"\n"
-" return (ptr ? ptr->sipEmit_%s(sipArgs) : -1);\n"
-"}\n"
- ,classFQCName(cd),pname
- ,classFQCName(cd),classFQCName(cd)
- ,pname);
-}
-
-
-/*
- * Generate the declarations of the protected wrapper functions for a class.
- */
-
-static void generateProtectedDeclarations(classDef *cd,FILE *fp)
-{
- int noIntro;
- visibleList *vl;
-
- noIntro = TRUE;
-
- for (vl = cd->visible; vl != NULL; vl = vl->next)
- {
- overDef *od;
-
- if (vl->m->slot != no_slot)
- continue;
-
- for (od = vl->cd->overs; od != NULL; od = od->next)
- {
- if (od->common != vl->m || !isProtected(od))
- continue;
-
- if (noIntro)
- {
- prcode(fp,
-"\n"
-" /*\n"
-" * There is a public method for every protected method visible from\n"
-" * this class.\n"
-" */\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" ");
-
- if (isStatic(od))
- prcode(fp,"static ");
-
- generateBaseType(&od->cppsig->result,fp);
-
- if (!isStatic(od) && !isAbstract(od) && (isVirtual(od) || isVirtualReimp(od)))
- {
- prcode(fp, " sipProtectVirt_%s(bool", od->cppname);
-
- if (od->cppsig->nrArgs > 0)
- prcode(fp, ",");
- }
- else
- prcode(fp, " sipProtect_%s(", od->cppname);
-
- generateArgs(od->cppsig,Declaration,fp);
- prcode(fp,")%s;\n"
- ,(isConst(od) ? " const" : ""));
- }
- }
-}
-
-
-/*
- * Generate the definitions of the protected wrapper functions for a class.
- */
-static void generateProtectedDefinitions(classDef *cd,FILE *fp)
-{
- visibleList *vl;
-
- for (vl = cd->visible; vl != NULL; vl = vl->next)
- {
- overDef *od;
-
- if (vl->m->slot != no_slot)
- continue;
-
- for (od = vl->cd->overs; od != NULL; od = od->next)
- {
- char *mname = od->cppname;
- int parens;
- argDef *res;
-
- if (od->common != vl->m || !isProtected(od))
- continue;
-
- prcode(fp,
-"\n"
- );
-
- generateBaseType(&od->cppsig->result,fp);
-
- if (!isStatic(od) && !isAbstract(od) && (isVirtual(od) || isVirtualReimp(od)))
- {
- prcode(fp, " sip%C::sipProtectVirt_%s(bool sipSelfWasArg", classFQCName(cd), mname);
-
- if (od->cppsig->nrArgs > 0)
- prcode(fp, ",");
- }
- else
- prcode(fp, " sip%C::sipProtect_%s(", classFQCName(cd), mname);
-
- generateArgs(od->cppsig,Definition,fp);
- prcode(fp,")%s\n"
-"{\n"
- ,(isConst(od) ? " const" : ""));
-
- parens = 1;
-
- res = &od->cppsig->result;
-
- if (res->atype == void_type && res->nrderefs == 0)
- prcode(fp,
-" ");
- else
- {
- prcode(fp,
-" return ");
-
- if (res->atype == class_type && isProtectedClass(res->u.cd))
- {
- prcode(fp,"static_cast<%U *>(",res->u.cd);
- ++parens;
- }
- else if (res->atype == enum_type && isProtectedEnum(res->u.ed))
- /*
- * One or two older compilers can't
- * handle a static_cast here so we
- * revert to a C-style cast.
- */
- prcode(fp,"(%E)",res->u.ed);
- }
-
- if (!isAbstract(od))
- if (isVirtual(od) || isVirtualReimp(od))
- {
- prcode(fp, "(sipSelfWasArg ? %S::%s(", classFQCName(vl->cd), mname);
-
- generateProtectedCallArgs(od, fp);
-
- prcode(fp, ") : ");
- ++parens;
- }
- else
- prcode(fp, "%S::", classFQCName(vl->cd));
-
- prcode(fp,"%s(",mname);
-
- generateProtectedCallArgs(od, fp);
-
- while (parens--)
- prcode(fp,")");
-
- prcode(fp,";\n"
-"}\n"
- );
- }
- }
-}
-
-
-/*
- * Generate the arguments for a call to a protected method.
- */
-static void generateProtectedCallArgs(overDef *od, FILE *fp)
-{
- int a;
-
- for (a = 0; a < od->cppsig->nrArgs; ++a)
- {
- argDef *ad = &od->cppsig->args[a];
-
- if (a > 0)
- prcode(fp, ",");
-
- if (ad->atype == enum_type && isProtectedEnum(ad->u.ed))
- prcode(fp, "(%S)", ad->u.ed->fqcname);
-
- prcode(fp, "a%d", a);
- }
-}
-
-
-/*
- * Generate the function that does most of the work to handle a particular
- * virtual function.
- */
-static void generateVirtualHandler(sipSpec *pt,virtHandlerDef *vhd,FILE *fp)
-{
- int a, nrvals, copy, isref;
- argDef *res, res_noconstref;
-
- res = &vhd->cppsig->result;
-
- copy = isref = FALSE;
-
- if (res->atype == void_type && res->nrderefs == 0)
- res = NULL;
- else
- {
- /*
- * If we are returning a reference to an instance then we take care to
- * handle Python errors but still return a valid C++ instance. If we
- * are returning an instance then we take care to make a local copy of
- * the instance returned from Python before the Python object is
- * garbage collected and the C++ instance (possibly) destroyed.
- */
- if ((res->atype == class_type || res->atype == mapped_type) && res->nrderefs == 0)
- if (isReference(res))
- isref = TRUE;
- else
- copy = TRUE;
-
- res_noconstref = *res;
- resetIsConstArg(&res_noconstref);
- resetIsReference(&res_noconstref);
- }
-
- prcode(fp,
-"\n"
- );
-
- generateBaseType(&vhd->cppsig->result, fp);
-
- prcode(fp," sipVH_%s_%d(sip_gilstate_t sipGILState,PyObject *sipMethod"
- ,pt->module->name,vhd->virthandlernr);
-
- if (vhd->cppsig->nrArgs > 0)
- {
- prcode(fp,",");
-
- generateArgs(vhd->cppsig, Definition, fp);
- }
-
- prcode(fp,")\n"
-"{\n"
- );
-
- if (res != NULL)
- {
- prcode(fp, " ");
-
- /*
- * wchar_t * return values are always on the heap. To reduce memory
- * leaks we keep the last result around until we have a new one. This
- * means that ownership of the return value stays with the function
- * returning it - which is consistent with how other types work, even
- * thought it may not be what's required in all cases.
- */
- if (res->atype == wstring_type && res->nrderefs == 1)
- prcode(fp, "static ");
-
- generateBaseType(&res_noconstref,fp);
-
- prcode(fp," %ssipRes",(isref ? "*" : ""));
-
- if (copy && res->atype == class_type && res->nrderefs == 0)
- {
- ctorDef *ct = res->u.cd->defctor;
-
- if (ct != NULL && isPublicCtor(ct) && ct->cppsig != NULL && ct->cppsig->nrArgs > 0 && ct->cppsig->args[0].defval == NULL)
- generateCallDefaultCtor(ct,fp);
- }
- else if (!copy)
- {
- /*
- * We initialise the result to try and suppress a
- * compiler warning.
- */
- prcode(fp," = ");
- generateCastZero(res,fp);
- }
-
- prcode(fp,";\n"
- );
-
- if (res->atype == wstring_type && res->nrderefs == 1)
- prcode(fp,
-"\n"
-" if (sipRes)\n"
-" {\n"
-" // Return any previous result to the heap.\n"
-" sipFree(%s);\n"
-" sipRes = 0;\n"
-" }\n"
-"\n"
- , (isConstArg(res) ? "const_cast<wchar_t *>(sipRes)" : "sipRes"));
- }
-
- if (vhd->virtcode != NULL)
- {
- int error_flag = needErrorFlag(vhd->virtcode);
-
- if (error_flag)
- prcode(fp,
-" int sipIsErr = 0;\n"
- );
-
- prcode(fp,
-"\n"
- );
-
- generateCppCodeBlock(vhd->virtcode,fp);
-
- if (error_flag)
- prcode(fp,
-"\n"
-" if (sipIsErr)\n"
-" PyErr_Print();\n"
- );
-
- prcode(fp,
-"\n"
-" Py_DECREF(sipMethod);\n"
-"\n"
-" SIP_RELEASE_GIL(sipGILState)\n"
- );
-
- if (res != NULL)
- prcode(fp,
-"\n"
-" return sipRes;\n"
- );
-
- prcode(fp,
-"}\n"
- );
-
- return;
- }
-
- /* See how many values we expect. */
- nrvals = (res != NULL ? 1 : 0);
-
- for (a = 0; a < vhd->pysig->nrArgs; ++a)
- if (isOutArg(&vhd->pysig->args[a]))
- ++nrvals;
-
- if (copy)
- {
- prcode(fp,
-" ");
-
- generateBaseType(&res_noconstref,fp);
-
- prcode(fp," *sipResOrig;\n");
-
- if (res->atype == class_type && res->u.cd->convtocode != NULL)
- prcode(fp,
-" int sipResState;\n"
- );
- }
-
- /* Call the method. */
- prcode(fp,
-" PyObject *sipResObj = sipCallMethod(0,sipMethod,");
-
- generateTupleBuilder(vhd->pysig, fp);
-
- prcode(fp,");\n"
-"\n"
-" %s (!sipResObj || sipParseResult(0,sipMethod,sipResObj,\"",(isref ? "int sipIsErr =" : "if"));
-
- /* Build the format string. */
- if (nrvals == 0)
- prcode(fp,"Z");
- else
- {
- if (nrvals > 1)
- prcode(fp,"(");
-
- if (res != NULL)
- prcode(fp, "%s", getParseResultFormat(res, TRUE, isTransferVH(vhd)));
-
- for (a = 0; a < vhd->pysig->nrArgs; ++a)
- {
- argDef *ad = &vhd->pysig->args[a];
-
- if (isOutArg(ad))
- prcode(fp, "%s", getParseResultFormat(ad, FALSE, FALSE));
- }
-
- if (nrvals > 1)
- prcode(fp,")");
- }
-
- prcode(fp,"\"");
-
- /* Pass the destination pointers. */
- if (res != NULL)
- {
- generateParseResultExtraArgs(res, TRUE, fp);
- prcode(fp,",&sipRes%s",(copy ? "Orig" : ""));
- }
-
- for (a = 0; a < vhd->pysig->nrArgs; ++a)
- {
- argDef *ad = &vhd->pysig->args[a];
-
- if (isOutArg(ad))
- {
- generateParseResultExtraArgs(ad, FALSE, fp);
- prcode(fp,",%sa%d",(isReference(ad) ? "&" : ""),a);
- }
- }
-
- if (isref)
- prcode(fp,") < 0);\n"
-"\n"
-" if (sipIsErr)\n"
- );
- else
- prcode(fp,") < 0)\n"
- );
-
- prcode(fp,
-" PyErr_Print();\n"
- );
-
- /* Make a copy if needed. */
- if (copy)
- {
- prcode(fp,
-" else\n"
-" {\n"
-" sipRes = *sipResOrig;\n"
- );
-
- if (res->atype == mapped_type)
- prcode(fp,
-" delete sipResOrig;\n"
- );
- else if (res->atype == class_type && res->u.cd->convtocode != NULL)
- prcode(fp,
-" sipReleaseInstance(sipResOrig,sipClass_%C,sipResState);\n"
- , classFQCName(res->u.cd));
-
- prcode(fp,
-" }\n"
- );
- }
-
- prcode(fp,
-"\n"
-" Py_XDECREF(sipResObj);\n"
-" Py_DECREF(sipMethod);\n"
-"\n"
-" SIP_RELEASE_GIL(sipGILState)\n"
- );
-
- if (res != NULL)
- {
- if (isref)
- {
- prcode(fp,
-"\n"
-" if (sipIsErr)\n"
- );
-
- generateVirtHandlerErrorReturn(res,fp);
- }
-
- prcode(fp,
-"\n"
-" return %ssipRes;\n"
- ,(isref ? "*" : ""));
- }
-
- prcode(fp,
-"}\n"
- );
-}
-
-
-/*
- * Generate the extra arguments needed by sipParseResult() for a particular
- * type.
- */
-static void generateParseResultExtraArgs(argDef *ad, int isres, FILE *fp)
-{
- switch (ad->atype)
- {
- case mapped_type:
- prcode(fp, ",sipMappedType_%T", ad);
- break;
-
- case class_type:
- prcode(fp, ",sipClass_%C", classFQCName(ad->u.cd));
-
- if (isres && ad->nrderefs == 0 && ad->u.cd->convtocode != NULL && !isReference(ad))
- prcode(fp, ",&sipResState");
-
- break;
-
- case pytuple_type:
- prcode(fp,",&PyTuple_Type");
- break;
-
- case pylist_type:
- prcode(fp,",&PyList_Type");
- break;
-
- case pydict_type:
- prcode(fp,",&PyDict_Type");
- break;
-
- case pyslice_type:
- prcode(fp,",&PySlice_Type");
- break;
-
- case pytype_type:
- prcode(fp,",&PyType_Type");
- break;
-
- case enum_type:
- if (ad->u.ed->fqcname != NULL)
- prcode(fp,",sipEnum_%C",ad->u.ed->fqcname);
- break;
- }
-}
-
-
-/*
- * Return the format characters used by sipParseResult() for a particular type.
- */
-static const char *getParseResultFormat(argDef *ad, int isres, int xfervh)
-{
- switch (ad->atype)
- {
- case mapped_type:
- {
- static const char *s[] = {
- "D0", "D1", "D2", "D3",
- "D4", "D5", "D6", "D7"
- };
-
- int f = 0x04;
-
- if (isres && ad->nrderefs == 0)
- f |= 0x01;
-
- if (isres && xfervh)
- f |= 0x02;
-
- return s[f];
- }
-
- case class_type:
- {
- static char s[] = "C?";
-
- int f = 0x04;
-
- if (isres && ad->nrderefs == 0)
- {
- f |= 0x01;
-
- if (ad->u.cd->convtocode != NULL)
- {
- f &= ~0x04;
-
- /*
- * If it is a reference then we are
- * going to return the dereference. To
- * make sure it remains valid we can
- * either leak the temporary from the
- * %ConvertToCode or we can suppress
- * the %ConvertToCode. We choose the
- * latter.
- */
- if (isReference(ad))
- f |= 0x10;
- }
- }
-
- if (isres && xfervh)
- f |= 0x02;
-
- s[1] = '0' + f;
-
- return s;
- }
-
- case bool_type:
- case cbool_type:
- return "b";
-
- case sstring_type:
- case ustring_type:
- case string_type:
- return ((ad->nrderefs == 0) ? "c" : "s");
-
- case wstring_type:
- return ((ad->nrderefs == 0) ? "w" : "x");
-
- case enum_type:
- return ((ad->u.ed->fqcname != NULL) ? "E" : "e");
-
- case ushort_type:
- return "t";
-
- case short_type:
- return "h";
-
- case int_type:
- case cint_type:
- return "i";
-
- case uint_type:
- return "u";
-
- case long_type:
- return "l";
-
- case ulong_type:
- return "m";
-
- case longlong_type:
- return "n";
-
- case ulonglong_type:
- return "o";
-
- case void_type:
- case struct_type:
- return "V";
-
- case float_type:
- case cfloat_type:
- return "f";
-
- case double_type:
- case cdouble_type:
- return "d";
-
- case pyobject_type:
- return "O";
-
- case pytuple_type:
- case pylist_type:
- case pydict_type:
- case pyslice_type:
- case pytype_type:
- return (isAllowNone(ad) ? "N" : "T");
- }
-
- /* We should never get here. */
- return " ";
-}
-
-
-/*
- * Generate the code to build a tuple of Python arguments.
- */
-static void generateTupleBuilder(signatureDef *sd,FILE *fp)
-{
- int a, arraylenarg;
-
- prcode(fp,"\"");
-
- for (a = 0; a < sd->nrArgs; ++a)
- {
- char *fmt = "";
- argDef *ad = &sd->args[a];
-
- if (!isInArg(ad))
- continue;
-
- switch (ad->atype)
- {
- case sstring_type:
- case ustring_type:
- case string_type:
- if (ad->nrderefs == 0 || (ad->nrderefs == 1 && isOutArg(ad)))
- fmt = "c";
- else if (isArray(ad))
- fmt = "a";
- else
- fmt = "s";
-
- break;
-
- case wstring_type:
- if (ad->nrderefs == 0 || (ad->nrderefs == 1 && isOutArg(ad)))
- fmt = "w";
- else if (isArray(ad))
- fmt = "A";
- else
- fmt = "x";
-
- break;
-
- case bool_type:
- case cbool_type:
- fmt = "b";
- break;
-
- case enum_type:
- fmt = (ad->u.ed->fqcname != NULL) ? "E" : "e";
- break;
-
- case cint_type:
- fmt = "i";
- break;
-
- case uint_type:
- if (isArraySize(ad))
- arraylenarg = a;
- else
- fmt = "u";
-
- break;
-
- case int_type:
- if (isArraySize(ad))
- arraylenarg = a;
- else
- fmt = "i";
-
- break;
-
- case ushort_type:
- if (isArraySize(ad))
- arraylenarg = a;
- else
- fmt = "t";
-
- break;
-
- case short_type:
- if (isArraySize(ad))
- arraylenarg = a;
- else
- fmt = "h";
-
- break;
-
- case long_type:
- if (isArraySize(ad))
- arraylenarg = a;
- else
- fmt = "l";
-
- break;
-
- case ulong_type:
- if (isArraySize(ad))
- arraylenarg = a;
- else
- fmt = "m";
-
- break;
-
- case longlong_type:
- if (isArraySize(ad))
- arraylenarg = a;
- else
- fmt = "n";
-
- break;
-
- case ulonglong_type:
- if (isArraySize(ad))
- arraylenarg = a;
- else
- fmt = "o";
-
- break;
-
- case struct_type:
- case void_type:
- fmt = "V";
- break;
-
- case float_type:
- case cfloat_type:
- fmt = "f";
- break;
-
- case double_type:
- case cdouble_type:
- fmt = "d";
- break;
-
- case signal_type:
- case slot_type:
- case slotcon_type:
- case slotdis_type:
- fmt = "s";
- break;
-
- case mapped_type:
- fmt = "D";
- break;
-
- case class_type:
- fmt = "C";
- break;
-
- case rxcon_type:
- case rxdis_type:
- case qobject_type:
- fmt = "O";
- break;
-
- case pyobject_type:
- case pytuple_type:
- case pylist_type:
- case pydict_type:
- case pycallable_type:
- case pyslice_type:
- case pytype_type:
- fmt = "S";
- break;
- }
-
- prcode(fp,fmt);
- }
-
- prcode(fp,"\"");
-
- for (a = 0; a < sd->nrArgs; ++a)
- {
- int derefs;
- argDef *ad = &sd->args[a];
-
- if (!isInArg(ad))
- continue;
-
- derefs = ad->nrderefs;
-
- switch (ad->atype)
- {
- case sstring_type:
- case ustring_type:
- case string_type:
- case wstring_type:
- if (!(ad->nrderefs == 0 || (ad->nrderefs == 1 && isOutArg(ad))))
- --derefs;
-
- break;
-
- case mapped_type:
- case class_type:
- if (ad->nrderefs > 0)
- --derefs;
-
- break;
-
- case struct_type:
- case void_type:
- --derefs;
- break;
- }
-
- if (ad->atype == mapped_type || ad->atype == class_type ||
- ad->atype == rxcon_type || ad->atype == rxdis_type ||
- ad->atype == qobject_type)
- {
- prcode(fp,",");
-
- if (isConstArg(ad))
- prcode(fp,"const_cast<%b *>(",ad);
-
- if (ad->nrderefs == 0)
- prcode(fp,"&");
- else
- while (derefs-- != 0)
- prcode(fp,"*");
-
- prcode(fp,"a%d",a);
-
- if (isConstArg(ad))
- prcode(fp,")");
-
- if (ad->atype == mapped_type)
- prcode(fp, ",sipMappedType_%T,NULL", ad);
- else if (ad->atype == class_type)
- prcode(fp, ",sipClass_%C,NULL", classFQCName(ad->u.cd));
- else
- prcode(fp,",sipClass_QObject");
- }
- else
- {
- if (!isArraySize(ad))
- {
- prcode(fp,",");
-
- while (derefs-- != 0)
- prcode(fp,"*");
-
- prcode(fp,"a%d",a);
- }
-
- if (isArray(ad))
- {
- argType astype = sd->args[arraylenarg].atype;
-
- prcode(fp,",%sa%d",(astype == int_type ? "" : "(int)"),arraylenarg);
- }
- else if (ad->atype == enum_type && ad->u.ed->fqcname != NULL)
- prcode(fp,",sipEnum_%C",ad->u.ed->fqcname);
- }
- }
-}
-
-
-/*
- * Generate the class interface #include directives required by either a class
- * or a module.
- */
-static void generateUsedIncludes(ifaceFileList *iffl, int header, FILE *fp)
-{
- int newl = TRUE;
-
- while (iffl != NULL)
- {
- if (header == iffl->header)
- {
- if (newl)
- {
- prcode(fp,
-"\n"
- );
-
- newl = FALSE;
- }
-
- prcode(fp,
-"#include \"sip%s%F.h\"\n"
- , iffl->iff->module->name, iffl->iff->fqcname);
- }
-
- iffl = iffl->next;
- }
-
- if (!newl)
- prcode(fp,
-"\n"
- );
-}
-
-
-/*
- * Generate the header file for the C++ interface.
- */
-static void generateIfaceHeader(sipSpec *pt,ifaceFileDef *iff,char *codeDir)
-{
- char *wfile;
- char *cmname = iff->module->name;
- classDef *cd;
- mappedTypeDef *mtd;
- exceptionDef *xd;
- int genused;
- FILE *fp;
-
- /* Create the header file. */
-
- wfile = createIfaceFileName(codeDir,iff,".h");
- fp = createFile(pt,wfile,"Interface header file.");
-
- prcode(fp,
-"\n"
-"#ifndef _%s%F_h\n"
-"#define _%s%F_h\n"
-"\n"
- ,cmname,iff->fqcname,cmname,iff->fqcname);
-
- genused = TRUE;
-
- for (cd = pt->classes; cd != NULL; cd = cd->next)
- if (cd->iff == iff)
- {
- if (iff->module == pt->module)
- generateClassHeader(cd,genused,pt,fp);
- else if (!isExternal(cd))
- generateImportedClassHeader(cd,pt,fp);
-
- genused = FALSE;
- }
-
- genused = TRUE;
-
- for (mtd = pt->mappedtypes; mtd != NULL; mtd = mtd->next)
- if (mtd->iff == iff)
- {
- if (iff->module == pt->module)
- generateMappedTypeHeader(mtd,genused,fp);
- else
- generateImportedMappedTypeHeader(mtd,pt,fp);
-
- genused = FALSE;
- }
-
- for (xd = pt->exceptions; xd != NULL; xd = xd->next)
- if (xd->iff == iff)
- {
- generateCppCodeBlock(xd->hdrcode,fp);
-
- if (xd->exceptionnr >= 0)
- {
- prcode(fp,
-"\n"
-"#define sipException_%C sipModuleAPI_%s"
- ,iff->fqcname,pt->module->name);
-
- if (iff->module == pt->module)
- prcode(fp,".");
- else
- prcode(fp,"_%s->",iff->module->name);
-
- prcode(fp,"em_exceptions[%d]\n"
- ,xd->exceptionnr);
- }
- }
-
- prcode(fp,
-"\n"
-"#endif\n"
- );
-
- closeFile(fp);
- free(wfile);
-}
-
-
-/*
- * Generate the C++ header code for an imported mapped type.
- */
-static void generateImportedMappedTypeHeader(mappedTypeDef *mtd,sipSpec *pt,
- FILE *fp)
-{
- char *mname = pt->module->name;
- char *imname = mtd->iff->module->name;
- argDef type;
-
- generateCppCodeBlock(mtd->hdrcode,fp);
-
- type.atype = mapped_type;
- type.u.mtd = mtd;
- type.argflags = 0;
- type.name = NULL;
- type.nrderefs = 0;
- type.defval = NULL;
-
- prcode(fp,
-"\n"
-"#define sipMappedType_%T sipModuleAPI_%s_%s->em_mappedtypes[%d]\n"
-"#define sipForceConvertTo_%T sipModuleAPI_%s_%s->em_mappedtypes[%d]->mt_fcto\n"
-"#define sipConvertFrom_%T sipModuleAPI_%s_%s->em_mappedtypes[%d]->mt_cfrom\n"
- ,&type,mname,imname,mtd->mappednr
- ,&type,mname,imname,mtd->mappednr
- ,&type,mname,imname,mtd->mappednr);
-}
-
-
-/*
- * Generate the C++ header code for a generated mapped type.
- */
-static void generateMappedTypeHeader(mappedTypeDef *mtd,int genused,FILE *fp)
-{
- prcode(fp,
-"\n"
-"\n"
- );
-
- generateCppCodeBlock(mtd->hdrcode,fp);
-
- if (genused)
- generateUsedIncludes(mtd->iff->used, TRUE, fp);
-
- prcode(fp,
-"\n"
-"#define sipMappedType_%T &sipMappedTypeDef_%T\n"
-"#define sipForceConvertTo_%T sipMappedTypeDef_%T.mt_fcto\n"
-"#define sipConvertFrom_%T sipMappedTypeDef_%T.mt_cfrom\n"
-"\n"
-"extern sipMappedType sipMappedTypeDef_%T;\n"
- ,&mtd->type,&mtd->type
- ,&mtd->type,&mtd->type
- ,&mtd->type,&mtd->type
- ,&mtd->type);
-}
-
-
-/*
- * Generate the C++ header code for an imported class.
- */
-static void generateImportedClassHeader(classDef *cd,sipSpec *pt,FILE *fp)
-{
- char *mname = pt->module->name;
- char *imname = cd->iff->module->name;
- classDef *hcd;
-
- for (hcd = cd; hcd != NULL; hcd = hcd->ecd)
- generateCppCodeBlock(hcd->hdrcode,fp);
-
- prcode(fp,
-"\n"
-"#define sipClass_%C sipModuleAPI_%s_%s->em_types[%d]\n"
-"#define sipCast_%C sipModuleAPI_%s_%s->em_types[%d]->type->td_cast\n"
-"#define sipForceConvertTo_%C sipModuleAPI_%s_%s->em_types[%d]->type->td_fcto\n"
- ,classFQCName(cd),mname,imname,cd->classnr
- ,classFQCName(cd),mname,imname,cd->classnr
- ,classFQCName(cd),mname,imname,cd->classnr);
-
- generateEnumMacros(pt, cd, fp);
-}
-
-
-/*
- * Generate the C++ header code for a generated class.
- */
-static void generateClassHeader(classDef *cd,int genused,sipSpec *pt,FILE *fp)
-{
- char *mname = pt->module->name;
- classDef *hcd;
-
- for (hcd = cd; hcd != NULL; hcd = hcd->ecd)
- generateCppCodeBlock(hcd->hdrcode,fp);
-
- if (genused)
- generateUsedIncludes(cd->iff->used, TRUE, fp);
-
- if (cd->iff->type != namespace_iface)
- {
- prcode(fp,
-"\n"
-"#define sipClass_%C sipModuleAPI_%s.em_types[%d]\n"
- ,classFQCName(cd),mname,cd->classnr);
-
- if (!isExternal(cd))
- prcode(fp,
-"#define sipCast_%C sipType_%s_%C.td_cast\n"
-"#define sipForceConvertTo_%C sipType_%s_%C.td_fcto\n"
- , classFQCName(cd), mname, classFQCName(cd)
- , classFQCName(cd), mname, classFQCName(cd));
- }
-
- generateEnumMacros(pt, cd, fp);
-
- if (!isExternal(cd))
- prcode(fp,
-"\n"
-"extern sipTypeDef sipType_%s_%C;\n"
- , mname, classFQCName(cd));
-
- if (hasShadow(cd))
- generateShadowClassDeclaration(pt,cd,fp);
-}
-
-
-/*
- * Generate the sipEnum_* macros.
- */
-static void generateEnumMacros(sipSpec *pt, classDef *cd, FILE *fp)
-{
- enumDef *ed;
- int noIntro = TRUE;
-
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- if (ed->fqcname == NULL || ed->ecd != cd)
- continue;
-
- if (noIntro)
- {
- prcode(fp,
-"\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-"#define sipEnum_%C sipModuleAPI_%s", ed->fqcname, pt->module->name);
-
- if (pt->module == ed->module)
- prcode(fp, ".");
- else
- prcode(fp, "_%s->", ed->module->name);
-
- prcode(fp, "em_enums[%d]\n"
- , ed->enumnr);
- }
-}
-
-
-/*
- * Generate the shadow class declaration.
- */
-static void generateShadowClassDeclaration(sipSpec *pt,classDef *cd,FILE *fp)
-{
- int noIntro, nrVirts;
- ctorDef *ct;
- virtOverDef *vod;
- classDef *pcd;
-
- prcode(fp,
-"\n"
-"\n"
-"class sip%C : public %S\n"
-"{\n"
-"public:\n"
- ,classFQCName(cd),classFQCName(cd));
-
- /* Define a shadow class for any protected classes we have. */
-
- for (pcd = pt->classes; pcd != NULL; pcd = pcd->next)
- {
- if (pcd->ecd != cd || !isProtectedClass(pcd))
- continue;
-
- prcode(fp,
-" class sip%s : public %s {};\n"
- ,classBaseName(pcd),classBaseName(pcd));
- }
-
- /* The constructor declarations. */
-
- for (ct = cd->ctors; ct != NULL; ct = ct->next)
- {
- ctorDef *dct;
-
- if (isPrivateCtor(ct))
- continue;
-
- if (ct->cppsig == NULL)
- continue;
-
- /* Check we haven't already handled this C++ signature. */
- for (dct = cd->ctors; dct != ct; dct = dct->next)
- if (dct->cppsig != NULL && sameSignature(dct->cppsig, ct->cppsig, TRUE))
- break;
-
- if (dct != ct)
- continue;
-
- prcode(fp,
-" sip%C(",classFQCName(cd));
-
- generateArgs(ct->cppsig,Declaration,fp);
-
- prcode(fp,")%X;\n"
- ,ct->exceptions);
- }
-
- /* The destructor. */
-
- if (!isPrivateDtor(cd))
- prcode(fp,
-" %s~sip%C()%X;\n"
- ,(cd->vmembers != NULL ? "virtual " : ""),classFQCName(cd),cd->dtorexceptions);
-
- /* The metacall methods if required. */
- if (isQObjectSubClass(cd) && optQ_OBJECT4(pt))
- prcode(fp,
-"\n"
-" const TQMetaObject *metaObject() const;\n"
-" int qt_metacall(TQMetaObject::Call,int,void **);\n"
- );
-
- /* The exposure of protected enums. */
-
- generateProtectedEnums(pt,cd,fp);
-
- /* The wrapper around each protected member function. */
-
- generateProtectedDeclarations(cd,fp);
-
- /* The public wrapper around each signal emitter. */
- if (!optNoEmitters(pt))
- {
- visibleList *vl;
-
- noIntro = TRUE;
-
- for (vl = cd->visible; vl != NULL; vl = vl->next)
- {
- overDef *od;
-
- if (vl->m->slot != no_slot)
- continue;
-
- for (od = vl->cd->overs; od != NULL; od = od->next)
- {
- if (od->common != vl->m || !isSignal(od))
- continue;
-
- if (noIntro)
- {
- prcode(fp,
-"\n"
-" /*\n"
-" * There is a public method for every Qt signal that can be emitted\n"
-" * by this object. This function is called by Python to emit the\n"
-" * signal.\n"
-" */\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" int sipEmit_%s(PyObject *);\n"
- ,vl->m->pyname->text);
-
- break;
- }
- }
- }
-
- /* The catcher around each virtual function in the hierarchy. */
- noIntro = TRUE;
-
- for (vod = cd->vmembers; vod != NULL; vod = vod->next)
- {
- overDef *od = &vod->o;
- virtOverDef *dvod;
-
- if (isPrivate(od))
- continue;
-
- /* Check we haven't already handled this C++ signature. */
- for (dvod = cd->vmembers; dvod != vod; dvod = dvod->next)
- if (strcmp(dvod->o.cppname,od->cppname) == 0 && sameSignature(dvod->o.cppsig,od->cppsig,TRUE))
- break;
-
- if (dvod != vod)
- continue;
-
- if (noIntro)
- {
- prcode(fp,
-"\n"
-" /*\n"
-" * There is a protected method for every virtual method visible from\n"
-" * this class.\n"
-" */\n"
-"protected:\n"
- );
-
- noIntro = FALSE;
- }
-
- prcode(fp,
-" ");
-
- prOverloadDecl(fp, od, FALSE);
- prcode(fp, ";\n");
- }
-
- prcode(fp,
-"\n"
-"public:\n"
-" sipWrapper *sipPySelf;\n"
- );
-
- /* The private declarations. */
-
- prcode(fp,
-"\n"
-"private:\n"
-" sip%C(const sip%C &);\n"
-" sip%C &operator = (const sip%C &);\n"
- ,classFQCName(cd),classFQCName(cd)
- ,classFQCName(cd),classFQCName(cd));
-
- if ((nrVirts = countVirtuals(cd)) > 0)
- prcode(fp,
-"\n"
-" sipMethodCache sipPyMethods[%d];\n"
- ,nrVirts);
-
- prcode(fp,
-"};\n"
- );
-}
-
-
-/*
- * Generate the C++ declaration for an overload.
- */
-void prOverloadDecl(FILE *fp, overDef *od, int defval)
-{
- int a;
-
- normaliseArgs(od->cppsig);
-
- generateBaseType(&od->cppsig->result, fp);
-
- prcode(fp, " %O(", od);
-
- for (a = 0; a < od->cppsig->nrArgs; ++a)
- {
- argDef *ad = &od->cppsig->args[a];
-
- if (a > 0)
- prcode(fp, ",");
-
- generateBaseType(ad, fp);
-
- if (defval && ad->defval != NULL)
- {
- prcode(fp, " = ");
- generateExpression(ad->defval, fp);
- }
- }
-
- prcode(fp, ")%s%X", (isConst(od) ? " const" : ""), od->exceptions);
-
- restoreArgs(od->cppsig);
-}
-
-
-/*
- * Generate typed arguments.
- */
-static void generateArgs(signatureDef *sd,funcArgType ftype,FILE *fp)
-{
- int a;
-
- for (a = 0; a < sd->nrArgs; ++a)
- {
- if (a > 0)
- prcode(fp,",");
-
- generateSingleArg(&sd->args[a],a,ftype,fp);
- }
-}
-
-
-/*
- * Generate the declaration of a named variable to hold a result from a C++
- * function call.
- */
-static void generateNamedValueType(argDef *ad,char *name,FILE *fp)
-{
- argDef mod = *ad;
-
- if (ad->nrderefs == 0)
- if (ad->atype == class_type || ad->atype == mapped_type)
- mod.nrderefs = 1;
- else
- resetIsConstArg(&mod);
-
- resetIsReference(&mod);
- generateNamedBaseType(&mod,name,fp);
-}
-
-
-/*
- * Generate a single argument.
- */
-static void generateSingleArg(argDef *ad,int argnr,funcArgType ftype,FILE *fp)
-{
- char name[50];
- int genType, genName, derefPtr;
-
- /* Break the type down to individual modifications. */
-
- genType = FALSE;
- genName = FALSE;
- derefPtr = FALSE;
-
- switch (ftype)
- {
- case Call:
- genName = TRUE;
- derefPtr = TRUE;
- break;
-
- case Declaration:
- genType = TRUE;
- break;
-
- case Definition:
- genType = TRUE;
- genName = TRUE;
- break;
- }
-
- if (genName)
- {
- char *ind = "";
-
- if (derefPtr)
- switch (ad->atype)
- {
- case sstring_type:
- case ustring_type:
- case string_type:
- case wstring_type:
- if (ad->nrderefs > (isOutArg(ad) ? 0 : 1))
- ind = "&";
-
- break;
-
- case mapped_type:
- case class_type:
- if (ad->nrderefs == 2)
- ind = "&";
- else if (ad->nrderefs == 0)
- ind = "*";
-
- break;
-
- case struct_type:
- case void_type:
- if (ad->nrderefs == 2)
- ind = "&";
-
- break;
-
- default:
- if (ad->nrderefs == 1)
- ind = "&";
- }
-
- sprintf(name,"%sa%d",ind,argnr);
- }
- else
- name[0] = '\0';
-
- if (genType)
- generateNamedBaseType(ad,name,fp);
- else if (genName)
- prcode(fp,name);
-}
-
-
-/*
- * Generate a C++ type.
- */
-static void generateBaseType(argDef *ad,FILE *fp)
-{
- generateNamedBaseType(ad,"",fp);
-}
-
-
-/*
- * Generate a C++ type and name.
- */
-static void generateNamedBaseType(argDef *ad,char *name,FILE *fp)
-{
- int nr_derefs = ad->nrderefs;
-
- /*
- * A function type is handled differently because of the position of
- * the name.
- */
- if (ad->atype == function_type)
- {
- int i;
- signatureDef *sig = ad->u.sa;
-
- generateBaseType(&sig->result,fp);
-
- prcode(fp," (");
-
- for (i = 0; i < nr_derefs; ++i)
- prcode(fp,"*");
-
- prcode(fp,"%s)(",name);
- generateArgs(sig,Declaration,fp);
- prcode(fp,")");
-
- return;
- }
-
- if (isConstArg(ad))
- prcode(fp,"const ");
-
- switch (ad->atype)
- {
- case sstring_type:
- prcode(fp,"signed char");
- break;
-
- case ustring_type:
- prcode(fp,"unsigned char");
- break;
-
- case wstring_type:
- prcode(fp,"wchar_t");
- break;
-
- case signal_type:
- case slot_type:
- case anyslot_type:
- case slotcon_type:
- case slotdis_type:
- nr_derefs = 1;
-
- /* Drop through. */
-
- case string_type:
- prcode(fp,"char");
- break;
-
- case ushort_type:
- prcode(fp,"unsigned short");
- break;
-
- case short_type:
- prcode(fp,"short");
- break;
-
- case uint_type:
- prcode(fp,"unsigned");
- break;
-
- case int_type:
- case cint_type:
- prcode(fp,"int");
- break;
-
- case ulong_type:
- prcode(fp,"unsigned long");
- break;
-
- case long_type:
- prcode(fp,"long");
- break;
-
- case ulonglong_type:
- prcode(fp,"unsigned PY_LONG_LONG");
- break;
-
- case longlong_type:
- prcode(fp,"PY_LONG_LONG");
- break;
-
- case struct_type:
- prcode(fp,"struct %S",ad->u.sname);
- break;
-
- case void_type:
- prcode(fp,"void");
- break;
-
- case bool_type:
- case cbool_type:
- prcode(fp,"bool");
- break;
-
- case float_type:
- case cfloat_type:
- prcode(fp,"float");
- break;
-
- case double_type:
- case cdouble_type:
- prcode(fp,"double");
- break;
-
- case defined_type:
- /*
- * The only defined types still remaining are arguments to
- * templates.
- */
-
- prcode(fp,"%S",ad->u.snd);
- break;
-
- case rxcon_type:
- case rxdis_type:
- nr_derefs = 1;
- prcode(fp,"TQObject");
- break;
-
- case mapped_type:
- generateBaseType(&ad->u.mtd->type,fp);
- break;
-
- case class_type:
- prcode(fp,"%U",ad->u.cd);
- break;
-
- case template_type:
- {
- static const char tail[] = ">";
- int a;
- templateDef *td = ad->u.td;
-
- prcode(fp, "%S%s", td->fqname, (prcode_xml ? "&lt;" : "<"));
-
- for (a = 0; a < td->types.nrArgs; ++a)
- {
- if (a > 0)
- prcode(fp,",");
-
- generateBaseType(&td->types.args[a],fp);
- }
-
- if (prcode_last == tail)
- prcode(fp, " ");
-
- prcode(fp, (prcode_xml ? "&gt;" : tail));
- break;
- }
-
- case enum_type:
- prcode(fp,"%E",ad->u.ed);
- break;
-
- case pyobject_type:
- case pytuple_type:
- case pylist_type:
- case pydict_type:
- case pycallable_type:
- case pyslice_type:
- case pytype_type:
- case qobject_type:
- case ellipsis_type:
- prcode(fp, "PyObject *");
- break;
- }
-
- if (nr_derefs > 0)
- {
- int i;
-
- prcode(fp," ");
-
- for (i = 0; i < nr_derefs; ++i)
- prcode(fp,"*");
- }
-
- if (isReference(ad))
- prcode(fp, (prcode_xml ? "&amp;" : "&"));
-
- if (*name != '\0')
- {
- if (nr_derefs == 0)
- prcode(fp," ");
-
- prcode(fp,name);
- }
-}
-
-
-/*
- * Generate the definition of an argument variable and any supporting
- * variables.
- */
-static void generateVariable(argDef *ad,int argnr,FILE *fp)
-{
- argType atype = ad->atype;
- argDef orig;
-
- if (isInArg(ad) && ad->defval != NULL &&
- (atype == class_type || atype == mapped_type) &&
- (ad->nrderefs == 0 || isReference(ad)))
- {
- /*
- * Generate something to hold the default value as it cannot be
- * assigned straight away.
- */
- prcode(fp,
-" %B a%ddef = ",ad,argnr);
-
- generateExpression(ad->defval,fp);
-
- prcode(fp,";\n"
- );
- }
-
- /* Adjust the type so we have the type that will really handle it. */
-
- orig = *ad;
-
- switch (atype)
- {
- case sstring_type:
- case ustring_type:
- case string_type:
- case wstring_type:
- if (!isReference(ad))
- if (ad->nrderefs == 2)
- ad->nrderefs = 1;
- else if (ad->nrderefs == 1 && isOutArg(ad))
- ad->nrderefs = 0;
-
- break;
-
- case mapped_type:
- case class_type:
- case void_type:
- case struct_type:
- ad->nrderefs = 1;
- break;
-
- default:
- ad->nrderefs = 0;
- }
-
- /* Array sizes are always integers. */
- if (isArraySize(ad))
- ad->atype = int_type;
-
- resetIsReference(ad);
-
- if (ad->nrderefs == 0)
- resetIsConstArg(ad);
-
- prcode(fp,
-" %B a%d",ad,argnr);
-
- if (atype == anyslot_type)
- prcode(fp, "Name");
-
- *ad = orig;
-
- generateDefaultValue(ad, argnr, fp);
-
- prcode(fp,";\n"
- );
-
- /* Some types have supporting variables. */
- if (isInArg(ad))
- switch (atype)
- {
- case class_type:
- if (ad->u.cd->convtocode != NULL && !isConstrained(ad))
- prcode(fp,
-" int a%dState = 0;\n"
- ,argnr);
-
- if (isGetWrapper(ad))
- prcode(fp,
-" PyObject *a%dWrapper;\n"
- ,argnr);
-
- break;
-
- case mapped_type:
- prcode(fp,
-" int a%dState = 0;\n"
- ,argnr);
- break;
-
- case anyslot_type:
- prcode(fp,
-" PyObject *a%dCallable", argnr);
- generateDefaultValue(ad, argnr, fp);
- prcode(fp, ";\n"
- );
- break;
- }
-}
-
-
-/*
- * Generate a default value.
- */
-static void generateDefaultValue(argDef *ad, int argnr, FILE *fp)
-{
- if (isInArg(ad) && ad->defval != NULL)
- {
- prcode(fp," = ");
-
- if ((ad->atype == class_type || ad->atype == mapped_type) &&
- (ad->nrderefs == 0 || isReference(ad)))
- prcode(fp, "&a%ddef", argnr);
- else
- generateExpression(ad->defval,fp);
- }
-}
-
-
-/*
- * Generate a simple function call.
- */
-static void generateSimpleFunctionCall(fcallDef *fcd,FILE *fp)
-{
- int i;
-
- prcode(fp, "%B(", &fcd->type);
-
- for (i = 0; i < fcd->nrArgs; ++i)
- {
- if (i > 0)
- prcode(fp,",");
-
- generateExpression(fcd->args[i],fp);
- }
-
- prcode(fp,")");
-}
-
-
-/*
- * Generate the type structure that contains all the information needed by the
- * metatype. A sub-set of this is used to extend namespaces.
- */
-static void generateTypeDefinition(sipSpec *pt, classDef *cd, FILE *fp)
-{
- char *mname = pt->module->name;
- const char *sep;
- int is_slots, nr_methods, nr_enums;
- int is_inst_class, is_inst_voidp, is_inst_char, is_inst_string;
- int is_inst_int, is_inst_long, is_inst_ulong, is_inst_longlong;
- int is_inst_ulonglong, is_inst_double, is_inst_enum;
- memberDef *md;
-
- if (cd->supers != NULL)
- {
- classList *cl;
-
- prcode(fp,
-"\n"
-"\n"
-"/* Define this type's super-types. */\n"
-"static sipEncodedClassDef supers_%C[] = {",classFQCName(cd));
-
- for (cl = cd->supers; cl != NULL; cl = cl->next)
- {
- if (cl != cd->supers)
- prcode(fp,", ");
-
- generateEncodedClass(pt,cl->cd,(cl->next == NULL),fp);
- }
-
- prcode(fp,"};\n"
- );
- }
-
- /* Generate the slots table. */
- is_slots = FALSE;
-
- for (md = cd->members; md != NULL; md = md->next)
- {
- const char *stype;
-
- if (md->slot == no_slot)
- continue;
-
- if (!is_slots)
- {
- prcode(fp,
-"\n"
-"\n"
-"/* Define this type's Python slots. */\n"
-"static sipPySlotDef slots_%C[] = {\n"
- ,classFQCName(cd));
-
- is_slots = TRUE;
- }
-
- if ((stype = slotName(md->slot)) != NULL)
- prcode(fp,
-" {(void *)slot_%C_%s, %s},\n"
- ,classFQCName(cd),md->pyname->text,stype);
- }
-
- if (is_slots)
- prcode(fp,
-" {0, (sipPySlotType)0}\n"
-"};\n"
- );
-
- /* Generate the attributes tables. */
- nr_methods = generateMethodTable(cd,fp);
- nr_enums = generateEnumMemberTable(pt,cd,fp);
-
- /* Generate each instance table. */
- is_inst_class = generateClasses(pt,cd,fp);
- is_inst_voidp = generateVoidPointers(pt,cd,fp);
- is_inst_char = generateChars(pt,cd,fp);
- is_inst_string = generateStrings(pt,cd,fp);
- is_inst_int = generateInts(pt,cd,fp);
- is_inst_long = generateLongs(pt,cd,fp);
- is_inst_ulong = generateUnsignedLongs(pt,cd,fp);
- is_inst_longlong = generateLongLongs(pt,cd,fp);
- is_inst_ulonglong = generateUnsignedLongLongs(pt,cd,fp);
- is_inst_double = generateDoubles(pt,cd,fp);
- is_inst_enum = generateEnums(pt,cd,fp);
-
- prcode(fp,
-"\n"
-"\n"
-"sipTypeDef sipType_%s_%C = {\n"
-" 0,\n"
-" ", mname, classFQCName(cd));
-
- sep = "";
-
- if (cd->userflags)
- {
- prcode(fp, "%s%x", sep, ((cd->userflags << TYPE_FLAGS_SHIFT) & TYPE_FLAGS_MASK));
- sep = "|";
- }
-
- if (isAbstractClass(cd))
- {
- prcode(fp, "%sSIP_TYPE_ABSTRACT", sep);
- sep = "|";
- }
-
- if (cd->subbase != NULL)
- {
- prcode(fp, "%sSIP_TYPE_SCC", sep);
- sep = "|";
- }
-
- if (*sep == '\0')
- prcode(fp, "0");
-
- prcode(fp, ",\n");
-
- if (cd->real != NULL)
- prcode(fp,
-" 0,\n"
- );
- else if (cd->ecd != NULL && cd->ecd->real != NULL)
- prcode(fp,
-" \"%s.%P\",\n"
- , cd->ecd->real->iff->module->name, cd->ecd, cd->pyname);
- else
- prcode(fp,
-" \"%s.%P\",\n"
- , mname, cd->ecd, cd->pyname);
-
- if (isRenamedClass(cd))
- prcode(fp,
-" \"%S\",\n"
- , classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- prcode(fp,
-" ");
-
- if (cd->real != NULL)
- generateEncodedClass(pt, cd->real, 0, fp);
- else if (cd->ecd != NULL)
- generateEncodedClass(pt, cd->ecd, 0, fp);
- else
- prcode(fp, "{0, 0, 1}");
-
- prcode(fp, ",\n"
- );
-
- if (cd->supers != NULL)
- prcode(fp,
-" supers_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (is_slots)
- prcode(fp,
-" slots_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (nr_methods == 0)
- prcode(fp,
-" 0, 0,\n"
- );
- else
- prcode(fp,
-" %d, methods_%C,\n"
- ,nr_methods,classFQCName(cd));
-
- if (nr_enums == 0)
- prcode(fp,
-" 0, 0,\n"
- );
- else
- prcode(fp,
-" %d, enummembers_%C,\n"
- ,nr_enums,classFQCName(cd));
-
- if (hasVarHandlers(cd))
- prcode(fp,
-" variables_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (canCreate(cd))
- prcode(fp,
-" init_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (cd->travcode != NULL)
- prcode(fp,
-" traverse_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (cd->clearcode != NULL)
- prcode(fp,
-" clear_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (cd->readbufcode != NULL)
- prcode(fp,
-" getreadbuffer_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (cd->writebufcode != NULL)
- prcode(fp,
-" getwritebuffer_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (cd->segcountcode != NULL)
- prcode(fp,
-" getsegcount_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (cd->charbufcode != NULL)
- prcode(fp,
-" getcharbuffer_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (needDealloc(cd))
- prcode(fp,
-" dealloc_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- if (cd->iff->type == namespace_iface || generating_c)
- prcode(fp,
-" 0,\n"
-" 0,\n"
- );
- else
- prcode(fp,
-" cast_%C,\n"
-" release_%C,\n"
- , classFQCName(cd)
- , classFQCName(cd));
-
- if (cd->iff->type == namespace_iface)
- prcode(fp,
-" 0,\n"
-" 0,\n"
- );
- else
- {
- prcode(fp,
-" forceConvertTo_%C,\n"
- ,classFQCName(cd));
-
- if (cd->convtocode != NULL)
- prcode(fp,
-" convertTo_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
- }
-
- if (!optNoEmitters(pt) && hasSigSlots(cd))
- prcode(fp,
-" signals_%C,\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" 0,\n"
- );
-
- prcode(fp,
-" {");
-
- if (is_inst_class)
- prcode(fp,"classInstances_%C, ",classFQCName(cd));
- else
- prcode(fp,"0, ");
-
- if (is_inst_voidp)
- prcode(fp,"voidPtrInstances_%C, ",classFQCName(cd));
- else
- prcode(fp,"0, ");
-
- if (is_inst_char)
- prcode(fp,"charInstances_%C, ",classFQCName(cd));
- else
- prcode(fp,"0, ");
-
- if (is_inst_string)
- prcode(fp,"stringInstances_%C, ",classFQCName(cd));
- else
- prcode(fp,"0, ");
-
- if (is_inst_int)
- prcode(fp,"intInstances_%C, ",classFQCName(cd));
- else
- prcode(fp,"0, ");
-
- if (is_inst_long)
- prcode(fp,"longInstances_%C, ",classFQCName(cd));
- else
- prcode(fp,"0, ");
-
- if (is_inst_ulong)
- prcode(fp,"unsignedLongInstances_%C, ",classFQCName(cd));
- else
- prcode(fp,"0, ");
-
- if (is_inst_longlong)
- prcode(fp,"longLongInstances_%C, ",classFQCName(cd));
- else
- prcode(fp,"0, ");
-
- if (is_inst_ulonglong)
- prcode(fp,"unsignedLongLongInstances_%C, ",classFQCName(cd));
- else
- prcode(fp,"0, ");
-
- if (is_inst_double)
- prcode(fp,"doubleInstances_%C, ",classFQCName(cd));
- else
- prcode(fp,"0, ");
-
- if (is_inst_enum)
- prcode(fp,"enumInstances_%C",classFQCName(cd));
- else
- prcode(fp,"0");
-
- prcode(fp,"},\n"
-" 0\n"
-"};\n"
- );
-}
-
-
-/*
- * Return the sip module's string equivalent of a slot.
- */
-static const char *slotName(slotType st)
-{
- const char *sn;
-
- switch (st)
- {
- case str_slot:
- sn = "str_slot";
- break;
-
- case int_slot:
- sn = "int_slot";
- break;
-
- case long_slot:
- sn = "long_slot";
- break;
-
- case float_slot:
- sn = "float_slot";
- break;
-
- case len_slot:
- sn = "len_slot";
- break;
-
- case contains_slot:
- sn = "contains_slot";
- break;
-
- case add_slot:
- sn = "add_slot";
- break;
-
- case concat_slot:
- sn = "concat_slot";
- break;
-
- case sub_slot:
- sn = "sub_slot";
- break;
-
- case mul_slot:
- sn = "mul_slot";
- break;
-
- case repeat_slot:
- sn = "repeat_slot";
- break;
-
- case div_slot:
- sn = "div_slot";
- break;
-
- case mod_slot:
- sn = "mod_slot";
- break;
-
- case and_slot:
- sn = "and_slot";
- break;
-
- case or_slot:
- sn = "or_slot";
- break;
-
- case xor_slot:
- sn = "xor_slot";
- break;
-
- case lshift_slot:
- sn = "lshift_slot";
- break;
-
- case rshift_slot:
- sn = "rshift_slot";
- break;
-
- case iadd_slot:
- sn = "iadd_slot";
- break;
-
- case iconcat_slot:
- sn = "iconcat_slot";
- break;
-
- case isub_slot:
- sn = "isub_slot";
- break;
-
- case imul_slot:
- sn = "imul_slot";
- break;
-
- case irepeat_slot:
- sn = "irepeat_slot";
- break;
-
- case idiv_slot:
- sn = "idiv_slot";
- break;
-
- case imod_slot:
- sn = "imod_slot";
- break;
-
- case iand_slot:
- sn = "iand_slot";
- break;
-
- case ior_slot:
- sn = "ior_slot";
- break;
-
- case ixor_slot:
- sn = "ixor_slot";
- break;
-
- case ilshift_slot:
- sn = "ilshift_slot";
- break;
-
- case irshift_slot:
- sn = "irshift_slot";
- break;
-
- case invert_slot:
- sn = "invert_slot";
- break;
-
- case call_slot:
- sn = "call_slot";
- break;
-
- case getitem_slot:
- sn = "getitem_slot";
- break;
-
- case setitem_slot:
- sn = "setitem_slot";
- break;
-
- case delitem_slot:
- sn = "delitem_slot";
- break;
-
- case lt_slot:
- sn = "lt_slot";
- break;
-
- case le_slot:
- sn = "le_slot";
- break;
-
- case eq_slot:
- sn = "eq_slot";
- break;
-
- case ne_slot:
- sn = "ne_slot";
- break;
-
- case gt_slot:
- sn = "gt_slot";
- break;
-
- case ge_slot:
- sn = "ge_slot";
- break;
-
- case cmp_slot:
- sn = "cmp_slot";
- break;
-
- case nonzero_slot:
- sn = "nonzero_slot";
- break;
-
- case neg_slot:
- sn = "neg_slot";
- break;
-
- case pos_slot:
- sn = "pos_slot";
- break;
-
- case abs_slot:
- sn = "abs_slot";
- break;
-
- case repr_slot:
- sn = "repr_slot";
- break;
-
- case hash_slot:
- sn = "hash_slot";
- break;
-
- default:
- sn = NULL;
- }
-
- return sn;
-}
-
-
-/*
- * Generate the code to register a class as a Qt metatype.
- */
-static void generateRegisterMetaType(classDef *cd, FILE *fp)
-{
- int pub_def_ctor, pub_copy_ctor;
- ctorDef *ct;
-
- /*
- * We register types with Qt if the class is not abstract, has a public
- * default ctor, a public copy ctor, a public dtor and isn't one of the
- * internally supported types.
- */
- if (isAbstractClass(cd))
- return;
-
- if (!isPublicDtor(cd))
- return;
-
- if (classFQCName(cd)->next == NULL)
- {
- if (strcmp(classBaseName(cd), "TQChar") == 0)
- return;
-
- if (strcmp(classBaseName(cd), "TQString") == 0)
- return;
-
- if (strcmp(classBaseName(cd), "TQByteArray") == 0)
- return;
- }
-
- pub_def_ctor = pub_copy_ctor = FALSE;
-
- for (ct = cd->ctors; ct != NULL; ct = ct->next)
- {
- if (ct->cppsig == NULL || !isPublicCtor(ct))
- continue;
-
- if (ct->cppsig->nrArgs == 0)
- pub_def_ctor = TRUE;
- else if (ct->cppsig->nrArgs == 1)
- {
- argDef *ad = &ct->cppsig->args[0];
-
- if (ad->atype == class_type && ad->u.cd == cd && isReference(ad) &&
- isConstArg(ad) && ad->nrderefs == 0 && ad->defval == NULL)
- pub_copy_ctor = TRUE;
- }
- }
-
- if (pub_def_ctor && pub_copy_ctor)
- prcode(fp,
-" qRegisterMetaType<%S>(\"%S\");\n"
- , classFQCName(cd), classFQCName(cd));
-}
-
-
-/*
- * Generate the initialisation function or cast operators for the type.
- */
-static void generateTypeInit(sipSpec *pt, classDef *cd, FILE *fp)
-{
- ctorDef *ct;
- int need_self, need_owner;
-
- /*
- * See if we need to name the self and owner arguments so that we can
- * avoid a compiler warning about an unused argument.
- */
- need_self = (generating_c || hasShadow(cd));
- need_owner = generating_c;
-
- for (ct = cd->ctors; ct != NULL; ct = ct->next)
- {
- int a;
-
- if (usedInCode(ct->methodcode, "sipSelf"))
- need_self = TRUE;
-
- for (a = 0; a < ct->pysig.nrArgs; ++a)
- if (isThisTransferred(&ct->pysig.args[a]))
- {
- need_owner = TRUE;
- break;
- }
- }
-
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static void *init_%C(sipWrapper *, PyObject *, sipWrapper **, int *);}\n"
- , classFQCName(cd));
-
- prcode(fp,
-"static void *init_%C(sipWrapper *%s,PyObject *sipArgs,sipWrapper **%s,int *sipArgsParsed)\n"
-"{\n"
- ,classFQCName(cd),(need_self ? "sipSelf" : ""),(need_owner ? "sipOwner" : ""));
-
- if (hasShadow(cd))
- prcode(fp,
-" sip%C *sipCpp = 0;\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" %U *sipCpp = 0;\n"
- ,cd);
-
- if (tracing)
- prcode(fp,
-"\n"
-" sipTrace(SIP_TRACE_INITS,\"init_%C()\\n\");\n"
- ,classFQCName(cd));
-
- /*
- * Generate the code that parses the Python arguments and calls the
- * correct constructor.
- */
- for (ct = cd->ctors; ct != NULL; ct = ct->next)
- {
- int needSecCall, error_flag = FALSE;
-
- if (isPrivateCtor(ct))
- continue;
-
- prcode(fp,
-"\n"
-" if (!sipCpp)\n"
-" {\n"
- );
-
- if (ct->methodcode != NULL && needErrorFlag(ct->methodcode))
- {
- prcode(fp,
-" int sipIsErr = 0;\n"
- );
-
- error_flag = TRUE;
- }
-
- needSecCall = generateArgParser(pt, &ct->pysig, cd, ct, NULL, FALSE, fp);
- generateConstructorCall(cd,ct,error_flag,fp);
-
- if (needSecCall)
- {
- prcode(fp,
-" }\n"
-"\n"
-" if (!sipCpp)\n"
-" {\n"
- );
-
- if (error_flag)
- prcode(fp,
-" int sipIsErr = 0;\n"
- );
-
- generateArgParser(pt, &ct->pysig, cd, ct, NULL, TRUE, fp);
- generateConstructorCall(cd,ct,error_flag,fp);
- }
-
- prcode(fp,
-" }\n"
- );
- }
-
- if (hasShadow(cd))
- prcode(fp,
-"\n"
-" if (sipCpp)\n"
-" sipCpp->sipPySelf = sipSelf;\n"
- );
-
- prcode(fp,
-"\n"
-" return sipCpp;\n"
-"}\n"
- );
-}
-
-
-/*
- * Count the number of virtual members in a class.
- */
-static int countVirtuals(classDef *cd)
-{
- int nrvirts;
- virtOverDef *vod;
-
- nrvirts = 0;
-
- for (vod = cd->vmembers; vod != NULL; vod = vod->next)
- if (!isPrivate(&vod->o))
- ++nrvirts;
-
- return nrvirts;
-}
-
-
-/*
- * Generate the try block for a call.
- */
-static void generateTry(throwArgs *ta,FILE *fp)
-{
- /*
- * Generate the block if there was no throw specifier, or a non-empty
- * throw specifier.
- */
- if (exceptions && (ta == NULL || ta->nrArgs > 0))
- prcode(fp,
-" try\n"
-" {\n"
- );
-}
-
-
-/*
- * Generate the catch block for a call.
- */
-static void generateCatch(throwArgs *ta, signatureDef *sd, FILE *fp)
-{
- /*
- * Generate the block if there was no throw specifier, or a non-empty
- * throw specifier.
- */
- if (exceptions && (ta == NULL || ta->nrArgs > 0))
- {
- prcode(fp,
-" }\n"
- );
-
- if (ta == NULL)
- {
- prcode(fp,
-" catch (...)\n"
-" {\n"
- );
-
- deleteTemps(sd, fp);
-
- if (release_gil)
- prcode(fp,
-" Py_BLOCK_THREADS\n"
-"\n"
- );
-
- prcode(fp,
-" sipRaiseUnknownException();\n"
-" return NULL;\n"
-" }\n"
- );
- }
- else
- {
- int a;
-
- for (a = 0; a < ta->nrArgs; ++a)
- {
- exceptionDef *xd = ta->args[a];
- scopedNameDef *ename = xd->iff->fqcname;
-
- prcode(fp,
-" catch (%S &%s)\n"
-" {\n"
- ,ename,(xd->cd != NULL || usedInCode(xd->raisecode, "sipExceptionRef")) ? "sipExceptionRef" : "");
-
- deleteTemps(sd, fp);
-
- if (xd->cd != NULL)
- {
- /* The exception is a wrapped class. */
-
- prcode(fp,
-" /* Hope that there is a valid copy ctor. */\n"
-" %S *sipExceptionCopy = new %S(sipExceptionRef);\n"
-"\n"
- ,ename,ename);
-
- if (release_gil)
- prcode(fp,
-" Py_BLOCK_THREADS\n"
-"\n"
- );
-
- prcode(fp,
-" sipRaise%sClassException(sipClass_%C,sipExceptionCopy);\n"
- ,(xd->cd->subbase != NULL ? "Sub" : ""),ename);
- }
- else
- generateCppCodeBlock(xd->raisecode,fp);
-
- prcode(fp,
-"\n"
-" return NULL;\n"
-" }\n"
- );
- }
- }
- }
-}
-
-
-/*
- * Generate a throw specifier.
- */
-static void generateThrowSpecifier(throwArgs *ta,FILE *fp)
-{
- if (exceptions && ta != NULL)
- {
- int a;
-
- prcode(fp," throw(");
-
- for (a = 0; a < ta->nrArgs; ++a)
- {
- if (a > 0)
- prcode(fp,",");
-
- prcode(fp,"%S",ta->args[a]->iff->fqcname);
- }
-
- prcode(fp,")");
- }
-}
-
-
-/*
- * Generate a single constructor call.
- */
-static void generateConstructorCall(classDef *cd,ctorDef *ct,int error_flag,
- FILE *fp)
-{
- prcode(fp,
-" {\n"
- );
-
- /* Call any pre-hook. */
- if (ct->prehook != NULL)
- prcode(fp,
-" sipCallHook(\"%s\");\n"
-"\n"
- ,ct->prehook);
-
- if (ct->methodcode != NULL)
- generateCppCodeBlock(ct->methodcode,fp);
- else if (generating_c)
- prcode(fp,
-" sipCpp = sipMalloc(sizeof (%S));\n"
- ,classFQCName(cd));
- else
- {
- int rgil = ((release_gil || isReleaseGILCtor(ct)) && !isHoldGILCtor(ct));
-
- if (rgil)
- prcode(fp,
-" Py_BEGIN_ALLOW_THREADS\n"
- );
-
- generateTry(ct->exceptions,fp);
-
- if (hasShadow(cd))
- prcode(fp,
-" sipCpp = new sip%C(",classFQCName(cd));
- else
- prcode(fp,
-" sipCpp = new %U(",cd);
-
- if (isCastCtor(ct))
- {
- classDef *ocd;
-
- /* We have to fiddle the type to generate the correct code. */
- ocd = ct->pysig.args[0].u.cd;
- ct->pysig.args[0].u.cd = cd;
- prcode(fp, "a0->operator %B()", &ct->pysig.args[0]);
- ct->pysig.args[0].u.cd = ocd;
- }
- else
- generateArgs(ct->cppsig, Call, fp);
-
- prcode(fp,");\n"
- );
-
- generateCatch(ct->exceptions, &ct->pysig, fp);
-
- if (rgil)
- prcode(fp,
-" Py_END_ALLOW_THREADS\n"
- );
- }
-
- gc_ellipsis(&ct->pysig, fp);
-
- deleteTemps(&ct->pysig, fp);
-
- if (error_flag)
- prcode(fp,
-"\n"
-" if (sipIsErr)\n"
-" return 0;\n"
- );
-
- /* Call any post-hook. */
- if (ct->posthook != NULL)
- prcode(fp,
-"\n"
-" sipCallHook(\"%s\");\n"
- ,ct->posthook);
-
- prcode(fp,
-" }\n"
- );
-}
-
-
-/*
- * See if a member overload should be skipped.
- */
-static int skipOverload(overDef *od,memberDef *md,classDef *cd,classDef *ccd,
- int want_local)
-{
- /* Skip if it's not the right name. */
- if (od->common != md)
- return TRUE;
-
- /* Skip if it's a signal. */
- if (isSignal(od))
- return TRUE;
-
- /* Skip if it's a private abstract. */
- if (isAbstract(od) && isPrivate(od))
- return TRUE;
-
- /*
- * If we are disallowing them, skip if it's not in the current class
- * unless it is protected.
- */
- if (want_local && !isProtected(od) && ccd != cd)
- return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Generate a class member function.
- */
-static void generateFunction(sipSpec *pt,memberDef *md,overDef *overs,
- classDef *cd,classDef *ocd,FILE *fp)
-{
- overDef *od;
- int need_method, need_self, need_args, need_selfarg;
-
- /*
- * Check that there is at least one overload that needs to be handled.
- * See if we can avoid naming the "self" argument (and suppress a
- * compiler warning). Finally see if we need to remember if "self" was
- * explicitly passed as an argument.
- */
- need_method = need_self = need_args = need_selfarg = FALSE;
-
- for (od = overs; od != NULL; od = od->next)
- {
- /*
- * Skip protected methods if we don't have the means to handle
- * them.
- */
- if (isProtected(od) && !hasShadow(cd))
- continue;
-
- if (!skipOverload(od,md,cd,ocd,TRUE))
- {
- need_method = TRUE;
-
- if (!isPrivate(od))
- {
- need_args = TRUE;
-
- if (!isStatic(od))
- {
- need_self = TRUE;
-
- if (isAbstract(od) || isVirtual(od) || isVirtualReimp(od) || usedInCode(od->methodcode, "sipSelfWasArg"))
- need_selfarg = TRUE;
- }
- }
- }
- }
-
- if (need_method)
- {
- char *pname = md->pyname->text;
-
- prcode(fp,
-"\n"
-"\n"
- );
-
- if (!generating_c)
- prcode(fp,
-"extern \"C\" {static PyObject *meth_%C_%s(PyObject *, PyObject *);}\n"
- , classFQCName(cd), pname);
-
- prcode(fp,
-"static PyObject *meth_%C_%s(PyObject *%s,PyObject *%s)\n"
-"{\n"
- ,classFQCName(cd),pname,(need_self ? "sipSelf" : ""),(need_args ? "sipArgs" : ""));
-
- if (tracing)
- prcode(fp,
-" sipTrace(SIP_TRACE_METHODS,\"meth_%C_%s()\\n\");\n"
-"\n"
- ,classFQCName(cd),pname);
-
- if (need_args)
- prcode(fp,
-" int sipArgsParsed = 0;\n"
- );
-
- if (need_selfarg)
- prcode(fp,
-" bool sipSelfWasArg = !sipSelf;\n"
- );
-
- for (od = overs; od != NULL; od = od->next)
- {
- /*
- * If we are handling one variant then we must handle
- * them all.
- */
- if (skipOverload(od,md,cd,ocd,FALSE))
- continue;
-
- if (isPrivate(od))
- continue;
-
- generateFunctionBody(pt,od,cd,ocd,TRUE,fp);
- }
-
- prcode(fp,
-"\n"
-" /* Raise an exception if the arguments couldn't be parsed. */\n"
-" sipNoMethod(%s,%N,%N);\n"
-"\n"
-" return NULL;\n"
-"}\n"
- ,(need_args ? "sipArgsParsed" : "0"),cd->iff->name,md->pyname);
- }
-}
-
-
-/*
- * Generate the function calls for a particular overload.
- */
-static void generateFunctionBody(sipSpec *pt,overDef *od,classDef *cd,
- classDef *ocd,int deref,FILE *fp)
-{
- int needSecCall;
- signatureDef saved;
-
- prcode(fp,
-"\n"
-" {\n"
- );
-
- /* In case we have to fiddle with it. */
- saved = od->pysig;
-
- if (isNumberSlot(od->common))
- {
- /*
- * Number slots must have two arguments because we parse them
- * slightly differently.
- */
- if (od->pysig.nrArgs == 1)
- {
- od->pysig.nrArgs = 2;
- od->pysig.args[1] = od->pysig.args[0];
-
- /* Insert self as the first argument. */
- od->pysig.args[0].atype = class_type;
- od->pysig.args[0].name = NULL;
- od->pysig.args[0].argflags = ARG_IS_REF|ARG_IN;
- od->pysig.args[0].nrderefs = 0;
- od->pysig.args[0].defval = NULL;
- od->pysig.args[0].u.cd = ocd;
- }
-
- generateArgParser(pt, &od->pysig, cd, NULL, od, FALSE, fp);
- needSecCall = FALSE;
- }
- else if (isIntArgSlot(od->common) || isZeroArgSlot(od->common))
- needSecCall = FALSE;
- else
- needSecCall = generateArgParser(pt, &od->pysig, cd, NULL, od, FALSE, fp);
-
- generateFunctionCall(cd,ocd,od,deref,fp);
-
- if (needSecCall)
- {
- prcode(fp,
-" }\n"
-"\n"
-" {\n"
- );
-
- generateArgParser(pt, &od->pysig, cd, NULL, od, TRUE, fp);
- generateFunctionCall(cd,ocd,od,deref,fp);
- }
-
- prcode(fp,
-" }\n"
- );
-
- od->pysig = saved;
-}
-
-
-/*
- * Generate the code to handle the result of a call to a member function.
- */
-static void generateHandleResult(overDef *od,int isNew,char *prefix,FILE *fp)
-{
- char *vname, vnamebuf[50];
- int a, nrvals, only, has_owner;
- argDef *res, *ad;
-
- res = &od->pysig.result;
-
- if (res->atype == void_type && res->nrderefs == 0)
- res = NULL;
-
- /* See if we are returning 0, 1 or more values. */
- nrvals = 0;
-
- if (res != NULL)
- {
- only = -1;
- ++nrvals;
- }
-
- has_owner = FALSE;
-
- for (a = 0; a < od->pysig.nrArgs; ++a)
- {
- if (isOutArg(&od->pysig.args[a]))
- {
- only = a;
- ++nrvals;
- }
-
- if (isThisTransferred(&od->pysig.args[a]))
- has_owner = TRUE;
- }
-
- /* Handle the trivial case. */
- if (nrvals == 0)
- {
- prcode(fp,
-" Py_INCREF(Py_None);\n"
-" %s Py_None;\n"
- ,prefix);
-
- return;
- }
-
- /* Handle results that are classes or mapped types separately. */
- if (res != NULL)
- if (res->atype == mapped_type)
- {
- prcode(fp,
-" PyObject *sipResObj = sipConvertFromMappedType(");
-
- if (isConstArg(res))
- prcode(fp,"const_cast<%b *>(sipRes)",res);
- else
- prcode(fp,"sipRes");
-
- prcode(fp,",sipMappedType_%T,%s);\n"
- , res, isResultTransferredBack(od) ? "Py_None" : "NULL");
-
- if (isNew)
- prcode(fp,
-" delete sipRes;\n"
- );
-
- /* Shortcut if this is the only value returned. */
- if (nrvals == 1)
- {
- prcode(fp,
-"\n"
-" %s sipResObj;\n"
- ,prefix);
-
- return;
- }
- }
- else if (res->atype == class_type)
- {
- classDef *cd = res->u.cd;
-
- if (isNew || isFactory(od))
- {
- prcode(fp,
-" %s sipConvertFromNewInstance(",(nrvals == 1 ? prefix : "PyObject *sipResObj ="));
-
- if (isConstArg(res))
- prcode(fp,"const_cast<%b *>(sipRes)",res);
- else
- prcode(fp,"sipRes");
-
- prcode(fp,",sipClass_%C,%s);\n"
- ,classFQCName(cd),((has_owner && isFactory(od)) ? "(PyObject *)sipOwner" : "NULL"));
-
- /*
- * Shortcut if this is the only value returned.
- */
- if (nrvals == 1)
- return;
- }
- else
- {
- prcode(fp,
-" %s sipConvertFromInstance(",(nrvals == 1 ? prefix : "PyObject *sipResObj ="));
-
- if (isConstArg(res))
- prcode(fp,"const_cast<%b *>(sipRes)",res);
- else
- prcode(fp,"sipRes");
-
- prcode(fp, ",sipClass_%C,%s);\n"
- , classFQCName(cd), (isResultTransferredBack(od) ? "Py_None" : "NULL"));
-
- /*
- * Shortcut if this is the only value returned.
- */
- if (nrvals == 1)
- return;
- }
- }
-
- /* If there are multiple values then build a tuple. */
- if (nrvals > 1)
- {
- prcode(fp,
-" %s sipBuildResult(0,\"(",prefix);
-
- /* Build the format string. */
- if (res != NULL)
- prcode(fp,"%c",((res->atype == mapped_type || res->atype == class_type) ? 'R' : getBuildResultFormat(res)));
-
- for (a = 0; a < od->pysig.nrArgs; ++a)
- {
- argDef *ad = &od->pysig.args[a];
-
- if (isOutArg(ad))
- prcode(fp,"%c",getBuildResultFormat(ad));
- }
-
- prcode(fp,")\"");
-
- /* Pass the values for conversion. */
- if (res != NULL)
- {
- prcode(fp,",sipRes");
-
- if (res->atype == mapped_type || res->atype == class_type)
- prcode(fp,"Obj");
- else if (res->atype == enum_type && res->u.ed->fqcname != NULL)
- prcode(fp,",sipEnum_%C",res->u.ed->fqcname);
- }
-
- for (a = 0; a < od->pysig.nrArgs; ++a)
- {
- argDef *ad = &od->pysig.args[a];
-
- if (isOutArg(ad))
- {
- prcode(fp,",a%d",a);
-
- if (ad->atype == mapped_type)
- prcode(fp, ",sipMappedType_%T,%s", ad, (isTransferredBack(ad) ? "Py_None" : "NULL"));
- else if (ad->atype == class_type)
- prcode(fp, ",sipClass_%C,%s", classFQCName(ad->u.cd), (isTransferredBack(ad) ? "Py_None" : "NULL"));
- else if (ad->atype == enum_type && ad->u.ed->fqcname != NULL)
- prcode(fp,",sipEnum_%C",ad->u.ed->fqcname);
- }
- }
-
- prcode(fp,");\n"
- );
-
- /* All done for multiple values. */
- return;
- }
-
- /* Deal with the only returned value. */
- if (only < 0)
- {
- ad = res;
- vname = "sipRes";
- }
- else
- {
- ad = &od->pysig.args[only];
-
- sprintf(vnamebuf,"a%d",only);
- vname = vnamebuf;
- }
-
- switch (ad->atype)
- {
- case mapped_type:
- prcode(fp,
-" %s sipConvertFromMappedType(", prefix);
-
- if (isConstArg(ad))
- prcode(fp,"const_cast<%b *>(%s)",ad,vname);
- else
- prcode(fp,"%s",vname);
-
- prcode(fp,",sipMappedType_%T,%s);\n"
- , ad, (isTransferredBack(ad) ? "Py_None" : "NULL"));
-
- break;
-
- case class_type:
- {
- classDef *cd = ad->u.cd;
- int needNew = needNewInstance(ad);
-
- if (needNew)
- prcode(fp,
-" %s sipConvertFromNewInstance(", prefix);
- else
- prcode(fp,
-" %s sipConvertFromInstance(", prefix);
-
- if (isConstArg(ad))
- prcode(fp,"const_cast<%b *>(%s)",ad,vname);
- else
- prcode(fp,"%s",vname);
-
- prcode(fp,",sipClass_%C,",classFQCName(cd));
-
- if (needNew)
- prcode(fp,"NULL");
- else
- prcode(fp,"%s\n"
- , (isTransferredBack(ad) ? "Py_None" : "NULL"));
-
- prcode(fp,");\n"
- );
- }
-
- break;
-
- case bool_type:
- case cbool_type:
- prcode(fp,
-" %s PyBool_FromLong(%s);\n"
- ,prefix,vname);
-
- break;
-
- case sstring_type:
- case ustring_type:
- case string_type:
- if (ad->nrderefs == 0)
- prcode(fp,
-" %s PyString_FromStringAndSize(%s&%s,1);\n"
- ,prefix,(ad->atype != string_type) ? "(char *)" : "",vname);
- else
- prcode(fp,
-" if (%s == NULL)\n"
-" {\n"
-" Py_INCREF(Py_None);\n"
-" return Py_None;\n"
-" }\n"
-"\n"
-" %s PyString_FromString(%s%s);\n"
- ,vname
- ,prefix,(ad->atype != string_type) ? "(char *)" : "",vname);
-
- break;
-
- case wstring_type:
- if (ad->nrderefs == 0)
- prcode(fp,
-" %s PyUnicode_FromWideChar(&%s,1);\n"
- , prefix, vname);
- else
- prcode(fp,
-" if (%s == NULL)\n"
-" {\n"
-" Py_INCREF(Py_None);\n"
-" return Py_None;\n"
-" }\n"
-"\n"
-" %s PyUnicode_FromWideChar(%s,(SIP_SSIZE_T)wcslen(%s));\n"
- , vname
- , prefix, vname, vname);
-
- break;
-
- case enum_type:
- if (ad->u.ed->fqcname != NULL)
- {
- prcode(fp,
-" %s sipConvertFromNamedEnum(%s,sipEnum_%C);\n"
- ,prefix,vname,ad->u.ed->fqcname);
-
- break;
- }
-
- /* Drop through. */
-
- case short_type:
- case int_type:
- case cint_type:
- prcode(fp,
-" %s PyInt_FromLong(%s);\n"
- ,prefix,vname);
-
- break;
-
- case long_type:
- prcode(fp,
-" %s PyLong_FromLong(%s);\n"
- ,prefix,vname);
-
- break;
-
- case ushort_type:
- case uint_type:
- case ulong_type:
- prcode(fp,
-" %s PyLong_FromUnsignedLong(%s);\n"
- ,prefix,vname);
-
- break;
-
- case longlong_type:
- prcode(fp,
-" %s PyLong_FromLongLong(%s);\n"
- ,prefix,vname);
-
- break;
-
- case ulonglong_type:
- prcode(fp,
-" %s PyLong_FromUnsignedLongLong(%s);\n"
- ,prefix,vname);
-
- break;
-
- case void_type:
- prcode(fp,
-" %s sipConvertFromVoidPtr(", prefix);
-
- if (isConstArg(ad))
- prcode(fp, "const_cast<void *>(%s)", vname);
- else
- prcode(fp, "%s", vname);
-
- prcode(fp, ");\n"
- );
-
- break;
-
- case struct_type:
- prcode(fp,
-" %s sipConvertFromVoidPtr(",prefix);
-
- if (isConstArg(ad))
- prcode(fp,"const_cast<%b *>(%s)",ad,vname);
- else
- prcode(fp,"%s",vname);
-
- prcode(fp,");\n"
- );
-
- break;
-
- case float_type:
- case cfloat_type:
- prcode(fp,
-" %s PyFloat_FromDouble((double)%s);\n"
- ,prefix,vname);
-
- break;
-
- case double_type:
- case cdouble_type:
- prcode(fp,
-" %s PyFloat_FromDouble(%s);\n"
- ,prefix,vname);
-
- break;
-
- case pyobject_type:
- case pytuple_type:
- case pylist_type:
- case pydict_type:
- case pycallable_type:
- case pyslice_type:
- case pytype_type:
- prcode(fp,
-" %s %s;\n"
- ,prefix,vname);
-
- break;
- }
-}
-
-
-/*
- * Return the format character used by sipBuildResult() for a particular type.
- */
-static char getBuildResultFormat(argDef *ad)
-{
- switch (ad->atype)
- {
- case mapped_type:
- return 'D';
-
- case class_type:
- if (needNewInstance(ad))
- return 'B';
-
- return 'C';
-
- case bool_type:
- case cbool_type:
- return 'b';
-
- case sstring_type:
- case ustring_type:
- case string_type:
- return (ad->nrderefs > (isOutArg(ad) ? 1 : 0)) ? 's' : 'c';
-
- case wstring_type:
- return (ad->nrderefs > (isOutArg(ad) ? 1 : 0)) ? 'x' : 'w';
-
- case enum_type:
- return (ad->u.ed->fqcname != NULL) ? 'E' : 'e';
-
- case short_type:
- return 'h';
-
- case ushort_type:
- return 't';
-
- case int_type:
- case cint_type:
- return 'i';
-
- case uint_type:
- return 'u';
-
- case long_type:
- return 'l';
-
- case ulong_type:
- return 'm';
-
- case longlong_type:
- return 'n';
-
- case ulonglong_type:
- return 'o';
-
- case void_type:
- case struct_type:
- return 'V';
-
- case float_type:
- case cfloat_type:
- return 'f';
-
- case double_type:
- case cdouble_type:
- return 'd';
-
- case pyobject_type:
- case pytuple_type:
- case pylist_type:
- case pydict_type:
- case pycallable_type:
- case pyslice_type:
- case pytype_type:
- return 'R';
- }
-
- /* We should never get here. */
- return ' ';
-}
-
-
-/*
- * Generate a function call.
- */
-static void generateFunctionCall(classDef *cd,classDef *ocd,overDef *od,
- int deref, FILE *fp)
-{
- int needsNew, error_flag = FALSE, newline, is_result, a, deltemps;
- argDef *res = &od->pysig.result, orig_res;
-
- prcode(fp,
-" {\n"
- );
-
- /*
- * If there is no shadow class then protected methods can never be
- * called.
- */
- if (isProtected(od) && !hasShadow(cd))
- {
- prcode(fp,
-" /* Never reached. */\n"
-" }\n"
- );
-
- return;
- }
-
- /* Save the full result type as we may want to fiddle with it. */
- orig_res = *res;
-
- /* See if we need to make a copy of the result on the heap. */
- if ((res->atype == class_type || res->atype == mapped_type) &&
- !isReference(res) &&
- res->nrderefs == 0)
- {
- needsNew = TRUE;
- resetIsConstArg(res);
- }
- else
- needsNew = FALSE;
-
- /* See if sipRes is needed. */
- is_result = (!isInplaceNumberSlot(od->common) &&
- !isInplaceSequenceSlot(od->common) &&
- (res->atype != void_type || res->nrderefs != 0));
-
- newline = FALSE;
-
- if (is_result)
- {
- prcode(fp,
-" ");
-
- generateNamedValueType(res,"sipRes",fp);
-
- /*
- * The typical %MethodCode usually causes a compiler warning,
- * so we initialise the result in that case to try and suppress
- * it.
- */
- if (od->methodcode != NULL)
- {
- prcode(fp," = ");
-
- generateCastZero(res,fp);
- }
-
- prcode(fp,";\n"
- );
-
- newline = TRUE;
- }
-
- deltemps = TRUE;
-
- for (a = 0; a < od->pysig.nrArgs; ++a)
- {
- argDef *ad = &od->pysig.args[a];
-
- /*
- * If we have an In,Out argument that has conversion code then we delay
- * the destruction of any temporary variables until after we have
- * converted the outputs.
- */
- if (isInArg(ad) && isOutArg(ad) && hasConvertToCode(ad) && deltemps)
- {
- deltemps = FALSE;
-
- prcode(fp,
-" PyObject *sipResult;\n"
- );
-
- newline = TRUE;
- }
-
- /*
- * If we are returning a class via an output only reference or pointer
- * then we need an instance on the heap.
- */
- if (needNewInstance(ad))
- {
- prcode(fp,
-" a%d = new %b();\n"
- ,a,ad);
-
- newline = TRUE;
- }
- }
-
- if (od->methodcode != NULL)
- {
- /* See if the handwritten code seems to be using the error flag. */
- if (needErrorFlag(od->methodcode))
- {
- prcode(fp,
-" int sipIsErr = 0;\n"
- );
-
- newline = TRUE;
- error_flag = TRUE;
- }
- }
-
- if (newline)
- prcode(fp,
-"\n"
- );
-
- /* If it is abstract make sure that self was bound. */
- if (isAbstract(od))
- prcode(fp,
-" if (sipSelfWasArg)\n"
-" {\n"
-" sipAbstractMethod(%N,%N);\n"
-" return NULL;\n"
-" }\n"
-"\n"
- , cd->iff->name, od->common->pyname);
-
- /* Call any pre-hook. */
- if (od->prehook != NULL)
- prcode(fp,
-" sipCallHook(\"%s\");\n"
-"\n"
- ,od->prehook);
-
- if (od->methodcode != NULL)
- generateCppCodeBlock(od->methodcode,fp);
- else
- {
- int rgil = ((release_gil || isReleaseGIL(od)) && !isHoldGIL(od));
-
- if (needsNew && generating_c)
- {
- prcode(fp,
-" if ((sipRes = (%b *)sipMalloc(sizeof (%b))) == NULL)\n"
-" {\n"
- ,res,res);
-
- gc_ellipsis(&od->pysig, fp);
-
- prcode(fp,
-" return NULL;\n"
-" }\n"
-"\n"
- );
- }
-
- if (rgil)
- prcode(fp,
-" Py_BEGIN_ALLOW_THREADS\n"
- );
-
- generateTry(od->exceptions,fp);
-
- prcode(fp,
-" ");
-
- if (od->common->slot != cmp_slot && is_result)
- {
- /* Construct a copy on the heap if needed. */
- if (needsNew)
- {
- if (generating_c)
- prcode(fp,"*sipRes = ");
- else
- prcode(fp,"sipRes = new %b(",res);
- }
- else
- prcode(fp,"sipRes = ");
-
- /* See if we need the address of the result. */
- if ((res->atype == class_type || res->atype == mapped_type) && isReference(res))
- prcode(fp,"&");
- }
-
- switch (od->common->slot)
- {
- case no_slot:
- generateCppFunctionCall(cd,ocd,od,fp);
- break;
-
- case getitem_slot:
- prcode(fp, "(*sipCpp)[");
- generateSlotArg(&od->pysig, 0, fp);
- prcode(fp,"]");
- break;
-
- case call_slot:
- prcode(fp, "(*sipCpp)(");
- generateArgs(od->cppsig,Call,fp);
- prcode(fp,")");
- break;
-
- case int_slot:
- case long_slot:
- case float_slot:
- prcode(fp, "*sipCpp");
- break;
-
- case add_slot:
- generateNumberSlotCall(od,"+",fp);
- break;
-
- case concat_slot:
- generateBinarySlotCall(od,"+",deref,fp);
- break;
-
- case sub_slot:
- generateNumberSlotCall(od,"-",fp);
- break;
-
- case mul_slot:
- generateNumberSlotCall(od,"*",fp);
- break;
-
- case repeat_slot:
- generateBinarySlotCall(od,"*",deref,fp);
- break;
-
- case div_slot:
- generateNumberSlotCall(od,"/",fp);
- break;
-
- case mod_slot:
- generateNumberSlotCall(od,"%",fp);
- break;
-
- case and_slot:
- generateNumberSlotCall(od,"&",fp);
- break;
-
- case or_slot:
- generateNumberSlotCall(od,"|",fp);
- break;
-
- case xor_slot:
- generateNumberSlotCall(od,"^",fp);
- break;
-
- case lshift_slot:
- generateNumberSlotCall(od,"<<",fp);
- break;
-
- case rshift_slot:
- generateNumberSlotCall(od,">>",fp);
- break;
-
- case iadd_slot:
- case iconcat_slot:
- generateBinarySlotCall(od,"+=",deref,fp);
- break;
-
- case isub_slot:
- generateBinarySlotCall(od,"-=",deref,fp);
- break;
-
- case imul_slot:
- case irepeat_slot:
- generateBinarySlotCall(od,"*=",deref,fp);
- break;
-
- case idiv_slot:
- generateBinarySlotCall(od,"/=",deref,fp);
- break;
-
- case imod_slot:
- generateBinarySlotCall(od,"%=",deref,fp);
- break;
-
- case iand_slot:
- generateBinarySlotCall(od,"&=",deref,fp);
- break;
-
- case ior_slot:
- generateBinarySlotCall(od,"|=",deref,fp);
- break;
-
- case ixor_slot:
- generateBinarySlotCall(od,"^=",deref,fp);
- break;
-
- case ilshift_slot:
- generateBinarySlotCall(od,"<<=",deref,fp);
- break;
-
- case irshift_slot:
- generateBinarySlotCall(od,">>=",deref,fp);
- break;
-
- case invert_slot:
- prcode(fp, "~(*sipCpp)");
- break;
-
- case lt_slot:
- generateBinarySlotCall(od,"<",deref,fp);
- break;
-
- case le_slot:
- generateBinarySlotCall(od,"<=",deref,fp);
- break;
-
- case eq_slot:
- generateBinarySlotCall(od,"==",deref,fp);
- break;
-
- case ne_slot:
- generateBinarySlotCall(od,"!=",deref,fp);
- break;
-
- case gt_slot:
- generateBinarySlotCall(od,">",deref,fp);
- break;
-
- case ge_slot:
- generateBinarySlotCall(od,">=",deref,fp);
- break;
-
- case neg_slot:
- prcode(fp, "-(*sipCpp)");
- break;
-
- case pos_slot:
- prcode(fp, "+(*sipCpp)");
- break;
-
- case cmp_slot:
- prcode(fp,"if ");
- generateBinarySlotCall(od,"<",deref,fp);
- prcode(fp,"\n"
-" sipRes = -1;\n"
-" else if ");
- generateBinarySlotCall(od,">",deref,fp);
- prcode(fp,"\n"
-" sipRes = 1;\n"
-" else\n"
-" sipRes = 0");
-
- break;
- }
-
- if (needsNew && !generating_c)
- prcode(fp,")");
-
- prcode(fp,";\n"
- );
-
- generateCatch(od->exceptions, &od->pysig, fp);
-
- if (rgil)
- prcode(fp,
-" Py_END_ALLOW_THREADS\n"
- );
- }
-
- /* Handle /TransferThis/ for non-factory methods. */
- if (!isFactory(od))
- for (a = 0; a < od->pysig.nrArgs; ++a)
- {
- argDef *ad = &od->pysig.args[a];
-
- if (!isInArg(ad))
- continue;
-
- if (isThisTransferred(ad))
- {
- prcode(fp,
-"\n"
-" if (sipOwner)\n"
-" sipTransferTo(sipSelf, (PyObject *)sipOwner);\n"
-" else\n"
-" sipTransferBack(sipSelf);\n"
- );
-
- break;
- }
- }
-
- gc_ellipsis(&od->pysig, fp);
-
- if (deltemps)
- deleteTemps(&od->pysig, fp);
-
- prcode(fp,
-"\n"
- );
-
- /* Handle sipIsErr if it was used. */
- if (error_flag)
- prcode(fp,
-" if (sipIsErr)\n"
-" return %s;\n"
-"\n"
- ,((isVoidReturnSlot(od->common) || isIntReturnSlot(od->common) || isLongReturnSlot(od->common)) ? "-1" : "0"));
-
- /* Call any post-hook. */
- if (od->posthook != NULL)
- prcode(fp,
-"\n"
-" sipCallHook(\"%s\");\n"
- ,od->posthook);
-
- if (isVoidReturnSlot(od->common))
- prcode(fp,
-" return 0;\n"
- );
- else if (isInplaceNumberSlot(od->common) || isInplaceSequenceSlot(od->common))
- prcode(fp,
-" Py_INCREF(sipSelf);\n"
-" return sipSelf;\n"
- );
- else if (isIntReturnSlot(od->common) || isLongReturnSlot(od->common))
- prcode(fp,
-" return sipRes;\n"
- );
- else
- {
- generateHandleResult(od,needsNew,(deltemps ? "return" : "sipResult ="),fp);
-
- /* Delete the temporaries now if we haven't already done so. */
- if (!deltemps)
- {
- deleteTemps(&od->pysig, fp);
-
- prcode(fp,
-"\n"
-" return sipResult;\n"
- );
- }
- }
-
- prcode(fp,
-" }\n"
- );
-
- /* Restore the full type of the result. */
- *res = orig_res;
-}
-
-
-/*
- * Generate a call to a C++ function.
- */
-static void generateCppFunctionCall(classDef *cd,classDef *ocd,overDef *od,
- FILE *fp)
-{
- char *mname = od->cppname;
- int parens = 1;
-
- /*
- * If the function is protected then call the public wrapper. If it is
- * virtual then call explicit scoped function if "self" was passed as
- * the first argument.
- */
-
- if (cd == NULL)
- prcode(fp,"%s(",mname);
- else if (cd->iff->type == namespace_iface)
- prcode(fp,"%S::%s(",classFQCName(cd),mname);
- else if (isStatic(od))
- {
- if (isProtected(od))
- prcode(fp,"sip%C::sipProtect_%s(",classFQCName(cd),mname);
- else
- prcode(fp,"%S::%s(",classFQCName(ocd),mname);
- }
- else if (isProtected(od))
- {
- if (!isAbstract(od) && (isVirtual(od) || isVirtualReimp(od)))
- {
- prcode(fp, "sipCpp->sipProtectVirt_%s(sipSelfWasArg", mname);
-
- if (od->cppsig->nrArgs > 0)
- prcode(fp, ",");
- }
- else
- prcode(fp, "sipCpp->sipProtect_%s(", mname);
- }
- else if (!isAbstract(od) && (isVirtual(od) || isVirtualReimp(od)))
- {
- prcode(fp, "(sipSelfWasArg ? sipCpp->%U::%s(", ocd, mname);
- generateArgs(od->cppsig, Call, fp);
- prcode(fp, ") : sipCpp->%s(", mname);
- ++parens;
- }
- else
- prcode(fp, "sipCpp->%s(", mname);
-
- generateArgs(od->cppsig, Call, fp);
-
- while (parens--)
- prcode(fp, ")");
-}
-
-
-/*
- * Generate argument to a slot.
- */
-static void generateSlotArg(signatureDef *sd, int argnr, FILE *fp)
-{
- argDef *ad;
- int deref;
-
- ad = &sd->args[argnr];
- deref = ((ad->atype == class_type || ad->atype == mapped_type) && ad->nrderefs == 0);
-
- prcode(fp, "%sa%d", (deref ? "*" : ""), argnr);
-}
-
-
-/*
- * Generate the call to a binary (non-number) slot method.
- */
-static void generateBinarySlotCall(overDef *od, char *op, int deref, FILE *fp)
-{
- if (deref)
- prcode(fp, "((*sipCpp) %s ", op);
- else
- prcode(fp, "(sipCpp %s ", op);
-
- generateSlotArg(&od->pysig, 0, fp);
- prcode(fp, ")");
-}
-
-
-/*
- * Generate the call to a binary number slot method.
- */
-static void generateNumberSlotCall(overDef *od, char *op, FILE *fp)
-{
- prcode(fp, "(");
- generateSlotArg(&od->pysig, 0, fp);
- prcode(fp, " %s ", op);
- generateSlotArg(&od->pysig, 1, fp);
- prcode(fp, ")");
-}
-
-
-/*
- * Generate the argument variables for a member function/constructor/operator.
- */
-static int generateArgParser(sipSpec *pt, signatureDef *sd, classDef *cd,
- ctorDef *ct, overDef *od, int secCall, FILE *fp)
-{
- int a, isQtSlot, optargs, arraylenarg, sigarg, handle_self;
- int slotconarg, slotdisarg, need_owner;
-
- /* If the class is just a namespace, then ignore it. */
-
- if (cd != NULL && cd->iff->type == namespace_iface)
- cd = NULL;
-
- handle_self = (od != NULL && od->common->slot == no_slot && !isStatic(od) && cd != NULL);
-
- /* Assume there isn't a Qt slot. */
-
- isQtSlot = FALSE;
-
- /*
- * Generate the local variables that will hold the parsed arguments and
- * values returned via arguments.
- */
-
- sigarg = -1;
- need_owner = FALSE;
-
- for (a = 0; a < sd->nrArgs; ++a)
- {
- argDef *ad = &sd->args[a];
-
- switch (ad->atype)
- {
- case signal_type:
- sigarg = a;
- break;
-
- case rxcon_type:
- case rxdis_type:
- isQtSlot = TRUE;
- break;
-
- case slotcon_type:
- slotconarg = a;
- break;
-
- case slotdis_type:
- slotdisarg = a;
- break;
- }
-
- if (isArraySize(ad))
- arraylenarg = a;
-
- generateVariable(ad,a,fp);
-
- if (isThisTransferred(ad))
- need_owner = TRUE;
- }
-
- if (od != NULL && need_owner)
- prcode(fp,
-" sipWrapper *sipOwner = 0;\n"
- );
-
- if (handle_self)
- {
- if (isProtected(od) && hasShadow(cd))
- prcode(fp,
-" sip%C *sipCpp;\n"
- ,classFQCName(cd));
- else
- prcode(fp,
-" %U *sipCpp;\n"
- ,cd);
-
- prcode(fp,
-"\n"
- );
- }
- else if (sd->nrArgs != 0)
- prcode(fp,
-"\n"
- );
-
- /* Generate the call to the parser function. */
- if (od != NULL && isNumberSlot(od->common))
- prcode(fp,
-" if (sipParsePair(%ssipArgsParsed,sipArg0,sipArg1,\"", (ct != NULL ? "" : "&"));
- else
- prcode(fp,
-" if (sipParseArgs(%ssipArgsParsed,sipArg%s,\"", (ct != NULL ? "" : "&"), (od == NULL || od->common->slot == no_slot || isMultiArgSlot(od->common)) ? "s" : "");
-
- /* Generate the format string. */
- optargs = FALSE;
-
- if (handle_self)
- prcode(fp,"%c",(isProtected(od) ? 'p' : 'B'));
- else if (isQtSlot && od == NULL)
- prcode(fp,"C");
-
- for (a = 0; a < sd->nrArgs; ++a)
- {
- char *fmt = "";
- argDef *ad = &sd->args[a];
-
- if (!isInArg(ad))
- continue;
-
- if (ad->defval != NULL && !optargs)
- {
- prcode(fp,"|");
- optargs = TRUE;
- }
-
- switch (ad->atype)
- {
- case sstring_type:
- case ustring_type:
- case string_type:
- if (ad->nrderefs == 0 || (isOutArg(ad) && ad->nrderefs == 1))
- fmt = "c";
- else if (isArray(ad))
- fmt = "a";
- else
- fmt = "s";
-
- break;
-
- case wstring_type:
- if (ad->nrderefs == 0 || (isOutArg(ad) && ad->nrderefs == 1))
- fmt = "w";
- else if (isArray(ad))
- fmt = "A";
- else
- fmt = "x";
-
- break;
-
- case enum_type:
- fmt = (ad->u.ed->fqcname != NULL) ? "E" : "e";
- break;
-
- case bool_type:
- fmt = "b";
- break;
-
- case cbool_type:
- fmt = "Xb";
- break;
-
- case int_type:
- if (!isArraySize(ad))
- fmt = "i";
-
- break;
-
- case uint_type:
- if (!isArraySize(ad))
- fmt = "u";
-
- break;
-
- case cint_type:
- fmt = "Xi";
- break;
-
- case short_type:
- if (!isArraySize(ad))
- fmt = "h";
-
- break;
-
- case ushort_type:
- if (!isArraySize(ad))
- fmt = "t";
-
- break;
-
- case long_type:
- if (!isArraySize(ad))
- fmt = "l";
-
- break;
-
- case ulong_type:
- if (!isArraySize(ad))
- fmt = "m";
-
- break;
-
- case longlong_type:
- if (!isArraySize(ad))
- fmt = "n";
-
- break;
-
- case ulonglong_type:
- if (!isArraySize(ad))
- fmt = "o";
-
- break;
-
- case struct_type:
- case void_type:
- fmt = "v";
- break;
-
- case float_type:
- fmt = "f";
- break;
-
- case cfloat_type:
- fmt = "Xf";
- break;
-
- case double_type:
- fmt = "d";
- break;
-
- case cdouble_type:
- fmt = "Xd";
- break;
-
- case signal_type:
- fmt = "G";
- break;
-
- case slot_type:
- fmt = "S";
- break;
-
- case anyslot_type:
- fmt = "U";
- break;
-
- case slotcon_type:
- case slotdis_type:
- fmt = (secCall ? "" : "S");
- break;
-
- case rxcon_type:
- fmt = (secCall ? "y" : "q");
- break;
-
- case rxdis_type:
- fmt = (secCall ? "Y" : "Q");
- break;
-
- case mapped_type:
- fmt = getSubFormatChar('M',ad);
- break;
-
- case class_type:
- fmt = getSubFormatChar('J', ad);
- break;
-
- case pyobject_type:
- fmt = getSubFormatChar('P',ad);
- break;
-
- case pytuple_type:
- case pylist_type:
- case pydict_type:
- case pyslice_type:
- case pytype_type:
- fmt = (isAllowNone(ad) ? "N" : "T");
- break;
-
- case pycallable_type:
- fmt = (isAllowNone(ad) ? "H" : "F");
- break;
-
- case qobject_type:
- fmt = "R";
- break;
-
- case ellipsis_type:
- fmt = "W";
- break;
- }
-
- prcode(fp,fmt);
- }
-
- prcode(fp,"\"");
-
- /* Generate the parameters corresponding to the format string. */
-
- if (handle_self)
- prcode(fp,",&sipSelf,sipClass_%C,&sipCpp",classFQCName(cd));
- else if (isQtSlot && od == NULL)
- prcode(fp,",sipSelf");
-
- for (a = 0; a < sd->nrArgs; ++a)
- {
- argDef *ad = &sd->args[a];
-
- if (!isInArg(ad))
- continue;
-
- switch (ad->atype)
- {
- case mapped_type:
- prcode(fp,",sipMappedType_%T,&a%d,&a%dState",ad,a,a);
- break;
-
- case class_type:
- prcode(fp, ",sipClass_%T,&a%d", ad, a);
-
- if (isThisTransferred(ad))
- prcode(fp, ",%ssipOwner", (ct != NULL ? "" : "&"));
- else if (isGetWrapper(ad))
- prcode(fp, ",&a%dWrapper", a);
-
- if (ad->u.cd->convtocode != NULL && !isConstrained(ad))
- prcode(fp, ",&a%dState", a);
-
- break;
-
- case rxcon_type:
- {
- if (sigarg > 0)
- prcode(fp,",a%d",sigarg);
- else
- {
- prcode(fp,",\"(");
-
- generateArgs(sd->args[slotconarg].u.sa,Declaration,fp);
-
- prcode(fp,")\"");
- }
-
- prcode(fp,",&a%d,&a%d",a,slotconarg);
-
- break;
- }
-
- case rxdis_type:
- {
- prcode(fp,",\"(");
-
- generateArgs(sd->args[slotdisarg].u.sa,Declaration,fp);
-
- prcode(fp,")\",&a%d,&a%d",a,slotdisarg);
-
- break;
- }
-
- case slotcon_type:
- case slotdis_type:
- if (!secCall)
- prcode(fp,",&a%d",a);
-
- break;
-
- case anyslot_type:
- prcode(fp, ",&a%dName,&a%dCallable", a, a);
- break;
-
- case pytuple_type:
- prcode(fp,",&PyTuple_Type,&a%d",a);
- break;
-
- case pylist_type:
- prcode(fp,",&PyList_Type,&a%d",a);
- break;
-
- case pydict_type:
- prcode(fp,",&PyDict_Type,&a%d",a);
- break;
-
- case pyslice_type:
- prcode(fp,",&PySlice_Type,&a%d",a);
- break;
-
- case pytype_type:
- prcode(fp,",&PyType_Type,&a%d",a);
- break;
-
- case enum_type:
- if (ad->u.ed->fqcname != NULL)
- prcode(fp,",sipEnum_%C",ad->u.ed->fqcname);
-
- prcode(fp,",&a%d",a);
- break;
-
- default:
- if (!isArraySize(ad))
- prcode(fp,",&a%d",a);
-
- if (isArray(ad))
- prcode(fp,",&a%d",arraylenarg);
- }
- }
-
- prcode(fp,"))\n");
-
- return isQtSlot;
-}
-
-
-/*
- * Get the format character string for something that has sub-formats.
- */
-
-static char *getSubFormatChar(char fc,argDef *ad)
-{
- static char fmt[3];
- char flags;
-
- fmt[0] = fc;
-
- flags = 0;
-
- if (fc != 'P' && ad->nrderefs == 0)
- flags |= 0x01;
-
- if (isTransferred(ad))
- flags |= 0x02;
-
- if (isTransferredBack(ad))
- flags |= 0x04;
-
- if (fc == 'J')
- {
- if (isThisTransferred(ad))
- flags |= 0x20;
-
- if (isGetWrapper(ad))
- flags |= 0x08;
-
- if (ad->u.cd->convtocode == NULL || isConstrained(ad))
- flags |= 0x10;
- }
-
- fmt[1] = '0' + flags;
-
- fmt[2] = '\0';
-
- return fmt;
-}
-
-
-/*
- * Return TRUE if a type has %ConvertToTypeCode.
- */
-static int hasConvertToCode(argDef *ad)
-{
- codeBlock *convtocode;
-
- if (ad->atype == class_type && !isConstrained(ad))
- convtocode = ad->u.cd->convtocode;
- else if (ad->atype == mapped_type)
- convtocode = ad->u.mtd->convtocode;
- else
- convtocode = NULL;
-
- return (convtocode != NULL);
-}
-
-
-/*
- * Garbage collect any ellipsis argument.
- */
-static void gc_ellipsis(signatureDef *sd, FILE *fp)
-{
- if (sd->nrArgs > 0 && sd->args[sd->nrArgs - 1].atype == ellipsis_type)
- prcode(fp,
-"\n"
-" Py_DECREF(a%d);\n"
- , sd->nrArgs - 1);
-}
-
-
-/*
- * Delete any temporary variables on the heap created by type convertors.
- */
-static void deleteTemps(signatureDef *sd, FILE *fp)
-{
- int a, first = TRUE;
-
- for (a = 0; a < sd->nrArgs; ++a)
- {
- argDef *ad = &sd->args[a];
-
- if (!isInArg(ad))
- continue;
-
- if (ad->atype == wstring_type && ad->nrderefs == 1)
- {
- if (generating_c || !isConstArg(ad))
- prcode(fp,
-" sipFree(a%d);\n"
- , a);
- else
- prcode(fp,
-" sipFree(const_cast<wchar_t *>(a%d));\n"
- , a);
- }
- else if (hasConvertToCode(ad))
- {
- const char *fstr, *sstr;
-
- if (ad->atype == mapped_type)
- fstr = sstr = "MappedType";
- else
- {
- fstr = "Instance";
- sstr = "Class";
- }
-
- if (first)
- {
- prcode(fp,
-"\n"
- );
-
- first = FALSE;
- }
-
- if (generating_c || !isConstArg(ad))
- prcode(fp,
-" sipRelease%s(a%d,sip%s_%T,a%dState);\n"
- , fstr, a, sstr, ad, a);
- else
- prcode(fp,
-" sipRelease%s(const_cast<%b *>(a%d),sip%s_%T,a%dState);\n"
- , fstr, ad, a, sstr, ad, a);
- }
- }
-}
-
-
-/*
- * Generate a C++ code block.
- */
-static void generateCppCodeBlock(codeBlock *code,FILE *fp)
-{
- int reset_line = FALSE;
- codeBlock *cb;
-
- for (cb = code; cb != NULL; cb = cb->next)
- {
- char *cp;
-
- /*
- * Fragmented fragments (possibly created when applying
- * template types) don't have a filename.
- */
- if ((cp = cb->filename) != NULL)
- {
- reset_line = TRUE;
-
- prcode(fp,
-"#line %d \"", cb->linenr);
-
- while (*cp != '\0')
- {
- prcode(fp, "%c", *cp);
-
- if (*cp == '\\')
- prcode(fp, "\\");
-
- ++cp;
- }
-
- prcode(fp, "\"\n"
- );
- }
-
- prcode(fp, "%s", cb->frag);
- }
-
- if (reset_line)
- {
- char *bn;
-
- /* Just use the base name. */
-
- if ((bn = strrchr(currentFileName,'/')) != NULL)
- ++bn;
- else
- bn = currentFileName;
-
- prcode(fp,
-"#line %d \"%s\"\n"
- ,currentLineNr + 1,bn);
- }
-}
-
-
-/*
- * Create a source file.
- */
-static FILE *createCompilationUnit(sipSpec *pt, char *fname, char *description)
-{
- FILE *fp = createFile(pt, fname, description);
-
- if (fp != NULL)
- generateCppCodeBlock(pt->unitcode, fp);
-
- return fp;
-}
-
-
-/*
- * Create a file with an optional standard header.
- */
-static FILE *createFile(sipSpec *pt,char *fname,char *description)
-{
- FILE *fp;
-
- /* Create the file. */
-
- if ((fp = fopen(fname,"w")) == NULL)
- fatal("Unable to create file \"%s\"\n",fname);
-
- /* The "stack" doesn't have to be very deep. */
- previousLineNr = currentLineNr;
- currentLineNr = 1;
- previousFileName = currentFileName;
- currentFileName = fname;
-
- if (description != NULL)
- {
- int needComment;
- codeBlock *cb;
- time_t now;
-
- /* Write the header. */
- now = time(NULL);
-
- prcode(fp,
-"/*\n"
-" * %s\n"
-" *\n"
-" * Generated by SIP %s on %s"
- ,description
- ,sipVersion,ctime(&now));
-
- if (pt->copying != NULL)
- prcode(fp,
-" *\n"
- );
-
- needComment = TRUE;
-
- for (cb = pt->copying; cb != NULL; cb = cb->next)
- {
- char *cp;
-
- for (cp = cb->frag; *cp != '\0'; ++cp)
- {
- if (needComment)
- {
- needComment = FALSE;
- prcode(fp," * ");
- }
-
- prcode(fp,"%c",*cp);
-
- if (*cp == '\n')
- needComment = TRUE;
- }
- }
-
- prcode(fp,
-" */\n"
- );
- }
-
- return fp;
-}
-
-
-/*
- * Close a file and report any errors.
- */
-static void closeFile(FILE *fp)
-{
- if (ferror(fp))
- fatal("Error writing to \"%s\"\n",currentFileName);
-
- if (fclose(fp))
- fatal("Error closing \"%s\"\n",currentFileName);
-
- currentLineNr = previousLineNr;
- currentFileName = previousFileName;
-}
-
-
-/*
- * Print formatted code.
- */
-void prcode(FILE *fp, const char *fmt, ...)
-{
- char ch;
- va_list ap;
-
- prcode_last = fmt;
-
- va_start(ap,fmt);
-
- while ((ch = *fmt++) != '\0')
- if (ch == '%')
- {
- ch = *fmt++;
-
- switch (ch)
- {
- case 'c':
- {
- char c = (char)va_arg(ap,int);
-
- if (c == '\n')
- ++currentLineNr;
-
- fputc(c,fp);
- break;
- }
-
- case 's':
- {
- const char *cp = va_arg(ap,const char *);
-
- while (*cp != '\0')
- {
- if (*cp == '\n')
- ++currentLineNr;
-
- fputc(*cp,fp);
- ++cp;
- }
-
- break;
- }
-
- case 'l':
- fprintf(fp,"%ld",va_arg(ap,long));
- break;
-
- case 'u':
- fprintf(fp,"%u",va_arg(ap,unsigned));
- break;
-
- case 'd':
- fprintf(fp,"%d",va_arg(ap,int));
- break;
-
- case 'g':
- fprintf(fp,"%g",va_arg(ap,double));
- break;
-
- case 'x':
- fprintf(fp,"0x%08x",va_arg(ap,unsigned));
- break;
-
- case '\0':
- fputc('%',fp);
- --fmt;
- break;
-
- case '\n':
- fputc('\n',fp);
- ++currentLineNr;
- break;
-
- case 'b':
- {
- argDef *ad, orig;
-
- ad = va_arg(ap,argDef *);
- orig = *ad;
-
- resetIsConstArg(ad);
- resetIsReference(ad);
- ad->nrderefs = 0;
-
- generateBaseType(ad,fp);
-
- *ad = orig;
-
- break;
- }
-
- case 'M':
- prcode_xml = !prcode_xml;
- break;
-
- case 'B':
- generateBaseType(va_arg(ap,argDef *),fp);
- break;
-
- case 'T':
- prTypeName(fp,va_arg(ap,argDef *),FALSE);
- break;
-
- case 'I':
- {
- int indent = va_arg(ap,int);
-
- while (indent-- > 0)
- fputc('\t',fp);
-
- break;
- }
-
- case 'N':
- {
- nameDef *nd = va_arg(ap,nameDef *);
-
- fprintf(fp,"sipNm_%s_%s",nd->module->name,nd->text);
- break;
- }
-
- case 'E':
- {
- enumDef *ed = va_arg(ap,enumDef *);
-
- if (ed->fqcname == NULL)
- fprintf(fp,"int");
- else if (isProtectedEnum(ed))
- {
- fprintf(fp,"sip");
- prScopedName(fp,classFQCName(ed->pcd),"_");
-
- fprintf(fp,"::sip%s",scopedNameTail(ed->fqcname));
- }
- else
- prScopedName(fp,ed->fqcname,"::");
-
- break;
- }
-
- case 'F':
- prScopedName(fp,va_arg(ap,scopedNameDef *),"");
- break;
-
- case 'C':
- prScopedName(fp,va_arg(ap,scopedNameDef *),"_");
- break;
-
- case 'S':
- if (generating_c)
- fprintf(fp,"struct ");
-
- prScopedName(fp,va_arg(ap,scopedNameDef *),"::");
- break;
-
- case 'U':
- if (generating_c)
- fprintf(fp,"struct ");
-
- prScopedClassName(fp,va_arg(ap,classDef *),"::");
- break;
-
- case 'O':
- prOverloadName(fp, va_arg(ap, overDef *));
- break;
-
- case 'P':
- {
- classDef *ecd = va_arg(ap, classDef *);
- const char *pyname = va_arg(ap, const char *);
-
- prScopedPythonName(fp, ecd, pyname);
- break;
- }
-
- case 'X':
- generateThrowSpecifier(va_arg(ap,throwArgs *),fp);
- break;
-
- default:
- fputc(ch,fp);
- }
- }
- else if (ch == '\n')
- {
- fputc('\n',fp);
- ++currentLineNr;
- }
- else
- fputc(ch,fp);
-
- va_end(ap);
-}
-
-
-/*
- * Generate the C++ name of an overloaded function.
- */
-void prOverloadName(FILE *fp, overDef *od)
-{
- char *pt1, *pt2;
-
- pt1 = "operator";
-
- switch (od->common->slot)
- {
- case add_slot:
- pt2 = "+";
- break;
-
- case sub_slot:
- pt2 = "-";
- break;
-
- case mul_slot:
- pt2 = "*";
- break;
-
- case div_slot:
- pt2 = "/";
- break;
-
- case mod_slot:
- pt2 = "%";
- break;
-
- case and_slot:
- pt2 = "&";
- break;
-
- case or_slot:
- pt2 = "|";
- break;
-
- case xor_slot:
- pt2 = "^";
- break;
-
- case lshift_slot:
- pt2 = "<<";
- break;
-
- case rshift_slot:
- pt2 = ">>";
- break;
-
- case iadd_slot:
- pt2 = "+=";
- break;
-
- case isub_slot:
- pt2 = "-=";
- break;
-
- case imul_slot:
- pt2 = "*=";
- break;
-
- case idiv_slot:
- pt2 = "/=";
- break;
-
- case imod_slot:
- pt2 = "%=";
- break;
-
- case iand_slot:
- pt2 = "&=";
- break;
-
- case ior_slot:
- pt2 = "|=";
- break;
-
- case ixor_slot:
- pt2 = "^=";
- break;
-
- case ilshift_slot:
- pt2 = "<<=";
- break;
-
- case irshift_slot:
- pt2 = ">>=";
- break;
-
- case invert_slot:
- pt2 = "~";
- break;
-
- case call_slot:
- pt2 = "()";
- break;
-
- case getitem_slot:
- pt2 = "[]";
- break;
-
- case lt_slot:
- pt2 = "<";
- break;
-
- case le_slot:
- pt2 = "<=";
- break;
-
- case eq_slot:
- pt2 = "==";
- break;
-
- case ne_slot:
- pt2 = "!=";
- break;
-
- case gt_slot:
- pt2 = ">";
- break;
-
- case ge_slot:
- pt2 = ">=";
- break;
-
- default:
- pt1 = "";
- pt2 = od->cppname;
- }
-
- fprintf(fp, "%s%s", pt1, pt2);
-}
-
-
-/*
- * Generate a scoped name with the given separator string.
- */
-static void prScopedName(FILE *fp,scopedNameDef *snd,char *sep)
-{
- while (snd != NULL)
- {
- fprintf(fp,"%s",snd->name);
-
- if ((snd = snd->next) != NULL)
- fprintf(fp,"%s",sep);
- }
-}
-
-
-/*
- * Generate a scoped class name with the given separator string. At the moment
- * this provides (probably) broken support for protected classes.
- */
-static void prScopedClassName(FILE *fp,classDef *cd,char *sep)
-{
- scopedNameDef *snd = classFQCName(cd);
-
- while (snd != NULL)
- {
- if (isProtectedClass(cd))
- fprintf(fp,"sip");
-
- fprintf(fp,"%s",snd->name);
-
- if ((snd = snd->next) != NULL)
- fprintf(fp,"%s",sep);
- }
-}
-
-
-/*
- * 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);
- }
-
- if (pyname != NULL)
- fprintf(fp, "%s", pyname);
-}
-
-
-/*
- * Generate a type name to be used as part of an identifier name.
- */
-static void prTypeName(FILE *fp,argDef *ad,int intmpl)
-{
- if (intmpl)
- {
- char buf[10];
- int flgs;
-
- /* We use numbers so they don't conflict with names. */
-
- sprintf(buf,"%02d",ad->atype);
-
- flgs = 0;
-
- if (isConstArg(ad))
- flgs += 1;
-
- if (isReference(ad))
- flgs += 2;
-
- prcode(fp,"%s%d%d",buf,flgs,ad->nrderefs);
- }
-
- /* Now add a name if there is one associated with the type. */
-
- switch (ad->atype)
- {
- case struct_type:
- prcode(fp,"%C",ad->u.sname);
- break;
-
- case defined_type:
- prcode(fp,"%C",ad->u.snd);
- break;
-
- case enum_type:
- prcode(fp,"%C",ad->u.ed->fqcname);
- break;
-
- case mapped_type:
- prTypeName(fp,&ad->u.mtd->type,intmpl);
- break;
-
- case class_type:
- prcode(fp,"%C",classFQCName(ad->u.cd));
- break;
-
- case template_type:
- {
- int a;
- templateDef *td = ad->u.td;
-
- prcode(fp,"%C",td->fqname);
-
- for (a = 0; a < td->types.nrArgs; ++a)
- {
- prcode(fp,"_");
- prTypeName(fp,&td->types.args[a],TRUE);
- }
-
- break;
- }
- }
-}
-
-
-/*
- * Return TRUE if handwritten code uses the error flag.
- */
-static int needErrorFlag(codeBlock *cb)
-{
- return usedInCode(cb, "sipIsErr");
-}
-
-
-/*
- * Return TRUE if the argument type means an instance needs to be created on
- * the heap to pass back to Python.
- */
-static int needNewInstance(argDef *ad)
-{
- return ((ad->atype == mapped_type || ad->atype == class_type) &&
- ((isReference(ad) && ad->nrderefs == 0) || (!isReference(ad) && ad->nrderefs == 1)) &&
- !isInArg(ad) && isOutArg(ad));
-}
-
-
-/*
- * Reset and save any argument flags so that the signature will be rendered
- * exactly as defined in C++.
- */
-static void normaliseArgs(signatureDef *sd)
-{
- int a;
- argDef *ad = sd->args;
-
- for (a = 0; a < sd->nrArgs; ++a)
- {
- if (ad->atype == class_type && isProtectedClass(ad->u.cd))
- {
- resetIsProtectedClass(ad->u.cd);
- setWasProtectedClass(ad->u.cd);
- }
- else if (ad->atype == enum_type && isProtectedEnum(ad->u.ed))
- {
- resetIsProtectedEnum(ad->u.ed);
- setWasProtectedEnum(ad->u.ed);
- }
-
- ++ad;
- }
-}
-
-
-/*
- * Restore any argument flags modified by normaliseArgs().
- */
-static void restoreArgs(signatureDef *sd)
-{
- int a;
- argDef *ad = sd->args;
-
- for (a = 0; a < sd->nrArgs; ++a)
- {
- if (ad->atype == class_type && wasProtectedClass(ad->u.cd))
- {
- resetWasProtectedClass(ad->u.cd);
- setIsProtectedClass(ad->u.cd);
- }
- else if (ad->atype == enum_type && wasProtectedEnum(ad->u.ed))
- {
- resetWasProtectedEnum(ad->u.ed);
- setIsProtectedEnum(ad->u.ed);
- }
-
- ++ad;
- }
-}
-
-
-/*
- * Return TRUE if a dealloc function is needed for a class.
- */
-static int needDealloc(classDef *cd)
-{
- if (cd->iff->type == namespace_iface)
- return FALSE;
-
- /* All of these conditions cause some code to be generated. */
-
- if (tracing)
- return TRUE;
-
- if (generating_c)
- return TRUE;
-
- if (cd->dealloccode != NULL)
- return TRUE;
-
- if (isPublicDtor(cd))
- return TRUE;
-
- if (hasShadow(cd))
- return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Return the argument name to use in a function definition for handwritten
- * code.
- */
-static const char *argName(const char *name, codeBlock *cb)
-{
- static const char noname[] = "";
-
- /* Always use the name in C code. */
- if (generating_c)
- return name;
-
- /* Use the name if it is used in the handwritten code. */
- if (usedInCode(cb, name))
- return name;
-
- /* Don't use the name and avoid a compiler warning. */
- return noname;
-}
-
-
-/*
- * Returns TRUE if a string is used in a code block.
- */
-static int usedInCode(codeBlock *code, const char *str)
-{
- while (code != NULL)
- {
- if (strstr(code->frag, str) != NULL)
- return TRUE;
-
- code = code->next;
- }
-
- return FALSE;
-}
-
-
-/*
- * Generate an assignment statement from a void * variable to a class instance
- * variable.
- */
-static void generateClassFromVoid(classDef *cd, const char *cname,
- const char *vname, FILE *fp)
-{
- if (generating_c)
- prcode(fp, "%S *%s = (%S *)%s", classFQCName(cd), cname, classFQCName(cd), vname);
- else
- prcode(fp, "%S *%s = reinterpret_cast<%S *>(%s)", classFQCName(cd), cname, classFQCName(cd), vname);
-}
-
-
-/*
- * Generate an assignment statement from a void * variable to a mapped type
- * variable.
- */
-static void generateMappedTypeFromVoid(mappedTypeDef *mtd, const char *cname,
- const char *vname, FILE *fp)
-{
- if (generating_c)
- prcode(fp, "%b *%s = (%b *)%s", &mtd->type, cname, &mtd->type, vname);
- else
- prcode(fp, "%b *%s = reinterpret_cast<%b *>(%s)", &mtd->type, cname, &mtd->type, vname);
-}
diff --git a/python/sip/sipgen/heap.c b/python/sip/sipgen/heap.c
deleted file mode 100644
index d6e94ccc..00000000
--- a/python/sip/sipgen/heap.c
+++ /dev/null
@@ -1,115 +0,0 @@
-/*
- * Wrappers around standard functions that use the heap.
- *
- * Copyright (c) 2007
- * Riverbank Computing Limited <info@riverbankcomputing.co.uk>
- *
- * This file is part of SIP.
- *
- * This copy of SIP is licensed for use under the terms of the SIP License
- * Agreement. See the file LICENSE for more details.
- *
- * SIP is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- */
-
-
-#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
-#include <sys/types.h>
-
-#include "sip.h"
-
-
-static void nomem(void);
-
-
-/*
- * Wrap malloc() and handle any errors.
- */
-
-void *sipMalloc(size_t n)
-{
- void *h;
-
- if ((h = malloc(n)) == NULL)
- nomem();
-
- return h;
-}
-
-
-/*
- * Wrap strdup() and handle any errors.
- */
-
-char *sipStrdup(char *s)
-{
- char *h;
-
- if ((h = strdup(s)) == NULL)
- nomem();
-
- return h;
-}
-
-
-/*
- * Return a string on the heap which is the concatonation of all the arguments.
- */
-
-char *concat(const char *s, ...)
-{
- const char *sp;
- char *new;
- size_t len;
- va_list ap;
-
- /* Find the length of the final string. */
-
- len = 1;
- va_start(ap,s);
-
- for (sp = s; sp != NULL; sp = va_arg(ap, const char *))
- len += strlen(sp);
-
- va_end(ap);
-
- /* Create the new string. */
-
- new = sipMalloc(len);
- *new = '\0';
-
- va_start(ap,s);
-
- for (sp = s; sp != NULL; sp = va_arg(ap, const char *))
- strcat(new,sp);
-
- va_end(ap);
-
- return new;
-}
-
-
-/*
- * Append a string to another that is on the heap.
- */
-
-void append(char **s,char *new)
-{
- if ((*s = realloc(*s,strlen(*s) + strlen(new) + 1)) == NULL)
- nomem();
-
- strcat(*s,new);
-}
-
-
-/*
- * Display a standard error message when the heap is exhausted.
- */
-
-static void nomem(void)
-{
- fatal("Unable to allocate memory on the heap\n");
-}
diff --git a/python/sip/sipgen/lexer.c b/python/sip/sipgen/lexer.c
deleted file mode 100644
index 138acfeb..00000000
--- a/python/sip/sipgen/lexer.c
+++ /dev/null
@@ -1,3266 +0,0 @@
-#line 2 "lexer.c.tmp"
-
-#line 4 "lexer.c.tmp"
-
-#define YY_INT_ALIGNED short int
-
-/* A lexical scanner generated by flex */
-
-#define FLEX_SCANNER
-#define YY_FLEX_MAJOR_VERSION 2
-#define YY_FLEX_MINOR_VERSION 5
-#define YY_FLEX_SUBMINOR_VERSION 33
-#if YY_FLEX_SUBMINOR_VERSION > 0
-#define FLEX_BETA
-#endif
-
-/* First, we deal with platform-specific or compiler-specific issues. */
-
-/* begin standard C headers. */
-#include <stdio.h>
-#include <string.h>
-#include <errno.h>
-#include <stdlib.h>
-
-/* end standard C headers. */
-
-/* flex integer type definitions */
-
-#ifndef FLEXINT_H
-#define FLEXINT_H
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-
-#if __STDC_VERSION__ >= 199901L
-
-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
- * if you want the limit (max/min) macros for int types.
- */
-#ifndef __STDC_LIMIT_MACROS
-#define __STDC_LIMIT_MACROS 1
-#endif
-
-#include <inttypes.h>
-typedef int8_t flex_int8_t;
-typedef uint8_t flex_uint8_t;
-typedef int16_t flex_int16_t;
-typedef uint16_t flex_uint16_t;
-typedef int32_t flex_int32_t;
-typedef uint32_t flex_uint32_t;
-#else
-typedef signed char flex_int8_t;
-typedef short int flex_int16_t;
-typedef int flex_int32_t;
-typedef unsigned char flex_uint8_t;
-typedef unsigned short int flex_uint16_t;
-typedef unsigned int flex_uint32_t;
-#endif /* ! C99 */
-
-/* Limits of integral types. */
-#ifndef INT8_MIN
-#define INT8_MIN (-128)
-#endif
-#ifndef INT16_MIN
-#define INT16_MIN (-32767-1)
-#endif
-#ifndef INT32_MIN
-#define INT32_MIN (-2147483647-1)
-#endif
-#ifndef INT8_MAX
-#define INT8_MAX (127)
-#endif
-#ifndef INT16_MAX
-#define INT16_MAX (32767)
-#endif
-#ifndef INT32_MAX
-#define INT32_MAX (2147483647)
-#endif
-#ifndef UINT8_MAX
-#define UINT8_MAX (255U)
-#endif
-#ifndef UINT16_MAX
-#define UINT16_MAX (65535U)
-#endif
-#ifndef UINT32_MAX
-#define UINT32_MAX (4294967295U)
-#endif
-
-#endif /* ! FLEXINT_H */
-
-#ifdef __cplusplus
-
-/* The "const" storage-class-modifier is valid. */
-#define YY_USE_CONST
-
-#else /* ! __cplusplus */
-
-#if __STDC__
-
-#define YY_USE_CONST
-
-#endif /* __STDC__ */
-#endif /* ! __cplusplus */
-
-#ifdef YY_USE_CONST
-#define yyconst const
-#else
-#define yyconst
-#endif
-
-/* Returned upon end-of-file. */
-#define YY_NULL 0
-
-/* Promotes a possibly negative, possibly signed char to an unsigned
- * integer for use as an array index. If the signed char is negative,
- * we want to instead treat it as an 8-bit unsigned char, hence the
- * double cast.
- */
-#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-
-/* Enter a start condition. This macro really ought to take a parameter,
- * but we do it the disgusting crufty way forced on us by the ()-less
- * definition of BEGIN.
- */
-#define BEGIN (yy_start) = 1 + 2 *
-
-/* Translate the current start state into a value that can be later handed
- * to BEGIN to return to the state. The YYSTATE alias is for lex
- * compatibility.
- */
-#define YY_START (((yy_start) - 1) / 2)
-#define YYSTATE YY_START
-
-/* Action number for EOF rule of a given start state. */
-#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-
-/* Special action meaning "start processing a new file". */
-#define YY_NEW_FILE yyrestart(yyin )
-
-#define YY_END_OF_BUFFER_CHAR 0
-
-/* Size of default input buffer. */
-#ifndef YY_BUF_SIZE
-#define YY_BUF_SIZE 16384
-#endif
-
-/* The state buf must be large enough to hold one state per character in the main buffer.
- */
-#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
-
-#ifndef YY_TYPEDEF_YY_BUFFER_STATE
-#define YY_TYPEDEF_YY_BUFFER_STATE
-typedef struct yy_buffer_state *YY_BUFFER_STATE;
-#endif
-
-extern int yyleng;
-
-extern FILE *yyin, *yyout;
-
-#define EOB_ACT_CONTINUE_SCAN 0
-#define EOB_ACT_END_OF_FILE 1
-#define EOB_ACT_LAST_MATCH 2
-
- #define YY_LESS_LINENO(n)
-
-/* Return all but the first "n" matched characters back to the input stream. */
-#define yyless(n) \
- do \
- { \
- /* Undo effects of setting up yytext. */ \
- int yyless_macro_arg = (n); \
- YY_LESS_LINENO(yyless_macro_arg);\
- *yy_cp = (yy_hold_char); \
- YY_RESTORE_YY_MORE_OFFSET \
- (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
- YY_DO_BEFORE_ACTION; /* set up yytext again */ \
- } \
- while ( 0 )
-
-#define unput(c) yyunput( c, (yytext_ptr) )
-
-/* The following is because we cannot portably get our hands on size_t
- * (without autoconf's help, which isn't available because we want
- * flex-generated scanners to compile on their own).
- */
-
-#ifndef YY_TYPEDEF_YY_SIZE_T
-#define YY_TYPEDEF_YY_SIZE_T
-typedef unsigned int yy_size_t;
-#endif
-
-#ifndef YY_STRUCT_YY_BUFFER_STATE
-#define YY_STRUCT_YY_BUFFER_STATE
-struct yy_buffer_state
- {
- FILE *yy_input_file;
-
- char *yy_ch_buf; /* input buffer */
- char *yy_buf_pos; /* current position in input buffer */
-
- /* Size of input buffer in bytes, not including room for EOB
- * characters.
- */
- yy_size_t yy_buf_size;
-
- /* Number of characters read into yy_ch_buf, not including EOB
- * characters.
- */
- int yy_n_chars;
-
- /* Whether we "own" the buffer - i.e., we know we created it,
- * and can realloc() it to grow it, and should free() it to
- * delete it.
- */
- int yy_is_our_buffer;
-
- /* Whether this is an "interactive" input source; if so, and
- * if we're using stdio for input, then we want to use getc()
- * instead of fread(), to make sure we stop fetching input after
- * each newline.
- */
- int yy_is_interactive;
-
- /* Whether we're considered to be at the beginning of a line.
- * If so, '^' rules will be active on the next match, otherwise
- * not.
- */
- int yy_at_bol;
-
- int yy_bs_lineno; /**< The line count. */
- int yy_bs_column; /**< The column count. */
-
- /* Whether to try to fill the input buffer when we reach the
- * end of it.
- */
- int yy_fill_buffer;
-
- int yy_buffer_status;
-
-#define YY_BUFFER_NEW 0
-#define YY_BUFFER_NORMAL 1
- /* When an EOF's been seen but there's still some text to process
- * then we mark the buffer as YY_EOF_PENDING, to indicate that we
- * shouldn't try reading from the input source any more. We might
- * still have a bunch of tokens to match, though, because of
- * possible backing-up.
- *
- * When we actually see the EOF, we change the status to "new"
- * (via yyrestart()), so that the user can continue scanning by
- * just pointing yyin at a new input file.
- */
-#define YY_BUFFER_EOF_PENDING 2
-
- };
-#endif /* !YY_STRUCT_YY_BUFFER_STATE */
-
-/* Stack of input buffers. */
-static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
-static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
-
-/* We provide macros for accessing buffer states in case in the
- * future we want to put the buffer states in a more general
- * "scanner state".
- *
- * Returns the top of the stack, or NULL.
- */
-#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
- ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
- : NULL)
-
-/* Same as previous macro, but useful when we know that the buffer stack is not
- * NULL or when we need an lvalue. For internal use only.
- */
-#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
-
-/* yy_hold_char holds the character lost when yytext is formed. */
-static char yy_hold_char;
-static int yy_n_chars; /* number of characters read into yy_ch_buf */
-int yyleng;
-
-/* Points to current character in buffer. */
-static char *yy_c_buf_p = (char *) 0;
-static int yy_init = 0; /* whether we need to initialize */
-static int yy_start = 0; /* start state number */
-
-/* Flag which is used to allow yywrap()'s to do buffer switches
- * instead of setting up a fresh yyin. A bit of a hack ...
- */
-static int yy_did_buffer_switch_on_eof;
-
-void yyrestart (FILE *input_file );
-void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer );
-YY_BUFFER_STATE yy_create_buffer (FILE *file,int size );
-void yy_delete_buffer (YY_BUFFER_STATE b );
-void yy_flush_buffer (YY_BUFFER_STATE b );
-void yypush_buffer_state (YY_BUFFER_STATE new_buffer );
-void yypop_buffer_state (void );
-
-static void yyensure_buffer_stack (void );
-static void yy_load_buffer_state (void );
-static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file );
-
-#define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
-
-YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size );
-YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str );
-YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len );
-
-void *yyalloc (yy_size_t );
-void *yyrealloc (void *,yy_size_t );
-void yyfree (void * );
-
-#define yy_new_buffer yy_create_buffer
-
-#define yy_set_interactive(is_interactive) \
- { \
- if ( ! YY_CURRENT_BUFFER ){ \
- yyensure_buffer_stack (); \
- YY_CURRENT_BUFFER_LVALUE = \
- yy_create_buffer(yyin,YY_BUF_SIZE ); \
- } \
- YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
- }
-
-#define yy_set_bol(at_bol) \
- { \
- if ( ! YY_CURRENT_BUFFER ){\
- yyensure_buffer_stack (); \
- YY_CURRENT_BUFFER_LVALUE = \
- yy_create_buffer(yyin,YY_BUF_SIZE ); \
- } \
- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
- }
-
-#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
-
-/* Begin user sect3 */
-
-typedef unsigned char YY_CHAR;
-
-FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
-
-typedef int yy_state_type;
-
-extern int yylineno;
-
-int yylineno = 1;
-
-extern char *yytext;
-#define yytext_ptr yytext
-
-static yy_state_type yy_get_previous_state (void );
-static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
-static int yy_get_next_buffer (void );
-static void yy_fatal_error (yyconst char msg[] );
-
-/* Done after the current pattern has been matched and before the
- * corresponding action - sets up yytext.
- */
-#define YY_DO_BEFORE_ACTION \
- (yytext_ptr) = yy_bp; \
- yyleng = (size_t) (yy_cp - yy_bp); \
- (yy_hold_char) = *yy_cp; \
- *yy_cp = '\0'; \
- (yy_c_buf_p) = yy_cp;
-
-#define YY_NUM_RULES 111
-#define YY_END_OF_BUFFER 112
-/* This struct is not used in this scanner,
- but its presence is necessary. */
-struct yy_trans_info
- {
- flex_int32_t yy_verify;
- flex_int32_t yy_nxt;
- };
-static yyconst flex_int16_t yy_accept[735] =
- { 0,
- 0, 0, 0, 0, 0, 0, 112, 110, 65, 66,
- 110, 110, 110, 110, 110, 68, 68, 110, 71, 71,
- 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
- 71, 71, 71, 71, 71, 71, 110, 65, 110, 109,
- 108, 109, 78, 76, 78, 0, 73, 0, 74, 0,
- 68, 0, 72, 69, 72, 75, 67, 0, 47, 71,
- 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
- 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
- 71, 71, 71, 71, 71, 71, 71, 71, 71, 48,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 77, 69, 64, 72, 67, 70, 71, 71, 71, 71,
- 71, 71, 71, 71, 71, 71, 71, 27, 71, 71,
- 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
- 71, 71, 71, 71, 71, 71, 71, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 14, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 69, 40, 71, 25, 23,
- 71, 71, 71, 33, 71, 71, 71, 28, 71, 71,
-
- 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
- 38, 71, 71, 71, 31, 71, 0, 0, 0, 0,
- 0, 0, 0, 0, 101, 15, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 107, 69, 71, 71, 71, 71, 71, 16, 36, 71,
- 71, 39, 29, 71, 71, 71, 71, 71, 26, 71,
- 71, 22, 71, 71, 71, 44, 71, 71, 71, 71,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 71, 71, 71, 71, 71, 71, 30, 71,
- 71, 71, 71, 71, 18, 71, 34, 37, 17, 71,
- 71, 71, 71, 71, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 71, 71, 71,
- 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
- 71, 20, 71, 21, 71, 41, 71, 32, 24, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-
- 0, 0, 0, 0, 5, 0, 0, 0, 0, 0,
- 6, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 71, 71, 71, 71, 71,
- 71, 71, 71, 71, 71, 71, 57, 45, 71, 43,
- 71, 46, 35, 6, 0, 0, 0, 0, 0, 7,
- 0, 79, 0, 0, 10, 0, 0, 105, 3, 11,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 106, 0, 0, 0, 0, 0, 71,
- 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,
- 71, 42, 19, 0, 0, 0, 0, 0, 0, 0,
-
- 0, 0, 0, 0, 103, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 8, 90, 0,
- 88, 0, 71, 71, 52, 51, 71, 71, 71, 55,
- 71, 71, 56, 71, 71, 0, 0, 0, 0, 0,
- 0, 0, 13, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 9, 0, 0, 0, 100, 0, 0, 0,
- 0, 58, 71, 71, 54, 50, 63, 71, 71, 71,
- 71, 104, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 12, 91, 89, 0, 0, 0, 0,
- 0, 0, 1, 0, 0, 71, 49, 71, 71, 61,
-
- 62, 0, 0, 0, 0, 0, 0, 0, 102, 0,
- 94, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 71, 59, 60, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 53, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 99, 2, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 93, 0, 0, 0,
- 0, 85, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 4, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 84, 0, 0, 0, 0, 0,
-
- 97, 0, 0, 0, 81, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 83, 0, 0, 92, 98, 95,
- 0, 80, 0, 0, 0, 96, 0, 0, 0, 82,
- 0, 86, 87, 0
- } ;
-
-static yyconst flex_int32_t yy_ec[256] =
- { 0,
- 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
- 1, 1, 4, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 2, 1, 5, 1, 1, 6, 1, 7, 1,
- 1, 8, 9, 1, 10, 11, 12, 13, 14, 14,
- 14, 14, 14, 14, 14, 14, 14, 15, 1, 1,
- 1, 1, 1, 1, 16, 17, 18, 19, 20, 21,
- 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
- 32, 33, 34, 35, 36, 37, 38, 39, 40, 26,
- 1, 1, 1, 1, 41, 1, 42, 43, 44, 45,
-
- 46, 47, 48, 49, 50, 26, 51, 52, 53, 54,
- 55, 56, 26, 57, 58, 59, 60, 61, 62, 63,
- 64, 26, 1, 65, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1
- } ;
-
-static yyconst flex_int32_t yy_meta[66] =
- { 0,
- 1, 1, 2, 1, 1, 1, 1, 1, 1, 3,
- 3, 3, 4, 4, 1, 4, 4, 4, 4, 4,
- 4, 3, 3, 3, 3, 3, 3, 3, 3, 3,
- 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
- 3, 4, 4, 4, 4, 4, 4, 3, 3, 3,
- 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
- 3, 3, 3, 3, 1
- } ;
-
-static yyconst flex_int16_t yy_base[743] =
- { 0,
- 0, 64, 1581, 65, 64, 66, 1583, 1585, 1585, 1585,
- 70, 73, 68, 73, 80, 80, 84, 1567, 89, 92,
- 95, 98, 102, 105, 110, 113, 120, 123, 126, 129,
- 134, 137, 151, 159, 169, 165, 1516, 150, 209, 1585,
- 1585, 1560, 1585, 1585, 1567, 124, 1585, 181, 1585, 64,
- 179, 189, 192, 237, 195, 1585, 0, 0, 1585, 200,
- 211, 242, 206, 248, 252, 255, 258, 264, 267, 270,
- 274, 277, 281, 285, 288, 291, 294, 300, 303, 309,
- 315, 320, 332, 337, 342, 348, 351, 355, 358, 1585,
- 369, 391, 1534, 1553, 186, 1521, 96, 1529, 72, 286,
-
- 1524, 332, 1517, 324, 1530, 65, 108, 1517, 1520, 1515,
- 1585, 370, 222, 382, 0, 0, 390, 417, 420, 423,
- 426, 429, 432, 435, 438, 441, 444, 449, 452, 455,
- 458, 466, 471, 481, 484, 492, 495, 498, 501, 506,
- 509, 512, 524, 527, 532, 537, 541, 1540, 253, 140,
- 1515, 1542, 1515, 1520, 1541, 1507, 326, 1517, 1515, 429,
- 1517, 148, 1499, 1585, 1501, 1512, 1511, 294, 1495, 1508,
- 1493, 1509, 1492, 1503, 1498, 1516, 1487, 1492, 1488, 1493,
- 1485, 1496, 546, 242, 553, 559, 564, 568, 575, 578,
- 582, 585, 593, 596, 599, 602, 605, 608, 611, 614,
-
- 617, 620, 623, 626, 640, 631, 643, 650, 660, 664,
- 667, 680, 685, 688, 691, 694, 1496, 1483, 1493, 1491,
- 1490, 1490, 1473, 1469, 1585, 1585, 1486, 1476, 1471, 1477,
- 1471, 1509, 1471, 1473, 1478, 1477, 1466, 1472, 1460, 1469,
- 1459, 1458, 362, 1458, 242, 1497, 1468, 1467, 1453, 1452,
- 1585, 390, 698, 703, 706, 710, 718, 727, 742, 745,
- 748, 751, 754, 757, 760, 763, 766, 770, 773, 776,
- 784, 787, 790, 793, 796, 805, 813, 820, 825, 829,
- 1450, 1451, 1449, 1447, 1460, 1455, 1448, 1446, 1442, 1455,
- 1458, 1444, 1441, 1437, 1442, 1448, 1448, 1438, 1440, 1436,
-
- 1443, 1465, 1434, 1423, 1440, 1430, 1428, 1428, 1430, 456,
- 1463, 1420, 832, 846, 836, 839, 867, 872, 850, 875,
- 880, 883, 886, 889, 893, 896, 899, 902, 905, 908,
- 916, 919, 923, 929, 1427, 1420, 650, 1425, 1419, 1421,
- 1415, 1414, 1415, 1429, 1409, 1424, 1409, 1422, 1408, 1415,
- 1419, 1418, 1416, 1407, 1405, 1405, 1408, 1398, 1438, 1435,
- 1395, 1408, 1402, 1396, 1404, 1394, 1406, 932, 935, 945,
- 948, 966, 969, 974, 979, 982, 990, 995, 1001, 1005,
- 1010, 1013, 1016, 1021, 1024, 1027, 1030, 1033, 1036, 1401,
- 1428, 1396, 1398, 1397, 1385, 1395, 1381, 1391, 1388, 1391,
-
- 1390, 1378, 1388, 1387, 1585, 1386, 1385, 1378, 1394, 1410,
- 508, 1385, 1369, 1375, 1365, 1374, 1367, 1368, 1370, 1373,
- 1364, 1372, 1374, 1370, 1362, 1041, 1044, 1047, 1062, 1066,
- 1069, 1072, 1075, 1078, 1089, 1097, 1100, 1105, 1108, 1111,
- 1114, 1117, 1120, 1585, 1358, 1370, 1369, 1362, 1359, 1585,
- 185, 1585, 1353, 1362, 1585, 1388, 1348, 1585, 1585, 1585,
- 1358, 1339, 1347, 1346, 1354, 1347, 1345, 1338, 1346, 1340,
- 1349, 1343, 1337, 1585, 1345, 1344, 1344, 1342, 1369, 1123,
- 1128, 1132, 1135, 1138, 1150, 1153, 1161, 1164, 1167, 1173,
- 1176, 1179, 1186, 1341, 1328, 1339, 1365, 1323, 1324, 1325,
-
- 1325, 391, 1323, 1319, 1585, 1320, 1330, 1329, 1331, 1348,
- 1313, 1320, 1327, 1314, 1321, 1305, 1284, 1585, 1585, 1290,
- 1585, 1283, 1191, 1194, 1201, 1204, 1207, 1210, 1217, 1221,
- 1224, 1228, 1231, 1238, 1241, 1278, 1296, 1294, 1255, 1259,
- 1245, 389, 1585, 1244, 1247, 1221, 1218, 1217, 1212, 1211,
- 1200, 1190, 1585, 1182, 1171, 1191, 1585, 1148, 1141, 1136,
- 1133, 1244, 1250, 1259, 1262, 1265, 1268, 1271, 1274, 1277,
- 1280, 1585, 1109, 1106, 1097, 1139, 1099, 1091, 1073, 1092,
- 1063, 1058, 1084, 1585, 1585, 1585, 1051, 1051, 1042, 1042,
- 1014, 1020, 1585, 1046, 1019, 1285, 1292, 1297, 1305, 1308,
-
- 1311, 1014, 1003, 975, 958, 974, 965, 947, 1585, 953,
- 1585, 942, 938, 935, 932, 916, 928, 914, 915, 919,
- 1317, 1320, 1323, 917, 915, 902, 906, 888, 932, 903,
- 891, 891, 906, 863, 863, 846, 829, 813, 823, 820,
- 1330, 817, 809, 836, 798, 777, 775, 808, 764, 774,
- 763, 767, 769, 750, 1585, 1585, 747, 733, 732, 722,
- 695, 701, 700, 702, 686, 722, 1585, 690, 688, 673,
- 681, 1585, 706, 705, 701, 666, 650, 669, 623, 635,
- 612, 619, 1585, 613, 603, 602, 592, 591, 593, 580,
- 526, 510, 504, 500, 1585, 485, 478, 484, 483, 480,
-
- 1585, 459, 453, 479, 1585, 443, 417, 439, 374, 367,
- 353, 343, 339, 322, 1585, 338, 273, 1585, 1585, 1585,
- 271, 1585, 263, 193, 190, 1585, 152, 122, 96, 1585,
- 80, 1585, 1585, 1585, 1342, 1346, 1350, 1354, 1356, 1358,
- 1362, 92
- } ;
-
-static yyconst flex_int16_t yy_def[743] =
- { 0,
- 734, 1, 735, 735, 736, 736, 734, 734, 734, 734,
- 737, 738, 734, 739, 734, 734, 734, 734, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 737, 734, 738, 734, 734,
- 734, 739, 739, 739, 739, 734, 741, 742, 734, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
-
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 739, 739, 741, 742, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 739, 739, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
-
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
-
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
-
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 740,
- 740, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 734, 734, 734, 734, 734, 734, 734,
-
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 740, 740, 740, 740, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 740, 740, 740, 740, 740, 740, 740, 740, 740,
- 740, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 740, 740, 740, 740, 740,
-
- 740, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 740, 740, 740, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 740, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
-
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 0, 734, 734, 734, 734, 734, 734,
- 734, 734
- } ;
-
-static yyconst flex_int16_t yy_nxt[1651] =
- { 0,
- 8, 9, 10, 9, 11, 8, 12, 8, 8, 13,
- 14, 15, 16, 17, 18, 19, 19, 19, 19, 19,
- 19, 19, 19, 19, 19, 19, 19, 19, 20, 19,
- 19, 19, 19, 21, 19, 19, 19, 19, 19, 19,
- 19, 19, 22, 23, 24, 25, 26, 19, 19, 27,
- 19, 28, 19, 29, 30, 31, 19, 32, 33, 34,
- 35, 36, 19, 19, 37, 38, 44, 41, 44, 39,
- 42, 45, 47, 45, 47, 49, 112, 112, 50, 49,
- 51, 51, 52, 53, 52, 54, 54, 56, 176, 162,
- 50, 57, 51, 51, 50, 116, 51, 51, 52, 55,
-
- 52, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 177, 52, 55, 52, 52, 55, 52, 163, 62, 52,
- 55, 52, 52, 55, 52, 733, 47, 61, 47, 52,
- 55, 52, 52, 55, 52, 52, 55, 52, 52, 55,
- 52, 732, 58, 52, 55, 52, 52, 55, 52, 159,
- 64, 91, 63, 65, 70, 92, 66, 178, 160, 67,
- 52, 55, 52, 68, 71, 230, 731, 74, 52, 55,
- 52, 179, 69, 72, 52, 55, 52, 73, 52, 55,
- 52, 218, 231, 49, 75, 78, 79, 49, 80, 50,
- 76, 51, 51, 77, 219, 81, 82, 730, 52, 83,
-
- 52, 52, 113, 52, 52, 499, 52, 84, 89, 52,
- 55, 52, 86, 156, 85, 52, 55, 52, 87, 500,
- 52, 55, 52, 88, 93, 94, 95, 96, 97, 98,
- 99, 52, 100, 52, 729, 101, 102, 117, 103, 104,
- 157, 105, 106, 107, 108, 109, 52, 728, 52, 54,
- 54, 52, 55, 52, 252, 252, 114, 52, 55, 52,
- 119, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 306, 307, 118, 52, 55, 52, 52, 55, 52, 52,
- 55, 52, 114, 52, 55, 52, 52, 55, 52, 120,
- 52, 55, 52, 121, 52, 55, 52, 52, 55, 52,
-
- 52, 55, 52, 52, 55, 52, 159, 727, 122, 52,
- 55, 52, 52, 55, 52, 217, 726, 123, 52, 55,
- 52, 126, 125, 124, 52, 55, 52, 725, 127, 52,
- 55, 52, 164, 131, 129, 128, 134, 130, 165, 166,
- 132, 52, 55, 52, 236, 133, 52, 55, 52, 237,
- 136, 52, 55, 52, 135, 724, 138, 52, 55, 52,
- 52, 55, 52, 137, 52, 55, 52, 52, 55, 52,
- 91, 139, 140, 168, 92, 172, 723, 169, 173, 223,
- 174, 224, 112, 112, 722, 303, 170, 721, 141, 183,
- 184, 185, 304, 52, 186, 186, 142, 143, 720, 52,
-
- 55, 52, 252, 252, 146, 144, 147, 145, 148, 544,
- 149, 98, 719, 545, 100, 183, 187, 101, 150, 718,
- 103, 151, 578, 579, 152, 153, 52, 55, 52, 52,
- 55, 52, 52, 55, 52, 52, 55, 52, 52, 55,
- 52, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 52, 55, 52, 52, 55, 52, 717, 188, 52, 55,
- 52, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 716, 189, 227, 364, 193, 52, 55, 52, 365, 190,
- 52, 55, 52, 191, 228, 197, 192, 194, 715, 195,
- 52, 55, 52, 52, 55, 52, 714, 713, 196, 198,
-
- 199, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 52, 55, 52, 712, 200, 52, 55, 52, 52, 55,
- 52, 52, 55, 52, 711, 464, 201, 710, 709, 202,
- 465, 708, 203, 52, 55, 52, 52, 55, 52, 707,
- 204, 52, 55, 52, 706, 205, 52, 55, 52, 705,
- 52, 55, 52, 206, 184, 184, 207, 211, 252, 252,
- 208, 209, 52, 210, 52, 186, 186, 704, 52, 212,
- 52, 186, 186, 52, 55, 52, 213, 52, 55, 52,
- 703, 215, 216, 253, 52, 55, 52, 52, 55, 52,
- 214, 52, 55, 52, 52, 55, 52, 702, 254, 255,
-
- 256, 257, 52, 55, 52, 52, 55, 52, 52, 55,
- 52, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 52, 55, 52, 52, 55, 52, 52, 55, 52, 52,
- 55, 52, 52, 55, 52, 52, 55, 52, 701, 258,
- 52, 55, 52, 259, 260, 700, 699, 262, 261, 52,
- 55, 52, 52, 55, 52, 265, 698, 697, 266, 52,
- 55, 52, 696, 263, 695, 267, 694, 392, 264, 52,
- 55, 52, 268, 52, 55, 52, 52, 55, 52, 693,
- 692, 270, 393, 394, 269, 271, 691, 395, 272, 52,
- 55, 52, 273, 274, 52, 55, 52, 52, 55, 52,
-
- 52, 55, 52, 52, 55, 52, 690, 52, 55, 52,
- 689, 275, 52, 55, 52, 52, 55, 52, 688, 52,
- 55, 52, 687, 686, 277, 276, 313, 52, 55, 52,
- 685, 684, 278, 683, 682, 315, 52, 55, 52, 681,
- 680, 317, 314, 679, 318, 678, 677, 279, 316, 676,
- 280, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 52, 55, 52, 52, 55, 52, 52, 55, 52, 52,
- 55, 52, 52, 55, 52, 52, 55, 52, 675, 52,
- 55, 52, 52, 55, 52, 52, 55, 52, 674, 673,
- 319, 320, 672, 52, 55, 52, 52, 55, 52, 52,
-
- 55, 52, 52, 55, 52, 52, 55, 52, 671, 324,
- 670, 669, 321, 325, 52, 55, 52, 668, 322, 667,
- 666, 323, 52, 55, 52, 665, 664, 326, 327, 52,
- 55, 52, 663, 328, 52, 55, 52, 330, 52, 55,
- 52, 52, 55, 52, 662, 52, 55, 52, 52, 55,
- 52, 329, 375, 661, 660, 52, 55, 52, 331, 52,
- 55, 52, 659, 369, 370, 658, 333, 657, 376, 334,
- 656, 368, 371, 332, 655, 372, 52, 55, 52, 373,
- 374, 52, 55, 52, 52, 55, 52, 654, 377, 52,
- 55, 52, 52, 55, 52, 52, 55, 52, 52, 55,
-
- 52, 378, 52, 55, 52, 52, 55, 52, 52, 55,
- 52, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 653, 380, 652, 651, 379, 52, 55, 52, 52, 55,
- 52, 382, 52, 55, 52, 650, 649, 381, 52, 55,
- 52, 52, 55, 52, 52, 55, 52, 383, 648, 647,
- 427, 646, 645, 384, 52, 55, 52, 52, 55, 52,
- 644, 643, 386, 642, 387, 426, 385, 640, 428, 639,
- 638, 429, 637, 636, 388, 52, 55, 52, 52, 55,
- 52, 635, 430, 52, 55, 52, 634, 389, 52, 55,
- 52, 52, 55, 52, 633, 431, 632, 631, 435, 52,
-
- 55, 52, 630, 434, 52, 55, 52, 629, 628, 432,
- 52, 55, 52, 433, 52, 55, 52, 627, 436, 52,
- 55, 52, 52, 55, 52, 52, 55, 52, 626, 437,
- 52, 55, 52, 52, 55, 52, 52, 55, 52, 52,
- 55, 52, 52, 55, 52, 52, 55, 52, 439, 625,
- 52, 55, 52, 52, 55, 52, 52, 55, 52, 438,
- 624, 441, 620, 619, 482, 618, 440, 480, 617, 442,
- 481, 52, 55, 52, 443, 52, 55, 52, 52, 55,
- 52, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 484, 616, 485, 615, 614, 483, 613, 488, 52, 55,
-
- 52, 612, 486, 611, 610, 487, 52, 55, 52, 52,
- 55, 52, 490, 489, 52, 55, 52, 52, 55, 52,
- 52, 55, 52, 52, 55, 52, 52, 55, 52, 52,
- 55, 52, 52, 55, 52, 609, 608, 52, 55, 52,
- 491, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 607, 606, 523, 492, 524, 605, 604, 527, 493, 52,
- 55, 52, 52, 55, 52, 603, 525, 528, 602, 526,
- 52, 55, 52, 52, 55, 52, 52, 55, 52, 529,
- 530, 531, 52, 55, 52, 52, 55, 52, 52, 55,
- 52, 595, 594, 534, 535, 52, 55, 52, 593, 533,
-
- 52, 55, 52, 52, 55, 52, 592, 532, 591, 563,
- 52, 55, 52, 52, 55, 52, 52, 55, 52, 52,
- 55, 52, 590, 589, 564, 562, 52, 55, 52, 565,
- 52, 55, 52, 52, 55, 52, 566, 52, 55, 52,
- 52, 55, 52, 588, 587, 568, 569, 52, 55, 52,
- 52, 55, 52, 52, 55, 52, 586, 585, 567, 52,
- 55, 52, 584, 583, 571, 582, 596, 570, 52, 55,
- 52, 52, 55, 52, 52, 55, 52, 52, 55, 52,
- 52, 55, 52, 52, 55, 52, 52, 55, 52, 52,
- 55, 52, 581, 597, 52, 55, 52, 599, 580, 577,
-
- 598, 52, 55, 52, 576, 600, 52, 55, 52, 575,
- 574, 621, 573, 601, 52, 55, 52, 52, 55, 52,
- 52, 55, 52, 572, 561, 622, 52, 55, 52, 52,
- 55, 52, 52, 55, 52, 560, 641, 559, 623, 52,
- 55, 52, 40, 40, 40, 40, 43, 43, 43, 43,
- 46, 46, 46, 46, 48, 48, 48, 48, 55, 55,
- 60, 60, 115, 558, 115, 115, 557, 556, 555, 554,
- 553, 552, 551, 550, 549, 548, 547, 546, 543, 542,
- 541, 540, 539, 538, 537, 536, 522, 521, 520, 519,
- 518, 517, 516, 515, 514, 513, 512, 511, 510, 509,
-
- 508, 507, 506, 505, 504, 503, 502, 501, 498, 497,
- 496, 495, 494, 479, 478, 477, 476, 475, 474, 473,
- 472, 471, 470, 469, 468, 467, 466, 463, 462, 461,
- 460, 459, 458, 457, 456, 455, 454, 453, 452, 451,
- 450, 449, 448, 447, 446, 445, 444, 425, 424, 423,
- 422, 421, 420, 419, 418, 417, 416, 415, 414, 413,
- 412, 411, 410, 409, 408, 407, 406, 405, 404, 403,
- 402, 401, 400, 399, 398, 397, 396, 391, 390, 367,
- 366, 363, 362, 361, 360, 359, 358, 357, 356, 355,
- 354, 353, 352, 351, 350, 349, 348, 347, 346, 345,
-
- 344, 343, 342, 341, 340, 339, 338, 337, 336, 335,
- 312, 311, 310, 309, 308, 305, 302, 301, 300, 299,
- 298, 297, 296, 295, 294, 293, 292, 291, 290, 289,
- 288, 287, 286, 285, 284, 283, 282, 281, 237, 227,
- 251, 250, 249, 248, 247, 246, 245, 244, 243, 242,
- 241, 240, 239, 238, 235, 234, 233, 232, 229, 226,
- 225, 222, 221, 220, 178, 176, 172, 156, 182, 181,
- 180, 175, 171, 167, 161, 158, 155, 154, 111, 110,
- 90, 59, 734, 41, 7, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
-
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734
- } ;
-
-static yyconst flex_int16_t yy_chk[1651] =
- { 0,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 2, 5, 4, 6, 2,
- 4, 5, 11, 6, 11, 12, 50, 50, 13, 12,
- 13, 13, 14, 14, 14, 14, 14, 15, 106, 99,
- 16, 15, 16, 16, 17, 742, 17, 17, 19, 19,
-
- 19, 20, 20, 20, 21, 21, 21, 22, 22, 22,
- 106, 23, 23, 23, 24, 24, 24, 99, 21, 25,
- 25, 25, 26, 26, 26, 731, 46, 20, 46, 27,
- 27, 27, 28, 28, 28, 29, 29, 29, 30, 30,
- 30, 729, 16, 31, 31, 31, 32, 32, 32, 97,
- 23, 38, 22, 23, 26, 38, 23, 107, 97, 24,
- 33, 33, 33, 25, 26, 162, 728, 29, 34, 34,
- 34, 107, 25, 27, 36, 36, 36, 28, 35, 35,
- 35, 150, 162, 48, 30, 32, 32, 48, 32, 51,
- 31, 51, 51, 31, 150, 32, 33, 727, 52, 33,
-
- 52, 53, 53, 53, 55, 451, 55, 33, 36, 60,
- 60, 60, 34, 95, 33, 63, 63, 63, 35, 451,
- 61, 61, 61, 35, 39, 39, 39, 39, 39, 39,
- 39, 113, 39, 113, 725, 39, 39, 61, 39, 39,
- 95, 39, 39, 39, 39, 39, 54, 724, 54, 54,
- 54, 62, 62, 62, 184, 184, 54, 64, 64, 64,
- 63, 65, 65, 65, 66, 66, 66, 67, 67, 67,
- 245, 245, 62, 68, 68, 68, 69, 69, 69, 70,
- 70, 70, 54, 71, 71, 71, 72, 72, 72, 64,
- 73, 73, 73, 65, 74, 74, 74, 75, 75, 75,
-
- 76, 76, 76, 77, 77, 77, 149, 723, 66, 78,
- 78, 78, 79, 79, 79, 149, 721, 67, 80, 80,
- 80, 70, 69, 68, 81, 81, 81, 717, 71, 82,
- 82, 82, 100, 75, 73, 72, 77, 74, 100, 100,
- 76, 83, 83, 83, 168, 76, 84, 84, 84, 168,
- 79, 85, 85, 85, 78, 716, 81, 86, 86, 86,
- 87, 87, 87, 80, 88, 88, 88, 89, 89, 89,
- 91, 81, 82, 102, 91, 104, 714, 102, 104, 157,
- 104, 157, 112, 112, 713, 243, 102, 712, 83, 112,
- 114, 114, 243, 114, 114, 114, 84, 85, 711, 117,
-
- 117, 117, 252, 252, 88, 86, 89, 87, 92, 502,
- 92, 92, 710, 502, 92, 112, 117, 92, 92, 709,
- 92, 92, 542, 542, 92, 92, 118, 118, 118, 119,
- 119, 119, 120, 120, 120, 121, 121, 121, 122, 122,
- 122, 123, 123, 123, 124, 124, 124, 125, 125, 125,
- 126, 126, 126, 127, 127, 127, 708, 118, 128, 128,
- 128, 129, 129, 129, 130, 130, 130, 131, 131, 131,
- 707, 119, 160, 310, 123, 132, 132, 132, 310, 120,
- 133, 133, 133, 121, 160, 127, 122, 124, 706, 125,
- 134, 134, 134, 135, 135, 135, 704, 703, 126, 129,
-
- 130, 136, 136, 136, 137, 137, 137, 138, 138, 138,
- 139, 139, 139, 702, 131, 140, 140, 140, 141, 141,
- 141, 142, 142, 142, 700, 411, 132, 699, 698, 133,
- 411, 697, 134, 143, 143, 143, 144, 144, 144, 696,
- 135, 145, 145, 145, 694, 136, 146, 146, 146, 693,
- 147, 147, 147, 137, 183, 183, 138, 142, 183, 183,
- 139, 140, 185, 141, 185, 185, 185, 692, 186, 143,
- 186, 186, 186, 187, 187, 187, 144, 188, 188, 188,
- 691, 146, 147, 188, 189, 189, 189, 190, 190, 190,
- 145, 191, 191, 191, 192, 192, 192, 690, 188, 188,
-
- 188, 188, 193, 193, 193, 194, 194, 194, 195, 195,
- 195, 196, 196, 196, 197, 197, 197, 198, 198, 198,
- 199, 199, 199, 200, 200, 200, 201, 201, 201, 202,
- 202, 202, 203, 203, 203, 204, 204, 204, 689, 191,
- 206, 206, 206, 192, 193, 688, 687, 196, 195, 205,
- 205, 205, 207, 207, 207, 200, 686, 685, 201, 208,
- 208, 208, 684, 197, 682, 202, 681, 337, 199, 209,
- 209, 209, 203, 210, 210, 210, 211, 211, 211, 680,
- 679, 205, 337, 337, 204, 205, 678, 337, 206, 212,
- 212, 212, 207, 208, 213, 213, 213, 214, 214, 214,
-
- 215, 215, 215, 216, 216, 216, 677, 253, 253, 253,
- 676, 209, 254, 254, 254, 255, 255, 255, 675, 256,
- 256, 256, 674, 673, 212, 210, 253, 257, 257, 257,
- 671, 670, 213, 669, 668, 255, 258, 258, 258, 666,
- 665, 257, 254, 664, 257, 663, 662, 214, 256, 661,
- 216, 259, 259, 259, 260, 260, 260, 261, 261, 261,
- 262, 262, 262, 263, 263, 263, 264, 264, 264, 265,
- 265, 265, 266, 266, 266, 267, 267, 267, 660, 268,
- 268, 268, 269, 269, 269, 270, 270, 270, 659, 658,
- 260, 261, 657, 271, 271, 271, 272, 272, 272, 273,
-
- 273, 273, 274, 274, 274, 275, 275, 275, 654, 267,
- 653, 652, 264, 268, 276, 276, 276, 651, 265, 650,
- 649, 266, 277, 277, 277, 648, 647, 270, 271, 278,
- 278, 278, 646, 273, 279, 279, 279, 275, 280, 280,
- 280, 313, 313, 313, 645, 315, 315, 315, 316, 316,
- 316, 274, 315, 644, 643, 314, 314, 314, 277, 319,
- 319, 319, 642, 314, 314, 640, 279, 639, 316, 280,
- 638, 313, 314, 278, 637, 314, 317, 317, 317, 314,
- 314, 318, 318, 318, 320, 320, 320, 636, 317, 321,
- 321, 321, 322, 322, 322, 323, 323, 323, 324, 324,
-
- 324, 318, 325, 325, 325, 326, 326, 326, 327, 327,
- 327, 328, 328, 328, 329, 329, 329, 330, 330, 330,
- 635, 321, 634, 633, 320, 331, 331, 331, 332, 332,
- 332, 323, 333, 333, 333, 632, 631, 322, 334, 334,
- 334, 368, 368, 368, 369, 369, 369, 324, 630, 629,
- 369, 628, 627, 326, 370, 370, 370, 371, 371, 371,
- 626, 625, 331, 624, 332, 368, 330, 620, 370, 619,
- 618, 371, 617, 616, 333, 372, 372, 372, 373, 373,
- 373, 615, 372, 374, 374, 374, 614, 334, 375, 375,
- 375, 376, 376, 376, 613, 373, 612, 610, 376, 377,
-
- 377, 377, 608, 375, 378, 378, 378, 607, 606, 374,
- 379, 379, 379, 374, 380, 380, 380, 605, 377, 381,
- 381, 381, 382, 382, 382, 383, 383, 383, 604, 378,
- 384, 384, 384, 385, 385, 385, 386, 386, 386, 387,
- 387, 387, 388, 388, 388, 389, 389, 389, 380, 603,
- 426, 426, 426, 427, 427, 427, 428, 428, 428, 379,
- 602, 383, 595, 594, 428, 592, 381, 426, 591, 385,
- 427, 429, 429, 429, 387, 430, 430, 430, 431, 431,
- 431, 432, 432, 432, 433, 433, 433, 434, 434, 434,
- 430, 590, 431, 589, 588, 429, 587, 434, 435, 435,
-
- 435, 583, 432, 582, 581, 433, 436, 436, 436, 437,
- 437, 437, 436, 435, 438, 438, 438, 439, 439, 439,
- 440, 440, 440, 441, 441, 441, 442, 442, 442, 443,
- 443, 443, 480, 480, 480, 580, 579, 481, 481, 481,
- 437, 482, 482, 482, 483, 483, 483, 484, 484, 484,
- 578, 577, 480, 439, 481, 576, 575, 484, 441, 485,
- 485, 485, 486, 486, 486, 574, 482, 485, 573, 483,
- 487, 487, 487, 488, 488, 488, 489, 489, 489, 486,
- 487, 488, 490, 490, 490, 491, 491, 491, 492, 492,
- 492, 561, 560, 491, 491, 493, 493, 493, 559, 490,
-
- 523, 523, 523, 524, 524, 524, 558, 489, 556, 524,
- 525, 525, 525, 526, 526, 526, 527, 527, 527, 528,
- 528, 528, 555, 554, 527, 523, 529, 529, 529, 528,
- 530, 530, 530, 531, 531, 531, 529, 532, 532, 532,
- 533, 533, 533, 552, 551, 532, 532, 534, 534, 534,
- 535, 535, 535, 562, 562, 562, 550, 549, 531, 563,
- 563, 563, 548, 547, 535, 546, 563, 534, 564, 564,
- 564, 565, 565, 565, 566, 566, 566, 567, 567, 567,
- 568, 568, 568, 569, 569, 569, 570, 570, 570, 571,
- 571, 571, 545, 564, 596, 596, 596, 569, 544, 541,
-
- 568, 597, 597, 597, 540, 570, 598, 598, 598, 539,
- 538, 596, 537, 571, 599, 599, 599, 600, 600, 600,
- 601, 601, 601, 536, 522, 598, 621, 621, 621, 622,
- 622, 622, 623, 623, 623, 520, 621, 517, 599, 641,
- 641, 641, 735, 735, 735, 735, 736, 736, 736, 736,
- 737, 737, 737, 737, 738, 738, 738, 738, 739, 739,
- 740, 740, 741, 516, 741, 741, 515, 514, 513, 512,
- 511, 510, 509, 508, 507, 506, 504, 503, 501, 500,
- 499, 498, 497, 496, 495, 494, 479, 478, 477, 476,
- 475, 473, 472, 471, 470, 469, 468, 467, 466, 465,
-
- 464, 463, 462, 461, 457, 456, 454, 453, 449, 448,
- 447, 446, 445, 425, 424, 423, 422, 421, 420, 419,
- 418, 417, 416, 415, 414, 413, 412, 410, 409, 408,
- 407, 406, 404, 403, 402, 401, 400, 399, 398, 397,
- 396, 395, 394, 393, 392, 391, 390, 367, 366, 365,
- 364, 363, 362, 361, 360, 359, 358, 357, 356, 355,
- 354, 353, 352, 351, 350, 349, 348, 347, 346, 345,
- 344, 343, 342, 341, 340, 339, 338, 336, 335, 312,
- 311, 309, 308, 307, 306, 305, 304, 303, 302, 301,
- 300, 299, 298, 297, 296, 295, 294, 293, 292, 291,
-
- 290, 289, 288, 287, 286, 285, 284, 283, 282, 281,
- 250, 249, 248, 247, 246, 244, 242, 241, 240, 239,
- 238, 237, 236, 235, 234, 233, 232, 231, 230, 229,
- 228, 227, 224, 223, 222, 221, 220, 219, 218, 217,
- 182, 181, 180, 179, 178, 177, 176, 175, 174, 173,
- 172, 171, 170, 169, 167, 166, 165, 163, 161, 159,
- 158, 156, 155, 154, 153, 152, 151, 148, 110, 109,
- 108, 105, 103, 101, 98, 96, 94, 93, 45, 42,
- 37, 18, 7, 3, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
-
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734,
- 734, 734, 734, 734, 734, 734, 734, 734, 734, 734
- } ;
-
-static yy_state_type yy_last_accepting_state;
-static char *yy_last_accepting_cpos;
-
-extern int yy_flex_debug;
-int yy_flex_debug = 0;
-
-/* The intent behind this definition is that it'll catch
- * any uses of REJECT which flex missed.
- */
-#define REJECT reject_used_but_not_detected
-#define yymore() yymore_used_but_not_detected
-#define YY_MORE_ADJ 0
-#define YY_RESTORE_YY_MORE_OFFSET
-char *yytext;
-#line 1 "lexer.l"
-/*
- * The SIP lexer.
- *
- * Copyright (c) 2007
- * Riverbank Computing Limited <info@riverbankcomputing.co.uk>
- *
- * This file is part of SIP.
- *
- * This copy of SIP is licensed for use under the terms of the SIP License
- * Agreement. See the file LICENSE for more details.
- *
- * SIP is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- */
-#line 17 "lexer.l"
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <errno.h>
-
-#include "sip.h"
-#include "parser.h"
-
-
-#ifndef FLEX_SCANNER
-#error "Only flex is supported at the moment"
-#endif
-
-
-#define YY_FATAL_ERROR(s) fatallex(s)
-
-#define MAX_INCLUDE_DEPTH 10
-#define MAX_CODE_LINE_LENGTH 1000
-
-
-static struct inputFile {
- int lineno; /* The line number. */
- YY_BUFFER_STATE bs; /* The flex buffer state handle. */
- char *name; /* The file name. */
- char *cwd; /* The path part of the file name. */
- parserContext pc; /* The parser context. */
-} inputFileStack[MAX_INCLUDE_DEPTH];
-
-static int currentFile = -1; /* Index of the current input file. */
-static char codeLine[MAX_CODE_LINE_LENGTH + 2]; /* The current code line. */
-static int codeIdx = -1; /* Index of next code character. */
-
-static FILE *openFile(char *);
-static void fatallex(char *);
-
-
-#line 1113 "lexer.c.tmp"
-
-#define INITIAL 0
-#define code 1
-#define ccomment 2
-
-#ifndef YY_NO_UNISTD_H
-/* Special case for "unistd.h", since it is non-ANSI. We include it way
- * down here because we want the user's section 1 to have been scanned first.
- * The user has a chance to override it with an option.
- */
-
-#endif
-
-#ifndef YY_EXTRA_TYPE
-#define YY_EXTRA_TYPE void *
-#endif
-
-static int yy_init_globals (void );
-
-/* Macros after this point can all be overridden by user definitions in
- * section 1.
- */
-
-#ifndef YY_SKIP_YYWRAP
-#ifdef __cplusplus
-extern "C" int yywrap (void );
-#else
-extern int yywrap (void );
-#endif
-#endif
-
- static void yyunput (int c,char *buf_ptr );
-
-#ifndef yytext_ptr
-static void yy_flex_strncpy (char *,yyconst char *,int );
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * );
-#endif
-
-#ifndef YY_NO_INPUT
-
-#ifdef __cplusplus
-static int yyinput (void );
-#else
-static int input (void );
-#endif
-
-#endif
-
-/* Amount of stuff to slurp up with each read. */
-#ifndef YY_READ_BUF_SIZE
-#define YY_READ_BUF_SIZE 8192
-#endif
-
-/* Copy whatever the last rule matched to the standard output. */
-#ifndef ECHO
-/* This used to be an fputs(), but since the string might contain NUL's,
- * we now use fwrite().
- */
-#define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
-#endif
-
-/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
- * is returned in "result".
- */
-#ifndef YY_INPUT
-#define YY_INPUT(buf,result,max_size) \
- if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
- { \
- int c = '*'; \
- size_t n; \
- for ( n = 0; n < max_size && \
- (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
- buf[n] = (char) c; \
- if ( c == '\n' ) \
- buf[n++] = (char) c; \
- if ( c == EOF && ferror( yyin ) ) \
- YY_FATAL_ERROR( "input in flex scanner failed" ); \
- result = n; \
- } \
- else \
- { \
- errno=0; \
- while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
- { \
- if( errno != EINTR) \
- { \
- YY_FATAL_ERROR( "input in flex scanner failed" ); \
- break; \
- } \
- errno=0; \
- clearerr(yyin); \
- } \
- }\
-\
-
-#endif
-
-/* No semi-colon after return; correct usage is to write "yyterminate();" -
- * we don't want an extra ';' after the "return" because that will cause
- * some compilers to complain about unreachable statements.
- */
-#ifndef yyterminate
-#define yyterminate() return YY_NULL
-#endif
-
-/* Number of entries by which start-condition stack grows. */
-#ifndef YY_START_STACK_INCR
-#define YY_START_STACK_INCR 25
-#endif
-
-/* Report a fatal error. */
-#ifndef YY_FATAL_ERROR
-#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
-#endif
-
-/* end tables serialization structures and prototypes */
-
-/* Default declaration of generated scanner - a define so the user can
- * easily add parameters.
- */
-#ifndef YY_DECL
-#define YY_DECL_IS_OURS 1
-
-extern int yylex (void);
-
-#define YY_DECL int yylex (void)
-#endif /* !YY_DECL */
-
-/* Code executed at the beginning of each rule, after yytext and yyleng
- * have been set up.
- */
-#ifndef YY_USER_ACTION
-#define YY_USER_ACTION
-#endif
-
-/* Code executed at the end of each rule. */
-#ifndef YY_BREAK
-#define YY_BREAK break;
-#endif
-
-#define YY_RULE_SETUP \
- if ( yyleng > 0 ) \
- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
- (yytext[yyleng - 1] == '\n'); \
- YY_USER_ACTION
-
-/** The main scanner function which does all the work.
- */
-YY_DECL
-{
- register yy_state_type yy_current_state;
- register char *yy_cp, *yy_bp;
- register int yy_act;
-
-#line 56 "lexer.l"
-
-
-#line 1274 "lexer.c.tmp"
-
- if ( !(yy_init) )
- {
- (yy_init) = 1;
-
-#ifdef YY_USER_INIT
- YY_USER_INIT;
-#endif
-
- if ( ! (yy_start) )
- (yy_start) = 1; /* first start state */
-
- if ( ! yyin )
- yyin = stdin;
-
- if ( ! yyout )
- yyout = stdout;
-
- if ( ! YY_CURRENT_BUFFER ) {
- yyensure_buffer_stack ();
- YY_CURRENT_BUFFER_LVALUE =
- yy_create_buffer(yyin,YY_BUF_SIZE );
- }
-
- yy_load_buffer_state( );
- }
-
- while ( 1 ) /* loops until end-of-file is reached */
- {
- yy_cp = (yy_c_buf_p);
-
- /* Support of yytext. */
- *yy_cp = (yy_hold_char);
-
- /* yy_bp points to the position in yy_ch_buf of the start of
- * the current run.
- */
- yy_bp = yy_cp;
-
- yy_current_state = (yy_start);
- yy_current_state += YY_AT_BOL();
-yy_match:
- do
- {
- register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
- if ( yy_accept[yy_current_state] )
- {
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 735 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
- ++yy_cp;
- }
- while ( yy_base[yy_current_state] != 1585 );
-
-yy_find_action:
- yy_act = yy_accept[yy_current_state];
- if ( yy_act == 0 )
- { /* have to back up */
- yy_cp = (yy_last_accepting_cpos);
- yy_current_state = (yy_last_accepting_state);
- yy_act = yy_accept[yy_current_state];
- }
-
- YY_DO_BEFORE_ACTION;
-
-do_action: /* This label is used only to access EOF actions. */
-
- switch ( yy_act )
- { /* beginning of action switch */
- case 0: /* must back up */
- /* undo the effects of YY_DO_BEFORE_ACTION */
- *yy_cp = (yy_hold_char);
- yy_cp = (yy_last_accepting_cpos);
- yy_current_state = (yy_last_accepting_state);
- goto yy_find_action;
-
-case 1:
-YY_RULE_SETUP
-#line 58 "lexer.l"
-{return TK_OPTIONS;}
- YY_BREAK
-case 2:
-YY_RULE_SETUP
-#line 59 "lexer.l"
-{return TK_NOEMITTERS;}
- YY_BREAK
-case 3:
-YY_RULE_SETUP
-#line 60 "lexer.l"
-{return TK_INCLUDE;}
- YY_BREAK
-case 4:
-YY_RULE_SETUP
-#line 61 "lexer.l"
-{return TK_OPTINCLUDE;}
- YY_BREAK
-case 5:
-YY_RULE_SETUP
-#line 62 "lexer.l"
-{return TK_IMPORT;}
- YY_BREAK
-case 6:
-YY_RULE_SETUP
-#line 63 "lexer.l"
-{return TK_MODULE;}
- YY_BREAK
-case 7:
-YY_RULE_SETUP
-#line 64 "lexer.l"
-{return TK_CMODULE;}
- YY_BREAK
-case 8:
-YY_RULE_SETUP
-#line 65 "lexer.l"
-{return TK_TIMELINE;}
- YY_BREAK
-case 9:
-YY_RULE_SETUP
-#line 66 "lexer.l"
-{return TK_PLATFORMS;}
- YY_BREAK
-case 10:
-YY_RULE_SETUP
-#line 67 "lexer.l"
-{return TK_FEATURE;}
- YY_BREAK
-case 11:
-YY_RULE_SETUP
-#line 68 "lexer.l"
-{return TK_LICENSE;}
- YY_BREAK
-case 12:
-YY_RULE_SETUP
-#line 69 "lexer.l"
-{return TK_MAPPEDTYPE;}
- YY_BREAK
-case 13:
-YY_RULE_SETUP
-#line 70 "lexer.l"
-{return TK_EXCEPTION;}
- YY_BREAK
-case 14:
-YY_RULE_SETUP
-#line 71 "lexer.l"
-{return TK_IF;}
- YY_BREAK
-case 15:
-YY_RULE_SETUP
-#line 72 "lexer.l"
-{return TK_END;}
- YY_BREAK
-case 16:
-YY_RULE_SETUP
-#line 73 "lexer.l"
-{return TK_CLASS;}
- YY_BREAK
-case 17:
-YY_RULE_SETUP
-#line 74 "lexer.l"
-{return TK_STRUCT;}
- YY_BREAK
-case 18:
-YY_RULE_SETUP
-#line 75 "lexer.l"
-{return TK_PUBLIC;}
- YY_BREAK
-case 19:
-YY_RULE_SETUP
-#line 76 "lexer.l"
-{return TK_PROTECTED;}
- YY_BREAK
-case 20:
-YY_RULE_SETUP
-#line 77 "lexer.l"
-{return TK_PRIVATE;}
- YY_BREAK
-case 21:
-YY_RULE_SETUP
-#line 78 "lexer.l"
-{return TK_SIGNALS;}
- YY_BREAK
-case 22:
-YY_RULE_SETUP
-#line 79 "lexer.l"
-{return TK_SLOTS;}
- YY_BREAK
-case 23:
-YY_RULE_SETUP
-#line 80 "lexer.l"
-{return TK_CHAR;}
- YY_BREAK
-case 24:
-YY_RULE_SETUP
-#line 81 "lexer.l"
-{return TK_WCHAR_T;}
- YY_BREAK
-case 25:
-YY_RULE_SETUP
-#line 82 "lexer.l"
-{return TK_BOOL;}
- YY_BREAK
-case 26:
-YY_RULE_SETUP
-#line 83 "lexer.l"
-{return TK_SHORT;}
- YY_BREAK
-case 27:
-YY_RULE_SETUP
-#line 84 "lexer.l"
-{return TK_INT;}
- YY_BREAK
-case 28:
-YY_RULE_SETUP
-#line 85 "lexer.l"
-{return TK_LONG;}
- YY_BREAK
-case 29:
-YY_RULE_SETUP
-#line 86 "lexer.l"
-{return TK_FLOAT;}
- YY_BREAK
-case 30:
-YY_RULE_SETUP
-#line 87 "lexer.l"
-{return TK_DOUBLE;}
- YY_BREAK
-case 31:
-YY_RULE_SETUP
-#line 88 "lexer.l"
-{return TK_VOID;}
- YY_BREAK
-case 32:
-YY_RULE_SETUP
-#line 89 "lexer.l"
-{return TK_VIRTUAL;}
- YY_BREAK
-case 33:
-YY_RULE_SETUP
-#line 90 "lexer.l"
-{return TK_ENUM;}
- YY_BREAK
-case 34:
-YY_RULE_SETUP
-#line 91 "lexer.l"
-{return TK_SIGNED;}
- YY_BREAK
-case 35:
-YY_RULE_SETUP
-#line 92 "lexer.l"
-{return TK_UNSIGNED;}
- YY_BREAK
-case 36:
-YY_RULE_SETUP
-#line 93 "lexer.l"
-{return TK_CONST;}
- YY_BREAK
-case 37:
-YY_RULE_SETUP
-#line 94 "lexer.l"
-{return TK_STATIC;}
- YY_BREAK
-case 38:
-YY_RULE_SETUP
-#line 95 "lexer.l"
-{return TK_TRUE;}
- YY_BREAK
-case 39:
-YY_RULE_SETUP
-#line 96 "lexer.l"
-{return TK_FALSE;}
- YY_BREAK
-case 40:
-YY_RULE_SETUP
-#line 97 "lexer.l"
-{return TK_NULL;}
- YY_BREAK
-case 41:
-YY_RULE_SETUP
-#line 98 "lexer.l"
-{return TK_TYPEDEF;}
- YY_BREAK
-case 42:
-YY_RULE_SETUP
-#line 99 "lexer.l"
-{return TK_NAMESPACE;}
- YY_BREAK
-case 43:
-YY_RULE_SETUP
-#line 100 "lexer.l"
-{return TK_OPERATOR;}
- YY_BREAK
-case 44:
-YY_RULE_SETUP
-#line 101 "lexer.l"
-{return TK_THROW;}
- YY_BREAK
-case 45:
-YY_RULE_SETUP
-#line 102 "lexer.l"
-{return TK_EXPLICIT;}
- YY_BREAK
-case 46:
-YY_RULE_SETUP
-#line 103 "lexer.l"
-{return TK_TEMPLATE;}
- YY_BREAK
-case 47:
-YY_RULE_SETUP
-#line 104 "lexer.l"
-{return TK_SCOPE;}
- YY_BREAK
-case 48:
-YY_RULE_SETUP
-#line 105 "lexer.l"
-{return TK_LOGICAL_OR;}
- YY_BREAK
-case 49:
-YY_RULE_SETUP
-#line 106 "lexer.l"
-{return TK_PYOBJECT;}
- YY_BREAK
-case 50:
-YY_RULE_SETUP
-#line 107 "lexer.l"
-{return TK_PYTUPLE;}
- YY_BREAK
-case 51:
-YY_RULE_SETUP
-#line 108 "lexer.l"
-{return TK_PYLIST;}
- YY_BREAK
-case 52:
-YY_RULE_SETUP
-#line 109 "lexer.l"
-{return TK_PYDICT;}
- YY_BREAK
-case 53:
-YY_RULE_SETUP
-#line 110 "lexer.l"
-{return TK_PYCALLABLE;}
- YY_BREAK
-case 54:
-YY_RULE_SETUP
-#line 111 "lexer.l"
-{return TK_PYSLICE;}
- YY_BREAK
-case 55:
-YY_RULE_SETUP
-#line 112 "lexer.l"
-{return TK_PYTYPE;}
- YY_BREAK
-case 56:
-YY_RULE_SETUP
-#line 113 "lexer.l"
-{return TK_SIPSIGNAL;}
- YY_BREAK
-case 57:
-YY_RULE_SETUP
-#line 114 "lexer.l"
-{return TK_SIPSLOT;}
- YY_BREAK
-case 58:
-YY_RULE_SETUP
-#line 115 "lexer.l"
-{return TK_SIPANYSLOT;}
- YY_BREAK
-case 59:
-YY_RULE_SETUP
-#line 116 "lexer.l"
-{return TK_SIPRXCON;}
- YY_BREAK
-case 60:
-YY_RULE_SETUP
-#line 117 "lexer.l"
-{return TK_SIPRXDIS;}
- YY_BREAK
-case 61:
-YY_RULE_SETUP
-#line 118 "lexer.l"
-{return TK_SIPSLOTCON;}
- YY_BREAK
-case 62:
-YY_RULE_SETUP
-#line 119 "lexer.l"
-{return TK_SIPSLOTDIS;}
- YY_BREAK
-case 63:
-YY_RULE_SETUP
-#line 120 "lexer.l"
-{return TK_QOBJECT;}
- YY_BREAK
-case 64:
-YY_RULE_SETUP
-#line 121 "lexer.l"
-{return TK_ELLIPSIS;}
- YY_BREAK
-case 65:
-YY_RULE_SETUP
-#line 124 "lexer.l"
-{ /* Ignore whitespace. */
- ;
-}
- YY_BREAK
-case 66:
-/* rule 66 can match eol */
-YY_RULE_SETUP
-#line 128 "lexer.l"
-{ /* Maintain the line number. */
- ++inputFileStack[currentFile].lineno;
-
- if (codeIdx == 0)
- {
- BEGIN code;
- }
-}
- YY_BREAK
-case 67:
-YY_RULE_SETUP
-#line 137 "lexer.l"
-{ /* Ignore C++ style comments. */
- ;
-}
- YY_BREAK
-case 68:
-YY_RULE_SETUP
-#line 142 "lexer.l"
-{ /* A signed decimal number. */
- yylval.number = strtol(yytext,NULL,0);
- return TK_NUMBER;
-}
- YY_BREAK
-case 69:
-YY_RULE_SETUP
-#line 148 "lexer.l"
-{/* A floating point number. */
- yylval.real = strtod(yytext,NULL);
- return TK_REAL;
-}
- YY_BREAK
-case 70:
-YY_RULE_SETUP
-#line 154 "lexer.l"
-{ /* An unsigned hexadecimal number. */
- yylval.number = strtol(yytext,NULL,16);
- return TK_NUMBER;
-}
- YY_BREAK
-case 71:
-YY_RULE_SETUP
-#line 160 "lexer.l"
-{ /* An identifier name. */
- yylval.text = sipStrdup(yytext);
- return TK_NAME;
-}
- YY_BREAK
-case 72:
-YY_RULE_SETUP
-#line 166 "lexer.l"
-{ /* A relative pathname. */
- yylval.text = sipStrdup(yytext);
- return TK_PATHNAME;
-}
- YY_BREAK
-case 73:
-/* rule 73 can match eol */
-YY_RULE_SETUP
-#line 172 "lexer.l"
-{ /* A double-quoted string. */
- char *dp, *sp;
-
- /* Copy the string without the quotes. */
-
- yylval.text = sipMalloc(strlen(yytext) + 1);
-
- dp = yylval.text;
- sp = yytext;
-
- while (*sp != '\0')
- {
- if (*sp != '"')
- *dp++ = *sp;
-
- ++sp;
- }
-
- *dp = '\0';
-
- return TK_STRING;
-}
- YY_BREAK
-case 74:
-/* rule 74 can match eol */
-YY_RULE_SETUP
-#line 196 "lexer.l"
-{ /* A single-quoted character. */
- if (strlen(yytext) != 3)
- fatallex("Exactly one character expected between single quotes");
-
- yylval.qchar = yytext[1];
-
- return TK_QCHAR;
-}
- YY_BREAK
-case 75:
-YY_RULE_SETUP
-#line 206 "lexer.l"
-{ /* Ignore C-style comments. */
- BEGIN ccomment;
-}
- YY_BREAK
-case 76:
-/* rule 76 can match eol */
-YY_RULE_SETUP
-#line 209 "lexer.l"
-{
- ++inputFileStack[currentFile].lineno;
-}
- YY_BREAK
-case 77:
-YY_RULE_SETUP
-#line 212 "lexer.l"
-{
- BEGIN INITIAL;
-}
- YY_BREAK
-case 78:
-YY_RULE_SETUP
-#line 215 "lexer.l"
-{
- ;
-}
- YY_BREAK
-case 79:
-YY_RULE_SETUP
-#line 220 "lexer.l"
-{ /* The software license. */
- codeIdx = 0;
- return TK_COPYING;
-}
- YY_BREAK
-case 80:
-YY_RULE_SETUP
-#line 225 "lexer.l"
-{ /* The start of a from-type code block. */
- codeIdx = 0;
- return TK_FROMTYPE;
-}
- YY_BREAK
-case 81:
-YY_RULE_SETUP
-#line 230 "lexer.l"
-{ /* The start of a to-type code block. */
- codeIdx = 0;
- return TK_TOTYPE;
-}
- YY_BREAK
-case 82:
-YY_RULE_SETUP
-#line 235 "lexer.l"
-{ /* The start of a to-sub-class code block. */
- codeIdx = 0;
- return TK_TOSUBCLASS;
-}
- YY_BREAK
-case 83:
-YY_RULE_SETUP
-#line 240 "lexer.l"
-{ /* The start of an exported header code block. */
- codeIdx = 0;
- return TK_EXPHEADERCODE;
-}
- YY_BREAK
-case 84:
-YY_RULE_SETUP
-#line 245 "lexer.l"
-{ /* The start of a module header code block. */
- codeIdx = 0;
- return TK_MODHEADERCODE;
-}
- YY_BREAK
-case 85:
-YY_RULE_SETUP
-#line 250 "lexer.l"
-{ /* The start of a type header code block. */
- codeIdx = 0;
- return TK_TYPEHEADERCODE;
-}
- YY_BREAK
-case 86:
-YY_RULE_SETUP
-#line 255 "lexer.l"
-{ /* The start of a pre-initialisation code block. */
- codeIdx = 0;
- return TK_PREINITCODE;
-}
- YY_BREAK
-case 87:
-YY_RULE_SETUP
-#line 260 "lexer.l"
-{ /* The start of a post-initialisation code block. */
- codeIdx = 0;
- return TK_POSTINITCODE;
-}
- YY_BREAK
-case 88:
-YY_RULE_SETUP
-#line 265 "lexer.l"
-{ /* The start of a unit code block. */
- codeIdx = 0;
- return TK_UNITCODE;
-}
- YY_BREAK
-case 89:
-YY_RULE_SETUP
-#line 270 "lexer.l"
-{ /* The start of a module code block. */
- codeIdx = 0;
- return TK_MODCODE;
-}
- YY_BREAK
-case 90:
-YY_RULE_SETUP
-#line 275 "lexer.l"
-{ /* The start of a type code block. */
- codeIdx = 0;
- return TK_TYPECODE;
-}
- YY_BREAK
-case 91:
-YY_RULE_SETUP
-#line 280 "lexer.l"
-{ /* The start of a C++ method code block. */
- codeIdx = 0;
- return TK_METHODCODE;
-}
- YY_BREAK
-case 92:
-YY_RULE_SETUP
-#line 285 "lexer.l"
-{ /* The start of a C++ virtual code block. */
- codeIdx = 0;
- return TK_VIRTUALCATCHERCODE;
-}
- YY_BREAK
-case 93:
-YY_RULE_SETUP
-#line 290 "lexer.l"
-{ /* The start of a traverse code block. */
- codeIdx = 0;
- return TK_TRAVERSECODE;
-}
- YY_BREAK
-case 94:
-YY_RULE_SETUP
-#line 295 "lexer.l"
-{ /* The start of a clear code block. */
- codeIdx = 0;
- return TK_CLEARCODE;
-}
- YY_BREAK
-case 95:
-YY_RULE_SETUP
-#line 300 "lexer.l"
-{ /* The start of a read buffer code block. */
- codeIdx = 0;
- return TK_READBUFFERCODE;
-}
- YY_BREAK
-case 96:
-YY_RULE_SETUP
-#line 305 "lexer.l"
-{ /* The start of a write buffer code block. */
- codeIdx = 0;
- return TK_WRITEBUFFERCODE;
-}
- YY_BREAK
-case 97:
-YY_RULE_SETUP
-#line 310 "lexer.l"
-{ /* The start of a segment count code block. */
- codeIdx = 0;
- return TK_SEGCOUNTCODE;
-}
- YY_BREAK
-case 98:
-YY_RULE_SETUP
-#line 315 "lexer.l"
-{ /* The start of a char buffer code block. */
- codeIdx = 0;
- return TK_CHARBUFFERCODE;
-}
- YY_BREAK
-case 99:
-YY_RULE_SETUP
-#line 320 "lexer.l"
-{ /* The start of a pre-Python code block. */
- codeIdx = 0;
- return TK_PREPYCODE;
-}
- YY_BREAK
-case 100:
-YY_RULE_SETUP
-#line 325 "lexer.l"
-{ /* The start of a raise exception code block. */
- codeIdx = 0;
- return TK_RAISECODE;
-}
- YY_BREAK
-case 101:
-YY_RULE_SETUP
-#line 330 "lexer.l"
-{ /* The start of a documentation block. */
- codeIdx = 0;
- return TK_DOC;
-}
- YY_BREAK
-case 102:
-YY_RULE_SETUP
-#line 335 "lexer.l"
-{ /* The start of an exported documentation block. */
- codeIdx = 0;
- return TK_EXPORTEDDOC;
-}
- YY_BREAK
-case 103:
-YY_RULE_SETUP
-#line 340 "lexer.l"
-{ /* The start of a Makefile code block. */
- codeIdx = 0;
- return TK_MAKEFILE;
-}
- YY_BREAK
-case 104:
-YY_RULE_SETUP
-#line 345 "lexer.l"
-{ /* The start of an access code block. */
- codeIdx = 0;
- return TK_ACCESSCODE;
-}
- YY_BREAK
-case 105:
-YY_RULE_SETUP
-#line 350 "lexer.l"
-{ /* The start of a get code block. */
- codeIdx = 0;
- return TK_GETCODE;
-}
- YY_BREAK
-case 106:
-YY_RULE_SETUP
-#line 355 "lexer.l"
-{ /* The start of a set code block. */
- codeIdx = 0;
- return TK_SETCODE;
-}
- YY_BREAK
-case 107:
-YY_RULE_SETUP
-#line 360 "lexer.l"
-{ /* The end of a code block. */
- BEGIN INITIAL;
- codeIdx = -1;
- return TK_END;
-}
- YY_BREAK
-case 108:
-/* rule 108 can match eol */
-YY_RULE_SETUP
-#line 366 "lexer.l"
-{ /* The end of a code line . */
- struct inputFile *ifp;
-
- codeLine[codeIdx] = '\n';
- codeLine[codeIdx + 1] = '\0';
- codeIdx = 0;
-
- ifp = &inputFileStack[currentFile];
-
- yylval.codeb = sipMalloc(sizeof (codeBlock));
-
- yylval.codeb -> frag = sipStrdup(codeLine);
- yylval.codeb -> linenr = ifp -> lineno++;
- yylval.codeb -> filename = sipStrdup(ifp -> name);
- yylval.codeb -> next = NULL;
-
- return TK_CODELINE;
-}
- YY_BREAK
-case 109:
-YY_RULE_SETUP
-#line 385 "lexer.l"
-{ /* The contents of a code line. */
- if (codeIdx == MAX_CODE_LINE_LENGTH)
- fatallex("Line is too long");
-
- codeLine[codeIdx++] = yytext[0];
-}
- YY_BREAK
-case 110:
-YY_RULE_SETUP
-#line 392 "lexer.l"
-{ /* Anything else is returned as is. */
- return yytext[0];
-}
- YY_BREAK
-case 111:
-YY_RULE_SETUP
-#line 396 "lexer.l"
-ECHO;
- YY_BREAK
-#line 2092 "lexer.c.tmp"
-case YY_STATE_EOF(INITIAL):
-case YY_STATE_EOF(code):
-case YY_STATE_EOF(ccomment):
- yyterminate();
-
- case YY_END_OF_BUFFER:
- {
- /* Amount of text matched not including the EOB char. */
- int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
-
- /* Undo the effects of YY_DO_BEFORE_ACTION. */
- *yy_cp = (yy_hold_char);
- YY_RESTORE_YY_MORE_OFFSET
-
- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
- {
- /* We're scanning a new file or input source. It's
- * possible that this happened because the user
- * just pointed yyin at a new source and called
- * yylex(). If so, then we have to assure
- * consistency between YY_CURRENT_BUFFER and our
- * globals. Here is the right place to do so, because
- * this is the first action (other than possibly a
- * back-up) that will match for the new input source.
- */
- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
- YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
- }
-
- /* Note that here we test for yy_c_buf_p "<=" to the position
- * of the first EOB in the buffer, since yy_c_buf_p will
- * already have been incremented past the NUL character
- * (since all states make transitions on EOB to the
- * end-of-buffer state). Contrast this with the test
- * in input().
- */
- if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
- { /* This was really a NUL. */
- yy_state_type yy_next_state;
-
- (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
-
- yy_current_state = yy_get_previous_state( );
-
- /* Okay, we're now positioned to make the NUL
- * transition. We couldn't have
- * yy_get_previous_state() go ahead and do it
- * for us because it doesn't know how to deal
- * with the possibility of jamming (and we don't
- * want to build jamming into it because then it
- * will run more slowly).
- */
-
- yy_next_state = yy_try_NUL_trans( yy_current_state );
-
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-
- if ( yy_next_state )
- {
- /* Consume the NUL. */
- yy_cp = ++(yy_c_buf_p);
- yy_current_state = yy_next_state;
- goto yy_match;
- }
-
- else
- {
- yy_cp = (yy_c_buf_p);
- goto yy_find_action;
- }
- }
-
- else switch ( yy_get_next_buffer( ) )
- {
- case EOB_ACT_END_OF_FILE:
- {
- (yy_did_buffer_switch_on_eof) = 0;
-
- if ( yywrap( ) )
- {
- /* Note: because we've taken care in
- * yy_get_next_buffer() to have set up
- * yytext, we can now set up
- * yy_c_buf_p so that if some total
- * hoser (like flex itself) wants to
- * call the scanner after we return the
- * YY_NULL, it'll still work - another
- * YY_NULL will get returned.
- */
- (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
-
- yy_act = YY_STATE_EOF(YY_START);
- goto do_action;
- }
-
- else
- {
- if ( ! (yy_did_buffer_switch_on_eof) )
- YY_NEW_FILE;
- }
- break;
- }
-
- case EOB_ACT_CONTINUE_SCAN:
- (yy_c_buf_p) =
- (yytext_ptr) + yy_amount_of_matched_text;
-
- yy_current_state = yy_get_previous_state( );
-
- yy_cp = (yy_c_buf_p);
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
- goto yy_match;
-
- case EOB_ACT_LAST_MATCH:
- (yy_c_buf_p) =
- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
-
- yy_current_state = yy_get_previous_state( );
-
- yy_cp = (yy_c_buf_p);
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
- goto yy_find_action;
- }
- break;
- }
-
- default:
- YY_FATAL_ERROR(
- "fatal flex scanner internal error--no action found" );
- } /* end of action switch */
- } /* end of scanning one token */
-} /* end of yylex */
-
-/* yy_get_next_buffer - try to read in a new buffer
- *
- * Returns a code representing an action:
- * EOB_ACT_LAST_MATCH -
- * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
- * EOB_ACT_END_OF_FILE - end of file
- */
-static int yy_get_next_buffer (void)
-{
- register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
- register char *source = (yytext_ptr);
- register int number_to_move, i;
- int ret_val;
-
- if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
- YY_FATAL_ERROR(
- "fatal flex scanner internal error--end of buffer missed" );
-
- if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
- { /* Don't try to fill the buffer, so this is an EOF. */
- if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
- {
- /* We matched a single character, the EOB, so
- * treat this as a final EOF.
- */
- return EOB_ACT_END_OF_FILE;
- }
-
- else
- {
- /* We matched some text prior to the EOB, first
- * process it.
- */
- return EOB_ACT_LAST_MATCH;
- }
- }
-
- /* Try to read more data. */
-
- /* First move last chars to start of buffer. */
- number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
-
- for ( i = 0; i < number_to_move; ++i )
- *(dest++) = *(source++);
-
- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
- /* don't do the read, it's not guaranteed to return an EOF,
- * just force an EOF
- */
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
-
- else
- {
- int num_to_read =
- YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
-
- while ( num_to_read <= 0 )
- { /* Not enough room in the buffer - grow it. */
-
- /* just a shorter name for the current buffer */
- YY_BUFFER_STATE b = YY_CURRENT_BUFFER;
-
- int yy_c_buf_p_offset =
- (int) ((yy_c_buf_p) - b->yy_ch_buf);
-
- if ( b->yy_is_our_buffer )
- {
- int new_size = b->yy_buf_size * 2;
-
- if ( new_size <= 0 )
- b->yy_buf_size += b->yy_buf_size / 8;
- else
- b->yy_buf_size *= 2;
-
- b->yy_ch_buf = (char *)
- /* Include room in for 2 EOB chars. */
- yyrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 );
- }
- else
- /* Can't grow it, we don't own it. */
- b->yy_ch_buf = 0;
-
- if ( ! b->yy_ch_buf )
- YY_FATAL_ERROR(
- "fatal error - scanner input buffer overflow" );
-
- (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
-
- num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
- number_to_move - 1;
-
- }
-
- if ( num_to_read > YY_READ_BUF_SIZE )
- num_to_read = YY_READ_BUF_SIZE;
-
- /* Read in more data. */
- YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
- (yy_n_chars), num_to_read );
-
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
- }
-
- if ( (yy_n_chars) == 0 )
- {
- if ( number_to_move == YY_MORE_ADJ )
- {
- ret_val = EOB_ACT_END_OF_FILE;
- yyrestart(yyin );
- }
-
- else
- {
- ret_val = EOB_ACT_LAST_MATCH;
- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
- YY_BUFFER_EOF_PENDING;
- }
- }
-
- else
- ret_val = EOB_ACT_CONTINUE_SCAN;
-
- (yy_n_chars) += number_to_move;
- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
-
- (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
-
- return ret_val;
-}
-
-/* yy_get_previous_state - get the state just before the EOB char was reached */
-
- static yy_state_type yy_get_previous_state (void)
-{
- register yy_state_type yy_current_state;
- register char *yy_cp;
-
- yy_current_state = (yy_start);
- yy_current_state += YY_AT_BOL();
-
- for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
- {
- register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
- if ( yy_accept[yy_current_state] )
- {
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 735 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
- }
-
- return yy_current_state;
-}
-
-/* yy_try_NUL_trans - try to make a transition on the NUL character
- *
- * synopsis
- * next_state = yy_try_NUL_trans( current_state );
- */
- static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
-{
- register int yy_is_jam;
- register char *yy_cp = (yy_c_buf_p);
-
- register YY_CHAR yy_c = 1;
- if ( yy_accept[yy_current_state] )
- {
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
- }
- while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
- {
- yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 735 )
- yy_c = yy_meta[(unsigned int) yy_c];
- }
- yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
- yy_is_jam = (yy_current_state == 734);
-
- return yy_is_jam ? 0 : yy_current_state;
-}
-
- static void yyunput (int c, register char * yy_bp )
-{
- register char *yy_cp;
-
- yy_cp = (yy_c_buf_p);
-
- /* undo effects of setting up yytext */
- *yy_cp = (yy_hold_char);
-
- if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
- { /* need to shift things up to make room */
- /* +2 for EOB chars. */
- register int number_to_move = (yy_n_chars) + 2;
- register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
- YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
- register char *source =
- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
-
- while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
- *--dest = *--source;
-
- yy_cp += (int) (dest - source);
- yy_bp += (int) (dest - source);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
-
- if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
- YY_FATAL_ERROR( "flex scanner push-back overflow" );
- }
-
- *--yy_cp = (char) c;
-
- (yytext_ptr) = yy_bp;
- (yy_hold_char) = *yy_cp;
- (yy_c_buf_p) = yy_cp;
-}
-
-#ifndef YY_NO_INPUT
-#ifdef __cplusplus
- static int yyinput (void)
-#else
- static int input (void)
-#endif
-
-{
- int c;
-
- *(yy_c_buf_p) = (yy_hold_char);
-
- if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
- {
- /* yy_c_buf_p now points to the character we want to return.
- * If this occurs *before* the EOB characters, then it's a
- * valid NUL; if not, then we've hit the end of the buffer.
- */
- if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
- /* This was really a NUL. */
- *(yy_c_buf_p) = '\0';
-
- else
- { /* need more input */
- int offset = (yy_c_buf_p) - (yytext_ptr);
- ++(yy_c_buf_p);
-
- switch ( yy_get_next_buffer( ) )
- {
- case EOB_ACT_LAST_MATCH:
- /* This happens because yy_g_n_b()
- * sees that we've accumulated a
- * token and flags that we need to
- * try matching the token before
- * proceeding. But for input(),
- * there's no matching to consider.
- * So convert the EOB_ACT_LAST_MATCH
- * to EOB_ACT_END_OF_FILE.
- */
-
- /* Reset buffer status. */
- yyrestart(yyin );
-
- /*FALLTHROUGH*/
-
- case EOB_ACT_END_OF_FILE:
- {
- if ( yywrap( ) )
- return EOF;
-
- if ( ! (yy_did_buffer_switch_on_eof) )
- YY_NEW_FILE;
-#ifdef __cplusplus
- return yyinput();
-#else
- return input();
-#endif
- }
-
- case EOB_ACT_CONTINUE_SCAN:
- (yy_c_buf_p) = (yytext_ptr) + offset;
- break;
- }
- }
- }
-
- c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
- *(yy_c_buf_p) = '\0'; /* preserve yytext */
- (yy_hold_char) = *++(yy_c_buf_p);
-
- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
-
- return c;
-}
-#endif /* ifndef YY_NO_INPUT */
-
-/** Immediately switch to a different input stream.
- * @param input_file A readable stream.
- *
- * @note This function does not reset the start condition to @c INITIAL .
- */
- void yyrestart (FILE * input_file )
-{
-
- if ( ! YY_CURRENT_BUFFER ){
- yyensure_buffer_stack ();
- YY_CURRENT_BUFFER_LVALUE =
- yy_create_buffer(yyin,YY_BUF_SIZE );
- }
-
- yy_init_buffer(YY_CURRENT_BUFFER,input_file );
- yy_load_buffer_state( );
-}
-
-/** Switch to a different input buffer.
- * @param new_buffer The new input buffer.
- *
- */
- void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer )
-{
-
- /* TODO. We should be able to replace this entire function body
- * with
- * yypop_buffer_state();
- * yypush_buffer_state(new_buffer);
- */
- yyensure_buffer_stack ();
- if ( YY_CURRENT_BUFFER == new_buffer )
- return;
-
- if ( YY_CURRENT_BUFFER )
- {
- /* Flush out information for old buffer. */
- *(yy_c_buf_p) = (yy_hold_char);
- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
- }
-
- YY_CURRENT_BUFFER_LVALUE = new_buffer;
- yy_load_buffer_state( );
-
- /* We don't actually know whether we did this switch during
- * EOF (yywrap()) processing, but the only time this flag
- * is looked at is after yywrap() is called, so it's safe
- * to go ahead and always set it.
- */
- (yy_did_buffer_switch_on_eof) = 1;
-}
-
-static void yy_load_buffer_state (void)
-{
- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
- (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
- yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
- (yy_hold_char) = *(yy_c_buf_p);
-}
-
-/** Allocate and initialize an input buffer state.
- * @param file A readable stream.
- * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
- *
- * @return the allocated buffer state.
- */
- YY_BUFFER_STATE yy_create_buffer (FILE * file, int size )
-{
- YY_BUFFER_STATE b;
-
- b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
- if ( ! b )
- YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-
- b->yy_buf_size = size;
-
- /* yy_ch_buf has to be 2 characters longer than the size given because
- * we need to put in 2 end-of-buffer characters.
- */
- b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 );
- if ( ! b->yy_ch_buf )
- YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-
- b->yy_is_our_buffer = 1;
-
- yy_init_buffer(b,file );
-
- return b;
-}
-
-/** Destroy the buffer.
- * @param b a buffer created with yy_create_buffer()
- *
- */
- void yy_delete_buffer (YY_BUFFER_STATE b )
-{
-
- if ( ! b )
- return;
-
- if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
- YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
-
- if ( b->yy_is_our_buffer )
- yyfree((void *) b->yy_ch_buf );
-
- yyfree((void *) b );
-}
-
-#ifndef _UNISTD_H /* assume unistd.h has isatty() for us */
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifdef __THROW /* this is a gnuism */
-extern int isatty (int ) __THROW;
-#else
-extern int isatty (int );
-#endif
-#ifdef __cplusplus
-}
-#endif
-#endif
-
-/* Initializes or reinitializes a buffer.
- * This function is sometimes called more than once on the same buffer,
- * such as during a yyrestart() or at EOF.
- */
- static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file )
-
-{
- int oerrno = errno;
-
- yy_flush_buffer(b );
-
- b->yy_input_file = file;
- b->yy_fill_buffer = 1;
-
- /* If b is the current buffer, then yy_init_buffer was _probably_
- * called from yyrestart() or through yy_get_next_buffer.
- * In that case, we don't want to reset the lineno or column.
- */
- if (b != YY_CURRENT_BUFFER){
- b->yy_bs_lineno = 1;
- b->yy_bs_column = 0;
- }
-
- b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
-
- errno = oerrno;
-}
-
-/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
- * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
- *
- */
- void yy_flush_buffer (YY_BUFFER_STATE b )
-{
- if ( ! b )
- return;
-
- b->yy_n_chars = 0;
-
- /* We always need two end-of-buffer characters. The first causes
- * a transition to the end-of-buffer state. The second causes
- * a jam in that state.
- */
- b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
- b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
-
- b->yy_buf_pos = &b->yy_ch_buf[0];
-
- b->yy_at_bol = 1;
- b->yy_buffer_status = YY_BUFFER_NEW;
-
- if ( b == YY_CURRENT_BUFFER )
- yy_load_buffer_state( );
-}
-
-/** Pushes the new state onto the stack. The new state becomes
- * the current state. This function will allocate the stack
- * if necessary.
- * @param new_buffer The new state.
- *
- */
-void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
-{
- if (new_buffer == NULL)
- return;
-
- yyensure_buffer_stack();
-
- /* This block is copied from yy_switch_to_buffer. */
- if ( YY_CURRENT_BUFFER )
- {
- /* Flush out information for old buffer. */
- *(yy_c_buf_p) = (yy_hold_char);
- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
- }
-
- /* Only push if top exists. Otherwise, replace top. */
- if (YY_CURRENT_BUFFER)
- (yy_buffer_stack_top)++;
- YY_CURRENT_BUFFER_LVALUE = new_buffer;
-
- /* copied from yy_switch_to_buffer. */
- yy_load_buffer_state( );
- (yy_did_buffer_switch_on_eof) = 1;
-}
-
-/** Removes and deletes the top of the stack, if present.
- * The next element becomes the new top.
- *
- */
-void yypop_buffer_state (void)
-{
- if (!YY_CURRENT_BUFFER)
- return;
-
- yy_delete_buffer(YY_CURRENT_BUFFER );
- YY_CURRENT_BUFFER_LVALUE = NULL;
- if ((yy_buffer_stack_top) > 0)
- --(yy_buffer_stack_top);
-
- if (YY_CURRENT_BUFFER) {
- yy_load_buffer_state( );
- (yy_did_buffer_switch_on_eof) = 1;
- }
-}
-
-/* Allocates the stack if it does not exist.
- * Guarantees space for at least one push.
- */
-static void yyensure_buffer_stack (void)
-{
- int num_to_alloc;
-
- if (!(yy_buffer_stack)) {
-
- /* First allocation is just for 2 elements, since we don't know if this
- * scanner will even need a stack. We use 2 instead of 1 to avoid an
- * immediate realloc on the next call.
- */
- num_to_alloc = 1;
- (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
- (num_to_alloc * sizeof(struct yy_buffer_state*)
- );
-
- memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
-
- (yy_buffer_stack_max) = num_to_alloc;
- (yy_buffer_stack_top) = 0;
- return;
- }
-
- if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
-
- /* Increase the buffer to prepare for a possible push. */
- int grow_size = 8 /* arbitrary grow size */;
-
- num_to_alloc = (yy_buffer_stack_max) + grow_size;
- (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
- ((yy_buffer_stack),
- num_to_alloc * sizeof(struct yy_buffer_state*)
- );
-
- /* zero only the new slots.*/
- memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
- (yy_buffer_stack_max) = num_to_alloc;
- }
-}
-
-/** Setup the input buffer state to scan directly from a user-specified character buffer.
- * @param base the character buffer
- * @param size the size in bytes of the character buffer
- *
- * @return the newly allocated buffer state object.
- */
-YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size )
-{
- YY_BUFFER_STATE b;
-
- if ( size < 2 ||
- base[size-2] != YY_END_OF_BUFFER_CHAR ||
- base[size-1] != YY_END_OF_BUFFER_CHAR )
- /* They forgot to leave room for the EOB's. */
- return 0;
-
- b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
- if ( ! b )
- YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
-
- b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
- b->yy_buf_pos = b->yy_ch_buf = base;
- b->yy_is_our_buffer = 0;
- b->yy_input_file = 0;
- b->yy_n_chars = b->yy_buf_size;
- b->yy_is_interactive = 0;
- b->yy_at_bol = 1;
- b->yy_fill_buffer = 0;
- b->yy_buffer_status = YY_BUFFER_NEW;
-
- yy_switch_to_buffer(b );
-
- return b;
-}
-
-/** Setup the input buffer state to scan a string. The next call to yylex() will
- * scan from a @e copy of @a str.
- * @param str a NUL-terminated string to scan
- *
- * @return the newly allocated buffer state object.
- * @note If you want to scan bytes that may contain NUL values, then use
- * yy_scan_bytes() instead.
- */
-YY_BUFFER_STATE yy_scan_string (yyconst char * yystr )
-{
-
- return yy_scan_bytes(yystr,strlen(yystr) );
-}
-
-/** Setup the input buffer state to scan the given bytes. The next call to yylex() will
- * scan from a @e copy of @a bytes.
- * @param bytes the byte buffer to scan
- * @param len the number of bytes in the buffer pointed to by @a bytes.
- *
- * @return the newly allocated buffer state object.
- */
-YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, int _yybytes_len )
-{
- YY_BUFFER_STATE b;
- char *buf;
- yy_size_t n;
- int i;
-
- /* Get memory for full buffer, including space for trailing EOB's. */
- n = _yybytes_len + 2;
- buf = (char *) yyalloc(n );
- if ( ! buf )
- YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
-
- for ( i = 0; i < _yybytes_len; ++i )
- buf[i] = yybytes[i];
-
- buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
-
- b = yy_scan_buffer(buf,n );
- if ( ! b )
- YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
-
- /* It's okay to grow etc. this buffer, and we should throw it
- * away when we're done.
- */
- b->yy_is_our_buffer = 1;
-
- return b;
-}
-
-#ifndef YY_EXIT_FAILURE
-#define YY_EXIT_FAILURE 2
-#endif
-
-static void yy_fatal_error (yyconst char* msg )
-{
- (void) fprintf( stderr, "%s\n", msg );
- exit( YY_EXIT_FAILURE );
-}
-
-/* Redefine yyless() so it works in section 3 code. */
-
-#undef yyless
-#define yyless(n) \
- do \
- { \
- /* Undo effects of setting up yytext. */ \
- int yyless_macro_arg = (n); \
- YY_LESS_LINENO(yyless_macro_arg);\
- yytext[yyleng] = (yy_hold_char); \
- (yy_c_buf_p) = yytext + yyless_macro_arg; \
- (yy_hold_char) = *(yy_c_buf_p); \
- *(yy_c_buf_p) = '\0'; \
- yyleng = yyless_macro_arg; \
- } \
- while ( 0 )
-
-/* Accessor methods (get/set functions) to struct members. */
-
-/** Get the current line number.
- *
- */
-int yyget_lineno (void)
-{
-
- return yylineno;
-}
-
-/** Get the input stream.
- *
- */
-FILE *yyget_in (void)
-{
- return yyin;
-}
-
-/** Get the output stream.
- *
- */
-FILE *yyget_out (void)
-{
- return yyout;
-}
-
-/** Get the length of the current token.
- *
- */
-int yyget_leng (void)
-{
- return yyleng;
-}
-
-/** Get the current token.
- *
- */
-
-char *yyget_text (void)
-{
- return yytext;
-}
-
-/** Set the current line number.
- * @param line_number
- *
- */
-void yyset_lineno (int line_number )
-{
-
- yylineno = line_number;
-}
-
-/** Set the input stream. This does not discard the current
- * input buffer.
- * @param in_str A readable stream.
- *
- * @see yy_switch_to_buffer
- */
-void yyset_in (FILE * in_str )
-{
- yyin = in_str ;
-}
-
-void yyset_out (FILE * out_str )
-{
- yyout = out_str ;
-}
-
-int yyget_debug (void)
-{
- return yy_flex_debug;
-}
-
-void yyset_debug (int bdebug )
-{
- yy_flex_debug = bdebug ;
-}
-
-static int yy_init_globals (void)
-{
- /* Initialization is the same as for the non-reentrant scanner.
- * This function is called from yylex_destroy(), so don't allocate here.
- */
-
- (yy_buffer_stack) = 0;
- (yy_buffer_stack_top) = 0;
- (yy_buffer_stack_max) = 0;
- (yy_c_buf_p) = (char *) 0;
- (yy_init) = 0;
- (yy_start) = 0;
-
-/* Defined in main.c */
-#ifdef YY_STDINIT
- yyin = stdin;
- yyout = stdout;
-#else
- yyin = (FILE *) 0;
- yyout = (FILE *) 0;
-#endif
-
- /* For future reference: Set errno on error, since we are called by
- * yylex_init()
- */
- return 0;
-}
-
-/* yylex_destroy is for both reentrant and non-reentrant scanners. */
-int yylex_destroy (void)
-{
-
- /* Pop the buffer stack, destroying each element. */
- while(YY_CURRENT_BUFFER){
- yy_delete_buffer(YY_CURRENT_BUFFER );
- YY_CURRENT_BUFFER_LVALUE = NULL;
- yypop_buffer_state();
- }
-
- /* Destroy the stack itself. */
- yyfree((yy_buffer_stack) );
- (yy_buffer_stack) = NULL;
-
- /* Reset the globals. This is important in a non-reentrant scanner so the next time
- * yylex() is called, initialization will occur. */
- yy_init_globals( );
-
- return 0;
-}
-
-/*
- * Internal utility routines.
- */
-
-#ifndef yytext_ptr
-static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
-{
- register int i;
- for ( i = 0; i < n; ++i )
- s1[i] = s2[i];
-}
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * s )
-{
- register int n;
- for ( n = 0; s[n]; ++n )
- ;
-
- return n;
-}
-#endif
-
-void *yyalloc (yy_size_t size )
-{
- return (void *) malloc( size );
-}
-
-void *yyrealloc (void * ptr, yy_size_t size )
-{
- /* The cast to (char *) in the following accommodates both
- * implementations that use char* generic pointers, and those
- * that use void* generic pointers. It works with the latter
- * because both ANSI C and C++ allow castless assignment from
- * any pointer type to void*, and deal with argument conversions
- * as though doing an assignment.
- */
- return (void *) realloc( (char *) ptr, size );
-}
-
-void yyfree (void * ptr )
-{
- free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
-}
-
-#define YYTABLES_NAME "yytables"
-
-#line 396 "lexer.l"
-
-
-
-/*
- * Hook into EOF handling. Return 0 if there is more to process.
- */
-
-int yywrap()
-{
- char *cwd;
- struct inputFile *ifp;
-
- if ((cwd = inputFileStack[currentFile].cwd) != NULL)
- free(cwd);
-
- ifp = &inputFileStack[currentFile--];
-
- /* Tell the parser if this is the end of a file. */
-
- parserEOF(ifp -> name,&ifp -> pc);
-
- /* Tidy up this file. */
-
- fclose(yyin);
- free(ifp -> name);
-
- /* See if this was the original file. */
-
- if (currentFile < 0)
- return 1;
-
- yy_delete_buffer(YY_CURRENT_BUFFER);
- yy_switch_to_buffer(ifp -> bs);
-
- return 0;
-}
-
-
-/*
- * Set up an input file to be read by the lexer, opening it if necessary.
- */
-void setInputFile(FILE *fp,char *name,parserContext *pc,int optional)
-{
- char *fullname = NULL;
-
- if (currentFile >= MAX_INCLUDE_DEPTH - 1)
- fatal("Too many nested %%Include, %%OptionalInclude or %%Import statements\n");
-
- if (fp != NULL || (fp = openFile(name)) != NULL)
- fullname = sipStrdup(name);
- else
- {
- char *cwd;
-
- /* Try the directory that contains the current file. */
- if (currentFile >= 0 && (cwd = inputFileStack[currentFile].cwd) != NULL)
- {
- fullname = concat(cwd,"/",name,NULL);
-
- if ((fp = openFile(fullname)) == NULL)
- {
- free(fullname);
- fullname = NULL;
- }
- }
- }
-
- /* Try the include path if we haven't found anything yet. */
- if (fullname == NULL)
- {
- stringList *sl;
-
- fullname = NULL;
-
- for (sl = includeDirList; sl != NULL; sl = sl -> next)
- {
- if (fullname != NULL)
- free(fullname);
-
- fullname = concat(sl -> s,"/",name,NULL);
-
- if ((fp = openFile(fullname)) != NULL)
- break;
- }
-
- if (fp == NULL && !optional)
- fatal("Unable to find file \"%s\"\n",name);
- }
-
- if (fp != NULL)
- {
- char *cwd;
-
- yyin = fp;
-
- ++currentFile;
-
- /*
- * Remember the directory containing the new file and make it
- * "current".
- */
- if ((cwd = strchr(fullname,'/')) != NULL)
- {
- cwd = sipStrdup(fullname);
- *strrchr(cwd,'/') = '\0';
- }
-
- inputFileStack[currentFile].lineno = 1;
- inputFileStack[currentFile].name = fullname;
- inputFileStack[currentFile].pc = *pc;
- inputFileStack[currentFile].cwd = cwd;
-
- if (currentFile > 0)
- {
- inputFileStack[currentFile].bs = YY_CURRENT_BUFFER;
- yy_switch_to_buffer(yy_create_buffer(yyin,YY_BUF_SIZE));
- }
- }
-}
-
-
-/*
- * Open a file for reading or return NULL if it doesn't exist. Any other error
- * is fatal.
- */
-static FILE *openFile(char *name)
-{
- FILE *fp;
-
- if ((fp = fopen(name,"r")) == NULL && errno != ENOENT)
- fatal("Error in opening file %s\n",name);
-
- return fp;
-}
-
-
-/*
- * Handle fatal yacc errors.
- */
-void yyerror(char *s)
-{
- if (currentFile < 0)
- fatal("%s\n", s);
-
- fatal("%s:%d: %s\n",
- inputFileStack[currentFile].name,
- inputFileStack[currentFile].lineno,
- s);
-}
-
-
-/*
- * Handle warnings while parsing.
- */
-void yywarning(char *s)
-{
- warning("%s:%d: %s\n",
- inputFileStack[currentFile].name,
- inputFileStack[currentFile].lineno,
- s);
-}
-
-
-/*
- * Handle fatal lex errors.
- */
-static void fatallex(char *s)
-{
- fatal("%s:%d: Lexical analyser error: %s\n",
- inputFileStack[currentFile].name,
- inputFileStack[currentFile].lineno,
- s);
-}
-
diff --git a/python/sip/sipgen/lexer.l b/python/sip/sipgen/lexer.l
deleted file mode 100644
index ef234193..00000000
--- a/python/sip/sipgen/lexer.l
+++ /dev/null
@@ -1,567 +0,0 @@
-/*
- * The SIP lexer.
- *
- * Copyright (c) 2007
- * Riverbank Computing Limited <info@riverbankcomputing.co.uk>
- *
- * This file is part of SIP.
- *
- * This copy of SIP is licensed for use under the terms of the SIP License
- * Agreement. See the file LICENSE for more details.
- *
- * SIP is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- */
-
-%{
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <errno.h>
-
-#include "sip.h"
-#include "parser.h"
-
-
-#ifndef FLEX_SCANNER
-#error "Only flex is supported at the moment"
-#endif
-
-
-#define YY_FATAL_ERROR(s) fatallex(s)
-
-#define MAX_INCLUDE_DEPTH 10
-#define MAX_CODE_LINE_LENGTH 1000
-
-
-static struct inputFile {
- int lineno; /* The line number. */
- YY_BUFFER_STATE bs; /* The flex buffer state handle. */
- char *name; /* The file name. */
- char *cwd; /* The path part of the file name. */
- parserContext pc; /* The parser context. */
-} inputFileStack[MAX_INCLUDE_DEPTH];
-
-static int currentFile = -1; /* Index of the current input file. */
-static char codeLine[MAX_CODE_LINE_LENGTH + 2]; /* The current code line. */
-static int codeIdx = -1; /* Index of next code character. */
-
-static FILE *openFile(char *);
-static void fatallex(char *);
-%}
-
-%x code
-%x ccomment
-
-%%
-
-^[ \t]*%SIPOptions {return TK_OPTIONS;}
-^[ \t]*%SIPNoEmitters {return TK_NOEMITTERS;}
-^[ \t]*%Include {return TK_INCLUDE;}
-^[ \t]*%OptionalInclude {return TK_OPTINCLUDE;}
-^[ \t]*%Import {return TK_IMPORT;}
-^[ \t]*%Module {return TK_MODULE;}
-^[ \t]*%CModule {return TK_CMODULE;}
-^[ \t]*%Timeline {return TK_TIMELINE;}
-^[ \t]*%Platforms {return TK_PLATFORMS;}
-^[ \t]*%Feature {return TK_FEATURE;}
-^[ \t]*%License {return TK_LICENSE;}
-^[ \t]*%MappedType {return TK_MAPPEDTYPE;}
-^[ \t]*%Exception {return TK_EXCEPTION;}
-^[ \t]*%If {return TK_IF;}
-<INITIAL>^[ \t]*%End {return TK_END;}
-class {return TK_CLASS;}
-struct {return TK_STRUCT;}
-public {return TK_PUBLIC;}
-protected {return TK_PROTECTED;}
-private {return TK_PRIVATE;}
-signals {return TK_SIGNALS;}
-slots {return TK_SLOTS;}
-char {return TK_CHAR;}
-wchar_t {return TK_WCHAR_T;}
-bool {return TK_BOOL;}
-short {return TK_SHORT;}
-int {return TK_INT;}
-long {return TK_LONG;}
-float {return TK_FLOAT;}
-double {return TK_DOUBLE;}
-void {return TK_VOID;}
-virtual {return TK_VIRTUAL;}
-enum {return TK_ENUM;}
-signed {return TK_SIGNED;}
-unsigned {return TK_UNSIGNED;}
-const {return TK_CONST;}
-static {return TK_STATIC;}
-true {return TK_TRUE;}
-false {return TK_FALSE;}
-NULL {return TK_NULL;}
-typedef {return TK_TYPEDEF;}
-namespace {return TK_NAMESPACE;}
-operator {return TK_OPERATOR;}
-throw {return TK_THROW;}
-explicit {return TK_EXPLICIT;}
-template {return TK_TEMPLATE;}
-:: {return TK_SCOPE;}
-\|\| {return TK_LOGICAL_OR;}
-SIP_PYOBJECT {return TK_PYOBJECT;}
-SIP_PYTUPLE {return TK_PYTUPLE;}
-SIP_PYLIST {return TK_PYLIST;}
-SIP_PYDICT {return TK_PYDICT;}
-SIP_PYCALLABLE {return TK_PYCALLABLE;}
-SIP_PYSLICE {return TK_PYSLICE;}
-SIP_PYTYPE {return TK_PYTYPE;}
-SIP_SIGNAL {return TK_SIPSIGNAL;}
-SIP_SLOT {return TK_SIPSLOT;}
-SIP_ANYSLOT {return TK_SIPANYSLOT;}
-SIP_RXOBJ_CON {return TK_SIPRXCON;}
-SIP_RXOBJ_DIS {return TK_SIPRXDIS;}
-SIP_SLOT_CON {return TK_SIPSLOTCON;}
-SIP_SLOT_DIS {return TK_SIPSLOTDIS;}
-SIP_QOBJECT {return TK_QOBJECT;}
-\.\.\. {return TK_ELLIPSIS;}
-
-
-[ \t\r] { /* Ignore whitespace. */
- ;
-}
-
-\n { /* Maintain the line number. */
- ++inputFileStack[currentFile].lineno;
-
- if (codeIdx == 0)
- {
- BEGIN code;
- }
-}
-
-\/\/.* { /* Ignore C++ style comments. */
- ;
-}
-
-
--?[0-9]+ { /* A signed decimal number. */
- yylval.number = strtol(yytext,NULL,0);
- return TK_NUMBER;
-}
-
-
--?(([0-9]+)|([0-9]*\.[0-9]+)([eE][-+]?[0-9]+)?) {/* A floating point number. */
- yylval.real = strtod(yytext,NULL);
- return TK_REAL;
-}
-
-
-0x[0-9a-fA-F]+ { /* An unsigned hexadecimal number. */
- yylval.number = strtol(yytext,NULL,16);
- return TK_NUMBER;
-}
-
-
-[_A-Za-z][_A-Za-z0-9]* { /* An identifier name. */
- yylval.text = sipStrdup(yytext);
- return TK_NAME;
-}
-
-
-[._A-Za-z][._/A-Za-z0-9\-]*[._A-Za-z0-9] { /* A relative pathname. */
- yylval.text = sipStrdup(yytext);
- return TK_PATHNAME;
-}
-
-
-\"[^"\n]*["\n] { /* A double-quoted string. */
- char *dp, *sp;
-
- /* Copy the string without the quotes. */
-
- yylval.text = sipMalloc(strlen(yytext) + 1);
-
- dp = yylval.text;
- sp = yytext;
-
- while (*sp != '\0')
- {
- if (*sp != '"')
- *dp++ = *sp;
-
- ++sp;
- }
-
- *dp = '\0';
-
- return TK_STRING;
-}
-
-
-\'[^'\n]*['\n] { /* A single-quoted character. */
- if (strlen(yytext) != 3)
- fatallex("Exactly one character expected between single quotes");
-
- yylval.qchar = yytext[1];
-
- return TK_QCHAR;
-}
-
-
-\/\* { /* Ignore C-style comments. */
- BEGIN ccomment;
-}
-<ccomment>\n {
- ++inputFileStack[currentFile].lineno;
-}
-<ccomment>\*\/ {
- BEGIN INITIAL;
-}
-<ccomment>. {
- ;
-}
-
-
-^%Copying { /* The software license. */
- codeIdx = 0;
- return TK_COPYING;
-}
-
-^%ConvertFromTypeCode { /* The start of a from-type code block. */
- codeIdx = 0;
- return TK_FROMTYPE;
-}
-
-^%ConvertToTypeCode { /* The start of a to-type code block. */
- codeIdx = 0;
- return TK_TOTYPE;
-}
-
-^%ConvertToSubClassCode { /* The start of a to-sub-class code block. */
- codeIdx = 0;
- return TK_TOSUBCLASS;
-}
-
-^%ExportedHeaderCode { /* The start of an exported header code block. */
- codeIdx = 0;
- return TK_EXPHEADERCODE;
-}
-
-^%ModuleHeaderCode { /* The start of a module header code block. */
- codeIdx = 0;
- return TK_MODHEADERCODE;
-}
-
-^%TypeHeaderCode { /* The start of a type header code block. */
- codeIdx = 0;
- return TK_TYPEHEADERCODE;
-}
-
-^%PreInitialisationCode { /* The start of a pre-initialisation code block. */
- codeIdx = 0;
- return TK_PREINITCODE;
-}
-
-^%PostInitialisationCode { /* The start of a post-initialisation code block. */
- codeIdx = 0;
- return TK_POSTINITCODE;
-}
-
-^%UnitCode { /* The start of a unit code block. */
- codeIdx = 0;
- return TK_UNITCODE;
-}
-
-^%ModuleCode { /* The start of a module code block. */
- codeIdx = 0;
- return TK_MODCODE;
-}
-
-^%TypeCode { /* The start of a type code block. */
- codeIdx = 0;
- return TK_TYPECODE;
-}
-
-^%MethodCode { /* The start of a C++ method code block. */
- codeIdx = 0;
- return TK_METHODCODE;
-}
-
-^%VirtualCatcherCode { /* The start of a C++ virtual code block. */
- codeIdx = 0;
- return TK_VIRTUALCATCHERCODE;
-}
-
-^%GCTraverseCode { /* The start of a traverse code block. */
- codeIdx = 0;
- return TK_TRAVERSECODE;
-}
-
-^%GCClearCode { /* The start of a clear code block. */
- codeIdx = 0;
- return TK_CLEARCODE;
-}
-
-^%BIGetReadBufferCode { /* The start of a read buffer code block. */
- codeIdx = 0;
- return TK_READBUFFERCODE;
-}
-
-^%BIGetWriteBufferCode { /* The start of a write buffer code block. */
- codeIdx = 0;
- return TK_WRITEBUFFERCODE;
-}
-
-^%BIGetSegCountCode { /* The start of a segment count code block. */
- codeIdx = 0;
- return TK_SEGCOUNTCODE;
-}
-
-^%BIGetCharBufferCode { /* The start of a char buffer code block. */
- codeIdx = 0;
- return TK_CHARBUFFERCODE;
-}
-
-^%PrePythonCode { /* The start of a pre-Python code block. */
- codeIdx = 0;
- return TK_PREPYCODE;
-}
-
-^%RaiseCode { /* The start of a raise exception code block. */
- codeIdx = 0;
- return TK_RAISECODE;
-}
-
-^%Doc { /* The start of a documentation block. */
- codeIdx = 0;
- return TK_DOC;
-}
-
-^%ExportedDoc { /* The start of an exported documentation block. */
- codeIdx = 0;
- return TK_EXPORTEDDOC;
-}
-
-^%Makefile { /* The start of a Makefile code block. */
- codeIdx = 0;
- return TK_MAKEFILE;
-}
-
-^%AccessCode { /* The start of an access code block. */
- codeIdx = 0;
- return TK_ACCESSCODE;
-}
-
-^%GetCode { /* The start of a get code block. */
- codeIdx = 0;
- return TK_GETCODE;
-}
-
-^%SetCode { /* The start of a set code block. */
- codeIdx = 0;
- return TK_SETCODE;
-}
-
-<code>^%End { /* The end of a code block. */
- BEGIN INITIAL;
- codeIdx = -1;
- return TK_END;
-}
-
-<code>\n { /* The end of a code line . */
- struct inputFile *ifp;
-
- codeLine[codeIdx] = '\n';
- codeLine[codeIdx + 1] = '\0';
- codeIdx = 0;
-
- ifp = &inputFileStack[currentFile];
-
- yylval.codeb = sipMalloc(sizeof (codeBlock));
-
- yylval.codeb -> frag = sipStrdup(codeLine);
- yylval.codeb -> linenr = ifp -> lineno++;
- yylval.codeb -> filename = sipStrdup(ifp -> name);
- yylval.codeb -> next = NULL;
-
- return TK_CODELINE;
-}
-
-<code>. { /* The contents of a code line. */
- if (codeIdx == MAX_CODE_LINE_LENGTH)
- fatallex("Line is too long");
-
- codeLine[codeIdx++] = yytext[0];
-}
-
-. { /* Anything else is returned as is. */
- return yytext[0];
-}
-
-%%
-
-/*
- * Hook into EOF handling. Return 0 if there is more to process.
- */
-
-int yywrap()
-{
- char *cwd;
- struct inputFile *ifp;
-
- if ((cwd = inputFileStack[currentFile].cwd) != NULL)
- free(cwd);
-
- ifp = &inputFileStack[currentFile--];
-
- /* Tell the parser if this is the end of a file. */
-
- parserEOF(ifp -> name,&ifp -> pc);
-
- /* Tidy up this file. */
-
- fclose(yyin);
- free(ifp -> name);
-
- /* See if this was the original file. */
-
- if (currentFile < 0)
- return 1;
-
- yy_delete_buffer(YY_CURRENT_BUFFER);
- yy_switch_to_buffer(ifp -> bs);
-
- return 0;
-}
-
-
-/*
- * Set up an input file to be read by the lexer, opening it if necessary.
- */
-void setInputFile(FILE *fp,char *name,parserContext *pc,int optional)
-{
- char *fullname = NULL;
-
- if (currentFile >= MAX_INCLUDE_DEPTH - 1)
- fatal("Too many nested %%Include, %%OptionalInclude or %%Import statements\n");
-
- if (fp != NULL || (fp = openFile(name)) != NULL)
- fullname = sipStrdup(name);
- else
- {
- char *cwd;
-
- /* Try the directory that contains the current file. */
- if (currentFile >= 0 && (cwd = inputFileStack[currentFile].cwd) != NULL)
- {
- fullname = concat(cwd,"/",name,NULL);
-
- if ((fp = openFile(fullname)) == NULL)
- {
- free(fullname);
- fullname = NULL;
- }
- }
- }
-
- /* Try the include path if we haven't found anything yet. */
- if (fullname == NULL)
- {
- stringList *sl;
-
- fullname = NULL;
-
- for (sl = includeDirList; sl != NULL; sl = sl -> next)
- {
- if (fullname != NULL)
- free(fullname);
-
- fullname = concat(sl -> s,"/",name,NULL);
-
- if ((fp = openFile(fullname)) != NULL)
- break;
- }
-
- if (fp == NULL && !optional)
- fatal("Unable to find file \"%s\"\n",name);
- }
-
- if (fp != NULL)
- {
- char *cwd;
-
- yyin = fp;
-
- ++currentFile;
-
- /*
- * Remember the directory containing the new file and make it
- * "current".
- */
- if ((cwd = strchr(fullname,'/')) != NULL)
- {
- cwd = sipStrdup(fullname);
- *strrchr(cwd,'/') = '\0';
- }
-
- inputFileStack[currentFile].lineno = 1;
- inputFileStack[currentFile].name = fullname;
- inputFileStack[currentFile].pc = *pc;
- inputFileStack[currentFile].cwd = cwd;
-
- if (currentFile > 0)
- {
- inputFileStack[currentFile].bs = YY_CURRENT_BUFFER;
- yy_switch_to_buffer(yy_create_buffer(yyin,YY_BUF_SIZE));
- }
- }
-}
-
-
-/*
- * Open a file for reading or return NULL if it doesn't exist. Any other error
- * is fatal.
- */
-static FILE *openFile(char *name)
-{
- FILE *fp;
-
- if ((fp = fopen(name,"r")) == NULL && errno != ENOENT)
- fatal("Error in opening file %s\n",name);
-
- return fp;
-}
-
-
-/*
- * Handle fatal yacc errors.
- */
-void yyerror(char *s)
-{
- if (currentFile < 0)
- fatal("%s\n", s);
-
- fatal("%s:%d: %s\n",
- inputFileStack[currentFile].name,
- inputFileStack[currentFile].lineno,
- s);
-}
-
-
-/*
- * Handle warnings while parsing.
- */
-void yywarning(char *s)
-{
- warning("%s:%d: %s\n",
- inputFileStack[currentFile].name,
- inputFileStack[currentFile].lineno,
- s);
-}
-
-
-/*
- * Handle fatal lex errors.
- */
-static void fatallex(char *s)
-{
- fatal("%s:%d: Lexical analyser error: %s\n",
- inputFileStack[currentFile].name,
- inputFileStack[currentFile].lineno,
- s);
-}
diff --git a/python/sip/sipgen/main.c b/python/sip/sipgen/main.c
deleted file mode 100644
index ce1e859b..00000000
--- a/python/sip/sipgen/main.c
+++ /dev/null
@@ -1,484 +0,0 @@
-/*
- * The main module for SIP.
- *
- * Copyright (c) 2007
- * Riverbank Computing Limited <info@riverbankcomputing.co.uk>
- *
- * This file is part of SIP.
- *
- * This copy of SIP is licensed for use under the terms of the SIP License
- * Agreement. See the file LICENSE for more details.
- *
- * SIP is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- */
-
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
-#include <ctype.h>
-
-#include "sip.h"
-
-
-#ifndef PACKAGE
-#define PACKAGE "sip"
-#endif
-
-#define VERSION "4.6 (4.6)"
-
-
-/* Global variables - see sip.h for their meaning. */
-char *sipVersion;
-stringList *includeDirList;
-
-static char *sipPackage = PACKAGE;
-static int warnings = FALSE;
-
-
-static void help(void);
-static void version(void);
-static void usage(void);
-static char parseopt(int,char **,char *,char **,int *,char **);
-static int parseInt(char *,char);
-
-
-int main(int argc,char **argv)
-{
- char *filename, *docFile, *codeDir, *srcSuffix, *flagFile;
- char arg, *optarg, *buildFile, *apiFile, *xmlFile;
- int optnr, exceptions, tracing, releaseGIL, parts;
- FILE *file;
- sipSpec spec;
- stringList *versions, *xfeatures;
-
- /* Initialise. */
- sipVersion = VERSION;
- includeDirList = NULL;
- versions = NULL;
- xfeatures = NULL;
- buildFile = NULL;
- codeDir = NULL;
- docFile = NULL;
- srcSuffix = NULL;
- flagFile = NULL;
- apiFile = NULL;
- xmlFile = NULL;
- exceptions = FALSE;
- tracing = FALSE;
- releaseGIL = FALSE;
- parts = 0;
-
- /* Parse the command line. */
- optnr = 1;
-
- while ((arg = parseopt(argc, argv, "hVa:b:ec:d:gI:j:m:rs:t:wx:z:", &flagFile, &optnr, &optarg)) != '\0')
- switch (arg)
- {
- case 'a':
- /* Where to generate the API file. */
- apiFile = optarg;
- break;
-
- case 'm':
- /* Where to generate the XML file. */
- xmlFile = optarg;
- break;
-
- case 'b':
- /* Generate a build file. */
- buildFile = optarg;
- break;
-
- case 'e':
- /* Enable exceptions. */
- exceptions = TRUE;
- break;
-
- case 'g':
- /* Always release the GIL. */
- releaseGIL = TRUE;
- break;
-
- case 'j':
- /* Generate the code in this number of parts. */
- parts = parseInt(optarg,'j');
- break;
-
- case 'z':
- /* Read a file for the next flags. */
- if (flagFile != NULL)
- fatal("The -z flag cannot be specified in an argument file\n");
-
- flagFile = optarg;
- break;
-
- case 'c':
- /* Where to generate the code. */
- codeDir = optarg;
- break;
-
- case 'd':
- /* Where to generate the documentation. */
- docFile = optarg;
- break;
-
- case 't':
- /* Which platform or version to generate code for. */
- appendString(&versions,optarg);
- break;
-
- case 'x':
- /* Which features are disabled. */
- appendString(&xfeatures,optarg);
- break;
-
- case 'I':
- /* Where to get included files from. */
- appendString(&includeDirList,optarg);
- break;
-
- case 'r':
- /* Enable tracing. */
- tracing = TRUE;
- break;
-
- case 's':
- /* The suffix to use for source files. */
- srcSuffix = optarg;
- break;
-
- case 'w':
- /* Enable warning messages. */
- warnings = TRUE;
- break;
-
- case 'h':
- /* Help message. */
- help();
- break;
-
- case 'V':
- /* Display the version number. */
- version();
- break;
-
- default:
- usage();
- }
-
- if (optnr < argc)
- {
- file = NULL;
- filename = argv[optnr++];
-
- if (optnr < argc)
- usage();
- }
- else
- {
- file = stdin;
- filename = "stdin";
- }
-
- /* Parse the input file. */
- parse(&spec,file,filename,versions,xfeatures);
-
- /* Verify and transform the parse tree. */
- transform(&spec);
-
- /* Generate code. */
- generateCode(&spec, codeDir, buildFile, docFile, srcSuffix, exceptions,
- tracing, releaseGIL, parts, xfeatures);
-
- /* Generate the API file. */
- if (apiFile != NULL)
- generateAPI(&spec, apiFile);
-
- /* Generate the XML export. */
- if (xmlFile != NULL)
- generateXML(&spec, xmlFile);
-
- /* All done. */
- return 0;
-}
-
-
-/*
- * Parse the next command line argument - similar to UNIX getopts(). Allow a
- * flag to specify that a file contains further arguments.
- */
-static char parseopt(int argc,char **argv,char *opts,char **flags,int *optnrp,
- char **optargp)
-{
- char arg, *op, *fname;
- int optnr;
- static FILE *fp = NULL;
-
- /* Deal with any file first. */
-
- fname = *flags;
-
- if (fname != NULL && fp == NULL && (fp = fopen(fname,"r")) == NULL)
- fatal("Unable to open %s\n",fname);
-
- if (fp != NULL)
- {
- char buf[200], *cp, *fname;
- int ch;
-
- fname = *flags;
- cp = buf;
-
- while ((ch = fgetc(fp)) != EOF)
- {
- /* Skip leading whitespace. */
-
- if (cp == buf && isspace(ch))
- continue;
-
- if (ch == '\n')
- break;
-
- if (cp == &buf[sizeof (buf) - 1])
- fatal("A flag in %s is too long\n",fname);
-
- *cp++ = (char)ch;
- }
-
- *cp = '\0';
-
- if (ch == EOF)
- {
- fclose(fp);
- fp = NULL;
- *flags = NULL;
- }
-
- /*
- * Get the option character and any optional argument from the
- * line.
- */
-
- if (buf[0] != '\0')
- {
- if (buf[0] != '-' || buf[1] == '\0')
- fatal("An non-flag was given in %s\n",fname);
-
- arg = buf[1];
-
- /* Find any optional argument. */
-
- for (cp = &buf[2]; *cp != '\0'; ++cp)
- if (!isspace(*cp))
- break;
-
- if (*cp == '\0')
- cp = NULL;
- else
- cp = sipStrdup(cp);
-
- *optargp = cp;
-
- if ((op = strchr(opts,arg)) == NULL)
- fatal("An invalid flag was given in %s\n",fname);
-
- if (op[1] == ':' && cp == NULL)
- fatal("Missing flag argument in %s\n",fname);
-
- if (op[1] != ':' && cp != NULL)
- fatal("Unexpected flag argument in %s\n",fname);
-
- return arg;
- }
- }
-
- /* Check there is an argument and it is a switch. */
-
- optnr = *optnrp;
-
- if (optnr >= argc || argv[optnr] == NULL || argv[optnr][0] != '-')
- return '\0';
-
- /* Check it is a valid switch. */
-
- arg = argv[optnr][1];
-
- if (arg == '\0' || (op = strchr(opts,arg)) == NULL)
- usage();
-
- /* Check for the switch parameter, if any. */
-
- if (op[1] == ':')
- {
- if (argv[optnr][2] != '\0')
- {
- *optargp = &argv[optnr][2];
- ++optnr;
- }
- else if (optnr + 1 >= argc || argv[optnr + 1] == NULL)
- usage();
- else
- {
- *optargp = argv[optnr + 1];
- optnr += 2;
- }
- }
- else if (argv[optnr][2] != '\0')
- usage();
- else
- {
- *optargp = NULL;
- ++optnr;
- }
-
- *optnrp = optnr;
-
- return arg;
-}
-
-
-/*
- * Parse an integer option.
- */
-static int parseInt(char *arg, char opt)
-{
- char *endptr;
- int val;
-
- val = strtol(arg, &endptr, 10);
-
- if (*arg == '\0' || *endptr != '\0')
- fatal("Invalid integer argument for -%c flag\n", opt);
-
- return val;
-}
-
-
-/*
- * Append a string to a list of them.
- */
-void appendString(stringList **headp, const char *s)
-{
- stringList *sl;
-
- /* Create the new entry. */
-
- sl = sipMalloc(sizeof (stringList));
-
- sl -> s = s;
- sl -> next = NULL;
-
- /* Append it to the list. */
-
- while (*headp != NULL)
- headp = &(*headp) -> next;
-
- *headp = sl;
-}
-
-
-/*
- * Display a warning message.
- */
-void warning(char *fmt,...)
-{
- static int start = TRUE;
-
- va_list ap;
-
- if (!warnings)
- return;
-
- if (start)
- {
- fprintf(stderr,"%s: Warning: ",sipPackage);
- start = FALSE;
- }
-
- va_start(ap,fmt);
- vfprintf(stderr,fmt,ap);
- va_end(ap);
-
- if (strchr(fmt,'\n') != NULL)
- start = TRUE;
-}
-
-
-/*
- * Display all or part of a one line error message describing a fatal error.
- * If the message is complete (it has a newline) then the program exits.
- */
-void fatal(char *fmt,...)
-{
- static int start = TRUE;
-
- va_list ap;
-
- if (start)
- {
- fprintf(stderr,"%s: ",sipPackage);
- start = FALSE;
- }
-
- va_start(ap,fmt);
- vfprintf(stderr,fmt,ap);
- va_end(ap);
-
- if (strchr(fmt,'\n') != NULL)
- exit(1);
-}
-
-
-/*
- * Display the SIP version number on stdout and exit with zero exit status.
- */
-static void version(void)
-{
- printf("%s\n",sipVersion);
- exit(0);
-}
-
-
-/*
- * Display the help message on stdout and exit with zero exit status.
- */
-static void help(void)
-{
- printf(
-"Usage:\n"
-" %s [-h] [-V] [-a file] [-c dir] [-d file] [-e] [-g] [-I dir] [-j #] [-m file] [-r] [-s suffix] [-t version] [-w] [-x feature] [-z file] [file]\n"
-"where:\n"
-" -h display this help message\n"
-" -V display the %s version number\n"
-" -a file the name of the QScintilla API file [default not generated]\n"
-" -b file the name of the build file [default none generated]\n"
-" -c dir the name of the code directory [default not generated]\n"
-" -d file the name of the documentation file [default not generated]\n"
-" -e enable support for exceptions [default disabled]\n"
-" -g always release and reacquire the GIL [default only when specified]\n"
-" -I dir look in this directory when including files\n"
-" -j # split the generated code into # files [default 1 per class]\n"
-" -m file the name of the XML export file [default not generated]\n"
-" -r generate code with tracing enabled [default disabled]\n"
-" -s suffix the suffix to use for C or C++ source files [default \".c\" or \".cpp\"]\n"
-" -t tag the version/platform to generate code for\n"
-" -w enable warning messages\n"
-" -x feature this feature is disabled\n"
-" -z file the name of a file containing more command line flags\n"
-" file the name of the specification file [default stdin]\n"
- ,sipPackage,sipPackage);
-
- exit(0);
-}
-
-
-/*
- * Display the usage message.
- */
-static void usage(void)
-{
- fatal("Usage: %s [-h] [-V] [-a file] [-b file] [-c dir] [-d file] [-e] [-g] [-I dir] [-j #] [-m file] [-r] [-s suffix] [-t tag] [-w] [-x feature] [-z file] [file]\n",sipPackage);
-}
diff --git a/python/sip/sipgen/parser.c b/python/sip/sipgen/parser.c
deleted file mode 100644
index 04a72f68..00000000
--- a/python/sip/sipgen/parser.c
+++ /dev/null
@@ -1,7526 +0,0 @@
-/* A Bison parser, made by GNU Bison 1.875d. */
-
-/* Skeleton parser for Yacc-like parsing with Bison,
- Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
-
- 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 2, or (at your option)
- any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor,
- Boston, MA 02110-1301, USA. */
-
-/* As a special exception, when this file is copied by Bison into a
- Bison output file, you may use that output file without restriction.
- This special exception was added by the Free Software Foundation
- in version 1.24 of Bison. */
-
-/* Written by Richard Stallman by simplifying the original so called
- ``semantic'' parser. */
-
-/* All symbols defined below should begin with yy or YY, to avoid
- infringing on user name space. This should be done even for local
- variables, as they might otherwise be expanded by user macros.
- There are some unavoidable exceptions within include files to
- define necessary library symbols; they are noted "INFRINGES ON
- USER NAME SPACE" below. */
-
-/* Identify Bison output. */
-#define YYBISON 1
-
-/* Skeleton name. */
-#define YYSKELETON_NAME "yacc.c"
-
-/* Pure parsers. */
-#define YYPURE 0
-
-/* Using locations. */
-#define YYLSP_NEEDED 0
-
-
-
-/* Tokens. */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
- /* Put the tokens into the symbol table, so that GDB and other debuggers
- know about them. */
- enum yytokentype {
- TK_OPTIONS = 258,
- TK_NOEMITTERS = 259,
- TK_DOC = 260,
- TK_EXPORTEDDOC = 261,
- TK_MAKEFILE = 262,
- TK_ACCESSCODE = 263,
- TK_GETCODE = 264,
- TK_SETCODE = 265,
- TK_PREINITCODE = 266,
- TK_POSTINITCODE = 267,
- TK_UNITCODE = 268,
- TK_MODCODE = 269,
- TK_TYPECODE = 270,
- TK_PREPYCODE = 271,
- TK_COPYING = 272,
- TK_MAPPEDTYPE = 273,
- TK_CODELINE = 274,
- TK_IF = 275,
- TK_END = 276,
- TK_NAME = 277,
- TK_PATHNAME = 278,
- TK_STRING = 279,
- TK_VIRTUALCATCHERCODE = 280,
- TK_TRAVERSECODE = 281,
- TK_CLEARCODE = 282,
- TK_READBUFFERCODE = 283,
- TK_WRITEBUFFERCODE = 284,
- TK_SEGCOUNTCODE = 285,
- TK_CHARBUFFERCODE = 286,
- TK_METHODCODE = 287,
- TK_FROMTYPE = 288,
- TK_TOTYPE = 289,
- TK_TOSUBCLASS = 290,
- TK_INCLUDE = 291,
- TK_OPTINCLUDE = 292,
- TK_IMPORT = 293,
- TK_EXPHEADERCODE = 294,
- TK_MODHEADERCODE = 295,
- TK_TYPEHEADERCODE = 296,
- TK_MODULE = 297,
- TK_CMODULE = 298,
- TK_CLASS = 299,
- TK_STRUCT = 300,
- TK_PUBLIC = 301,
- TK_PROTECTED = 302,
- TK_PRIVATE = 303,
- TK_SIGNALS = 304,
- TK_SLOTS = 305,
- TK_BOOL = 306,
- TK_SHORT = 307,
- TK_INT = 308,
- TK_LONG = 309,
- TK_FLOAT = 310,
- TK_DOUBLE = 311,
- TK_CHAR = 312,
- TK_WCHAR_T = 313,
- TK_VOID = 314,
- TK_PYOBJECT = 315,
- TK_PYTUPLE = 316,
- TK_PYLIST = 317,
- TK_PYDICT = 318,
- TK_PYCALLABLE = 319,
- TK_PYSLICE = 320,
- TK_PYTYPE = 321,
- TK_VIRTUAL = 322,
- TK_ENUM = 323,
- TK_SIGNED = 324,
- TK_UNSIGNED = 325,
- TK_SCOPE = 326,
- TK_LOGICAL_OR = 327,
- TK_CONST = 328,
- TK_STATIC = 329,
- TK_SIPQT_SIGNAL = 330,
- TK_SIPQT_SLOT = 331,
- TK_SIPANYQT_SLOT = 332,
- TK_SIPRXCON = 333,
- TK_SIPRXDIS = 334,
- TK_SIPSLOTCON = 335,
- TK_SIPSLOTDIS = 336,
- TK_NUMBER = 337,
- TK_REAL = 338,
- TK_TYPEDEF = 339,
- TK_NAMESPACE = 340,
- TK_TIMELINE = 341,
- TK_PLATFORMS = 342,
- TK_FEATURE = 343,
- TK_LICENSE = 344,
- TK_QCHAR = 345,
- TK_TRUE = 346,
- TK_FALSE = 347,
- TK_NULL = 348,
- TK_OPERATOR = 349,
- TK_THROW = 350,
- TK_QOBJECT = 351,
- TK_EXCEPTION = 352,
- TK_RAISECODE = 353,
- TK_EXPLICIT = 354,
- TK_TEMPLATE = 355,
- TK_ELLIPSIS = 356
- };
-#endif
-#define TK_OPTIONS 258
-#define TK_NOEMITTERS 259
-#define TK_DOC 260
-#define TK_EXPORTEDDOC 261
-#define TK_MAKEFILE 262
-#define TK_ACCESSCODE 263
-#define TK_GETCODE 264
-#define TK_SETCODE 265
-#define TK_PREINITCODE 266
-#define TK_POSTINITCODE 267
-#define TK_UNITCODE 268
-#define TK_MODCODE 269
-#define TK_TYPECODE 270
-#define TK_PREPYCODE 271
-#define TK_COPYING 272
-#define TK_MAPPEDTYPE 273
-#define TK_CODELINE 274
-#define TK_IF 275
-#define TK_END 276
-#define TK_NAME 277
-#define TK_PATHNAME 278
-#define TK_STRING 279
-#define TK_VIRTUALCATCHERCODE 280
-#define TK_TRAVERSECODE 281
-#define TK_CLEARCODE 282
-#define TK_READBUFFERCODE 283
-#define TK_WRITEBUFFERCODE 284
-#define TK_SEGCOUNTCODE 285
-#define TK_CHARBUFFERCODE 286
-#define TK_METHODCODE 287
-#define TK_FROMTYPE 288
-#define TK_TOTYPE 289
-#define TK_TOSUBCLASS 290
-#define TK_INCLUDE 291
-#define TK_OPTINCLUDE 292
-#define TK_IMPORT 293
-#define TK_EXPHEADERCODE 294
-#define TK_MODHEADERCODE 295
-#define TK_TYPEHEADERCODE 296
-#define TK_MODULE 297
-#define TK_CMODULE 298
-#define TK_CLASS 299
-#define TK_STRUCT 300
-#define TK_PUBLIC 301
-#define TK_PROTECTED 302
-#define TK_PRIVATE 303
-#define TK_SIGNALS 304
-#define TK_SLOTS 305
-#define TK_BOOL 306
-#define TK_SHORT 307
-#define TK_INT 308
-#define TK_LONG 309
-#define TK_FLOAT 310
-#define TK_DOUBLE 311
-#define TK_CHAR 312
-#define TK_WCHAR_T 313
-#define TK_VOID 314
-#define TK_PYOBJECT 315
-#define TK_PYTUPLE 316
-#define TK_PYLIST 317
-#define TK_PYDICT 318
-#define TK_PYCALLABLE 319
-#define TK_PYSLICE 320
-#define TK_PYTYPE 321
-#define TK_VIRTUAL 322
-#define TK_ENUM 323
-#define TK_SIGNED 324
-#define TK_UNSIGNED 325
-#define TK_SCOPE 326
-#define TK_LOGICAL_OR 327
-#define TK_CONST 328
-#define TK_STATIC 329
-#define TK_SIPQT_SIGNAL 330
-#define TK_SIPQT_SLOT 331
-#define TK_SIPANYQT_SLOT 332
-#define TK_SIPRXCON 333
-#define TK_SIPRXDIS 334
-#define TK_SIPSLOTCON 335
-#define TK_SIPSLOTDIS 336
-#define TK_NUMBER 337
-#define TK_REAL 338
-#define TK_TYPEDEF 339
-#define TK_NAMESPACE 340
-#define TK_TIMELINE 341
-#define TK_PLATFORMS 342
-#define TK_FEATURE 343
-#define TK_LICENSE 344
-#define TK_QCHAR 345
-#define TK_TRUE 346
-#define TK_FALSE 347
-#define TK_NULL 348
-#define TK_OPERATOR 349
-#define TK_THROW 350
-#define TK_QOBJECT 351
-#define TK_EXCEPTION 352
-#define TK_RAISECODE 353
-#define TK_EXPLICIT 354
-#define TK_TEMPLATE 355
-#define TK_ELLIPSIS 356
-
-
-
-
-/* Copy the first part of user declarations. */
-#line 16 "parser.y"
-
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-
-#include "sip.h"
-
-
-#define MAX_NESTED_IF 10
-#define MAX_NESTED_SCOPE 10
-
-#define inMainModule() (currentSpec -> module == currentModule)
-
-
-static sipSpec *currentSpec; /* The current spec being parsed. */
-static stringList *neededQualifiers; /* The list of required qualifiers. */
-static stringList *excludedQualifiers; /* The list of excluded qualifiers. */
-static moduleDef *currentModule; /* The current module being parsed. */
-static mappedTypeDef *currentMappedType; /* The current mapped type. */
-static enumDef *currentEnum; /* The current enum being parsed. */
-static int sectionFlags; /* The current section flags. */
-static int currentOverIsVirt; /* Set if the overload is virtual. */
-static int currentCtorIsExplicit; /* Set if the ctor is explicit. */
-static int currentIsStatic; /* Set if the current is static. */
-static char *previousFile; /* The file just parsed. */
-static parserContext newContext; /* The new pending context. */
-static int skipStackPtr; /* The skip stack pointer. */
-static int skipStack[MAX_NESTED_IF]; /* Stack of skip flags. */
-static classDef *scopeStack[MAX_NESTED_SCOPE]; /* The scope stack. */
-static int sectFlagsStack[MAX_NESTED_SCOPE]; /* The section flags stack. */
-static int currentScopeIdx; /* The scope stack index. */
-static int currentTimelineOrder; /* The current timeline order. */
-
-
-static char *getPythonName(optFlags *optflgs, char *cname);
-static nameDef *cacheName(sipSpec *,char *);
-static classDef *findClass(sipSpec *,ifaceFileType,scopedNameDef *);
-static classDef *findClassWithInterface(sipSpec *pt, ifaceFileDef *iff);
-static classDef *newClass(sipSpec *,ifaceFileType,scopedNameDef *);
-static void finishClass(sipSpec *,moduleDef *,classDef *,optFlags *);
-static exceptionDef *findException(sipSpec *pt, scopedNameDef *fqname, int new);
-static mappedTypeDef *newMappedType(sipSpec *,argDef *);
-static enumDef *newEnum(sipSpec *,moduleDef *,char *,optFlags *,int);
-static void instantiateClassTemplate(sipSpec *pt, moduleDef *mod, classDef *scope, scopedNameDef *fqname, classTmplDef *tcd, templateDef *td);
-static void newTypedef(sipSpec *,moduleDef *,char *,argDef *);
-static void newVar(sipSpec *,moduleDef *,char *,int,argDef *,optFlags *,
- codeBlock *,codeBlock *,codeBlock *);
-static void newCtor(char *,int,signatureDef *,optFlags *,codeBlock *,
- throwArgs *,signatureDef *,int);
-static void newFunction(sipSpec *,moduleDef *,int,int,int,char *,
- signatureDef *,int,int,optFlags *,codeBlock *,
- codeBlock *,throwArgs *,signatureDef *);
-static optFlag *findOptFlag(optFlags *,char *,flagType);
-static memberDef *findFunction(sipSpec *,moduleDef *,classDef *,nameDef *,int,
- int);
-static void checkAttributes(sipSpec *,classDef *,char *,int);
-static void newModule(FILE *,char *);
-static void appendCodeBlock(codeBlock **,codeBlock *);
-static void parseFile(FILE *,char *,moduleDef *,int);
-static void handleEOF(void);
-static void handleEOM(void);
-static qualDef *findQualifier(char *);
-static scopedNameDef *text2scopedName(char *);
-static scopedNameDef *scopeScopedName(scopedNameDef *name);
-static void pushScope(classDef *);
-static void popScope(void);
-static classDef *currentScope(void);
-static void newQualifier(moduleDef *,int,int,char *,qualType);
-static void newImport(char *);
-static void usedInMainModule(sipSpec *,ifaceFileDef *);
-static int timePeriod(char *,char *);
-static int platOrFeature(char *,int);
-static int isNeeded(qualDef *);
-static int notSkipping(void);
-static void getHooks(optFlags *,char **,char **);
-static int getReleaseGIL(optFlags *);
-static int getHoldGIL(optFlags *);
-static void templateSignature(signatureDef *sd, int result, classTmplDef *tcd, templateDef *td, classDef *ncd);
-static void templateType(argDef *ad, classTmplDef *tcd, templateDef *td, classDef *ncd);
-static int search_back(const char *end, const char *start, const char *target);
-static char *getType(scopedNameDef *ename, argDef *ad);
-static char *scopedNameToString(scopedNameDef *name);
-static void addUsedFromCode(sipSpec *pt, ifaceFileList **used, const char *sname);
-static int sameName(scopedNameDef *snd, const char *sname);
-static int optFind(sipSpec *pt, const char *opt);
-
-
-/* Enabling traces. */
-#ifndef YYDEBUG
-# define YYDEBUG 0
-#endif
-
-/* Enabling verbose error messages. */
-#ifdef YYERROR_VERBOSE
-# undef YYERROR_VERBOSE
-# define YYERROR_VERBOSE 1
-#else
-# define YYERROR_VERBOSE 0
-#endif
-
-#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
-#line 103 "parser.y"
-typedef union YYSTYPE {
- char qchar;
- char *text;
- long number;
- double real;
- argDef memArg;
- signatureDef signature;
- signatureDef *optsignature;
- throwArgs *throwlist;
- codeBlock *codeb;
- valueDef value;
- valueDef *valp;
- optFlags optflags;
- optFlag flag;
- scopedNameDef *scpvalp;
- fcallDef fcall;
- int boolean;
- exceptionDef exceptionbase;
- classDef *klass;
-} YYSTYPE;
-/* Line 191 of yacc.c. */
-#line 386 "parser.c"
-# define yystype YYSTYPE /* obsolescent; will be withdrawn */
-# define YYSTYPE_IS_DECLARED 1
-# define YYSTYPE_IS_TRIVIAL 1
-#endif
-
-
-
-/* Copy the second part of user declarations. */
-
-
-/* Line 214 of yacc.c. */
-#line 398 "parser.c"
-
-#if ! defined (yyoverflow) || YYERROR_VERBOSE
-
-# ifndef YYFREE
-# define YYFREE free
-# endif
-# ifndef YYMALLOC
-# define YYMALLOC malloc
-# endif
-
-/* The parser invokes alloca or malloc; define the necessary symbols. */
-
-# ifdef YYSTACK_USE_ALLOCA
-# if YYSTACK_USE_ALLOCA
-# define YYSTACK_ALLOC alloca
-# endif
-# else
-# if defined (alloca) || defined (_ALLOCA_H)
-# define YYSTACK_ALLOC alloca
-# else
-# ifdef __GNUC__
-# define YYSTACK_ALLOC __builtin_alloca
-# endif
-# endif
-# endif
-
-# ifdef YYSTACK_ALLOC
- /* Pacify GCC's `empty if-body' warning. */
-# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
-# else
-# if defined (__STDC__) || defined (__cplusplus)
-# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-# define YYSIZE_T size_t
-# endif
-# define YYSTACK_ALLOC YYMALLOC
-# define YYSTACK_FREE YYFREE
-# endif
-#endif /* ! defined (yyoverflow) || YYERROR_VERBOSE */
-
-
-#if (! defined (yyoverflow) \
- && (! defined (__cplusplus) \
- || (defined (YYSTYPE_IS_TRIVIAL) && YYSTYPE_IS_TRIVIAL)))
-
-/* A type that is properly aligned for any stack member. */
-union yyalloc
-{
- short int yyss;
- YYSTYPE yyvs;
- };
-
-/* The size of the maximum gap between one aligned stack and the next. */
-# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
-
-/* The size of an array large to enough to hold all stacks, each with
- N elements. */
-# define YYSTACK_BYTES(N) \
- ((N) * (sizeof (short int) + sizeof (YYSTYPE)) \
- + YYSTACK_GAP_MAXIMUM)
-
-/* Copy COUNT objects from FROM to TO. The source and destination do
- not overlap. */
-# ifndef YYCOPY
-# if defined (__GNUC__) && 1 < __GNUC__
-# define YYCOPY(To, From, Count) \
- __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
-# else
-# define YYCOPY(To, From, Count) \
- do \
- { \
- register YYSIZE_T yyi; \
- for (yyi = 0; yyi < (Count); yyi++) \
- (To)[yyi] = (From)[yyi]; \
- } \
- while (0)
-# endif
-# endif
-
-/* Relocate STACK from its old location to the new one. The
- local variables YYSIZE and YYSTACKSIZE give the old and new number of
- elements in the stack, and YYPTR gives the new location of the
- stack. Advance YYPTR to a properly aligned location for the next
- stack. */
-# define YYSTACK_RELOCATE(Stack) \
- do \
- { \
- YYSIZE_T yynewbytes; \
- YYCOPY (&yyptr->Stack, Stack, yysize); \
- Stack = &yyptr->Stack; \
- yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
- yyptr += yynewbytes / sizeof (*yyptr); \
- } \
- while (0)
-
-#endif
-
-#if defined (__STDC__) || defined (__cplusplus)
- typedef signed char yysigned_char;
-#else
- typedef short int yysigned_char;
-#endif
-
-/* YYFINAL -- State number of the termination state. */
-#define YYFINAL 4
-/* YYLAST -- Last index in YYTABLE. */
-#define YYLAST 1105
-
-/* YYNTOKENS -- Number of terminals. */
-#define YYNTOKENS 124
-/* YYNNTS -- Number of nonterminals. */
-#define YYNNTS 134
-/* YYNRULES -- Number of rules. */
-#define YYNRULES 339
-/* YYNRULES -- Number of states. */
-#define YYNSTATES 562
-
-/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
-#define YYUNDEFTOK 2
-#define YYMAXUTOK 356
-
-#define YYTRANSLATE(YYX) \
- ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
-
-/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
-static const unsigned char yytranslate[] =
-{
- 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 108, 2, 2, 2, 122, 114, 2,
- 102, 103, 112, 111, 104, 109, 2, 113, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 119, 107,
- 117, 110, 118, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 120, 2, 121, 123, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 105, 115, 106, 116, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
- 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
- 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
- 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
- 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
- 45, 46, 47, 48, 49, 50, 51, 52, 53, 54,
- 55, 56, 57, 58, 59, 60, 61, 62, 63, 64,
- 65, 66, 67, 68, 69, 70, 71, 72, 73, 74,
- 75, 76, 77, 78, 79, 80, 81, 82, 83, 84,
- 85, 86, 87, 88, 89, 90, 91, 92, 93, 94,
- 95, 96, 97, 98, 99, 100, 101
-};
-
-#if YYDEBUG
-/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
- YYRHS. */
-static const unsigned short int yyprhs[] =
-{
- 0, 0, 3, 5, 8, 9, 12, 14, 16, 18,
- 20, 22, 24, 26, 28, 30, 32, 34, 36, 38,
- 40, 42, 44, 46, 48, 50, 52, 54, 56, 58,
- 60, 62, 64, 66, 68, 70, 72, 74, 76, 78,
- 80, 82, 84, 89, 91, 95, 97, 107, 108, 112,
- 115, 116, 121, 122, 128, 133, 135, 138, 140, 143,
- 146, 147, 155, 157, 160, 161, 167, 169, 172, 174,
- 177, 178, 184, 186, 189, 191, 196, 198, 201, 205,
- 210, 212, 216, 218, 221, 225, 227, 229, 231, 233,
- 234, 236, 239, 242, 245, 246, 249, 250, 253, 254,
- 257, 260, 263, 266, 269, 270, 272, 275, 278, 281,
- 284, 287, 290, 293, 296, 299, 302, 305, 308, 311,
- 314, 319, 322, 324, 327, 328, 337, 338, 340, 341,
- 343, 344, 346, 348, 351, 353, 355, 360, 361, 363,
- 364, 367, 368, 371, 373, 377, 379, 381, 383, 385,
- 387, 389, 390, 392, 394, 396, 398, 401, 403, 407,
- 409, 411, 416, 418, 420, 422, 424, 426, 428, 430,
- 431, 433, 437, 442, 453, 454, 463, 466, 471, 472,
- 480, 481, 484, 486, 490, 492, 493, 497, 499, 502,
- 504, 506, 508, 510, 512, 514, 516, 518, 520, 522,
- 524, 526, 528, 530, 532, 534, 536, 538, 540, 543,
- 546, 550, 554, 558, 561, 562, 564, 576, 577, 581,
- 583, 593, 594, 600, 601, 608, 609, 611, 625, 640,
- 654, 656, 658, 660, 662, 664, 666, 668, 670, 673,
- 676, 679, 682, 685, 688, 691, 694, 697, 700, 704,
- 708, 710, 713, 716, 718, 721, 724, 727, 729, 732,
- 733, 735, 736, 739, 740, 744, 746, 750, 752, 756,
- 758, 760, 762, 763, 766, 767, 770, 772, 773, 775,
- 779, 783, 787, 791, 794, 797, 803, 809, 812, 815,
- 816, 820, 822, 824, 826, 827, 831, 833, 841, 846,
- 850, 854, 855, 857, 858, 861, 863, 868, 871, 874,
- 876, 878, 881, 883, 885, 888, 891, 895, 897, 899,
- 901, 904, 907, 909, 911, 913, 915, 917, 919, 921,
- 923, 925, 927, 929, 931, 935, 936, 941, 942, 944
-};
-
-/* YYRHS -- A `-1'-separated list of the rules' RHS. */
-static const short int yyrhs[] =
-{
- 125, 0, -1, 126, -1, 125, 126, -1, -1, 127,
- 128, -1, 160, -1, 130, -1, 132, -1, 170, -1,
- 164, -1, 165, -1, 166, -1, 151, -1, 146, -1,
- 150, -1, 159, -1, 171, -1, 172, -1, 181, -1,
- 183, -1, 184, -1, 185, -1, 186, -1, 187, -1,
- 188, -1, 189, -1, 136, -1, 138, -1, 129, -1,
- 155, -1, 158, -1, 143, -1, 211, -1, 215, -1,
- 213, -1, 133, -1, 210, -1, 192, -1, 231, -1,
- 249, -1, 173, -1, 3, 102, 131, 103, -1, 22,
- -1, 131, 104, 22, -1, 4, -1, 97, 206, 134,
- 235, 105, 174, 135, 106, 107, -1, -1, 102, 206,
- 103, -1, 98, 190, -1, -1, 18, 254, 137, 140,
- -1, -1, 214, 18, 254, 139, 140, -1, 105, 141,
- 106, 107, -1, 142, -1, 141, 142, -1, 173, -1,
- 33, 190, -1, 34, 190, -1, -1, 85, 22, 144,
- 105, 145, 106, 107, -1, 129, -1, 145, 129, -1,
- -1, 87, 147, 105, 148, 106, -1, 149, -1, 148,
- 149, -1, 22, -1, 88, 22, -1, -1, 86, 152,
- 105, 153, 106, -1, 154, -1, 153, 154, -1, 22,
- -1, 20, 102, 157, 103, -1, 22, -1, 108, 22,
- -1, 156, 72, 22, -1, 156, 72, 108, 22, -1,
- 156, -1, 195, 109, 195, -1, 21, -1, 89, 235,
- -1, 161, 162, 163, -1, 42, -1, 43, -1, 22,
- -1, 23, -1, -1, 82, -1, 36, 23, -1, 37,
- 23, -1, 38, 23, -1, -1, 8, 190, -1, -1,
- 9, 190, -1, -1, 10, 190, -1, 17, 190, -1,
- 39, 190, -1, 40, 190, -1, 41, 190, -1, -1,
- 173, -1, 26, 190, -1, 27, 190, -1, 28, 190,
- -1, 29, 190, -1, 30, 190, -1, 31, 190, -1,
- 14, 190, -1, 15, 190, -1, 11, 190, -1, 12,
- 190, -1, 13, 190, -1, 16, 190, -1, 5, 190,
- -1, 6, 190, -1, 7, 23, 194, 190, -1, 191,
- 21, -1, 19, -1, 191, 19, -1, -1, 68, 195,
- 235, 193, 105, 196, 106, 107, -1, -1, 23, -1,
- -1, 22, -1, -1, 197, -1, 198, -1, 197, 198,
- -1, 155, -1, 158, -1, 22, 200, 235, 199, -1,
- -1, 104, -1, -1, 110, 205, -1, -1, 110, 202,
- -1, 205, -1, 202, 203, 205, -1, 109, -1, 111,
- -1, 112, -1, 113, -1, 114, -1, 115, -1, -1,
- 108, -1, 116, -1, 109, -1, 111, -1, 204, 208,
- -1, 207, -1, 206, 71, 207, -1, 22, -1, 206,
- -1, 254, 102, 209, 103, -1, 83, -1, 82, -1,
- 91, -1, 92, -1, 93, -1, 24, -1, 90, -1,
- -1, 202, -1, 209, 104, 202, -1, 84, 250, 22,
- 107, -1, 84, 250, 102, 253, 22, 103, 102, 255,
- 103, 107, -1, -1, 45, 22, 212, 235, 105, 221,
- 106, 107, -1, 214, 215, -1, 100, 117, 255, 118,
- -1, -1, 44, 206, 216, 217, 235, 220, 107, -1,
- -1, 119, 218, -1, 219, -1, 218, 104, 219, -1,
- 206, -1, -1, 105, 221, 106, -1, 222, -1, 221,
- 222, -1, 155, -1, 158, -1, 143, -1, 211, -1,
- 215, -1, 133, -1, 210, -1, 192, -1, 182, -1,
- 173, -1, 175, -1, 176, -1, 177, -1, 178, -1,
- 179, -1, 180, -1, 225, -1, 224, -1, 244, -1,
- 35, 190, -1, 34, 190, -1, 46, 223, 119, -1,
- 47, 223, 119, -1, 48, 223, 119, -1, 49, 119,
- -1, -1, 50, -1, 230, 116, 22, 102, 103, 256,
- 234, 235, 107, 239, 240, -1, -1, 99, 226, 227,
- -1, 227, -1, 22, 102, 241, 103, 256, 235, 228,
- 107, 239, -1, -1, 120, 102, 241, 103, 121, -1,
- -1, 120, 250, 102, 241, 103, 121, -1, -1, 67,
- -1, 250, 22, 102, 241, 103, 233, 256, 234, 235,
- 229, 107, 239, 240, -1, 250, 94, 232, 102, 241,
- 103, 233, 256, 234, 235, 229, 107, 239, 240, -1,
- 94, 250, 102, 241, 103, 233, 256, 234, 235, 229,
- 107, 239, 240, -1, 111, -1, 109, -1, 112, -1,
- 113, -1, 122, -1, 114, -1, 115, -1, 123, -1,
- 117, 117, -1, 118, 118, -1, 111, 110, -1, 109,
- 110, -1, 112, 110, -1, 113, 110, -1, 122, 110,
- -1, 114, 110, -1, 115, 110, -1, 123, 110, -1,
- 117, 117, 110, -1, 118, 118, 110, -1, 116, -1,
- 102, 103, -1, 120, 121, -1, 117, -1, 117, 110,
- -1, 110, 110, -1, 108, 110, -1, 118, -1, 118,
- 110, -1, -1, 73, -1, -1, 110, 82, -1, -1,
- 113, 236, 113, -1, 237, -1, 236, 104, 237, -1,
- 22, -1, 22, 110, 238, -1, 22, -1, 24, -1,
- 82, -1, -1, 32, 190, -1, -1, 25, 190, -1,
- 242, -1, -1, 243, -1, 242, 104, 243, -1, 75,
- 195, 201, -1, 76, 195, 201, -1, 77, 195, 201,
- -1, 78, 195, -1, 79, 195, -1, 80, 102, 241,
- 103, 195, -1, 81, 102, 241, 103, 195, -1, 96,
- 195, -1, 251, 201, -1, -1, 74, 245, 246, -1,
- 246, -1, 247, -1, 249, -1, -1, 67, 248, 231,
- -1, 231, -1, 250, 22, 235, 107, 167, 168, 169,
- -1, 73, 254, 253, 252, -1, 254, 253, 252, -1,
- 250, 195, 235, -1, -1, 114, -1, -1, 253, 112,
- -1, 206, -1, 206, 117, 255, 118, -1, 45, 206,
- -1, 70, 52, -1, 52, -1, 70, -1, 70, 53,
- -1, 53, -1, 54, -1, 70, 54, -1, 54, 54,
- -1, 70, 54, 54, -1, 55, -1, 56, -1, 51,
- -1, 69, 57, -1, 70, 57, -1, 57, -1, 58,
- -1, 59, -1, 60, -1, 61, -1, 62, -1, 63,
- -1, 64, -1, 65, -1, 66, -1, 101, -1, 250,
- -1, 255, 104, 250, -1, -1, 95, 102, 257, 103,
- -1, -1, 206, -1, 257, 104, 206, -1
-};
-
-/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
-static const unsigned short int yyrline[] =
-{
- 0, 289, 289, 290, 293, 293, 312, 313, 314, 315,
- 316, 317, 318, 319, 320, 321, 322, 323, 327, 331,
- 335, 336, 337, 338, 339, 340, 341, 342, 343, 344,
- 347, 348, 349, 350, 351, 352, 353, 354, 355, 356,
- 357, 358, 371, 374, 377, 382, 391, 430, 434, 508,
- 513, 513, 519, 519, 558, 572, 573, 576, 580, 589,
- 600, 600, 637, 638, 641, 641, 668, 669, 672, 677,
- 682, 682, 707, 708, 711, 716, 729, 732, 735, 738,
- 743, 744, 749, 755, 782, 807, 810, 815, 816, 832,
- 835, 838, 843, 848, 853, 856, 861, 864, 869, 872,
- 877, 883, 888, 893, 898, 901, 904, 909, 914, 919,
- 924, 929, 934, 939, 944, 950, 956, 962, 971, 977,
- 982, 988, 991, 992, 1003, 1003, 1014, 1017, 1022, 1025,
- 1030, 1031, 1034, 1035, 1038, 1039, 1040, 1073, 1074, 1077,
- 1078, 1081, 1084, 1089, 1090, 1108, 1111, 1114, 1117, 1120,
- 1123, 1128, 1131, 1134, 1137, 1140, 1145, 1163, 1164, 1172,
- 1177, 1187, 1197, 1201, 1205, 1209, 1213, 1217, 1221, 1227,
- 1232, 1238, 1256, 1260, 1283, 1283, 1303, 1328, 1333, 1333,
- 1382, 1383, 1386, 1387, 1390, 1405, 1408, 1413, 1414, 1417,
- 1418, 1419, 1420, 1421, 1422, 1423, 1424, 1425, 1429, 1433,
- 1440, 1447, 1454, 1461, 1468, 1475, 1476, 1477, 1478, 1489,
- 1500, 1507, 1514, 1521, 1530, 1533, 1538, 1587, 1587, 1588,
- 1591, 1617, 1620, 1627, 1630, 1638, 1641, 1646, 1663, 1688,
- 1766, 1767, 1768, 1769, 1770, 1771, 1772, 1773, 1774, 1775,
- 1776, 1777, 1778, 1779, 1780, 1781, 1782, 1783, 1784, 1785,
- 1786, 1787, 1788, 1789, 1790, 1791, 1792, 1793, 1794, 1797,
- 1800, 1805, 1808, 1816, 1819, 1825, 1829, 1841, 1845, 1851,
- 1855, 1859, 1865, 1868, 1873, 1876, 1881, 1929, 1934, 1940,
- 1967, 1976, 1985, 1994, 2002, 2010, 2025, 2040, 2046, 2052,
- 2052, 2053, 2056, 2057, 2060, 2060, 2061, 2064, 2097, 2103,
- 2111, 2168, 2171, 2179, 2182, 2187, 2191, 2201, 2214, 2217,
- 2220, 2223, 2226, 2229, 2232, 2235, 2238, 2241, 2244, 2247,
- 2250, 2253, 2256, 2259, 2262, 2265, 2268, 2271, 2274, 2277,
- 2280, 2283, 2286, 2291, 2297, 2313, 2316, 2343, 2349, 2356
-};
-#endif
-
-#if YYDEBUG || YYERROR_VERBOSE
-/* YYTNME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
- First, the terminals, then, starting at YYNTOKENS, nonterminals. */
-static const char *const yytname[] =
-{
- "$end", "error", "$undefined", "TK_OPTIONS", "TK_NOEMITTERS", "TK_DOC",
- "TK_EXPORTEDDOC", "TK_MAKEFILE", "TK_ACCESSCODE", "TK_GETCODE",
- "TK_SETCODE", "TK_PREINITCODE", "TK_POSTINITCODE", "TK_UNITCODE",
- "TK_MODCODE", "TK_TYPECODE", "TK_PREPYCODE", "TK_COPYING",
- "TK_MAPPEDTYPE", "TK_CODELINE", "TK_IF", "TK_END", "TK_NAME",
- "TK_PATHNAME", "TK_STRING", "TK_VIRTUALCATCHERCODE", "TK_TRAVERSECODE",
- "TK_CLEARCODE", "TK_READBUFFERCODE", "TK_WRITEBUFFERCODE",
- "TK_SEGCOUNTCODE", "TK_CHARBUFFERCODE", "TK_METHODCODE", "TK_FROMTYPE",
- "TK_TOTYPE", "TK_TOSUBCLASS", "TK_INCLUDE", "TK_OPTINCLUDE", "TK_IMPORT",
- "TK_EXPHEADERCODE", "TK_MODHEADERCODE", "TK_TYPEHEADERCODE", "TK_MODULE",
- "TK_CMODULE", "TK_CLASS", "TK_STRUCT", "TK_PUBLIC", "TK_PROTECTED",
- "TK_PRIVATE", "TK_SIGNALS", "TK_SLOTS", "TK_BOOL", "TK_SHORT", "TK_INT",
- "TK_LONG", "TK_FLOAT", "TK_DOUBLE", "TK_CHAR", "TK_WCHAR_T", "TK_VOID",
- "TK_PYOBJECT", "TK_PYTUPLE", "TK_PYLIST", "TK_PYDICT", "TK_PYCALLABLE",
- "TK_PYSLICE", "TK_PYTYPE", "TK_VIRTUAL", "TK_ENUM", "TK_SIGNED",
- "TK_UNSIGNED", "TK_SCOPE", "TK_LOGICAL_OR", "TK_CONST", "TK_STATIC",
- "TK_SIPSIGNAL", "TK_SIPSLOT", "TK_SIPANYSLOT", "TK_SIPRXCON",
- "TK_SIPRXDIS", "TK_SIPSLOTCON", "TK_SIPSLOTDIS", "TK_NUMBER", "TK_REAL",
- "TK_TYPEDEF", "TK_NAMESPACE", "TK_TIMELINE", "TK_PLATFORMS",
- "TK_FEATURE", "TK_LICENSE", "TK_QCHAR", "TK_TRUE", "TK_FALSE", "TK_NULL",
- "TK_OPERATOR", "TK_THROW", "TK_QOBJECT", "TK_EXCEPTION", "TK_RAISECODE",
- "TK_EXPLICIT", "TK_TEMPLATE", "TK_ELLIPSIS", "'('", "')'", "','", "'{'",
- "'}'", "';'", "'!'", "'-'", "'='", "'+'", "'*'", "'/'", "'&'", "'|'",
- "'~'", "'<'", "'>'", "':'", "'['", "']'", "'%'", "'^'", "$accept",
- "specification", "statement", "@1", "modstatement", "nsstatement",
- "options", "optionlist", "noemitters", "exception", "baseexception",
- "raisecode", "mappedtype", "@2", "mappedtypetmpl", "@3", "mtdefinition",
- "mtbody", "mtline", "namespace", "@4", "nsbody", "platforms", "@5",
- "platformlist", "platform", "feature", "timeline", "@6", "qualifierlist",
- "qualifiername", "ifstart", "oredqualifiers", "qualifiers", "ifend",
- "license", "module", "modlang", "modname", "optnumber", "include",
- "optinclude", "import", "optaccesscode", "optgetcode", "optsetcode",
- "copying", "exphdrcode", "modhdrcode", "typehdrcode", "opttypehdrcode",
- "travcode", "clearcode", "readbufcode", "writebufcode", "segcountcode",
- "charbufcode", "modcode", "typecode", "preinitcode", "postinitcode",
- "unitcode", "prepycode", "doc", "exporteddoc", "makefile", "codeblock",
- "codelines", "enum", "@7", "optfilename", "optname", "optenumbody",
- "enumbody", "enumline", "optcomma", "optenumassign", "optassign", "expr",
- "binop", "optunop", "value", "scopedname", "scopepart", "simplevalue",
- "exprlist", "typedef", "struct", "@8", "classtmpl", "template", "class",
- "@9", "superclasses", "superlist", "superclass", "optclassbody",
- "classbody", "classline", "optslot", "dtor", "ctor", "@10", "simplector",
- "optctorsig", "optsig", "optvirtual", "function", "operatorname",
- "optconst", "optabstract", "optflags", "flaglist", "flag", "flagvalue",
- "methodcode", "virtualcatchercode", "arglist", "rawarglist", "argvalue",
- "varmember", "@11", "varmem", "member", "@12", "variable", "cpptype",
- "argtype", "optref", "deref", "basetype", "cpptypelist", "optexceptions",
- "exceptionlist", 0
-};
-#endif
-
-# ifdef YYPRINT
-/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
- token YYLEX-NUM. */
-static const unsigned short int yytoknum[] =
-{
- 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
- 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
- 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
- 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
- 295, 296, 297, 298, 299, 300, 301, 302, 303, 304,
- 305, 306, 307, 308, 309, 310, 311, 312, 313, 314,
- 315, 316, 317, 318, 319, 320, 321, 322, 323, 324,
- 325, 326, 327, 328, 329, 330, 331, 332, 333, 334,
- 335, 336, 337, 338, 339, 340, 341, 342, 343, 344,
- 345, 346, 347, 348, 349, 350, 351, 352, 353, 354,
- 355, 356, 40, 41, 44, 123, 125, 59, 33, 45,
- 61, 43, 42, 47, 38, 124, 126, 60, 62, 58,
- 91, 93, 37, 94
-};
-# endif
-
-/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
-static const unsigned short int yyr1[] =
-{
- 0, 124, 125, 125, 127, 126, 128, 128, 128, 128,
- 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,
- 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,
- 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
- 129, 129, 130, 131, 131, 132, 133, 134, 134, 135,
- 137, 136, 139, 138, 140, 141, 141, 142, 142, 142,
- 144, 143, 145, 145, 147, 146, 148, 148, 149, 150,
- 152, 151, 153, 153, 154, 155, 156, 156, 156, 156,
- 157, 157, 158, 159, 160, 161, 161, 162, 162, 163,
- 163, 164, 165, 166, 167, 167, 168, 168, 169, 169,
- 170, 171, 172, 173, 174, 174, 175, 176, 177, 178,
- 179, 180, 181, 182, 183, 184, 185, 186, 187, 188,
- 189, 190, 191, 191, 193, 192, 194, 194, 195, 195,
- 196, 196, 197, 197, 198, 198, 198, 199, 199, 200,
- 200, 201, 201, 202, 202, 203, 203, 203, 203, 203,
- 203, 204, 204, 204, 204, 204, 205, 206, 206, 207,
- 208, 208, 208, 208, 208, 208, 208, 208, 208, 209,
- 209, 209, 210, 210, 212, 211, 213, 214, 216, 215,
- 217, 217, 218, 218, 219, 220, 220, 221, 221, 222,
- 222, 222, 222, 222, 222, 222, 222, 222, 222, 222,
- 222, 222, 222, 222, 222, 222, 222, 222, 222, 222,
- 222, 222, 222, 222, 223, 223, 224, 226, 225, 225,
- 227, 228, 228, 229, 229, 230, 230, 231, 231, 231,
- 232, 232, 232, 232, 232, 232, 232, 232, 232, 232,
- 232, 232, 232, 232, 232, 232, 232, 232, 232, 232,
- 232, 232, 232, 232, 232, 232, 232, 232, 232, 233,
- 233, 234, 234, 235, 235, 236, 236, 237, 237, 238,
- 238, 238, 239, 239, 240, 240, 241, 242, 242, 242,
- 243, 243, 243, 243, 243, 243, 243, 243, 243, 245,
- 244, 244, 246, 246, 248, 247, 247, 249, 250, 250,
- 251, 252, 252, 253, 253, 254, 254, 254, 254, 254,
- 254, 254, 254, 254, 254, 254, 254, 254, 254, 254,
- 254, 254, 254, 254, 254, 254, 254, 254, 254, 254,
- 254, 254, 254, 255, 255, 256, 256, 257, 257, 257
-};
-
-/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
-static const unsigned char yyr2[] =
-{
- 0, 2, 1, 2, 0, 2, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 4, 1, 3, 1, 9, 0, 3, 2,
- 0, 4, 0, 5, 4, 1, 2, 1, 2, 2,
- 0, 7, 1, 2, 0, 5, 1, 2, 1, 2,
- 0, 5, 1, 2, 1, 4, 1, 2, 3, 4,
- 1, 3, 1, 2, 3, 1, 1, 1, 1, 0,
- 1, 2, 2, 2, 0, 2, 0, 2, 0, 2,
- 2, 2, 2, 2, 0, 1, 2, 2, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
- 4, 2, 1, 2, 0, 8, 0, 1, 0, 1,
- 0, 1, 1, 2, 1, 1, 4, 0, 1, 0,
- 2, 0, 2, 1, 3, 1, 1, 1, 1, 1,
- 1, 0, 1, 1, 1, 1, 2, 1, 3, 1,
- 1, 4, 1, 1, 1, 1, 1, 1, 1, 0,
- 1, 3, 4, 10, 0, 8, 2, 4, 0, 7,
- 0, 2, 1, 3, 1, 0, 3, 1, 2, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 2, 2,
- 3, 3, 3, 2, 0, 1, 11, 0, 3, 1,
- 9, 0, 5, 0, 6, 0, 1, 13, 14, 13,
- 1, 1, 1, 1, 1, 1, 1, 1, 2, 2,
- 2, 2, 2, 2, 2, 2, 2, 2, 3, 3,
- 1, 2, 2, 1, 2, 2, 2, 1, 2, 0,
- 1, 0, 2, 0, 3, 1, 3, 1, 3, 1,
- 1, 1, 0, 2, 0, 2, 1, 0, 1, 3,
- 3, 3, 3, 2, 2, 5, 5, 2, 2, 0,
- 3, 1, 1, 1, 0, 3, 1, 7, 4, 3,
- 3, 0, 1, 0, 2, 1, 4, 2, 2, 1,
- 1, 2, 1, 1, 2, 2, 3, 1, 1, 1,
- 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 3, 0, 4, 0, 1, 3
-};
-
-/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
- STATE-NUM when YYTABLE doesn't specify something else to do. Zero
- means the default is an error. */
-static const unsigned short int yydefact[] =
-{
- 4, 4, 2, 0, 1, 3, 0, 45, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 82,
- 159, 0, 0, 0, 0, 0, 0, 85, 86, 0,
- 0, 319, 309, 312, 313, 317, 318, 322, 323, 324,
- 325, 326, 327, 328, 329, 330, 331, 128, 0, 310,
- 0, 0, 0, 70, 64, 0, 263, 0, 0, 0,
- 332, 5, 29, 7, 8, 36, 27, 28, 32, 14,
- 15, 13, 30, 31, 16, 6, 0, 10, 11, 12,
- 9, 17, 18, 41, 19, 20, 21, 22, 23, 24,
- 25, 26, 38, 305, 157, 37, 33, 35, 0, 34,
- 39, 40, 0, 303, 0, 122, 118, 0, 119, 126,
- 114, 115, 116, 112, 117, 100, 0, 50, 128, 91,
- 92, 93, 101, 102, 103, 178, 159, 307, 315, 129,
- 263, 320, 308, 311, 314, 321, 303, 0, 60, 0,
- 0, 69, 0, 83, 0, 47, 0, 87, 88, 89,
- 0, 0, 0, 176, 263, 0, 301, 43, 0, 123,
- 121, 127, 0, 0, 76, 0, 80, 0, 0, 180,
- 263, 124, 316, 301, 0, 303, 0, 0, 0, 267,
- 0, 265, 277, 0, 263, 333, 0, 90, 84, 158,
- 0, 52, 277, 0, 0, 0, 231, 0, 230, 232,
- 233, 235, 236, 250, 253, 257, 0, 234, 237, 0,
- 304, 302, 299, 42, 0, 120, 0, 51, 77, 0,
- 75, 128, 0, 263, 0, 0, 298, 172, 0, 0,
- 74, 0, 72, 68, 0, 66, 0, 0, 264, 128,
- 128, 128, 128, 128, 0, 0, 128, 0, 276, 278,
- 128, 141, 0, 0, 0, 177, 306, 0, 0, 94,
- 251, 256, 241, 255, 240, 242, 243, 245, 246, 254,
- 238, 258, 239, 252, 244, 247, 277, 44, 0, 0,
- 0, 55, 57, 78, 0, 81, 184, 181, 182, 185,
- 225, 130, 0, 62, 0, 0, 71, 73, 65, 67,
- 269, 270, 271, 268, 266, 141, 141, 141, 283, 284,
- 277, 277, 287, 259, 0, 263, 151, 288, 48, 104,
- 334, 53, 259, 0, 96, 248, 249, 0, 58, 59,
- 0, 56, 79, 0, 225, 0, 0, 159, 0, 0,
- 0, 0, 0, 0, 0, 0, 214, 214, 214, 0,
- 294, 289, 217, 194, 191, 189, 190, 198, 199, 200,
- 201, 202, 203, 204, 197, 196, 195, 192, 193, 225,
- 187, 206, 205, 219, 0, 296, 207, 291, 292, 293,
- 139, 134, 135, 0, 131, 132, 0, 0, 63, 280,
- 281, 282, 0, 0, 260, 335, 279, 300, 152, 154,
- 155, 153, 142, 0, 143, 105, 0, 335, 95, 0,
- 98, 259, 54, 183, 225, 179, 113, 277, 106, 107,
- 108, 109, 110, 111, 209, 208, 215, 0, 0, 0,
- 213, 0, 0, 0, 0, 188, 0, 151, 263, 0,
- 133, 0, 61, 128, 128, 0, 261, 145, 146, 147,
- 148, 149, 150, 151, 167, 163, 162, 168, 164, 165,
- 166, 160, 156, 0, 0, 0, 261, 97, 0, 297,
- 335, 186, 0, 210, 211, 212, 295, 0, 294, 290,
- 0, 218, 175, 0, 140, 137, 125, 0, 285, 286,
- 337, 0, 263, 144, 151, 49, 0, 263, 99, 261,
- 335, 0, 0, 138, 136, 0, 338, 0, 262, 223,
- 170, 0, 46, 223, 263, 263, 335, 173, 336, 0,
- 0, 0, 161, 151, 0, 223, 221, 261, 339, 0,
- 272, 171, 272, 0, 0, 0, 263, 277, 0, 274,
- 274, 272, 277, 272, 0, 0, 273, 0, 229, 227,
- 274, 0, 220, 272, 0, 275, 228, 0, 274, 224,
- 222, 216
-};
-
-/* YYDEFGOTO[NTERM-NUM]. */
-static const short int yydefgoto[] =
-{
- -1, 1, 2, 3, 61, 62, 63, 158, 64, 353,
- 184, 465, 66, 163, 67, 257, 217, 280, 281, 354,
- 176, 294, 69, 140, 234, 235, 70, 71, 139, 231,
- 232, 355, 166, 167, 356, 74, 75, 76, 149, 188,
- 77, 78, 79, 324, 410, 469, 80, 81, 82, 357,
- 406, 358, 359, 360, 361, 362, 363, 84, 364, 85,
- 86, 87, 88, 89, 90, 91, 106, 107, 365, 225,
- 162, 130, 383, 384, 385, 504, 438, 317, 402, 453,
- 403, 404, 93, 94, 462, 511, 366, 367, 170, 97,
- 295, 368, 169, 223, 287, 288, 335, 369, 370, 427,
- 371, 372, 433, 373, 535, 521, 374, 375, 209, 395,
- 492, 143, 180, 181, 303, 539, 548, 247, 248, 249,
- 376, 432, 377, 378, 431, 379, 250, 251, 212, 156,
- 103, 186, 446, 507
-};
-
-/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
- STATE-NUM. */
-#define YYPACT_NINF -484
-static const short int yypact[] =
-{
- -484, 79, -484, 506, -484, -484, 29, -484, 127, 127,
- 132, 127, 127, 127, 127, 127, 127, 1004, 58, -484,
- -484, 139, 157, 176, 127, 127, 127, -484, -484, 179,
- 189, -484, -484, -484, 158, -484, -484, -484, -484, -484,
- -484, -484, -484, -484, -484, -484, -484, 193, 159, 137,
- 1004, 221, 195, -484, -484, 203, 115, 221, 179, 112,
- -484, -484, -484, -484, -484, -484, -484, -484, -484, -484,
- -484, -484, -484, -484, -484, -484, 69, -484, -484, -484,
- -484, -484, -484, -484, -484, -484, -484, -484, -484, -484,
- -484, -484, -484, -28, -484, -484, -484, -484, 41, -484,
- -484, -484, 12, -484, 204, -484, -484, 92, -484, 207,
- -484, -484, -484, -484, -484, -484, 179, -484, 14, -484,
- -484, -484, -484, -484, -484, 160, 2, 160, -484, -484,
- 115, -484, -484, -484, 178, -484, -484, 19, -484, 128,
- 130, -484, 214, -484, 135, -18, 221, -484, -484, 165,
- 179, 221, 1004, -484, -39, 240, 47, -484, 46, -484,
- -484, -484, 127, 136, 133, 226, 177, 151, 148, 141,
- 115, -484, -484, 47, 154, -484, 153, 241, 242, 152,
- -14, -484, 867, 179, 115, -484, -40, -484, -484, -484,
- -6, -484, 867, 161, 162, 183, 186, 187, 188, 190,
- 197, 198, 213, -484, -15, -1, 146, 215, 216, 169,
- -484, -484, -484, -484, 266, -484, 39, -484, -484, 17,
- -484, 193, 179, 115, 184, 219, -484, -484, 6, 814,
- -484, 18, -484, -484, 20, -484, 28, 214, -484, 193,
- 193, 193, 193, 193, 201, 235, 193, 225, 234, -484,
- 193, 230, -27, 238, 221, -484, -484, 136, 244, 336,
- -484, -484, -484, -484, -484, -484, -484, -484, -484, -484,
- 249, -484, 251, -484, -484, -484, 867, -484, 127, 127,
- 13, -484, -484, -484, 342, -484, 160, 261, -484, 262,
- 755, 108, 265, -484, 113, 325, -484, -484, -484, -484,
- -484, -484, -484, -484, -484, 230, 230, 230, -484, -484,
- 867, 867, -484, 297, 867, 115, -8, -484, -484, 331,
- -484, -484, 297, 127, 366, -484, -484, 273, -484, -484,
- 270, -484, -484, 179, 755, 272, 127, 278, 127, 127,
- 127, 127, 127, 127, 127, 127, 332, 332, 332, 267,
- 268, -484, -484, -484, -484, -484, -484, -484, -484, -484,
- -484, -484, -484, -484, -484, -484, -484, -484, -484, 589,
- -484, -484, -484, -484, 269, -484, -484, -484, -484, -484,
- 271, -484, -484, 281, 108, -484, 286, 282, -484, -484,
- -484, -484, 287, 288, -484, 298, -484, -484, -484, -484,
- -484, -484, 109, 927, -484, -484, 294, 298, -484, 127,
- 387, 297, -484, -484, 672, -484, -484, 867, -484, -484,
- -484, -484, -484, -484, -484, -484, -484, 283, 284, 285,
- -484, 978, 420, 379, 299, -484, 383, -8, 115, 300,
- -484, 221, -484, 193, 193, 306, 301, -484, -484, -484,
- -484, -484, -484, -8, -484, -484, -484, -484, -484, -484,
- -484, -34, -484, 307, 127, 304, 301, -484, 127, -484,
- 298, -484, 309, -484, -484, -484, -484, 33, -484, -484,
- 278, -484, -484, 311, -484, 310, -484, 81, -484, -484,
- 179, 333, 115, -484, 84, -484, 313, 115, -484, 301,
- 298, 314, 315, -484, -484, 316, 160, 100, -484, 302,
- 109, 102, -484, 302, 115, 115, 298, -484, -484, 179,
- 221, 317, -484, -8, 318, 302, 308, 301, 160, 319,
- 394, 109, 394, 320, 328, 324, 115, 867, 127, 407,
- 407, 394, 867, 394, 326, 335, -484, 127, -484, -484,
- 407, 337, -484, 394, 322, -484, -484, 323, 407, -484,
- -484, -484
-};
-
-/* YYPGOTO[NTERM-NUM]. */
-static const short int yypgoto[] =
-{
- -484, -484, 433, -484, -484, -197, -484, -484, -484, 11,
- -484, -484, -484, -484, -484, -484, 182, -484, 155, 21,
- -484, -484, -484, -484, -484, 211, -484, -484, -484, -484,
- 210, 10, -484, -484, 15, -484, -484, -484, -484, -484,
- -484, -484, -484, -484, -484, -484, -484, -484, -484, 22,
- -484, -484, -484, -484, -484, -484, -484, -484, -484, -484,
- -484, -484, -484, -484, -484, -484, -9, -484, 23, -484,
- -484, -98, -484, -484, 63, -484, -484, -169, -436, -484,
- -484, -376, -20, 303, -484, -484, 24, 26, -484, -484,
- 445, 16, -484, -484, -484, 116, -484, 117, -321, -139,
- -484, -484, -484, 25, -484, -443, -484, -2, -484, -291,
- -433, -119, -484, 217, -484, -472, -483, -171, -484, 138,
- -484, -484, 30, -484, -484, 27, 5, -484, 277, -87,
- -5, -129, -384, -484
-};
-
-/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
- positive, shift that token. If negative, reduce the rule which
- number is the opposite. If zero, do what YYDEFACT says.
- If YYTABLE_NINF, syntax error. */
-#define YYTABLE_NINF -306
-static const short int yytable[] =
-{
- 108, 100, 110, 111, 112, 113, 114, 115, 102, 125,
- 127, 171, 117, 72, 65, 122, 123, 124, 73, 99,
- 168, 258, 190, 466, 68, 83, 92, 95, 292, 96,
- 101, 407, 293, 497, 154, 193, 164, 150, 145, 283,
- 230, 174, 233, 150, 150, 136, 278, 279, 435, 173,
- 300, 224, 301, 150, 26, 501, 137, 549, 510, 152,
- 540, 484, 144, 192, 254, 253, 514, 556, -305, 550,
- 524, 552, 278, 279, 142, 561, 318, 493, 255, 4,
- 26, 558, 533, 151, 183, 29, 499, 531, 228, 151,
- 237, 147, 148, 435, 536, 269, 127, 388, 254, 238,
- 398, 399, 270, 400, 289, 327, 155, -174, 401, 271,
- 302, 159, 256, 160, 153, -174, 515, 272, 210, 330,
- 470, 175, 165, 285, 296, 284, 298, 155, 18, 19,
- 380, 104, 527, 18, 19, 20, 389, 390, 391, 392,
- 393, 305, 306, 307, 308, 309, 105, 191, 312, 213,
- 214, 185, 315, 215, 26, 109, 185, 29, 30, 210,
- 118, 211, 119, 252, 31, 32, 33, 34, 35, 36,
- 37, 38, 39, 40, 41, 42, 43, 44, 45, 46,
- 120, 47, 48, 49, 505, 254, 50, -169, -169, 132,
- 133, 134, 398, 399, 135, 400, 397, 51, 52, 121,
- 401, 20, 286, 518, 519, 522, 523, 57, 428, 429,
- 58, 126, 128, 59, 60, 129, 131, 138, 447, 387,
- 448, 449, 450, 451, 452, 141, 157, 100, 142, 146,
- 161, 150, 172, 177, 102, 178, 179, 182, 282, 72,
- 65, 216, -129, 20, 73, 99, 472, 187, 218, 219,
- 68, 83, 92, 95, 220, 96, 101, 221, 229, 320,
- 222, 227, 236, 230, 233, 260, 116, 273, 259, 328,
- 329, 276, 31, 32, 33, 34, 35, 36, 37, 38,
- 39, 40, 41, 42, 43, 44, 45, 46, 277, 290,
- 48, 49, 100, 261, 50, 102, 262, 263, 264, 102,
- 265, 381, 282, 310, 72, 65, 382, 266, 267, 73,
- 99, 153, 487, 286, 408, 68, 83, 92, 95, 485,
- 96, 101, 60, 268, 291, 274, 275, 416, 313, 418,
- 419, 420, 421, 422, 423, 424, 425, 311, 314, 102,
- 316, 405, 194, 319, 323, 488, 489, 322, 195, 196,
- 197, 198, 199, 200, 201, 202, 203, 204, 205, 325,
- 206, 326, 207, 208, 332, 333, 545, 334, 386, 29,
- 394, 551, 26, 509, 102, 409, 411, 412, 513, 415,
- 417, 437, 426, 461, -226, 436, 430, 439, 441, 442,
- 443, 444, 464, 445, 381, 525, 526, 468, 463, 382,
- 467, 480, 473, 474, 475, 483, 482, 486, 490, 494,
- 496, 491, 500, 502, 503, 508, 192, 544, 516, 102,
- 512, 537, 520, 517, 530, 532, 538, 541, 534, 476,
- 542, 543, 547, 553, 5, 331, 477, 102, 554, 321,
- 557, 297, 20, 559, 560, 299, 185, 440, 98, 413,
- 226, 414, 396, 189, 304, 495, 0, 0, 481, 498,
- 0, 0, 479, 0, 0, 116, 0, 0, 0, 0,
- 506, 31, 32, 33, 34, 35, 36, 37, 38, 39,
- 40, 41, 42, 43, 44, 45, 46, 478, 0, 48,
- 49, 0, 0, 50, 0, 0, 0, 0, 0, 528,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 6,
- 7, 8, 9, 10, 57, 0, 0, 11, 12, 13,
- 14, 60, 15, 16, 17, 529, 18, 19, 20, 546,
- 0, 0, 0, 0, 0, 0, 0, 0, 555, 0,
- 0, 0, 21, 22, 23, 24, 25, 26, 27, 28,
- 29, 30, 0, 0, 0, 0, 0, 31, 32, 33,
- 34, 35, 36, 37, 38, 39, 40, 41, 42, 43,
- 44, 45, 46, 0, 47, 48, 49, 0, 0, 50,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 51, 52, 53, 54, 55, 56, 0, 0, 0, 0,
- 57, 0, 0, 58, 336, 0, 59, 60, 0, 18,
- 19, 337, 0, 0, 0, 338, 339, 340, 341, 342,
- 343, 0, 0, 344, 345, 0, 0, 0, 0, 0,
- 26, 0, 0, 29, 30, 346, 347, 348, 349, 0,
- 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
- 41, 42, 43, 44, 45, 46, 350, 47, 48, 49,
- 0, 0, 50, 351, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 51, 52, 0, 0, 0, 0, 0,
- 0, 0, 0, 57, 0, 0, 58, 336, 352, 0,
- 60, 0, 18, 19, 337, 434, 0, 0, 338, 339,
- 340, 341, 342, 343, 0, 0, 344, 345, 0, 0,
- 0, 0, 0, 26, 0, 0, 29, 30, 346, 347,
- 348, 349, 0, 31, 32, 33, 34, 35, 36, 37,
- 38, 39, 40, 41, 42, 43, 44, 45, 46, 350,
- 47, 48, 49, 0, 0, 50, 351, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 51, 52, 0, 0,
- 0, 0, 0, 0, 0, 0, 57, 0, 0, 58,
- 336, 352, 0, 60, 0, 18, 19, 337, 471, 0,
- 0, 338, 339, 340, 341, 342, 343, 0, 0, 344,
- 345, 0, 0, 0, 0, 0, 26, 0, 0, 29,
- 30, 346, 347, 348, 349, 0, 31, 32, 33, 34,
- 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
- 45, 46, 350, 47, 48, 49, 0, 0, 50, 351,
- 0, 0, 0, 0, 18, 19, 20, 0, 0, 51,
- 52, 0, 0, 0, 0, 0, 0, 0, 0, 57,
- 0, 0, 58, 0, 352, 26, 60, 0, 29, 30,
- 0, 0, 0, 0, 0, 31, 32, 33, 34, 35,
- 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
- 46, 0, 47, 48, 49, 0, 0, 50, 0, 20,
- 0, 0, 0, 0, 0, 0, 0, 0, 51, 52,
- 0, 0, 0, 0, 0, 0, 0, 0, 57, 0,
- 0, 58, 116, 0, 59, 60, 0, 0, 31, 32,
- 33, 34, 35, 36, 37, 38, 39, 40, 41, 42,
- 43, 44, 45, 46, 0, 0, 48, 49, 0, 0,
- 50, 0, 239, 240, 241, 242, 243, 244, 245, 20,
- 0, 454, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 246, 0, 0, 0, 0, 60, 0,
- 0, 0, 116, 0, 0, 0, 0, 0, 31, 32,
- 33, 34, 35, 36, 37, 38, 39, 40, 41, 42,
- 43, 44, 45, 46, 0, 0, 48, 49, 0, 0,
- 20, 0, 0, 0, 0, 0, 0, 0, 0, 455,
- 456, 0, 0, 0, 0, 0, 0, 457, 458, 459,
- 460, 0, 0, 116, 0, 0, 20, 0, 60, 31,
- 32, 33, 34, 35, 36, 37, 38, 39, 40, 41,
- 42, 43, 44, 45, 46, 0, 0, 48, 49, 116,
- 0, 50, 0, 0, 0, 31, 32, 33, 34, 35,
- 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
- 46, 0, 57, 48, 49, 0, 0, 0, 0, 60,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
- 0, 0, 0, 0, 0, 60
-};
-
-static const short int yycheck[] =
-{
- 9, 3, 11, 12, 13, 14, 15, 16, 3, 29,
- 30, 130, 17, 3, 3, 24, 25, 26, 3, 3,
- 118, 192, 151, 407, 3, 3, 3, 3, 22, 3,
- 3, 322, 229, 466, 22, 154, 22, 71, 58, 22,
- 22, 22, 22, 71, 71, 50, 33, 34, 369, 136,
- 22, 170, 24, 71, 41, 22, 51, 540, 494, 18,
- 532, 437, 57, 102, 104, 184, 499, 550, 102, 541,
- 513, 543, 33, 34, 113, 558, 103, 453, 118, 0,
- 41, 553, 525, 117, 102, 44, 470, 523, 175, 117,
- 104, 22, 23, 414, 527, 110, 116, 294, 104, 113,
- 108, 109, 117, 111, 223, 276, 94, 105, 116, 110,
- 82, 19, 118, 21, 98, 113, 500, 118, 112, 106,
- 411, 102, 108, 221, 106, 108, 106, 94, 20, 21,
- 22, 102, 516, 20, 21, 22, 305, 306, 307, 310,
- 311, 239, 240, 241, 242, 243, 19, 152, 246, 103,
- 104, 146, 250, 162, 41, 23, 151, 44, 45, 112,
- 102, 114, 23, 183, 51, 52, 53, 54, 55, 56,
- 57, 58, 59, 60, 61, 62, 63, 64, 65, 66,
- 23, 68, 69, 70, 103, 104, 73, 103, 104, 52,
- 53, 54, 108, 109, 57, 111, 315, 84, 85, 23,
- 116, 22, 222, 103, 104, 103, 104, 94, 347, 348,
- 97, 22, 54, 100, 101, 22, 57, 22, 109, 106,
- 111, 112, 113, 114, 115, 22, 22, 229, 113, 117,
- 23, 71, 54, 105, 229, 105, 22, 102, 216, 229,
- 229, 105, 109, 22, 229, 229, 417, 82, 22, 72,
- 229, 229, 229, 229, 103, 229, 229, 109, 105, 254,
- 119, 107, 110, 22, 22, 103, 45, 121, 107, 278,
- 279, 102, 51, 52, 53, 54, 55, 56, 57, 58,
- 59, 60, 61, 62, 63, 64, 65, 66, 22, 105,
- 69, 70, 294, 110, 73, 290, 110, 110, 110, 294,
- 110, 291, 280, 102, 294, 294, 291, 110, 110, 294,
- 294, 295, 441, 333, 323, 294, 294, 294, 294, 438,
- 294, 294, 101, 110, 105, 110, 110, 336, 103, 338,
- 339, 340, 341, 342, 343, 344, 345, 102, 104, 334,
- 110, 319, 102, 105, 8, 443, 444, 103, 108, 109,
- 110, 111, 112, 113, 114, 115, 116, 117, 118, 110,
- 120, 110, 122, 123, 22, 104, 537, 105, 103, 44,
- 73, 542, 41, 492, 369, 9, 103, 107, 497, 107,
- 102, 110, 50, 403, 116, 116, 119, 106, 102, 107,
- 103, 103, 98, 95, 384, 514, 515, 10, 403, 384,
- 409, 22, 119, 119, 119, 22, 107, 107, 102, 102,
- 106, 110, 103, 102, 104, 82, 102, 536, 103, 414,
- 107, 102, 120, 107, 107, 107, 32, 107, 120, 431,
- 102, 107, 25, 107, 1, 280, 431, 432, 103, 257,
- 103, 231, 22, 121, 121, 234, 441, 384, 3, 333,
- 173, 334, 314, 150, 237, 464, -1, -1, 433, 468,
- -1, -1, 432, -1, -1, 45, -1, -1, -1, -1,
- 490, 51, 52, 53, 54, 55, 56, 57, 58, 59,
- 60, 61, 62, 63, 64, 65, 66, 67, -1, 69,
- 70, -1, -1, 73, -1, -1, -1, -1, -1, 519,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, 3,
- 4, 5, 6, 7, 94, -1, -1, 11, 12, 13,
- 14, 101, 16, 17, 18, 520, 20, 21, 22, 538,
- -1, -1, -1, -1, -1, -1, -1, -1, 547, -1,
- -1, -1, 36, 37, 38, 39, 40, 41, 42, 43,
- 44, 45, -1, -1, -1, -1, -1, 51, 52, 53,
- 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
- 64, 65, 66, -1, 68, 69, 70, -1, -1, 73,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- 84, 85, 86, 87, 88, 89, -1, -1, -1, -1,
- 94, -1, -1, 97, 15, -1, 100, 101, -1, 20,
- 21, 22, -1, -1, -1, 26, 27, 28, 29, 30,
- 31, -1, -1, 34, 35, -1, -1, -1, -1, -1,
- 41, -1, -1, 44, 45, 46, 47, 48, 49, -1,
- 51, 52, 53, 54, 55, 56, 57, 58, 59, 60,
- 61, 62, 63, 64, 65, 66, 67, 68, 69, 70,
- -1, -1, 73, 74, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 84, 85, -1, -1, -1, -1, -1,
- -1, -1, -1, 94, -1, -1, 97, 15, 99, -1,
- 101, -1, 20, 21, 22, 106, -1, -1, 26, 27,
- 28, 29, 30, 31, -1, -1, 34, 35, -1, -1,
- -1, -1, -1, 41, -1, -1, 44, 45, 46, 47,
- 48, 49, -1, 51, 52, 53, 54, 55, 56, 57,
- 58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
- 68, 69, 70, -1, -1, 73, 74, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, 84, 85, -1, -1,
- -1, -1, -1, -1, -1, -1, 94, -1, -1, 97,
- 15, 99, -1, 101, -1, 20, 21, 22, 106, -1,
- -1, 26, 27, 28, 29, 30, 31, -1, -1, 34,
- 35, -1, -1, -1, -1, -1, 41, -1, -1, 44,
- 45, 46, 47, 48, 49, -1, 51, 52, 53, 54,
- 55, 56, 57, 58, 59, 60, 61, 62, 63, 64,
- 65, 66, 67, 68, 69, 70, -1, -1, 73, 74,
- -1, -1, -1, -1, 20, 21, 22, -1, -1, 84,
- 85, -1, -1, -1, -1, -1, -1, -1, -1, 94,
- -1, -1, 97, -1, 99, 41, 101, -1, 44, 45,
- -1, -1, -1, -1, -1, 51, 52, 53, 54, 55,
- 56, 57, 58, 59, 60, 61, 62, 63, 64, 65,
- 66, -1, 68, 69, 70, -1, -1, 73, -1, 22,
- -1, -1, -1, -1, -1, -1, -1, -1, 84, 85,
- -1, -1, -1, -1, -1, -1, -1, -1, 94, -1,
- -1, 97, 45, -1, 100, 101, -1, -1, 51, 52,
- 53, 54, 55, 56, 57, 58, 59, 60, 61, 62,
- 63, 64, 65, 66, -1, -1, 69, 70, -1, -1,
- 73, -1, 75, 76, 77, 78, 79, 80, 81, 22,
- -1, 24, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, 96, -1, -1, -1, -1, 101, -1,
- -1, -1, 45, -1, -1, -1, -1, -1, 51, 52,
- 53, 54, 55, 56, 57, 58, 59, 60, 61, 62,
- 63, 64, 65, 66, -1, -1, 69, 70, -1, -1,
- 22, -1, -1, -1, -1, -1, -1, -1, -1, 82,
- 83, -1, -1, -1, -1, -1, -1, 90, 91, 92,
- 93, -1, -1, 45, -1, -1, 22, -1, 101, 51,
- 52, 53, 54, 55, 56, 57, 58, 59, 60, 61,
- 62, 63, 64, 65, 66, -1, -1, 69, 70, 45,
- -1, 73, -1, -1, -1, 51, 52, 53, 54, 55,
- 56, 57, 58, 59, 60, 61, 62, 63, 64, 65,
- 66, -1, 94, 69, 70, -1, -1, -1, -1, 101,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
- -1, -1, -1, -1, -1, 101
-};
-
-/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
- symbol of state STATE-NUM. */
-static const unsigned short int yystos[] =
-{
- 0, 125, 126, 127, 0, 126, 3, 4, 5, 6,
- 7, 11, 12, 13, 14, 16, 17, 18, 20, 21,
- 22, 36, 37, 38, 39, 40, 41, 42, 43, 44,
- 45, 51, 52, 53, 54, 55, 56, 57, 58, 59,
- 60, 61, 62, 63, 64, 65, 66, 68, 69, 70,
- 73, 84, 85, 86, 87, 88, 89, 94, 97, 100,
- 101, 128, 129, 130, 132, 133, 136, 138, 143, 146,
- 150, 151, 155, 158, 159, 160, 161, 164, 165, 166,
- 170, 171, 172, 173, 181, 183, 184, 185, 186, 187,
- 188, 189, 192, 206, 207, 210, 211, 213, 214, 215,
- 231, 249, 250, 254, 102, 19, 190, 191, 190, 23,
- 190, 190, 190, 190, 190, 190, 45, 254, 102, 23,
- 23, 23, 190, 190, 190, 206, 22, 206, 54, 22,
- 195, 57, 52, 53, 54, 57, 254, 250, 22, 152,
- 147, 22, 113, 235, 250, 206, 117, 22, 23, 162,
- 71, 117, 18, 215, 22, 94, 253, 22, 131, 19,
- 21, 23, 194, 137, 22, 108, 156, 157, 195, 216,
- 212, 235, 54, 253, 22, 102, 144, 105, 105, 22,
- 236, 237, 102, 102, 134, 250, 255, 82, 163, 207,
- 255, 254, 102, 235, 102, 108, 109, 110, 111, 112,
- 113, 114, 115, 116, 117, 118, 120, 122, 123, 232,
- 112, 114, 252, 103, 104, 190, 105, 140, 22, 72,
- 103, 109, 119, 217, 235, 193, 252, 107, 253, 105,
- 22, 153, 154, 22, 148, 149, 110, 104, 113, 75,
- 76, 77, 78, 79, 80, 81, 96, 241, 242, 243,
- 250, 251, 206, 235, 104, 118, 118, 139, 241, 107,
- 103, 110, 110, 110, 110, 110, 110, 110, 110, 110,
- 117, 110, 118, 121, 110, 110, 102, 22, 33, 34,
- 141, 142, 173, 22, 108, 195, 206, 218, 219, 235,
- 105, 105, 22, 129, 145, 214, 106, 154, 106, 149,
- 22, 24, 82, 238, 237, 195, 195, 195, 195, 195,
- 102, 102, 195, 103, 104, 195, 110, 201, 103, 105,
- 250, 140, 103, 8, 167, 110, 110, 241, 190, 190,
- 106, 142, 22, 104, 105, 220, 15, 22, 26, 27,
- 28, 29, 30, 31, 34, 35, 46, 47, 48, 49,
- 67, 74, 99, 133, 143, 155, 158, 173, 175, 176,
- 177, 178, 179, 180, 182, 192, 210, 211, 215, 221,
- 222, 224, 225, 227, 230, 231, 244, 246, 247, 249,
- 22, 155, 158, 196, 197, 198, 103, 106, 129, 201,
- 201, 201, 241, 241, 73, 233, 243, 235, 108, 109,
- 111, 116, 202, 204, 205, 173, 174, 233, 190, 9,
- 168, 103, 107, 219, 221, 107, 190, 102, 190, 190,
- 190, 190, 190, 190, 190, 190, 50, 223, 223, 223,
- 119, 248, 245, 226, 106, 222, 116, 110, 200, 106,
- 198, 102, 107, 103, 103, 95, 256, 109, 111, 112,
- 113, 114, 115, 203, 24, 82, 83, 90, 91, 92,
- 93, 206, 208, 254, 98, 135, 256, 190, 10, 169,
- 233, 106, 241, 119, 119, 119, 231, 250, 67, 246,
- 22, 227, 107, 22, 205, 235, 107, 255, 195, 195,
- 102, 110, 234, 205, 102, 190, 106, 234, 190, 256,
- 103, 22, 102, 104, 199, 103, 206, 257, 82, 235,
- 202, 209, 107, 235, 234, 256, 103, 107, 103, 104,
- 120, 229, 103, 104, 229, 235, 235, 256, 206, 250,
- 107, 202, 107, 229, 120, 228, 234, 102, 32, 239,
- 239, 107, 102, 107, 235, 241, 190, 25, 240, 240,
- 239, 241, 239, 107, 103, 190, 240, 103, 239, 121,
- 121, 240
-};
-
-#if ! defined (YYSIZE_T) && defined (__SIZE_TYPE__)
-# define YYSIZE_T __SIZE_TYPE__
-#endif
-#if ! defined (YYSIZE_T) && defined (size_t)
-# define YYSIZE_T size_t
-#endif
-#if ! defined (YYSIZE_T)
-# if defined (__STDC__) || defined (__cplusplus)
-# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
-# define YYSIZE_T size_t
-# endif
-#endif
-#if ! defined (YYSIZE_T)
-# define YYSIZE_T unsigned int
-#endif
-
-#define yyerrok (yyerrstatus = 0)
-#define yyclearin (yychar = YYEMPTY)
-#define YYEMPTY (-2)
-#define YYEOF 0
-
-#define YYACCEPT goto yyacceptlab
-#define YYABORT goto yyabortlab
-#define YYERROR goto yyerrorlab
-
-
-/* Like YYERROR except do call yyerror. This remains here temporarily
- to ease the transition to the new meaning of YYERROR, for GCC.
- Once GCC version 2 has supplanted version 1, this can go. */
-
-#define YYFAIL goto yyerrlab
-
-#define YYRECOVERING() (!!yyerrstatus)
-
-#define YYBACKUP(Token, Value) \
-do \
- if (yychar == YYEMPTY && yylen == 1) \
- { \
- yychar = (Token); \
- yylval = (Value); \
- yytoken = YYTRANSLATE (yychar); \
- YYPOPSTACK; \
- goto yybackup; \
- } \
- else \
- { \
- yyerror ("syntax error: cannot back up");\
- YYERROR; \
- } \
-while (0)
-
-#define YYTERROR 1
-#define YYERRCODE 256
-
-/* YYLLOC_DEFAULT -- Compute the default location (before the actions
- are run). */
-
-#ifndef YYLLOC_DEFAULT
-# define YYLLOC_DEFAULT(Current, Rhs, N) \
- ((Current).first_line = (Rhs)[1].first_line, \
- (Current).first_column = (Rhs)[1].first_column, \
- (Current).last_line = (Rhs)[N].last_line, \
- (Current).last_column = (Rhs)[N].last_column)
-#endif
-
-/* YYLEX -- calling `yylex' with the right arguments. */
-
-#ifdef YYLEX_PARAM
-# define YYLEX yylex (YYLEX_PARAM)
-#else
-# define YYLEX yylex ()
-#endif
-
-/* Enable debugging if requested. */
-#if YYDEBUG
-
-# ifndef YYFPRINTF
-# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
-# define YYFPRINTF fprintf
-# endif
-
-# define YYDPRINTF(Args) \
-do { \
- if (yydebug) \
- YYFPRINTF Args; \
-} while (0)
-
-# define YYDSYMPRINT(Args) \
-do { \
- if (yydebug) \
- yysymprint Args; \
-} while (0)
-
-# define YYDSYMPRINTF(Title, Token, Value, Location) \
-do { \
- if (yydebug) \
- { \
- YYFPRINTF (stderr, "%s ", Title); \
- yysymprint (stderr, \
- Token, Value); \
- YYFPRINTF (stderr, "\n"); \
- } \
-} while (0)
-
-/*------------------------------------------------------------------.
-| yy_stack_print -- Print the state stack from its BOTTOM up to its |
-| TOP (included). |
-`------------------------------------------------------------------*/
-
-#if defined (__STDC__) || defined (__cplusplus)
-static void
-yy_stack_print (short int *bottom, short int *top)
-#else
-static void
-yy_stack_print (bottom, top)
- short int *bottom;
- short int *top;
-#endif
-{
- YYFPRINTF (stderr, "Stack now");
- for (/* Nothing. */; bottom <= top; ++bottom)
- YYFPRINTF (stderr, " %d", *bottom);
- YYFPRINTF (stderr, "\n");
-}
-
-# define YY_STACK_PRINT(Bottom, Top) \
-do { \
- if (yydebug) \
- yy_stack_print ((Bottom), (Top)); \
-} while (0)
-
-
-/*------------------------------------------------.
-| Report that the YYRULE is going to be reduced. |
-`------------------------------------------------*/
-
-#if defined (__STDC__) || defined (__cplusplus)
-static void
-yy_reduce_print (int yyrule)
-#else
-static void
-yy_reduce_print (yyrule)
- int yyrule;
-#endif
-{
- int yyi;
- unsigned int yylno = yyrline[yyrule];
- YYFPRINTF (stderr, "Reducing stack by rule %d (line %u), ",
- yyrule - 1, yylno);
- /* Print the symbols being reduced, and their result. */
- for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++)
- YYFPRINTF (stderr, "%s ", yytname [yyrhs[yyi]]);
- YYFPRINTF (stderr, "-> %s\n", yytname [yyr1[yyrule]]);
-}
-
-# define YY_REDUCE_PRINT(Rule) \
-do { \
- if (yydebug) \
- yy_reduce_print (Rule); \
-} while (0)
-
-/* Nonzero means print parse trace. It is left uninitialized so that
- multiple parsers can coexist. */
-int yydebug;
-#else /* !YYDEBUG */
-# define YYDPRINTF(Args)
-# define YYDSYMPRINT(Args)
-# define YYDSYMPRINTF(Title, Token, Value, Location)
-# define YY_STACK_PRINT(Bottom, Top)
-# define YY_REDUCE_PRINT(Rule)
-#endif /* !YYDEBUG */
-
-
-/* YYINITDEPTH -- initial size of the parser's stacks. */
-#ifndef YYINITDEPTH
-# define YYINITDEPTH 200
-#endif
-
-/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
- if the built-in stack extension method is used).
-
- Do not make this value too large; the results are undefined if
- SIZE_MAX < YYSTACK_BYTES (YYMAXDEPTH)
- evaluated with infinite-precision integer arithmetic. */
-
-#if defined (YYMAXDEPTH) && YYMAXDEPTH == 0
-# undef YYMAXDEPTH
-#endif
-
-#ifndef YYMAXDEPTH
-# define YYMAXDEPTH 10000
-#endif
-
-
-
-#if YYERROR_VERBOSE
-
-# ifndef yystrlen
-# if defined (__GLIBC__) && defined (_STRING_H)
-# define yystrlen strlen
-# else
-/* Return the length of YYSTR. */
-static YYSIZE_T
-# if defined (__STDC__) || defined (__cplusplus)
-yystrlen (const char *yystr)
-# else
-yystrlen (yystr)
- const char *yystr;
-# endif
-{
- register const char *yys = yystr;
-
- while (*yys++ != '\0')
- continue;
-
- return yys - yystr - 1;
-}
-# endif
-# endif
-
-# ifndef yystpcpy
-# if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE)
-# define yystpcpy stpcpy
-# else
-/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
- YYDEST. */
-static char *
-# if defined (__STDC__) || defined (__cplusplus)
-yystpcpy (char *yydest, const char *yysrc)
-# else
-yystpcpy (yydest, yysrc)
- char *yydest;
- const char *yysrc;
-# endif
-{
- register char *yyd = yydest;
- register const char *yys = yysrc;
-
- while ((*yyd++ = *yys++) != '\0')
- continue;
-
- return yyd - 1;
-}
-# endif
-# endif
-
-#endif /* !YYERROR_VERBOSE */
-
-
-
-#if YYDEBUG
-/*--------------------------------.
-| Print this symbol on YYOUTPUT. |
-`--------------------------------*/
-
-#if defined (__STDC__) || defined (__cplusplus)
-static void
-yysymprint (FILE *yyoutput, int yytype, YYSTYPE *yyvaluep)
-#else
-static void
-yysymprint (yyoutput, yytype, yyvaluep)
- FILE *yyoutput;
- int yytype;
- YYSTYPE *yyvaluep;
-#endif
-{
- /* Pacify ``unused variable'' warnings. */
- (void) yyvaluep;
-
- if (yytype < YYNTOKENS)
- {
- YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
-# ifdef YYPRINT
- YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
-# endif
- }
- else
- YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
-
- switch (yytype)
- {
- default:
- break;
- }
- YYFPRINTF (yyoutput, ")");
-}
-
-#endif /* ! YYDEBUG */
-/*-----------------------------------------------.
-| Release the memory associated to this symbol. |
-`-----------------------------------------------*/
-
-#if defined (__STDC__) || defined (__cplusplus)
-static void
-yydestruct (int yytype, YYSTYPE *yyvaluep)
-#else
-static void
-yydestruct (yytype, yyvaluep)
- int yytype;
- YYSTYPE *yyvaluep;
-#endif
-{
- /* Pacify ``unused variable'' warnings. */
- (void) yyvaluep;
-
- switch (yytype)
- {
-
- default:
- break;
- }
-}
-
-
-/* Prevent warnings from -Wmissing-prototypes. */
-
-#ifdef YYPARSE_PARAM
-# if defined (__STDC__) || defined (__cplusplus)
-int yyparse (void *YYPARSE_PARAM);
-# else
-int yyparse ();
-# endif
-#else /* ! YYPARSE_PARAM */
-#if defined (__STDC__) || defined (__cplusplus)
-int yyparse (void);
-#else
-int yyparse ();
-#endif
-#endif /* ! YYPARSE_PARAM */
-
-
-
-/* The lookahead symbol. */
-int yychar;
-
-/* The semantic value of the lookahead symbol. */
-YYSTYPE yylval;
-
-/* Number of syntax errors so far. */
-int yynerrs;
-
-
-
-/*----------.
-| yyparse. |
-`----------*/
-
-#ifdef YYPARSE_PARAM
-# if defined (__STDC__) || defined (__cplusplus)
-int yyparse (void *YYPARSE_PARAM)
-# else
-int yyparse (YYPARSE_PARAM)
- void *YYPARSE_PARAM;
-# endif
-#else /* ! YYPARSE_PARAM */
-#if defined (__STDC__) || defined (__cplusplus)
-int
-yyparse (void)
-#else
-int
-yyparse ()
-
-#endif
-#endif
-{
-
- register int yystate;
- register int yyn;
- int yyresult;
- /* Number of tokens to shift before error messages enabled. */
- int yyerrstatus;
- /* Lookahead token as an internal (translated) token number. */
- int yytoken = 0;
-
- /* Three stacks and their tools:
- `yyss': related to states,
- `yyvs': related to semantic values,
- `yyls': related to locations.
-
- Refer to the stacks thru separate pointers, to allow yyoverflow
- to reallocate them elsewhere. */
-
- /* The state stack. */
- short int yyssa[YYINITDEPTH];
- short int *yyss = yyssa;
- register short int *yyssp;
-
- /* The semantic value stack. */
- YYSTYPE yyvsa[YYINITDEPTH];
- YYSTYPE *yyvs = yyvsa;
- register YYSTYPE *yyvsp;
-
-
-
-#define YYPOPSTACK (yyvsp--, yyssp--)
-
- YYSIZE_T yystacksize = YYINITDEPTH;
-
- /* The variables used to return semantic value and location from the
- action routines. */
- YYSTYPE yyval;
-
-
- /* When reducing, the number of symbols on the RHS of the reduced
- rule. */
- int yylen;
-
- YYDPRINTF ((stderr, "Starting parse\n"));
-
- yystate = 0;
- yyerrstatus = 0;
- yynerrs = 0;
- yychar = YYEMPTY; /* Cause a token to be read. */
-
- /* Initialize stack pointers.
- Waste one element of value and location stack
- so that they stay on the same level as the state stack.
- The wasted elements are never initialized. */
-
- yyssp = yyss;
- yyvsp = yyvs;
-
-
- goto yysetstate;
-
-/*------------------------------------------------------------.
-| yynewstate -- Push a new state, which is found in yystate. |
-`------------------------------------------------------------*/
- yynewstate:
- /* In all cases, when you get here, the value and location stacks
- have just been pushed. so pushing a state here evens the stacks.
- */
- yyssp++;
-
- yysetstate:
- *yyssp = yystate;
-
- if (yyss + yystacksize - 1 <= yyssp)
- {
- /* Get the current used size of the three stacks, in elements. */
- YYSIZE_T yysize = yyssp - yyss + 1;
-
-#ifdef yyoverflow
- {
- /* Give user a chance to reallocate the stack. Use copies of
- these so that the &'s don't force the real ones into
- memory. */
- YYSTYPE *yyvs1 = yyvs;
- short int *yyss1 = yyss;
-
-
- /* Each stack pointer address is followed by the size of the
- data in use in that stack, in bytes. This used to be a
- conditional around just the two extra args, but that might
- be undefined if yyoverflow is a macro. */
- yyoverflow ("parser stack overflow",
- &yyss1, yysize * sizeof (*yyssp),
- &yyvs1, yysize * sizeof (*yyvsp),
-
- &yystacksize);
-
- yyss = yyss1;
- yyvs = yyvs1;
- }
-#else /* no yyoverflow */
-# ifndef YYSTACK_RELOCATE
- goto yyoverflowlab;
-# else
- /* Extend the stack our own way. */
- if (YYMAXDEPTH <= yystacksize)
- goto yyoverflowlab;
- yystacksize *= 2;
- if (YYMAXDEPTH < yystacksize)
- yystacksize = YYMAXDEPTH;
-
- {
- short int *yyss1 = yyss;
- union yyalloc *yyptr =
- (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
- if (! yyptr)
- goto yyoverflowlab;
- YYSTACK_RELOCATE (yyss);
- YYSTACK_RELOCATE (yyvs);
-
-# undef YYSTACK_RELOCATE
- if (yyss1 != yyssa)
- YYSTACK_FREE (yyss1);
- }
-# endif
-#endif /* no yyoverflow */
-
- yyssp = yyss + yysize - 1;
- yyvsp = yyvs + yysize - 1;
-
-
- YYDPRINTF ((stderr, "Stack size increased to %lu\n",
- (unsigned long int) yystacksize));
-
- if (yyss + yystacksize - 1 <= yyssp)
- YYABORT;
- }
-
- YYDPRINTF ((stderr, "Entering state %d\n", yystate));
-
- goto yybackup;
-
-/*-----------.
-| yybackup. |
-`-----------*/
-yybackup:
-
-/* Do appropriate processing given the current state. */
-/* Read a lookahead token if we need one and don't already have one. */
-/* yyresume: */
-
- /* First try to decide what to do without reference to lookahead token. */
-
- yyn = yypact[yystate];
- if (yyn == YYPACT_NINF)
- goto yydefault;
-
- /* Not known => get a lookahead token if don't already have one. */
-
- /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
- if (yychar == YYEMPTY)
- {
- YYDPRINTF ((stderr, "Reading a token: "));
- yychar = YYLEX;
- }
-
- if (yychar <= YYEOF)
- {
- yychar = yytoken = YYEOF;
- YYDPRINTF ((stderr, "Now at end of input.\n"));
- }
- else
- {
- yytoken = YYTRANSLATE (yychar);
- YYDSYMPRINTF ("Next token is", yytoken, &yylval, &yylloc);
- }
-
- /* If the proper action on seeing token YYTOKEN is to reduce or to
- detect an error, take that action. */
- yyn += yytoken;
- if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
- goto yydefault;
- yyn = yytable[yyn];
- if (yyn <= 0)
- {
- if (yyn == 0 || yyn == YYTABLE_NINF)
- goto yyerrlab;
- yyn = -yyn;
- goto yyreduce;
- }
-
- if (yyn == YYFINAL)
- YYACCEPT;
-
- /* Shift the lookahead token. */
- YYDPRINTF ((stderr, "Shifting token %s, ", yytname[yytoken]));
-
- /* Discard the token being shifted unless it is eof. */
- if (yychar != YYEOF)
- yychar = YYEMPTY;
-
- *++yyvsp = yylval;
-
-
- /* Count tokens shifted since error; after three, turn off error
- status. */
- if (yyerrstatus)
- yyerrstatus--;
-
- yystate = yyn;
- goto yynewstate;
-
-
-/*-----------------------------------------------------------.
-| yydefault -- do the default action for the current state. |
-`-----------------------------------------------------------*/
-yydefault:
- yyn = yydefact[yystate];
- if (yyn == 0)
- goto yyerrlab;
- goto yyreduce;
-
-
-/*-----------------------------.
-| yyreduce -- Do a reduction. |
-`-----------------------------*/
-yyreduce:
- /* yyn is the number of a rule to reduce with. */
- yylen = yyr2[yyn];
-
- /* If YYLEN is nonzero, implement the default value of the action:
- `$$ = $1'.
-
- Otherwise, the following line sets YYVAL to garbage.
- This behavior is undocumented and Bison
- users should not rely upon it. Assigning to YYVAL
- unconditionally makes the parser a bit smaller, and it avoids a
- GCC warning that YYVAL may be used uninitialized. */
- yyval = yyvsp[1-yylen];
-
-
- YY_REDUCE_PRINT (yyn);
- switch (yyn)
- {
- case 4:
-#line 293 "parser.y"
- {
- /*
- * We don't do these in parserEOF() because the parser
- * is reading ahead and that would be too early.
- */
-
- if (previousFile != NULL)
- {
- handleEOF();
-
- if (newContext.prevmod != NULL)
- handleEOM();
-
- free(previousFile);
- previousFile = NULL;
- }
- }
- break;
-
- case 17:
-#line 323 "parser.y"
- {
- if (notSkipping())
- appendCodeBlock(&currentSpec->exphdrcode, yyvsp[0].codeb);
- }
- break;
-
- case 18:
-#line 327 "parser.y"
- {
- if (notSkipping() && inMainModule())
- appendCodeBlock(&currentSpec -> hdrcode,yyvsp[0].codeb);
- }
- break;
-
- case 19:
-#line 331 "parser.y"
- {
- if (notSkipping() && inMainModule())
- appendCodeBlock(&currentSpec -> cppcode,yyvsp[0].codeb);
- }
- break;
-
- case 41:
-#line 358 "parser.y"
- {
- if (notSkipping())
- {
- classDef *scope = currentScope();
-
- if (scope == NULL)
- yyerror("%TypeHeaderCode can only be used in a namespace, class or mapped type");
-
- appendCodeBlock(&scope->hdrcode, yyvsp[0].codeb);
- }
- }
- break;
-
- case 43:
-#line 374 "parser.y"
- {
- appendString(&currentSpec->options, yyvsp[0].text);
- }
- break;
-
- case 44:
-#line 377 "parser.y"
- {
- appendString(&currentSpec->options, yyvsp[0].text);
- }
- break;
-
- case 45:
-#line 382 "parser.y"
- {
- if (notSkipping())
- {
- yywarning("%SIPNoEmitters is deprecated, please use %SIPOptions instead");
- appendString(&currentSpec->options, "QtNoEmitters");
- }
- }
- break;
-
- case 46:
-#line 391 "parser.y"
- {
- if (notSkipping())
- {
- exceptionDef *xd;
- char *pyname;
-
- if (currentSpec->genc)
- yyerror("%Exception not allowed in a C module");
-
- pyname = getPythonName(&yyvsp[-5].optflags, scopedNameTail(yyvsp[-7].scpvalp));
-
- checkAttributes(currentSpec, NULL, pyname, FALSE);
-
- xd = findException(currentSpec, yyvsp[-7].scpvalp, TRUE);
-
- if (xd->cd != NULL)
- yyerror("%Exception name has already been seen as a class name - it must be defined before being used");
-
- if (xd->iff->module != NULL)
- yyerror("The %Exception has already been defined");
-
- /* Complete the definition. */
-
- xd->iff->module = currentModule;
- xd->pyname = pyname;
- xd->bibase = yyvsp[-6].exceptionbase.bibase;
- xd->base = yyvsp[-6].exceptionbase.base;
- xd->hdrcode = yyvsp[-3].codeb;
- xd->raisecode = yyvsp[-2].codeb;
-
- if (xd->bibase != NULL || xd->base != NULL)
- xd->exceptionnr = currentModule->nrexceptions++;
-
- if (inMainModule() && xd->base != NULL && xd->base->iff->module != currentModule)
- addToUsedList(&currentSpec->used, xd->base->iff);
- }
- }
- break;
-
- case 47:
-#line 430 "parser.y"
- {
- yyval.exceptionbase.bibase = NULL;
- yyval.exceptionbase.base = NULL;
- }
- break;
-
- case 48:
-#line 434 "parser.y"
- {
- exceptionDef *xd;
-
- yyval.exceptionbase.bibase = NULL;
- yyval.exceptionbase.base = NULL;
-
- /* See if it is a defined exception. */
- for (xd = currentSpec->exceptions; xd != NULL; xd = xd->next)
- if (sameScopedName(xd->iff->fqcname, yyvsp[-1].scpvalp))
- {
- yyval.exceptionbase.base = xd;
- break;
- }
-
- if (xd == NULL && yyvsp[-1].scpvalp->next == NULL && strncmp(yyvsp[-1].scpvalp->name, "SIP_", 4) == 0)
- {
- /* See if it is a builtin exception. */
-
- static char *builtins[] = {
- "Exception",
- "StopIteration",
- "StandardError",
- "ArithmeticError",
- "LookupError",
- "AssertionError",
- "AttributeError",
- "EOFError",
- "FloatingPointError",
- "EnvironmentError",
- "IOError",
- "OSError",
- "ImportError",
- "IndexError",
- "KeyError",
- "KeyboardInterrupt",
- "MemoryError",
- "NameError",
- "OverflowError",
- "RuntimeError",
- "NotImplementedError",
- "SyntaxError",
- "IndentationError",
- "TabError",
- "ReferenceError",
- "SystemError",
- "SystemExit",
- "TypeError",
- "UnboundLocalError",
- "UnicodeError",
- "UnicodeEncodeError",
- "UnicodeDecodeError",
- "UnicodeTranslateError",
- "ValueError",
- "ZeroDivisionError",
- "WindowsError",
- "VMSError",
- NULL
- };
-
- char **cp;
-
- for (cp = builtins; *cp != NULL; ++cp)
- if (strcmp(yyvsp[-1].scpvalp->name + 4, *cp) == 0)
- {
- yyval.exceptionbase.bibase = *cp;
- break;
- }
- }
-
- if (yyval.exceptionbase.bibase == NULL && yyval.exceptionbase.base == NULL)
- yyerror("Unknown exception base type");
- }
- break;
-
- case 49:
-#line 508 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 50:
-#line 513 "parser.y"
- {
- if (notSkipping())
- currentMappedType = newMappedType(currentSpec,&yyvsp[0].memArg);
- }
- break;
-
- case 52:
-#line 519 "parser.y"
- {
- int a;
-
- if (currentSpec->genc)
- yyerror("%MappedType templates not allowed in a C module");
-
- /* Check the template arguments are all just simple names. */
- for (a = 0; a < yyvsp[-2].signature.nrArgs; ++a)
- if (yyvsp[-2].signature.args[a].atype != defined_type || yyvsp[-2].signature.args[a].u.snd->next != NULL)
- yyerror("%MappedType template arguments must be simple names");
-
- if (yyvsp[0].memArg.atype != template_type)
- yyerror("%MappedType template must map a template type");
-
- if (notSkipping())
- {
- mappedTypeTmplDef *mtt;
-
- /* Check a template hasn't already been provided. */
- for (mtt = currentSpec->mappedtypetemplates; mtt != NULL; mtt = mtt->next)
- if (sameScopedName(mtt->mt->type.u.td->fqname, yyvsp[0].memArg.u.td->fqname) && sameTemplateSignature(&mtt->mt->type.u.td->types, &yyvsp[0].memArg.u.td->types, TRUE))
- yyerror("%MappedType template for this type has already been defined");
-
- yyvsp[0].memArg.nrderefs = 0;
- yyvsp[0].memArg.argflags = 0;
-
- mtt = sipMalloc(sizeof (mappedTypeTmplDef));
-
- mtt->sig = yyvsp[-2].signature;
- mtt->mt = allocMappedType(&yyvsp[0].memArg);
- mtt->next = currentSpec->mappedtypetemplates;
-
- currentSpec->mappedtypetemplates = mtt;
-
- currentMappedType = mtt->mt;
- }
- }
- break;
-
- case 54:
-#line 558 "parser.y"
- {
- if (notSkipping())
- {
- if (currentMappedType->convfromcode == NULL)
- yyerror("%MappedType must have a %ConvertFromTypeCode directive");
-
- if (currentMappedType->convtocode == NULL)
- yyerror("%MappedType must have a %ConvertToTypeCode directive");
-
- currentMappedType = NULL;
- }
- }
- break;
-
- case 57:
-#line 576 "parser.y"
- {
- if (notSkipping())
- appendCodeBlock(&currentMappedType -> hdrcode,yyvsp[0].codeb);
- }
- break;
-
- case 58:
-#line 580 "parser.y"
- {
- if (notSkipping())
- {
- if (currentMappedType -> convfromcode != NULL)
- yyerror("%MappedType has more than one %ConvertFromTypeCode directive");
-
- currentMappedType -> convfromcode = yyvsp[0].codeb;
- }
- }
- break;
-
- case 59:
-#line 589 "parser.y"
- {
- if (notSkipping())
- {
- if (currentMappedType -> convtocode != NULL)
- yyerror("%MappedType has more than one %ConvertToTypeCode directive");
-
- currentMappedType -> convtocode = yyvsp[0].codeb;
- }
- }
- break;
-
- case 60:
-#line 600 "parser.y"
- {
- if (currentSpec -> genc)
- yyerror("namespace definition not allowed in a C module");
-
- if (notSkipping())
- {
- classDef *ns;
-
- ns = newClass(currentSpec,namespace_iface,text2scopedName(yyvsp[0].text));
-
- pushScope(ns);
-
- sectionFlags = 0;
- }
- }
- break;
-
- case 61:
-#line 614 "parser.y"
- {
- if (inMainModule())
- {
- classDef *ns = currentScope();
-
- if (!isUsedName(ns->iff->name))
- {
- varDef *vd;
-
- for (vd = currentSpec->vars; vd != NULL; vd = vd->next)
- if (vd->ecd == ns)
- {
- setIsUsedName(ns->iff->name);
- break;
- }
- }
- }
-
- if (notSkipping())
- popScope();
- }
- break;
-
- case 64:
-#line 641 "parser.y"
- {
- qualDef *qd;
-
- for (qd = currentModule -> qualifiers; qd != NULL; qd = qd -> next)
- if (qd -> qtype == platform_qualifier)
- yyerror("%Platforms has already been defined for this module");
- }
- break;
-
- case 65:
-#line 648 "parser.y"
- {
- qualDef *qd;
- int nrneeded;
-
- /*
- * Check that exactly one platform in the set was
- * requested.
- */
-
- nrneeded = 0;
-
- for (qd = currentModule -> qualifiers; qd != NULL; qd = qd -> next)
- if (qd -> qtype == platform_qualifier && isNeeded(qd))
- ++nrneeded;
-
- if (nrneeded > 1)
- yyerror("No more than one of these %Platforms must be specified with the -t flag");
- }
- break;
-
- case 68:
-#line 672 "parser.y"
- {
- newQualifier(currentModule,-1,-1,yyvsp[0].text,platform_qualifier);
- }
- break;
-
- case 69:
-#line 677 "parser.y"
- {
- newQualifier(currentModule,-1,-1,yyvsp[0].text,feature_qualifier);
- }
- break;
-
- case 70:
-#line 682 "parser.y"
- {
- currentTimelineOrder = 0;
- }
- break;
-
- case 71:
-#line 685 "parser.y"
- {
- qualDef *qd;
- int nrneeded;
-
- /*
- * Check that exactly one time slot in the set was
- * requested.
- */
-
- nrneeded = 0;
-
- for (qd = currentModule -> qualifiers; qd != NULL; qd = qd -> next)
- if (qd -> qtype == time_qualifier && isNeeded(qd))
- ++nrneeded;
-
- if (nrneeded > 1)
- yyerror("At most one of this %Timeline must be specified with the -t flag");
-
- currentModule -> nrtimelines++;
- }
- break;
-
- case 74:
-#line 711 "parser.y"
- {
- newQualifier(currentModule,currentModule -> nrtimelines,currentTimelineOrder++,yyvsp[0].text,time_qualifier);
- }
- break;
-
- case 75:
-#line 716 "parser.y"
- {
- if (skipStackPtr >= MAX_NESTED_IF)
- yyerror("Internal error: increase the value of MAX_NESTED_IF");
-
- /* Nested %Ifs are implicit logical ands. */
-
- if (skipStackPtr > 0)
- yyvsp[-1].boolean = (yyvsp[-1].boolean && skipStack[skipStackPtr - 1]);
-
- skipStack[skipStackPtr++] = yyvsp[-1].boolean;
- }
- break;
-
- case 76:
-#line 729 "parser.y"
- {
- yyval.boolean = platOrFeature(yyvsp[0].text,FALSE);
- }
- break;
-
- case 77:
-#line 732 "parser.y"
- {
- yyval.boolean = platOrFeature(yyvsp[0].text,TRUE);
- }
- break;
-
- case 78:
-#line 735 "parser.y"
- {
- yyval.boolean = (platOrFeature(yyvsp[0].text,FALSE) || yyvsp[-2].boolean);
- }
- break;
-
- case 79:
-#line 738 "parser.y"
- {
- yyval.boolean = (platOrFeature(yyvsp[0].text,TRUE) || yyvsp[-3].boolean);
- }
- break;
-
- case 81:
-#line 744 "parser.y"
- {
- yyval.boolean = timePeriod(yyvsp[-2].text,yyvsp[0].text);
- }
- break;
-
- case 82:
-#line 749 "parser.y"
- {
- if (skipStackPtr-- <= 0)
- yyerror("Too many %End directives");
- }
- break;
-
- case 83:
-#line 755 "parser.y"
- {
- optFlag *of;
-
- if (yyvsp[0].optflags.nrFlags == 0)
- yyerror("%License details not specified");
-
- if ((of = findOptFlag(&yyvsp[0].optflags,"Type",string_flag)) == NULL)
- yyerror("%License type not specified");
-
- currentModule -> license = sipMalloc(sizeof (licenseDef));
-
- currentModule -> license -> type = of -> fvalue.sval;
-
- currentModule -> license -> licensee =
- ((of = findOptFlag(&yyvsp[0].optflags,"Licensee",string_flag)) != NULL)
- ? of -> fvalue.sval : NULL;
-
- currentModule -> license -> timestamp =
- ((of = findOptFlag(&yyvsp[0].optflags,"Timestamp",string_flag)) != NULL)
- ? of -> fvalue.sval : NULL;
-
- currentModule -> license -> sig =
- ((of = findOptFlag(&yyvsp[0].optflags,"Signature",string_flag)) != NULL)
- ? of -> fvalue.sval : NULL;
- }
- break;
-
- case 84:
-#line 782 "parser.y"
- {
- /* Check the module hasn't already been defined. */
-
- moduleDef *mod;
-
- for (mod = currentSpec -> modules; mod != NULL; mod = mod -> next)
- if (mod->fullname != NULL && strcmp(mod->fullname, yyvsp[-1].text) == 0)
- yyerror("Module is already defined");
-
- currentModule->fullname = yyvsp[-1].text;
-
- if ((currentModule->name = strrchr(yyvsp[-1].text, '.')) != NULL)
- currentModule->name++;
- else
- currentModule->name = yyvsp[-1].text;
-
- currentModule -> version = yyvsp[0].number;
-
- if (currentSpec -> genc < 0)
- currentSpec -> genc = yyvsp[-2].boolean;
- else if (currentSpec -> genc != yyvsp[-2].boolean)
- yyerror("Cannot mix C and C++ modules");
- }
- break;
-
- case 85:
-#line 807 "parser.y"
- {
- yyval.boolean = FALSE;
- }
- break;
-
- case 86:
-#line 810 "parser.y"
- {
- yyval.boolean = TRUE;
- }
- break;
-
- case 88:
-#line 816 "parser.y"
- {
- /*
- * The grammar design is a bit broken and this is the
- * easiest way to allow periods in module names.
- */
-
- char *cp;
-
- for (cp = yyvsp[0].text; *cp != '\0'; ++cp)
- if (*cp != '.' && *cp != '_' && !isalnum(*cp))
- yyerror("Invalid character in module name");
-
- yyval.text = yyvsp[0].text;
- }
- break;
-
- case 89:
-#line 832 "parser.y"
- {
- yyval.number = -1;
- }
- break;
-
- case 91:
-#line 838 "parser.y"
- {
- parseFile(NULL,yyvsp[0].text,NULL,FALSE);
- }
- break;
-
- case 92:
-#line 843 "parser.y"
- {
- parseFile(NULL,yyvsp[0].text,NULL,TRUE);
- }
- break;
-
- case 93:
-#line 848 "parser.y"
- {
- newImport(yyvsp[0].text);
- }
- break;
-
- case 94:
-#line 853 "parser.y"
- {
- yyval.codeb = NULL;
- }
- break;
-
- case 95:
-#line 856 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 96:
-#line 861 "parser.y"
- {
- yyval.codeb = NULL;
- }
- break;
-
- case 97:
-#line 864 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 98:
-#line 869 "parser.y"
- {
- yyval.codeb = NULL;
- }
- break;
-
- case 99:
-#line 872 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 100:
-#line 877 "parser.y"
- {
- if (inMainModule())
- appendCodeBlock(&currentSpec -> copying,yyvsp[0].codeb);
- }
- break;
-
- case 101:
-#line 883 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 102:
-#line 888 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 103:
-#line 893 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 104:
-#line 898 "parser.y"
- {
- yyval.codeb = NULL;
- }
- break;
-
- case 106:
-#line 904 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 107:
-#line 909 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 108:
-#line 914 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 109:
-#line 919 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 110:
-#line 924 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 111:
-#line 929 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 112:
-#line 934 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 113:
-#line 939 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 114:
-#line 944 "parser.y"
- {
- if (notSkipping() && inMainModule())
- appendCodeBlock(&currentSpec -> preinitcode,yyvsp[0].codeb);
- }
- break;
-
- case 115:
-#line 950 "parser.y"
- {
- if (notSkipping() && inMainModule())
- appendCodeBlock(&currentSpec -> postinitcode,yyvsp[0].codeb);
- }
- break;
-
- case 116:
-#line 956 "parser.y"
- {
- if (notSkipping() && inMainModule())
- appendCodeBlock(&currentSpec->unitcode, yyvsp[0].codeb);
- }
- break;
-
- case 117:
-#line 962 "parser.y"
- {
- /*
- * This is a no-op and is retained for compatibility
- * until the last use of it (by SIP v3) can be removed
- * from PyQt.
- */
- }
- break;
-
- case 118:
-#line 971 "parser.y"
- {
- if (inMainModule())
- appendCodeBlock(&currentSpec -> docs,yyvsp[0].codeb);
- }
- break;
-
- case 119:
-#line 977 "parser.y"
- {
- appendCodeBlock(&currentSpec -> docs,yyvsp[0].codeb);
- }
- break;
-
- case 120:
-#line 982 "parser.y"
- {
- if (inMainModule())
- yywarning("%Makefile is ignored, please use the -b flag instead");
- }
- break;
-
- case 123:
-#line 992 "parser.y"
- {
- yyval.codeb = yyvsp[-1].codeb;
-
- append(&yyval.codeb->frag, yyvsp[0].codeb->frag);
-
- free(yyvsp[0].codeb->frag);
- free(yyvsp[0].codeb->filename);
- free(yyvsp[0].codeb);
- }
- break;
-
- case 124:
-#line 1003 "parser.y"
- {
- if (notSkipping())
- {
- if (sectionFlags != 0 && (sectionFlags & ~(SECT_IS_PUBLIC | SECT_IS_PROT)) != 0)
- yyerror("Class enums must be in the public or protected sections");
-
- currentEnum = newEnum(currentSpec,currentModule,yyvsp[-1].text,&yyvsp[0].optflags,sectionFlags);
- }
- }
- break;
-
- case 126:
-#line 1014 "parser.y"
- {
- yyval.text = NULL;
- }
- break;
-
- case 127:
-#line 1017 "parser.y"
- {
- yyval.text = yyvsp[0].text;
- }
- break;
-
- case 128:
-#line 1022 "parser.y"
- {
- yyval.text = NULL;
- }
- break;
-
- case 129:
-#line 1025 "parser.y"
- {
- yyval.text = yyvsp[0].text;
- }
- break;
-
- case 136:
-#line 1040 "parser.y"
- {
- if (notSkipping())
- {
- /*
- * Note that we don't use the assigned value.
- * This is a hangover from when enums where
- * generated in Python. We can remove it when
- * we have got around to updating all the .sip
- * files.
- */
- enumMemberDef *emd, **tail;
-
- emd = sipMalloc(sizeof (enumMemberDef));
-
- emd -> pyname = cacheName(currentSpec, getPythonName(&yyvsp[-1].optflags, yyvsp[-3].text));
- emd -> cname = yyvsp[-3].text;
- emd -> ed = currentEnum;
- emd -> next = NULL;
-
- checkAttributes(currentSpec,emd -> ed -> ecd,emd -> pyname -> text,FALSE);
-
- /* Append to preserve the order. */
- for (tail = &currentEnum->members; *tail != NULL; tail = &(*tail)->next)
- ;
-
- *tail = emd;
-
- if (inMainModule())
- setIsUsedName(emd -> pyname);
- }
- }
- break;
-
- case 141:
-#line 1081 "parser.y"
- {
- yyval.valp = NULL;
- }
- break;
-
- case 142:
-#line 1084 "parser.y"
- {
- yyval.valp = yyvsp[0].valp;
- }
- break;
-
- case 144:
-#line 1090 "parser.y"
- {
- valueDef *vd;
-
- if (yyvsp[-2].valp -> vtype == string_value || yyvsp[0].valp -> vtype == string_value)
- yyerror("Invalid binary operator for string");
-
- /* Find the last value in the existing expression. */
-
- for (vd = yyvsp[-2].valp; vd -> next != NULL; vd = vd -> next)
- ;
-
- vd -> vbinop = yyvsp[-1].qchar;
- vd -> next = yyvsp[0].valp;
-
- yyval.valp = yyvsp[-2].valp;
- }
- break;
-
- case 145:
-#line 1108 "parser.y"
- {
- yyval.qchar = '-';
- }
- break;
-
- case 146:
-#line 1111 "parser.y"
- {
- yyval.qchar = '+';
- }
- break;
-
- case 147:
-#line 1114 "parser.y"
- {
- yyval.qchar = '*';
- }
- break;
-
- case 148:
-#line 1117 "parser.y"
- {
- yyval.qchar = '/';
- }
- break;
-
- case 149:
-#line 1120 "parser.y"
- {
- yyval.qchar = '&';
- }
- break;
-
- case 150:
-#line 1123 "parser.y"
- {
- yyval.qchar = '|';
- }
- break;
-
- case 151:
-#line 1128 "parser.y"
- {
- yyval.qchar = '\0';
- }
- break;
-
- case 152:
-#line 1131 "parser.y"
- {
- yyval.qchar = '!';
- }
- break;
-
- case 153:
-#line 1134 "parser.y"
- {
- yyval.qchar = '~';
- }
- break;
-
- case 154:
-#line 1137 "parser.y"
- {
- yyval.qchar = '-';
- }
- break;
-
- case 155:
-#line 1140 "parser.y"
- {
- yyval.qchar = '+';
- }
- break;
-
- case 156:
-#line 1145 "parser.y"
- {
- if (yyvsp[-1].qchar != '\0' && yyvsp[0].value.vtype == string_value)
- yyerror("Invalid unary operator for string");
-
- /*
- * Convert the value to a simple expression on the
- * heap.
- */
-
- yyval.valp = sipMalloc(sizeof (valueDef));
-
- *yyval.valp = yyvsp[0].value;
- yyval.valp -> vunop = yyvsp[-1].qchar;
- yyval.valp -> vbinop = '\0';
- yyval.valp -> next = NULL;
- }
- break;
-
- case 158:
-#line 1164 "parser.y"
- {
- if (currentSpec -> genc)
- yyerror("Scoped names are not allowed in a C module");
-
- appendScopedName(&yyvsp[-2].scpvalp,yyvsp[0].scpvalp);
- }
- break;
-
- case 159:
-#line 1172 "parser.y"
- {
- yyval.scpvalp = text2scopePart(yyvsp[0].text);
- }
- break;
-
- case 160:
-#line 1177 "parser.y"
- {
- /*
- * We let the C++ compiler decide if the value is a
- * valid one - no point in building a full C++ parser
- * here.
- */
-
- yyval.value.vtype = scoped_value;
- yyval.value.u.vscp = yyvsp[0].scpvalp;
- }
- break;
-
- case 161:
-#line 1187 "parser.y"
- {
- fcallDef *fcd;
-
- fcd = sipMalloc(sizeof (fcallDef));
- *fcd = yyvsp[-1].fcall;
- fcd -> type = yyvsp[-3].memArg;
-
- yyval.value.vtype = fcall_value;
- yyval.value.u.fcd = fcd;
- }
- break;
-
- case 162:
-#line 1197 "parser.y"
- {
- yyval.value.vtype = real_value;
- yyval.value.u.vreal = yyvsp[0].real;
- }
- break;
-
- case 163:
-#line 1201 "parser.y"
- {
- yyval.value.vtype = numeric_value;
- yyval.value.u.vnum = yyvsp[0].number;
- }
- break;
-
- case 164:
-#line 1205 "parser.y"
- {
- yyval.value.vtype = numeric_value;
- yyval.value.u.vnum = 1;
- }
- break;
-
- case 165:
-#line 1209 "parser.y"
- {
- yyval.value.vtype = numeric_value;
- yyval.value.u.vnum = 0;
- }
- break;
-
- case 166:
-#line 1213 "parser.y"
- {
- yyval.value.vtype = numeric_value;
- yyval.value.u.vnum = 0;
- }
- break;
-
- case 167:
-#line 1217 "parser.y"
- {
- yyval.value.vtype = string_value;
- yyval.value.u.vstr = yyvsp[0].text;
- }
- break;
-
- case 168:
-#line 1221 "parser.y"
- {
- yyval.value.vtype = qchar_value;
- yyval.value.u.vqchar = yyvsp[0].qchar;
- }
- break;
-
- case 169:
-#line 1227 "parser.y"
- {
- /* No values. */
-
- yyval.fcall.nrArgs = 0;
- }
- break;
-
- case 170:
-#line 1232 "parser.y"
- {
- /* The single or first expression. */
-
- yyval.fcall.args[0] = yyvsp[0].valp;
- yyval.fcall.nrArgs = 1;
- }
- break;
-
- case 171:
-#line 1238 "parser.y"
- {
- /* Check that it wasn't ...(,expression...). */
-
- if (yyval.fcall.nrArgs == 0)
- yyerror("First argument to function call is missing");
-
- /* Check there is room. */
-
- if (yyvsp[-2].fcall.nrArgs == MAX_NR_ARGS)
- yyerror("Too many arguments to function call");
-
- yyval.fcall = yyvsp[-2].fcall;
-
- yyval.fcall.args[yyval.fcall.nrArgs] = yyvsp[0].valp;
- yyval.fcall.nrArgs++;
- }
- break;
-
- case 172:
-#line 1256 "parser.y"
- {
- if (notSkipping())
- newTypedef(currentSpec,currentModule,yyvsp[-1].text,&yyvsp[-2].memArg);
- }
- break;
-
- case 173:
-#line 1260 "parser.y"
- {
- if (notSkipping())
- {
- argDef ftype;
- signatureDef *sig;
-
- /* Create the full signature on the heap. */
- sig = sipMalloc(sizeof (signatureDef));
- *sig = yyvsp[-2].signature;
- sig -> result = yyvsp[-8].memArg;
-
- /* Create the full type. */
- ftype.atype = function_type;
- ftype.argflags = 0;
- ftype.nrderefs = yyvsp[-6].number;
- ftype.defval = NULL;
- ftype.u.sa = sig;
-
- newTypedef(currentSpec,currentModule,yyvsp[-5].text,&ftype);
- }
- }
- break;
-
- case 174:
-#line 1283 "parser.y"
- {
- if (notSkipping())
- {
- classDef *cd;
-
- cd = newClass(currentSpec,class_iface,text2scopedName(yyvsp[0].text));
-
- pushScope(cd);
-
- sectionFlags = SECT_IS_PUBLIC;
- }
- }
- break;
-
- case 175:
-#line 1294 "parser.y"
- {
- if (notSkipping())
- {
- finishClass(currentSpec, currentModule, currentScope(), &yyvsp[-4].optflags);
- popScope();
- }
- }
- break;
-
- case 176:
-#line 1303 "parser.y"
- {
- if (currentSpec->genc)
- yyerror("Class templates not allowed in a C module");
-
- if (notSkipping())
- {
- classTmplDef *tcd;
-
- /*
- * Make sure there is room for the extra class
- * name argument.
- */
- if (yyvsp[-1].signature.nrArgs == MAX_NR_ARGS)
- yyerror("Internal error - increase the value of MAX_NR_ARGS");
-
- tcd = sipMalloc(sizeof (classTmplDef));
- tcd->sig = yyvsp[-1].signature;
- tcd->cd = yyvsp[0].klass;
- tcd->next = currentSpec->classtemplates;
-
- currentSpec->classtemplates = tcd;
- }
- }
- break;
-
- case 177:
-#line 1328 "parser.y"
- {
- yyval.signature = yyvsp[-1].signature;
- }
- break;
-
- case 178:
-#line 1333 "parser.y"
- {
- if (currentSpec -> genc)
- yyerror("Class definition not allowed in a C module");
-
- if (notSkipping())
- {
- classDef *cd;
-
- cd = newClass(currentSpec, class_iface, scopeScopedName(yyvsp[0].scpvalp));
-
- pushScope(cd);
-
- sectionFlags = SECT_IS_PRIVATE;
- }
- }
- break;
-
- case 179:
-#line 1347 "parser.y"
- {
- if (notSkipping())
- {
- classDef *cd = currentScope();
-
- /*
- * See if the class was defined or just
- * declared.
- */
- if (yyvsp[-1].boolean)
- {
- if (yyvsp[-5].scpvalp->next != NULL)
- yyerror("A scoped name cannot be given in a class definition");
-
- }
- else if (cd->supers != NULL)
- yyerror("Class has super-classes but no definition");
- else
- setIsOpaque(cd);
-
- finishClass(currentSpec, currentModule, cd, &yyvsp[-2].optflags);
- popScope();
-
- /*
- * Check that external classes have only been
- * declared at the global scope.
- */
- if (isExternal(cd) && currentScope() != NULL)
- yyerror("External classes can only be declared in the global scope");
-
- yyval.klass = cd;
- }
- }
- break;
-
- case 184:
-#line 1390 "parser.y"
- {
- if (notSkipping())
- {
- classDef *cd, *super;
-
- cd = currentScope();
-
- super = findClass(currentSpec,class_iface,yyvsp[0].scpvalp);
-
- appendToClassList(&cd -> supers,super);
- addToUsedList(&cd->iff->used, super->iff);
- }
- }
- break;
-
- case 185:
-#line 1405 "parser.y"
- {
- yyval.boolean = FALSE;
- }
- break;
-
- case 186:
-#line 1408 "parser.y"
- {
- yyval.boolean = TRUE;
- }
- break;
-
- case 197:
-#line 1425 "parser.y"
- {
- if (notSkipping())
- appendCodeBlock(&currentScope() -> cppcode,yyvsp[0].codeb);
- }
- break;
-
- case 198:
-#line 1429 "parser.y"
- {
- if (notSkipping())
- appendCodeBlock(&currentScope() -> hdrcode,yyvsp[0].codeb);
- }
- break;
-
- case 199:
-#line 1433 "parser.y"
- {
- if (currentScope()->travcode != NULL)
- yyerror("%GCTraverseCode already given for class");
-
- if (notSkipping())
- currentScope()->travcode = yyvsp[0].codeb;
- }
- break;
-
- case 200:
-#line 1440 "parser.y"
- {
- if (currentScope()->clearcode != NULL)
- yyerror("%GCClearCode already given for class");
-
- if (notSkipping())
- currentScope()->clearcode = yyvsp[0].codeb;
- }
- break;
-
- case 201:
-#line 1447 "parser.y"
- {
- if (currentScope()->readbufcode != NULL)
- yyerror("%BIGetReadBufferCode already given for class");
-
- if (notSkipping())
- currentScope()->readbufcode = yyvsp[0].codeb;
- }
- break;
-
- case 202:
-#line 1454 "parser.y"
- {
- if (currentScope()->writebufcode != NULL)
- yyerror("%BIGetWriteBufferCode already given for class");
-
- if (notSkipping())
- currentScope()->writebufcode = yyvsp[0].codeb;
- }
- break;
-
- case 203:
-#line 1461 "parser.y"
- {
- if (currentScope()->segcountcode != NULL)
- yyerror("%BIGetSegCountCode already given for class");
-
- if (notSkipping())
- currentScope()->segcountcode = yyvsp[0].codeb;
- }
- break;
-
- case 204:
-#line 1468 "parser.y"
- {
- if (currentScope()->charbufcode != NULL)
- yyerror("%BIGetCharBufferCode already given for class");
-
- if (notSkipping())
- currentScope()->charbufcode = yyvsp[0].codeb;
- }
- break;
-
- case 208:
-#line 1478 "parser.y"
- {
- if (notSkipping())
- {
- classDef *cd = currentScope();
-
- if (cd -> convtosubcode != NULL)
- yyerror("Class has more than one %ConvertToSubClassCode directive");
-
- cd -> convtosubcode = yyvsp[0].codeb;
- }
- }
- break;
-
- case 209:
-#line 1489 "parser.y"
- {
- if (notSkipping())
- {
- classDef *cd = currentScope();
-
- if (cd -> convtocode != NULL)
- yyerror("Class has more than one %ConvertToTypeCode directive");
-
- cd -> convtocode = yyvsp[0].codeb;
- }
- }
- break;
-
- case 210:
-#line 1500 "parser.y"
- {
- if (currentSpec -> genc)
- yyerror("public section not allowed in a C module");
-
- if (notSkipping())
- sectionFlags = SECT_IS_PUBLIC | yyvsp[-1].number;
- }
- break;
-
- case 211:
-#line 1507 "parser.y"
- {
- if (currentSpec -> genc)
- yyerror("protected section not allowed in a C module");
-
- if (notSkipping())
- sectionFlags = SECT_IS_PROT | yyvsp[-1].number;
- }
- break;
-
- case 212:
-#line 1514 "parser.y"
- {
- if (currentSpec -> genc)
- yyerror("private section not allowed in a C module");
-
- if (notSkipping())
- sectionFlags = SECT_IS_PRIVATE | yyvsp[-1].number;
- }
- break;
-
- case 213:
-#line 1521 "parser.y"
- {
- if (currentSpec -> genc)
- yyerror("signals section not allowed in a C module");
-
- if (notSkipping())
- sectionFlags = SECT_IS_SIGNAL;
- }
- break;
-
- case 214:
-#line 1530 "parser.y"
- {
- yyval.number = 0;
- }
- break;
-
- case 215:
-#line 1533 "parser.y"
- {
- yyval.number = SECT_IS_SLOT;
- }
- break;
-
- case 216:
-#line 1538 "parser.y"
- {
- /* Note that we allow non-virtual dtors in C modules. */
-
- if (notSkipping())
- {
- classDef *cd = currentScope();
-
- if (strcmp(classBaseName(cd),yyvsp[-8].text) != 0)
- yyerror("Destructor doesn't have the same name as its class");
-
- if (isDtor(cd))
- yyerror("Destructor has already been defined");
-
- if (currentSpec -> genc && yyvsp[-1].codeb == NULL)
- yyerror("Destructor in C modules must include %MethodCode");
-
- cd -> dealloccode = yyvsp[-1].codeb;
- cd -> dtorcode = yyvsp[0].codeb;
- cd -> dtorexceptions = yyvsp[-5].throwlist;
- cd -> classflags |= sectionFlags;
-
- if (yyvsp[-4].number)
- {
- if (!yyvsp[-10].number)
- yyerror("Abstract destructor must be virtual");
-
- setIsAbstractClass(cd);
- }
-
- /*
- * The class has a shadow if we have a virtual dtor or some
- * dtor code.
- */
- if (yyvsp[-10].number || yyvsp[0].codeb != NULL)
- {
- if (currentSpec -> genc)
- yyerror("Virtual destructor or %VirtualCatcherCode not allowed in a C module");
-
- setHasShadow(cd);
- }
-
- if (getReleaseGIL(&yyvsp[-3].optflags))
- setIsReleaseGILDtor(cd);
- else if (getHoldGIL(&yyvsp[-3].optflags))
- setIsHoldGILDtor(cd);
- }
- }
- break;
-
- case 217:
-#line 1587 "parser.y"
- {currentCtorIsExplicit = TRUE;}
- break;
-
- case 220:
-#line 1591 "parser.y"
- {
- /* Note that we allow ctors in C modules. */
-
- if (notSkipping())
- {
- if (currentSpec -> genc)
- {
- if (yyvsp[0].codeb == NULL && yyvsp[-6].signature.nrArgs != 0)
- yyerror("Constructors with arguments in C modules must include %MethodCode");
-
- if (currentCtorIsExplicit)
- yyerror("Explicit constructors not allowed in a C module");
- }
-
- if ((sectionFlags & (SECT_IS_PUBLIC | SECT_IS_PROT | SECT_IS_PRIVATE)) == 0)
- yyerror("Constructor must be in the public, private or protected sections");
-
- newCtor(yyvsp[-8].text,sectionFlags,&yyvsp[-6].signature,&yyvsp[-3].optflags,yyvsp[0].codeb,yyvsp[-4].throwlist,yyvsp[-2].optsignature,currentCtorIsExplicit);
- }
-
- free(yyvsp[-8].text);
-
- currentCtorIsExplicit = FALSE;
- }
- break;
-
- case 221:
-#line 1617 "parser.y"
- {
- yyval.optsignature = NULL;
- }
- break;
-
- case 222:
-#line 1620 "parser.y"
- {
- yyval.optsignature = sipMalloc(sizeof (signatureDef));
-
- *yyval.optsignature = yyvsp[-2].signature;
- }
- break;
-
- case 223:
-#line 1627 "parser.y"
- {
- yyval.optsignature = NULL;
- }
- break;
-
- case 224:
-#line 1630 "parser.y"
- {
- yyval.optsignature = sipMalloc(sizeof (signatureDef));
-
- *yyval.optsignature = yyvsp[-2].signature;
- yyval.optsignature -> result = yyvsp[-4].memArg;
- }
- break;
-
- case 225:
-#line 1638 "parser.y"
- {
- yyval.number = FALSE;
- }
- break;
-
- case 226:
-#line 1641 "parser.y"
- {
- yyval.number = TRUE;
- }
- break;
-
- case 227:
-#line 1646 "parser.y"
- {
- if (notSkipping())
- {
- if (sectionFlags != 0 && (sectionFlags & (SECT_IS_PUBLIC | SECT_IS_PROT | SECT_IS_PRIVATE | SECT_IS_SLOT | SECT_IS_SIGNAL)) == 0)
- yyerror("Class function must be in the public, private, protected, slot or signal sections");
-
- yyvsp[-9].signature.result = yyvsp[-12].memArg;
-
- newFunction(currentSpec,currentModule,
- sectionFlags,currentIsStatic,
- currentOverIsVirt,
- yyvsp[-11].text,&yyvsp[-9].signature,yyvsp[-7].number,yyvsp[-5].number,&yyvsp[-4].optflags,yyvsp[-1].codeb,yyvsp[0].codeb,yyvsp[-6].throwlist,yyvsp[-3].optsignature);
- }
-
- currentIsStatic = FALSE;
- currentOverIsVirt = FALSE;
- }
- break;
-
- case 228:
-#line 1663 "parser.y"
- {
- if (notSkipping())
- {
- classDef *cd = currentScope();
-
- /* Handle the unary '+' and '-' operators. */
- if ((cd != NULL && yyvsp[-9].signature.nrArgs == 0) || (cd == NULL && yyvsp[-9].signature.nrArgs == 1))
- {
- if (strcmp(yyvsp[-11].text, "__add__") == 0)
- yyvsp[-11].text = "__pos__";
- else if (strcmp(yyvsp[-11].text, "__sub__") == 0)
- yyvsp[-11].text = "__neg__";
- }
-
- yyvsp[-9].signature.result = yyvsp[-13].memArg;
-
- newFunction(currentSpec,currentModule,
- sectionFlags,currentIsStatic,
- currentOverIsVirt,
- yyvsp[-11].text,&yyvsp[-9].signature,yyvsp[-7].number,yyvsp[-5].number,&yyvsp[-4].optflags,yyvsp[-1].codeb,yyvsp[0].codeb,yyvsp[-6].throwlist,yyvsp[-3].optsignature);
- }
-
- currentIsStatic = FALSE;
- currentOverIsVirt = FALSE;
- }
- break;
-
- case 229:
-#line 1688 "parser.y"
- {
- classDef *scope = currentScope();
-
- if (scope == NULL || yyvsp[-9].signature.nrArgs != 0)
- yyerror("Operator casts must be specified in a class and have no arguments");
-
-
- if (notSkipping())
- {
- char *sname;
-
- switch (yyvsp[-11].memArg.atype)
- {
- case defined_type:
- sname = NULL;
- break;
-
- case bool_type:
- case cbool_type:
- case short_type:
- case ushort_type:
- case int_type:
- case cint_type:
- case uint_type:
- sname = "__int__";
- break;
-
- case long_type:
- case ulong_type:
- case longlong_type:
- case ulonglong_type:
- sname = "__long__";
- break;
-
- case float_type:
- case cfloat_type:
- case double_type:
- case cdouble_type:
- sname = "__float__";
- break;
-
- default:
- yyerror("Unsupported operator cast");
- }
-
- if (sname != NULL)
- {
- yyvsp[-9].signature.result = yyvsp[-11].memArg;
-
- newFunction(currentSpec, currentModule,
- sectionFlags,
- currentIsStatic,
- currentOverIsVirt, sname,
- &yyvsp[-9].signature, yyvsp[-7].number, yyvsp[-5].number, &yyvsp[-4].optflags, yyvsp[-1].codeb, yyvsp[0].codeb,
- yyvsp[-6].throwlist, yyvsp[-3].optsignature);
- }
- else
- {
- argList *al;
-
- /* Check it doesn't already exist. */
- for (al = scope->casts; al != NULL; al = al->next)
- if (sameScopedName(yyvsp[-11].memArg.u.snd, al->arg.u.snd))
- yyerror("This operator cast has already been specified in this class");
-
- al = sipMalloc(sizeof (argList));
- al->arg = yyvsp[-11].memArg;
- al->next = scope->casts;
-
- scope->casts = al;
- }
- }
-
- currentIsStatic = FALSE;
- currentOverIsVirt = FALSE;
- }
- break;
-
- case 230:
-#line 1766 "parser.y"
- {yyval.text = "__add__";}
- break;
-
- case 231:
-#line 1767 "parser.y"
- {yyval.text = "__sub__";}
- break;
-
- case 232:
-#line 1768 "parser.y"
- {yyval.text = "__mul__";}
- break;
-
- case 233:
-#line 1769 "parser.y"
- {yyval.text = "__div__";}
- break;
-
- case 234:
-#line 1770 "parser.y"
- {yyval.text = "__mod__";}
- break;
-
- case 235:
-#line 1771 "parser.y"
- {yyval.text = "__and__";}
- break;
-
- case 236:
-#line 1772 "parser.y"
- {yyval.text = "__or__";}
- break;
-
- case 237:
-#line 1773 "parser.y"
- {yyval.text = "__xor__";}
- break;
-
- case 238:
-#line 1774 "parser.y"
- {yyval.text = "__lshift__";}
- break;
-
- case 239:
-#line 1775 "parser.y"
- {yyval.text = "__rshift__";}
- break;
-
- case 240:
-#line 1776 "parser.y"
- {yyval.text = "__iadd__";}
- break;
-
- case 241:
-#line 1777 "parser.y"
- {yyval.text = "__isub__";}
- break;
-
- case 242:
-#line 1778 "parser.y"
- {yyval.text = "__imul__";}
- break;
-
- case 243:
-#line 1779 "parser.y"
- {yyval.text = "__idiv__";}
- break;
-
- case 244:
-#line 1780 "parser.y"
- {yyval.text = "__imod__";}
- break;
-
- case 245:
-#line 1781 "parser.y"
- {yyval.text = "__iand__";}
- break;
-
- case 246:
-#line 1782 "parser.y"
- {yyval.text = "__ior__";}
- break;
-
- case 247:
-#line 1783 "parser.y"
- {yyval.text = "__ixor__";}
- break;
-
- case 248:
-#line 1784 "parser.y"
- {yyval.text = "__ilshift__";}
- break;
-
- case 249:
-#line 1785 "parser.y"
- {yyval.text = "__irshift__";}
- break;
-
- case 250:
-#line 1786 "parser.y"
- {yyval.text = "__invert__";}
- break;
-
- case 251:
-#line 1787 "parser.y"
- {yyval.text = "__call__";}
- break;
-
- case 252:
-#line 1788 "parser.y"
- {yyval.text = "__getitem__";}
- break;
-
- case 253:
-#line 1789 "parser.y"
- {yyval.text = "__lt__";}
- break;
-
- case 254:
-#line 1790 "parser.y"
- {yyval.text = "__le__";}
- break;
-
- case 255:
-#line 1791 "parser.y"
- {yyval.text = "__eq__";}
- break;
-
- case 256:
-#line 1792 "parser.y"
- {yyval.text = "__ne__";}
- break;
-
- case 257:
-#line 1793 "parser.y"
- {yyval.text = "__gt__";}
- break;
-
- case 258:
-#line 1794 "parser.y"
- {yyval.text = "__ge__";}
- break;
-
- case 259:
-#line 1797 "parser.y"
- {
- yyval.number = FALSE;
- }
- break;
-
- case 260:
-#line 1800 "parser.y"
- {
- yyval.number = TRUE;
- }
- break;
-
- case 261:
-#line 1805 "parser.y"
- {
- yyval.number = 0;
- }
- break;
-
- case 262:
-#line 1808 "parser.y"
- {
- if (yyvsp[0].number != 0)
- yyerror("Abstract virtual function '= 0' expected");
-
- yyval.number = TRUE;
- }
- break;
-
- case 263:
-#line 1816 "parser.y"
- {
- yyval.optflags.nrFlags = 0;
- }
- break;
-
- case 264:
-#line 1819 "parser.y"
- {
- yyval.optflags = yyvsp[-1].optflags;
- }
- break;
-
- case 265:
-#line 1825 "parser.y"
- {
- yyval.optflags.flags[0] = yyvsp[0].flag;
- yyval.optflags.nrFlags = 1;
- }
- break;
-
- case 266:
-#line 1829 "parser.y"
- {
- /* Check there is room. */
-
- if (yyvsp[-2].optflags.nrFlags == MAX_NR_FLAGS)
- yyerror("Too many optional flags");
-
- yyval.optflags = yyvsp[-2].optflags;
-
- yyval.optflags.flags[yyval.optflags.nrFlags++] = yyvsp[0].flag;
- }
- break;
-
- case 267:
-#line 1841 "parser.y"
- {
- yyval.flag.ftype = bool_flag;
- yyval.flag.fname = yyvsp[0].text;
- }
- break;
-
- case 268:
-#line 1845 "parser.y"
- {
- yyval.flag = yyvsp[0].flag;
- yyval.flag.fname = yyvsp[-2].text;
- }
- break;
-
- case 269:
-#line 1851 "parser.y"
- {
- yyval.flag.ftype = name_flag;
- yyval.flag.fvalue.sval = yyvsp[0].text;
- }
- break;
-
- case 270:
-#line 1855 "parser.y"
- {
- yyval.flag.ftype = string_flag;
- yyval.flag.fvalue.sval = yyvsp[0].text;
- }
- break;
-
- case 271:
-#line 1859 "parser.y"
- {
- yyval.flag.ftype = integer_flag;
- yyval.flag.fvalue.ival = yyvsp[0].number;
- }
- break;
-
- case 272:
-#line 1865 "parser.y"
- {
- yyval.codeb = NULL;
- }
- break;
-
- case 273:
-#line 1868 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 274:
-#line 1873 "parser.y"
- {
- yyval.codeb = NULL;
- }
- break;
-
- case 275:
-#line 1876 "parser.y"
- {
- yyval.codeb = yyvsp[0].codeb;
- }
- break;
-
- case 276:
-#line 1881 "parser.y"
- {
- int a, nrrxcon, nrrxdis, nrslotcon, nrslotdis, nrarray, nrarraysize;
-
- nrrxcon = nrrxdis = nrslotcon = nrslotdis = nrarray = nrarraysize = 0;
-
- for (a = 0; a < yyvsp[0].signature.nrArgs; ++a)
- {
- argDef *ad = &yyvsp[0].signature.args[a];
-
- switch (ad -> atype)
- {
- case rxcon_type:
- ++nrrxcon;
- break;
-
- case rxdis_type:
- ++nrrxdis;
- break;
-
- case slotcon_type:
- ++nrslotcon;
- break;
-
- case slotdis_type:
- ++nrslotdis;
- break;
- }
-
- if (isArray(ad))
- ++nrarray;
-
- if (isArraySize(ad))
- ++nrarraysize;
- }
-
- if (nrrxcon != nrslotcon || nrrxcon > 1)
- yyerror("SIP_RXOBJ_CON and SIP_SLOT_CON must both be given and at most once");
-
- if (nrrxdis != nrslotdis || nrrxdis > 1)
- yyerror("SIP_RXOBJ_DIS and SIP_SLOT_DIS must both be given and at most once");
-
- if (nrarray != nrarraysize || nrarray > 1)
- yyerror("/Array/ and /ArraySize/ must both be given and at most once");
-
- yyval.signature = yyvsp[0].signature;
- }
- break;
-
- case 277:
-#line 1929 "parser.y"
- {
- /* No arguments. */
-
- yyval.signature.nrArgs = 0;
- }
- break;
-
- case 278:
-#line 1934 "parser.y"
- {
- /* The single or first argument. */
-
- yyval.signature.args[0] = yyvsp[0].memArg;
- yyval.signature.nrArgs = 1;
- }
- break;
-
- case 279:
-#line 1940 "parser.y"
- {
- /* Check that it wasn't ...(,arg...). */
- if (yyvsp[-2].signature.nrArgs == 0)
- yyerror("First argument of the list is missing");
-
- /* Check there is nothing after an ellipsis. */
- if (yyvsp[-2].signature.args[yyvsp[-2].signature.nrArgs - 1].atype == ellipsis_type)
- yyerror("An ellipsis must be at the end of the argument list");
-
- /*
- * If this argument has no default value, then the
- * previous one mustn't either.
- */
- if (yyvsp[0].memArg.defval == NULL && yyvsp[-2].signature.args[yyvsp[-2].signature.nrArgs - 1].defval != NULL)
- yyerror("Compulsory argument given after optional argument");
-
- /* Check there is room. */
- if (yyvsp[-2].signature.nrArgs == MAX_NR_ARGS)
- yyerror("Internal error - increase the value of MAX_NR_ARGS");
-
- yyval.signature = yyvsp[-2].signature;
-
- yyval.signature.args[yyval.signature.nrArgs] = yyvsp[0].memArg;
- yyval.signature.nrArgs++;
- }
- break;
-
- case 280:
-#line 1967 "parser.y"
- {
- yyval.memArg.atype = signal_type;
- yyval.memArg.argflags = ARG_IS_CONST;
- yyval.memArg.nrderefs = 0;
- yyval.memArg.name = yyvsp[-1].text;
- yyval.memArg.defval = yyvsp[0].valp;
-
- currentSpec -> sigslots = TRUE;
- }
- break;
-
- case 281:
-#line 1976 "parser.y"
- {
- yyval.memArg.atype = slot_type;
- yyval.memArg.argflags = ARG_IS_CONST;
- yyval.memArg.nrderefs = 0;
- yyval.memArg.name = yyvsp[-1].text;
- yyval.memArg.defval = yyvsp[0].valp;
-
- currentSpec -> sigslots = TRUE;
- }
- break;
-
- case 282:
-#line 1985 "parser.y"
- {
- yyval.memArg.atype = anyslot_type;
- yyval.memArg.argflags = ARG_IS_CONST;
- yyval.memArg.nrderefs = 0;
- yyval.memArg.name = yyvsp[-1].text;
- yyval.memArg.defval = yyvsp[0].valp;
-
- currentSpec -> sigslots = TRUE;
- }
- break;
-
- case 283:
-#line 1994 "parser.y"
- {
- yyval.memArg.atype = rxcon_type;
- yyval.memArg.argflags = 0;
- yyval.memArg.nrderefs = 0;
- yyval.memArg.name = yyvsp[0].text;
-
- currentSpec -> sigslots = TRUE;
- }
- break;
-
- case 284:
-#line 2002 "parser.y"
- {
- yyval.memArg.atype = rxdis_type;
- yyval.memArg.argflags = 0;
- yyval.memArg.nrderefs = 0;
- yyval.memArg.name = yyvsp[0].text;
-
- currentSpec -> sigslots = TRUE;
- }
- break;
-
- case 285:
-#line 2010 "parser.y"
- {
- yyval.memArg.atype = slotcon_type;
- yyval.memArg.argflags = ARG_IS_CONST;
- yyval.memArg.nrderefs = 0;
- yyval.memArg.name = yyvsp[0].text;
-
- yyvsp[-2].signature.result.atype = void_type;
- yyvsp[-2].signature.result.argflags = 0;
- yyvsp[-2].signature.result.nrderefs = 0;
-
- yyval.memArg.u.sa = sipMalloc(sizeof (signatureDef));
- *yyval.memArg.u.sa = yyvsp[-2].signature;
-
- currentSpec -> sigslots = TRUE;
- }
- break;
-
- case 286:
-#line 2025 "parser.y"
- {
- yyval.memArg.atype = slotdis_type;
- yyval.memArg.argflags = ARG_IS_CONST;
- yyval.memArg.nrderefs = 0;
- yyval.memArg.name = yyvsp[0].text;
-
- yyvsp[-2].signature.result.atype = void_type;
- yyvsp[-2].signature.result.argflags = 0;
- yyvsp[-2].signature.result.nrderefs = 0;
-
- yyval.memArg.u.sa = sipMalloc(sizeof (signatureDef));
- *yyval.memArg.u.sa = yyvsp[-2].signature;
-
- currentSpec -> sigslots = TRUE;
- }
- break;
-
- case 287:
-#line 2040 "parser.y"
- {
- yyval.memArg.atype = qobject_type;
- yyval.memArg.argflags = 0;
- yyval.memArg.nrderefs = 0;
- yyval.memArg.name = yyvsp[0].text;
- }
- break;
-
- case 288:
-#line 2046 "parser.y"
- {
- yyval.memArg = yyvsp[-1].memArg;
- yyval.memArg.defval = yyvsp[0].valp;
- }
- break;
-
- case 289:
-#line 2052 "parser.y"
- {currentIsStatic = TRUE;}
- break;
-
- case 294:
-#line 2060 "parser.y"
- {currentOverIsVirt = TRUE;}
- break;
-
- case 297:
-#line 2064 "parser.y"
- {
- if (notSkipping())
- {
- /* Check the section. */
-
- if (sectionFlags != 0)
- {
- if ((sectionFlags & SECT_IS_PUBLIC) == 0)
- yyerror("Class variables must be in the public section");
-
- if (!currentIsStatic && yyvsp[-2].codeb != NULL)
- yyerror("%AccessCode cannot be specified for non-static class variables");
- }
-
- if (currentIsStatic && currentSpec -> genc)
- yyerror("Cannot have static members in a C structure");
-
- if (yyvsp[-1].codeb != NULL || yyvsp[0].codeb != NULL)
- {
- if (yyvsp[-2].codeb != NULL)
- yyerror("Cannot mix %AccessCode and %GetCode or %SetCode");
-
- if (currentScope() == NULL)
- yyerror("Cannot specify %GetCode or %SetCode for global variables");
- }
-
- newVar(currentSpec,currentModule,yyvsp[-5].text,currentIsStatic,&yyvsp[-6].memArg,&yyvsp[-4].optflags,yyvsp[-2].codeb,yyvsp[-1].codeb,yyvsp[0].codeb);
- }
-
- currentIsStatic = FALSE;
- }
- break;
-
- case 298:
-#line 2097 "parser.y"
- {
- yyval.memArg = yyvsp[-2].memArg;
- yyval.memArg.nrderefs = yyvsp[-1].number;
- yyval.memArg.argflags = ARG_IS_CONST | yyvsp[0].number;
- yyval.memArg.name = NULL;
- }
- break;
-
- case 299:
-#line 2103 "parser.y"
- {
- yyval.memArg = yyvsp[-2].memArg;
- yyval.memArg.nrderefs = yyvsp[-1].number;
- yyval.memArg.argflags = yyvsp[0].number;
- yyval.memArg.name = NULL;
- }
- break;
-
- case 300:
-#line 2111 "parser.y"
- {
- yyval.memArg = yyvsp[-2].memArg;
- yyval.memArg.name = yyvsp[-1].text;
-
- if (findOptFlag(&yyvsp[0].optflags,"AllowNone",bool_flag) != NULL)
- yyval.memArg.argflags |= ARG_ALLOW_NONE;
-
- if (findOptFlag(&yyvsp[0].optflags,"GetWrapper",bool_flag) != NULL)
- yyval.memArg.argflags |= ARG_GET_WRAPPER;
-
- if (findOptFlag(&yyvsp[0].optflags,"Array",bool_flag) != NULL)
- yyval.memArg.argflags |= ARG_ARRAY;
-
- if (findOptFlag(&yyvsp[0].optflags,"ArraySize",bool_flag) != NULL)
- yyval.memArg.argflags |= ARG_ARRAY_SIZE;
-
- if (findOptFlag(&yyvsp[0].optflags,"Transfer",bool_flag) != NULL)
- yyval.memArg.argflags |= ARG_XFERRED;
-
- if (findOptFlag(&yyvsp[0].optflags,"TransferThis",bool_flag) != NULL)
- yyval.memArg.argflags |= ARG_THIS_XFERRED;
-
- if (findOptFlag(&yyvsp[0].optflags,"TransferBack",bool_flag) != NULL)
- yyval.memArg.argflags |= ARG_XFERRED_BACK;
-
- if (findOptFlag(&yyvsp[0].optflags,"In",bool_flag) != NULL)
- yyval.memArg.argflags |= ARG_IN;
-
- if (findOptFlag(&yyvsp[0].optflags,"Out",bool_flag) != NULL)
- yyval.memArg.argflags |= ARG_OUT;
-
- if (findOptFlag(&yyvsp[0].optflags,"Constrained",bool_flag) != NULL)
- {
- yyval.memArg.argflags |= ARG_CONSTRAINED;
-
- switch (yyval.memArg.atype)
- {
- case bool_type:
- yyval.memArg.atype = cbool_type;
- break;
-
- case int_type:
- yyval.memArg.atype = cint_type;
- break;
-
- case float_type:
- yyval.memArg.atype = cfloat_type;
- break;
-
- case double_type:
- yyval.memArg.atype = cdouble_type;
- break;
- }
- }
- }
- break;
-
- case 301:
-#line 2168 "parser.y"
- {
- yyval.number = 0;
- }
- break;
-
- case 302:
-#line 2171 "parser.y"
- {
- if (currentSpec -> genc)
- yyerror("References not allowed in a C module");
-
- yyval.number = ARG_IS_REF;
- }
- break;
-
- case 303:
-#line 2179 "parser.y"
- {
- yyval.number = 0;
- }
- break;
-
- case 304:
-#line 2182 "parser.y"
- {
- yyval.number = yyvsp[-1].number + 1;
- }
- break;
-
- case 305:
-#line 2187 "parser.y"
- {
- yyval.memArg.atype = defined_type;
- yyval.memArg.u.snd = yyvsp[0].scpvalp;
- }
- break;
-
- case 306:
-#line 2191 "parser.y"
- {
- templateDef *td;
-
- td = sipMalloc(sizeof(templateDef));
- td -> fqname = yyvsp[-3].scpvalp;
- td -> types = yyvsp[-1].signature;
-
- yyval.memArg.atype = template_type;
- yyval.memArg.u.td = td;
- }
- break;
-
- case 307:
-#line 2201 "parser.y"
- {
- /* In a C module all structures must be defined. */
- if (currentSpec -> genc)
- {
- yyval.memArg.atype = defined_type;
- yyval.memArg.u.snd = yyvsp[0].scpvalp;
- }
- else
- {
- yyval.memArg.atype = struct_type;
- yyval.memArg.u.sname = yyvsp[0].scpvalp;
- }
- }
- break;
-
- case 308:
-#line 2214 "parser.y"
- {
- yyval.memArg.atype = ushort_type;
- }
- break;
-
- case 309:
-#line 2217 "parser.y"
- {
- yyval.memArg.atype = short_type;
- }
- break;
-
- case 310:
-#line 2220 "parser.y"
- {
- yyval.memArg.atype = uint_type;
- }
- break;
-
- case 311:
-#line 2223 "parser.y"
- {
- yyval.memArg.atype = uint_type;
- }
- break;
-
- case 312:
-#line 2226 "parser.y"
- {
- yyval.memArg.atype = int_type;
- }
- break;
-
- case 313:
-#line 2229 "parser.y"
- {
- yyval.memArg.atype = long_type;
- }
- break;
-
- case 314:
-#line 2232 "parser.y"
- {
- yyval.memArg.atype = ulong_type;
- }
- break;
-
- case 315:
-#line 2235 "parser.y"
- {
- yyval.memArg.atype = longlong_type;
- }
- break;
-
- case 316:
-#line 2238 "parser.y"
- {
- yyval.memArg.atype = ulonglong_type;
- }
- break;
-
- case 317:
-#line 2241 "parser.y"
- {
- yyval.memArg.atype = float_type;
- }
- break;
-
- case 318:
-#line 2244 "parser.y"
- {
- yyval.memArg.atype = double_type;
- }
- break;
-
- case 319:
-#line 2247 "parser.y"
- {
- yyval.memArg.atype = bool_type;
- }
- break;
-
- case 320:
-#line 2250 "parser.y"
- {
- yyval.memArg.atype = sstring_type;
- }
- break;
-
- case 321:
-#line 2253 "parser.y"
- {
- yyval.memArg.atype = ustring_type;
- }
- break;
-
- case 322:
-#line 2256 "parser.y"
- {
- yyval.memArg.atype = string_type;
- }
- break;
-
- case 323:
-#line 2259 "parser.y"
- {
- yyval.memArg.atype = wstring_type;
- }
- break;
-
- case 324:
-#line 2262 "parser.y"
- {
- yyval.memArg.atype = void_type;
- }
- break;
-
- case 325:
-#line 2265 "parser.y"
- {
- yyval.memArg.atype = pyobject_type;
- }
- break;
-
- case 326:
-#line 2268 "parser.y"
- {
- yyval.memArg.atype = pytuple_type;
- }
- break;
-
- case 327:
-#line 2271 "parser.y"
- {
- yyval.memArg.atype = pylist_type;
- }
- break;
-
- case 328:
-#line 2274 "parser.y"
- {
- yyval.memArg.atype = pydict_type;
- }
- break;
-
- case 329:
-#line 2277 "parser.y"
- {
- yyval.memArg.atype = pycallable_type;
- }
- break;
-
- case 330:
-#line 2280 "parser.y"
- {
- yyval.memArg.atype = pyslice_type;
- }
- break;
-
- case 331:
-#line 2283 "parser.y"
- {
- yyval.memArg.atype = pytype_type;
- }
- break;
-
- case 332:
-#line 2286 "parser.y"
- {
- yyval.memArg.atype = ellipsis_type;
- }
- break;
-
- case 333:
-#line 2291 "parser.y"
- {
- /* The single or first type. */
-
- yyval.signature.args[0] = yyvsp[0].memArg;
- yyval.signature.nrArgs = 1;
- }
- break;
-
- case 334:
-#line 2297 "parser.y"
- {
- /* Check there is nothing after an ellipsis. */
- if (yyvsp[-2].signature.args[yyvsp[-2].signature.nrArgs - 1].atype == ellipsis_type)
- yyerror("An ellipsis must be at the end of the argument list");
-
- /* Check there is room. */
- if (yyvsp[-2].signature.nrArgs == MAX_NR_ARGS)
- yyerror("Internal error - increase the value of MAX_NR_ARGS");
-
- yyval.signature = yyvsp[-2].signature;
-
- yyval.signature.args[yyval.signature.nrArgs] = yyvsp[0].memArg;
- yyval.signature.nrArgs++;
- }
- break;
-
- case 335:
-#line 2313 "parser.y"
- {
- yyval.throwlist = NULL;
- }
- break;
-
- case 336:
-#line 2316 "parser.y"
- {
- if (currentSpec->genc)
- yyerror("Exceptions not allowed in a C module");
-
- if (notSkipping() && inMainModule())
- {
- int e;
- ifaceFileList **ifl;
-
- /*
- * Make sure the exceptions' header files are
- * included. We unconditionally mark them to
- * be included in the current scope's header
- * file to save us the effort of checking if
- * they are being used with a protected method,
- * a virtual or a signal.
- */
- ifl = (currentScope() != NULL) ? &currentScope()->iff->used : &currentSpec->used;
-
- for (e = 0; e < yyvsp[-1].throwlist->nrArgs; ++e)
- addToUsedList(ifl, yyvsp[-1].throwlist->args[e]->iff);
- }
-
- yyval.throwlist = yyvsp[-1].throwlist;
- }
- break;
-
- case 337:
-#line 2343 "parser.y"
- {
- /* Empty list so use a blank. */
-
- yyval.throwlist = sipMalloc(sizeof (throwArgs));
- yyval.throwlist -> nrArgs = 0;
- }
- break;
-
- case 338:
-#line 2349 "parser.y"
- {
- /* The only or first exception. */
-
- yyval.throwlist = sipMalloc(sizeof (throwArgs));
- yyval.throwlist -> nrArgs = 1;
- yyval.throwlist -> args[0] = findException(currentSpec, yyvsp[0].scpvalp, FALSE);
- }
- break;
-
- case 339:
-#line 2356 "parser.y"
- {
- /* Check that it wasn't ...(,arg...). */
-
- if (yyvsp[-2].throwlist -> nrArgs == 0)
- yyerror("First exception of throw specifier is missing");
-
- /* Check there is room. */
-
- if (yyvsp[-2].throwlist -> nrArgs == MAX_NR_ARGS)
- yyerror("Internal error - increase the value of MAX_NR_ARGS");
-
- yyval.throwlist = yyvsp[-2].throwlist;
- yyval.throwlist -> args[yyval.throwlist -> nrArgs++] = findException(currentSpec, yyvsp[0].scpvalp, FALSE);
- }
- break;
-
-
- }
-
-/* Line 1010 of yacc.c. */
-#line 4727 "parser.c"
-
- yyvsp -= yylen;
- yyssp -= yylen;
-
-
- YY_STACK_PRINT (yyss, yyssp);
-
- *++yyvsp = yyval;
-
-
- /* Now `shift' the result of the reduction. Determine what state
- that goes to, based on the state we popped back to and the rule
- number reduced by. */
-
- yyn = yyr1[yyn];
-
- yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
- if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
- yystate = yytable[yystate];
- else
- yystate = yydefgoto[yyn - YYNTOKENS];
-
- goto yynewstate;
-
-
-/*------------------------------------.
-| yyerrlab -- here on detecting error |
-`------------------------------------*/
-yyerrlab:
- /* If not already recovering from an error, report this error. */
- if (!yyerrstatus)
- {
- ++yynerrs;
-#if YYERROR_VERBOSE
- yyn = yypact[yystate];
-
- if (YYPACT_NINF < yyn && yyn < YYLAST)
- {
- YYSIZE_T yysize = 0;
- int yytype = YYTRANSLATE (yychar);
- const char* yyprefix;
- char *yymsg;
- int yyx;
-
- /* Start YYX at -YYN if negative to avoid negative indexes in
- YYCHECK. */
- int yyxbegin = yyn < 0 ? -yyn : 0;
-
- /* Stay within bounds of both yycheck and yytname. */
- int yychecklim = YYLAST - yyn;
- int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
- int yycount = 0;
-
- yyprefix = ", expecting ";
- for (yyx = yyxbegin; yyx < yyxend; ++yyx)
- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
- {
- yysize += yystrlen (yyprefix) + yystrlen (yytname [yyx]);
- yycount += 1;
- if (yycount == 5)
- {
- yysize = 0;
- break;
- }
- }
- yysize += (sizeof ("syntax error, unexpected ")
- + yystrlen (yytname[yytype]));
- yymsg = (char *) YYSTACK_ALLOC (yysize);
- if (yymsg != 0)
- {
- char *yyp = yystpcpy (yymsg, "syntax error, unexpected ");
- yyp = yystpcpy (yyp, yytname[yytype]);
-
- if (yycount < 5)
- {
- yyprefix = ", expecting ";
- for (yyx = yyxbegin; yyx < yyxend; ++yyx)
- if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
- {
- yyp = yystpcpy (yyp, yyprefix);
- yyp = yystpcpy (yyp, yytname[yyx]);
- yyprefix = " or ";
- }
- }
- yyerror (yymsg);
- YYSTACK_FREE (yymsg);
- }
- else
- yyerror ("syntax error; also virtual memory exhausted");
- }
- else
-#endif /* YYERROR_VERBOSE */
- yyerror ("syntax error");
- }
-
-
-
- if (yyerrstatus == 3)
- {
- /* If just tried and failed to reuse lookahead token after an
- error, discard it. */
-
- if (yychar <= YYEOF)
- {
- /* If at end of input, pop the error token,
- then the rest of the stack, then return failure. */
- if (yychar == YYEOF)
- for (;;)
- {
- YYPOPSTACK;
- if (yyssp == yyss)
- YYABORT;
- YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp, yylsp);
- yydestruct (yystos[*yyssp], yyvsp);
- }
- }
- else
- {
- YYDSYMPRINTF ("Error: discarding", yytoken, &yylval, &yylloc);
- yydestruct (yytoken, &yylval);
- yychar = YYEMPTY;
-
- }
- }
-
- /* Else will try to reuse lookahead token after shifting the error
- token. */
- goto yyerrlab1;
-
-
-/*---------------------------------------------------.
-| yyerrorlab -- error raised explicitly by YYERROR. |
-`---------------------------------------------------*/
-yyerrorlab:
-
-#ifdef __GNUC__
- /* Pacify GCC when the user code never invokes YYERROR and the label
- yyerrorlab therefore never appears in user code. */
- if (0)
- goto yyerrorlab;
-#endif
-
- yyvsp -= yylen;
- yyssp -= yylen;
- yystate = *yyssp;
- goto yyerrlab1;
-
-
-/*-------------------------------------------------------------.
-| yyerrlab1 -- common code for both syntax error and YYERROR. |
-`-------------------------------------------------------------*/
-yyerrlab1:
- yyerrstatus = 3; /* Each real token shifted decrements this. */
-
- for (;;)
- {
- yyn = yypact[yystate];
- if (yyn != YYPACT_NINF)
- {
- yyn += YYTERROR;
- if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
- {
- yyn = yytable[yyn];
- if (0 < yyn)
- break;
- }
- }
-
- /* Pop the current state because it cannot handle the error token. */
- if (yyssp == yyss)
- YYABORT;
-
- YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp, yylsp);
- yydestruct (yystos[yystate], yyvsp);
- YYPOPSTACK;
- yystate = *yyssp;
- YY_STACK_PRINT (yyss, yyssp);
- }
-
- if (yyn == YYFINAL)
- YYACCEPT;
-
- YYDPRINTF ((stderr, "Shifting error token, "));
-
- *++yyvsp = yylval;
-
-
- yystate = yyn;
- goto yynewstate;
-
-
-/*-------------------------------------.
-| yyacceptlab -- YYACCEPT comes here. |
-`-------------------------------------*/
-yyacceptlab:
- yyresult = 0;
- goto yyreturn;
-
-/*-----------------------------------.
-| yyabortlab -- YYABORT comes here. |
-`-----------------------------------*/
-yyabortlab:
- yyresult = 1;
- goto yyreturn;
-
-#ifndef yyoverflow
-/*----------------------------------------------.
-| yyoverflowlab -- parser overflow comes here. |
-`----------------------------------------------*/
-yyoverflowlab:
- yyerror ("parser stack overflow");
- yyresult = 2;
- /* Fall through. */
-#endif
-
-yyreturn:
-#ifndef yyoverflow
- if (yyss != yyssa)
- YYSTACK_FREE (yyss);
-#endif
- return yyresult;
-}
-
-
-#line 2372 "parser.y"
-
-
-
-/*
- * Parse the specification.
- */
-void parse(sipSpec *spec,FILE *fp,char *filename,stringList *tsl,
- stringList *xfl)
-{
- classTmplDef *tcd;
-
- /* Initialise the spec. */
-
- spec -> modules = NULL;
- spec -> namecache = NULL;
- spec -> ifacefiles = NULL;
- spec -> classes = NULL;
- spec -> classtemplates = NULL;
- spec -> proxies = NULL;
- spec -> exceptions = NULL;
- spec -> mappedtypes = NULL;
- spec -> mappedtypetemplates = NULL;
- spec -> qobjclass = -1;
- spec -> enums = NULL;
- spec -> vars = NULL;
- spec -> othfuncs = NULL;
- spec -> overs = NULL;
- spec -> typedefs = NULL;
- spec -> copying = NULL;
- spec -> exphdrcode = NULL;
- spec -> hdrcode = NULL;
- spec -> cppcode = NULL;
- spec -> docs = NULL;
- spec -> preinitcode = NULL;
- spec -> postinitcode = NULL;
- spec -> unitcode = NULL;
- spec -> used = NULL;
- spec -> sigslots = FALSE;
- spec -> genc = -1;
- spec -> options = NULL;
-
- currentSpec = spec;
- neededQualifiers = tsl;
- excludedQualifiers = xfl;
- currentModule = NULL;
- currentMappedType = NULL;
- currentOverIsVirt = FALSE;
- currentCtorIsExplicit = FALSE;
- currentIsStatic = FALSE;
- previousFile = NULL;
- skipStackPtr = 0;
- currentScopeIdx = 0;
- sectionFlags = 0;
-
- newModule(fp,filename);
- spec -> module = currentModule;
-
- yyparse();
-
- handleEOF();
- handleEOM();
-
- /*
- * Go through each template class and remove it from the list of
- * classes.
- */
- for (tcd = spec->classtemplates; tcd != NULL; tcd = tcd->next)
- {
- classDef **cdp;
-
- for (cdp = &spec->classes; *cdp != NULL; cdp = &(*cdp)->next)
- if (*cdp == tcd->cd)
- {
- ifaceFileDef **ifdp;
-
- /* Remove the interface file as well. */
- for (ifdp = &spec->ifacefiles; *ifdp != NULL; ifdp = &(*ifdp)->next)
- if (*ifdp == tcd->cd->iff)
- {
- *ifdp = (*ifdp)->next;
- break;
- }
-
- *cdp = (*cdp)->next;
- break;
- }
- }
-}
-
-
-/*
- * Tell the parser that a complete file has now been read.
- */
-void parserEOF(char *name,parserContext *pc)
-{
- previousFile = sipStrdup(name);
- newContext = *pc;
-}
-
-
-/*
- * Append a class definition to a class list if it doesn't already appear.
- * Append is needed specifically for the list of super-classes because the
- * order is important to Python.
- */
-void appendToClassList(classList **clp,classDef *cd)
-{
- classList *new;
-
- /* Find the end of the list. */
-
- while (*clp != NULL)
- {
- if ((*clp) -> cd == cd)
- return;
-
- clp = &(*clp) -> next;
- }
-
- new = sipMalloc(sizeof (classList));
-
- new -> cd = cd;
- new -> next = NULL;
-
- *clp = new;
-}
-
-
-/*
- * Create a new module for the current specification and make it current.
- */
-static void newModule(FILE *fp,char *filename)
-{
- moduleDef *newmod;
-
- parseFile(fp,filename,currentModule,FALSE);
-
- newmod = sipMalloc(sizeof (moduleDef));
- newmod -> fullname = NULL;
- newmod -> name = NULL;
- newmod -> version = -1;
- newmod -> modflags = 0;
- newmod -> modulenr = -1;
- newmod -> file = filename;
- newmod -> qualifiers = NULL;
- newmod -> root.cd = NULL;
- newmod -> root.child = NULL;
- newmod -> nrtimelines = 0;
- newmod -> nrclasses = 0;
- newmod -> nrexceptions = 0;
- newmod -> nrmappedtypes = 0;
- newmod -> nrenums = 0;
- newmod -> nrtypedefs = 0;
- newmod -> nrvirthandlers = 0;
- newmod -> virthandlers = NULL;
- newmod -> license = NULL;
- newmod -> allimports = NULL;
- newmod -> imports = NULL;
- newmod -> next = currentSpec -> modules;
-
- currentModule = currentSpec->modules = newmod;
-}
-
-
-/*
- * Switch to parsing a new file.
- */
-static void parseFile(FILE *fp,char *name,moduleDef *prevmod,int optional)
-{
- parserContext pc;
-
- pc.ifdepth = skipStackPtr;
- pc.prevmod = prevmod;
-
- setInputFile(fp,name,&pc,optional);
-}
-
-
-/*
- * Find an interface file, or create a new one.
- */
-ifaceFileDef *findIfaceFile(sipSpec *pt, moduleDef *mod, scopedNameDef *fqname,
- ifaceFileType iftype, argDef *ad)
-{
- ifaceFileDef *iff;
-
- /* See if the name is already used. */
-
- for (iff = pt -> ifacefiles; iff != NULL; iff = iff -> next)
- {
- if (!sameScopedName(iff -> fqcname,fqname))
- continue;
-
- /*
- * They must be the same type except that we allow a class if
- * if we want an exception. This is because we allow classes
- * to be used before they are defined.
- */
- if (iff -> type != iftype)
- if (iftype != exception_iface || iff -> type != class_iface)
- yyerror("A class, exception, namespace or mapped type has already been defined with the same name");
-
- /* Ignore an external class declared in another module. */
- if (iftype == class_iface && iff->module != mod)
- {
- classDef *cd;
-
- for (cd = pt->classes; cd != NULL; cd = cd->next)
- if (cd->iff == iff)
- break;
-
- if (cd != NULL && iff->module != NULL && isExternal(cd))
- continue;
- }
-
- /*
- * If this is a mapped type with the same name defined in a
- * different module, then check that this type isn't the same
- * as any of the mapped types defined in that module.
- */
- if (iftype == mappedtype_iface && iff -> module != mod)
- {
- mappedTypeDef *mtd;
-
- for (mtd = pt -> mappedtypes; mtd != NULL; mtd = mtd -> next)
- {
- if (mtd -> iff != iff)
- continue;
-
- if (ad -> atype != template_type ||
- mtd -> type.atype != template_type ||
- sameBaseType(ad,&mtd -> type))
- yyerror("Mapped type has already been defined in another module");
- }
-
- /*
- * If we got here then we have a mapped type based on
- * an existing template, but with unique parameters.
- * We don't want to use interface files from other
- * modules, so skip this one.
- */
-
- continue;
- }
-
- /* Ignore a namespace defined in another module. */
- if (iftype == namespace_iface && iff->module != mod)
- continue;
-
- return iff;
- }
-
- iff = sipMalloc(sizeof (ifaceFileDef));
-
- iff -> name = cacheName(pt,scopedNameTail(fqname));
- iff -> type = iftype;
- iff -> fqcname = fqname;
- iff -> module = NULL;
- iff -> used = NULL;
- iff -> next = pt -> ifacefiles;
-
- pt -> ifacefiles = iff;
-
- return iff;
-}
-
-
-/*
- * Find a class definition in a parse tree.
- */
-static classDef *findClass(sipSpec *pt,ifaceFileType iftype,
- scopedNameDef *fqname)
-{
- return findClassWithInterface(pt, findIfaceFile(pt, currentModule, fqname, iftype, NULL));
-}
-
-
-/*
- * Find a class definition given an existing interface file.
- */
-static classDef *findClassWithInterface(sipSpec *pt, ifaceFileDef *iff)
-{
- classDef *cd;
-
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- if (cd -> iff == iff)
- return cd;
-
- /* Create a new one. */
- cd = sipMalloc(sizeof (classDef));
-
- cd -> iff = iff;
- cd -> pyname = classBaseName(cd);
- cd -> classnr = -1;
- cd -> classflags = 0;
- cd -> userflags = 0;
- cd -> ecd = NULL;
- cd -> dtorexceptions = NULL;
- cd -> real = NULL;
- cd -> node = NULL;
- cd -> supers = NULL;
- cd -> mro = NULL;
- cd -> td = NULL;
- cd -> ctors = NULL;
- cd -> defctor = NULL;
- cd -> dealloccode = NULL;
- cd -> dtorcode = NULL;
- cd -> members = NULL;
- cd -> overs = NULL;
- cd -> casts = NULL;
- cd -> vmembers = NULL;
- cd -> visible = NULL;
- cd -> cppcode = NULL;
- cd -> hdrcode = NULL;
- cd -> convtosubcode = NULL;
- cd -> subbase = NULL;
- cd -> convtocode = NULL;
- cd -> travcode = NULL;
- cd -> clearcode = NULL;
- cd -> readbufcode = NULL;
- cd -> writebufcode = NULL;
- cd -> segcountcode = NULL;
- cd -> charbufcode = NULL;
- cd -> next = pt -> classes;
-
- pt -> classes = cd;
-
- return cd;
-}
-
-
-/*
- * Add an interface file to an interface file list if it isn't already there.
- */
-ifaceFileList *addToUsedList(ifaceFileList **ifflp, ifaceFileDef *iff)
-{
- ifaceFileList *iffl;
-
- while ((iffl = *ifflp) != NULL)
- {
- /* Don't bother if it is already there. */
- if (iffl -> iff == iff)
- return iffl;
-
- ifflp = &iffl -> next;
- }
-
- iffl = sipMalloc(sizeof (ifaceFileList));
-
- iffl->iff = iff;
- iffl->header = FALSE;
- iffl->next = NULL;
-
- *ifflp = iffl;
-
- return iffl;
-}
-
-
-/*
- * Find an undefined (or create a new) exception definition in a parse tree.
- */
-static exceptionDef *findException(sipSpec *pt, scopedNameDef *fqname, int new)
-{
- exceptionDef *xd, **tail;
- ifaceFileDef *iff;
- classDef *cd;
-
- iff = findIfaceFile(pt, currentModule, fqname, exception_iface, NULL);
-
- /* See if it is an existing one. */
- for (xd = pt->exceptions; xd != NULL; xd = xd->next)
- if (xd->iff == iff)
- return xd;
-
- /*
- * If it is an exception interface file then we have never seen this
- * name before. We require that exceptions are defined before being
- * used, but don't make the same requirement of classes (for reasons of
- * backwards compatibility). Therefore the name must be reinterpreted
- * as a (as yet undefined) class.
- */
- if (new)
- if (iff->type == exception_iface)
- cd = NULL;
- else
- yyerror("There is already a class with the same name or the exception has been used before being defined");
- else
- {
- if (iff->type == exception_iface)
- iff->type = class_iface;
-
- cd = findClassWithInterface(pt, iff);
- }
-
- /* Create a new one. */
- xd = sipMalloc(sizeof (exceptionDef));
-
- xd->exceptionnr = -1;
- xd->iff = iff;
- xd->pyname = NULL;
- xd->cd = cd;
- xd->bibase = NULL;
- xd->base = NULL;
- xd->hdrcode = NULL;
- xd->raisecode = NULL;
- xd->next = NULL;
-
- /* Append it to the list. */
- for (tail = &pt->exceptions; *tail != NULL; tail = &(*tail)->next)
- ;
-
- *tail = xd;
-
- return xd;
-}
-
-
-/*
- * Find an undefined (or create a new) class definition in a parse tree.
- */
-static classDef *newClass(sipSpec *pt,ifaceFileType iftype,
- scopedNameDef *fqname)
-{
- int flags;
- classDef *cd, *scope;
- codeBlock *hdrcode;
-
- if (sectionFlags & SECT_IS_PRIVATE)
- yyerror("Classes, structs and namespaces must be in the public or or protected sections");
-
- flags = 0;
-
- if ((scope = currentScope()) != NULL)
- {
- if (sectionFlags & SECT_IS_PROT)
- flags = CLASS_IS_PROTECTED;
-
- hdrcode = scope -> hdrcode;
- }
- else
- hdrcode = NULL;
-
- if (pt -> genc)
- {
- /* C structs are always global types. */
- while (fqname -> next != NULL)
- fqname = fqname -> next;
-
- scope = NULL;
- }
-
- cd = findClass(pt,iftype,fqname);
-
- /* Check it hasn't already been defined. */
- if (iftype != namespace_iface && cd->iff->module != NULL)
- yyerror("The struct/class has already been defined");
-
- /* Complete the initialisation. */
- cd->classflags |= flags;
- cd->ecd = scope;
- cd->iff->module = currentModule;
-
- appendCodeBlock(&cd->hdrcode, hdrcode);
-
- /* See if it is a namespace extender. */
- if (iftype == namespace_iface)
- {
- classDef *ns;
-
- for (ns = pt->classes; ns != NULL; ns = ns->next)
- {
- if (ns == cd)
- continue;
-
- if (ns->iff->type != namespace_iface)
- continue;
-
- if (!sameScopedName(ns->iff->fqcname, fqname))
- continue;
-
- cd->real = ns;
- break;
- }
- }
-
- return cd;
-}
-
-
-/*
- * Tidy up after finishing a class definition.
- */
-static void finishClass(sipSpec *pt, moduleDef *mod, classDef *cd, optFlags *of)
-{
- char *pyname;
- optFlag *flg;
-
- /* Get the Python name and see if it is different to the C++ name. */
- pyname = getPythonName(of, classBaseName(cd));
-
- cd -> pyname = NULL;
- checkAttributes(pt, cd->ecd, pyname, FALSE);
- cd->pyname = pyname;
-
- if (cd->pyname != classBaseName(cd))
- setIsRenamedClass(cd);
-
- if ((flg = findOptFlag(of, "TypeFlags", integer_flag)) != NULL)
- cd->userflags = flg->fvalue.ival;
-
- if (isOpaque(cd))
- {
- if (findOptFlag(of, "External", bool_flag) != NULL)
- setIsExternal(cd);
- }
- else
- {
- int seq_might, seq_not;
- memberDef *md;
-
- if (findOptFlag(of, "NoDefaultCtors", bool_flag) != NULL)
- setNoDefaultCtors(cd);
-
- if (cd -> ctors == NULL)
- {
- if (!noDefaultCtors(cd))
- {
- /* Provide a default ctor. */
-
- cd->ctors = sipMalloc(sizeof (ctorDef));
-
- cd->ctors->ctorflags = SECT_IS_PUBLIC;
- cd->ctors->pysig.nrArgs = 0;
- cd->ctors->cppsig = &cd -> ctors -> pysig;
- cd->ctors->exceptions = NULL;
- cd->ctors->methodcode = NULL;
- cd->ctors->prehook = NULL;
- cd->ctors->posthook = NULL;
- cd->ctors->next = NULL;
-
- cd->defctor = cd->ctors;
-
- setCanCreate(cd);
- }
- }
- else if (cd -> defctor == NULL)
- {
- ctorDef *ct, *last = NULL;
-
- for (ct = cd -> ctors; ct != NULL; ct = ct -> next)
- {
- if (!isPublicCtor(ct))
- continue;
-
- if (ct -> pysig.nrArgs == 0 || ct -> pysig.args[0].defval != NULL)
- {
- cd -> defctor = ct;
- break;
- }
-
- if (last == NULL)
- last = ct;
- }
-
- /* The last resort is the first public ctor. */
- if (cd->defctor == NULL)
- cd->defctor = last;
- }
-
- if (findOptFlag(of,"Abstract",bool_flag) != NULL)
- {
- setIsAbstractClass(cd);
- setIsIncomplete(cd);
- resetCanCreate(cd);
- }
-
- /* We assume a public dtor if nothing specific was provided. */
- if (!isDtor(cd))
- setIsPublicDtor(cd);
-
- if (findOptFlag(of, "DelayDtor", bool_flag) != NULL)
- {
- setIsDelayedDtor(cd);
- setHasDelayedDtors(mod);
- }
-
- /*
- * There are subtle differences between the add and concat methods and
- * the multiply and repeat methods. The number versions can have their
- * operands swapped and may return NotImplemented. If the user has
- * used the /Numeric/ annotation or there are other numeric operators
- * then we use add/multiply. Otherwise, if there are indexing
- * operators then we use concat/repeat.
- */
- seq_might = seq_not = FALSE;
-
- for (md = cd -> members; md != NULL; md = md -> next)
- switch (md -> slot)
- {
- case getitem_slot:
- case setitem_slot:
- case delitem_slot:
- /* This might be a sequence. */
- seq_might = TRUE;
- break;
-
- case sub_slot:
- case isub_slot:
- case div_slot:
- case idiv_slot:
- case mod_slot:
- case imod_slot:
- case pos_slot:
- case neg_slot:
- /* This is definately not a sequence. */
- seq_not = TRUE;
- break;
- }
-
- if (!seq_not && seq_might)
- for (md = cd -> members; md != NULL; md = md -> next)
- {
- /* Ignore if the user has been explicit. */
- if (isNumeric(md))
- continue;
-
- switch (md -> slot)
- {
- case add_slot:
- md -> slot = concat_slot;
- break;
-
- case iadd_slot:
- md -> slot = iconcat_slot;
- break;
-
- case mul_slot:
- md -> slot = repeat_slot;
- break;
-
- case imul_slot:
- md -> slot = irepeat_slot;
- break;
- }
- }
- }
-
- if (inMainModule())
- {
- setIsUsedName(cd->iff->name);
- setIsClassName(cd->iff->name);
- }
-}
-
-
-/*
- * Create a new mapped type.
- */
-static mappedTypeDef *newMappedType(sipSpec *pt,argDef *ad)
-{
- mappedTypeDef *mtd;
- scopedNameDef *snd;
- ifaceFileDef *iff;
-
- /* Check that the type is one we want to map. */
- switch (ad -> atype)
- {
- case defined_type:
- snd = ad -> u.snd;
- break;
-
- case template_type:
- snd = ad -> u.td -> fqname;
- break;
-
- case struct_type:
- snd = ad -> u.sname;
- break;
-
- default:
- yyerror("Invalid type for %MappedType");
- }
-
- iff = findIfaceFile(pt, currentModule, snd, mappedtype_iface, ad);
-
- if (inMainModule())
- setIsUsedName(iff -> name);
-
- /* Check it hasn't already been defined. */
- for (mtd = pt -> mappedtypes; mtd != NULL; mtd = mtd -> next)
- if (mtd -> iff == iff)
- {
- /*
- * We allow types based on the same template but with
- * different arguments.
- */
-
- if (ad -> atype != template_type ||
- sameBaseType(ad,&mtd -> type))
- yyerror("Mapped type has already been defined in this module");
- }
-
- /* The module may not have been set yet. */
- iff -> module = currentModule;
-
- /* Create a new mapped type. */
- mtd = allocMappedType(ad);
-
- mtd -> iff = iff;
- mtd -> next = pt -> mappedtypes;
-
- pt -> mappedtypes = mtd;
-
- return mtd;
-}
-
-
-/*
- * Allocate, intialise and return a mapped type structure.
- */
-mappedTypeDef *allocMappedType(argDef *type)
-{
- mappedTypeDef *mtd;
-
- mtd = sipMalloc(sizeof (mappedTypeDef));
-
- mtd->type = *type;
- mtd->type.argflags = 0;
- mtd->type.nrderefs = 0;
-
- mtd->mappednr = -1;
- mtd->iff = NULL;
- mtd->hdrcode = NULL;
- mtd->convfromcode = NULL;
- mtd->convtocode = NULL;
- mtd->next = NULL;
-
- return mtd;
-}
-
-
-/*
- * Create a new enum.
- */
-static enumDef *newEnum(sipSpec *pt,moduleDef *mod,char *name,optFlags *of,
- int flags)
-{
- enumDef *ed;
- classDef *escope = currentScope();
-
- ed = sipMalloc(sizeof (enumDef));
-
- if (name != NULL)
- {
- ed -> fqcname = text2scopedName(name);
- ed -> pyname = cacheName(pt, getPythonName(of, name));
-
- checkAttributes(pt, escope, ed->pyname->text, FALSE);
- }
- else
- {
- ed -> fqcname = NULL;
- ed -> pyname = NULL;
- }
-
- ed -> enumflags = flags;
- ed -> enumnr = -1;
- ed -> ecd = escope;
- ed -> pcd = (flags & SECT_IS_PROT) ? escope : NULL;
- ed -> module = mod;
- ed -> members = NULL;
- ed -> slots = NULL;
- ed -> overs = NULL;
- ed -> next = pt -> enums;
-
- if (name != NULL && strcmp(ed->pyname->text, name) != 0)
- setIsRenamedEnum(ed);
-
- pt -> enums = ed;
-
- if (escope != NULL)
- setHasEnums(escope);
-
- return ed;
-}
-
-
-/*
- * Get the type values and (optionally) the type names for substitution in
- * handwritten code.
- */
-void appendTypeStrings(scopedNameDef *ename, signatureDef *patt, signatureDef *src, signatureDef *known, scopedNameDef **names, scopedNameDef **values)
-{
- int a;
-
- for (a = 0; a < patt->nrArgs; ++a)
- {
- argDef *pad = &patt->args[a];
-
- if (pad->atype == defined_type)
- {
- char *nam = NULL;
-
- /*
- * If the type names are already known then check that
- * this is one of them.
- */
- if (known == NULL)
- nam = scopedNameTail(pad->u.snd);
- else if (pad->u.snd->next == NULL)
- {
- int k;
-
- for (k = 0; k < known->nrArgs; ++k)
- if (strcmp(pad->u.snd->name, known->args[k].u.snd->name) == 0)
- {
- nam = pad->u.snd->name;
- break;
- }
- }
-
- if (nam == NULL)
- continue;
-
- /* Add the name. */
- appendScopedName(names, text2scopePart(nam));
-
- /* Add the corresponding value. */
- appendScopedName(values, text2scopePart(getType(ename, &src->args[a])));
- }
- else if (pad->atype == template_type)
- {
- argDef *sad = &src->args[a];
-
- /* These checks shouldn't be necessary, but... */
- if (sad->atype == template_type && pad->u.td->types.nrArgs == sad->u.td->types.nrArgs)
- appendTypeStrings(ename, &pad->u.td->types, &sad->u.td->types, known, names, values);
- }
- }
-}
-
-
-/*
- * Convert a type to a string. We impose some limitations because I'm too lazy
- * to handle everything that might be needed one day.
- */
-static char *getType(scopedNameDef *ename, argDef *ad)
-{
- if (ad->atype == defined_type)
- return scopedNameToString(ad->u.snd);
-
- fatalScopedName(ename);
- fatal(": unsupported type argument to template class instantiation\n");
-
- return NULL;
-}
-
-
-/*
- * Convert a scoped name to a string on the heap.
- */
-static char *scopedNameToString(scopedNameDef *name)
-{
- static const char scope_string[] = "::";
- size_t len;
- scopedNameDef *snd;
- char *s, *dp;
-
- /* Work out the length of buffer needed. */
- len = 0;
-
- for (snd = name; snd != NULL; snd = snd->next)
- {
- len += strlen(snd->name);
-
- if (snd->next != NULL)
- len += strlen(scope_string);
- }
-
- /* Allocate and populate the buffer. */
- dp = s = sipMalloc(len + 1);
-
- for (snd = name; snd != NULL; snd = snd->next)
- {
- strcpy(dp, snd->name);
- dp += strlen(snd->name);
-
- if (snd->next != NULL)
- {
- strcpy(dp, scope_string);
- dp += strlen(scope_string);
- }
- }
-
- return s;
-}
-
-
-/*
- * Instantiate a class template.
- */
-static void instantiateClassTemplate(sipSpec *pt, moduleDef *mod, classDef *scope, scopedNameDef *fqname, classTmplDef *tcd, templateDef *td)
-{
- scopedNameDef *type_names, *type_values;
- classDef *cd;
- ctorDef *oct, **cttail;
- memberDef *omd, **mdtail;
- overDef *ood, **odtail;
- argDef *ad;
- ifaceFileList *iffl, **used;
-
- type_names = type_values = NULL;
- appendTypeStrings(classFQCName(tcd->cd), &tcd->sig, &td->types, NULL, &type_names, &type_values);
-
- /*
- * Add a mapping from the template name to the instantiated name. If
- * we have got this far we know there is room for it.
- */
- ad = &tcd->sig.args[tcd->sig.nrArgs++];
- ad->atype = defined_type;
- ad->name = NULL;
- ad->argflags = 0;
- ad->nrderefs = 0;
- ad->defval = NULL;
- ad->u.snd = classFQCName(tcd->cd);
-
- appendScopedName(&type_names, text2scopePart(scopedNameTail(classFQCName(tcd->cd))));
- appendScopedName(&type_values, text2scopePart(scopedNameToString(fqname)));
-
- /* Create the new class. */
- cd = sipMalloc(sizeof (classDef));
-
- /* Start with a shallow copy. */
- *cd = *tcd->cd;
-
- cd->pyname = scopedNameTail(fqname);
- cd->td = td;
-
- /* Handle the interface file. */
- cd->iff = findIfaceFile(pt, mod, fqname, class_iface, NULL);
- cd->iff->module = mod;
-
- /* Make a copy of the used list and add the enclosing scope. */
- used = &cd->iff->used;
-
- for (iffl = tcd->cd->iff->used; iffl != NULL; iffl = iffl->next)
- addToUsedList(used, iffl->iff);
-
- if (scope != NULL)
- addToUsedList(&cd->iff->used, scope->iff);
-
- if (inMainModule())
- {
- setIsUsedName(cd->iff->name);
- setIsClassName(cd->iff->name);
- }
-
- cd->ecd = currentScope();
-
- /* Handle the ctors. */
- cd->ctors = NULL;
- cttail = &cd->ctors;
-
- for (oct = tcd->cd->ctors; oct != NULL; oct = oct->next)
- {
- ctorDef *nct = sipMalloc(sizeof (ctorDef));
-
- /* Start with a shallow copy. */
- *nct = *oct;
-
- templateSignature(&nct->pysig, FALSE, tcd, td, cd);
-
- if (oct->cppsig == NULL)
- nct->cppsig = NULL;
- else if (oct->cppsig == &oct->pysig)
- nct->cppsig = &nct->pysig;
- else
- {
- nct->cppsig = sipMalloc(sizeof (signatureDef));
-
- *nct->cppsig = *oct->cppsig;
-
- templateSignature(nct->cppsig, FALSE, tcd, td, cd);
- }
-
- nct->methodcode = templateCode(pt, used, nct->methodcode, type_names, type_values);
-
- nct->next = NULL;
- *cttail = nct;
- cttail = &nct->next;
-
- /* Handle the default ctor. */
- if (tcd->cd->defctor == oct)
- cd->defctor = nct;
- }
-
- cd->dealloccode = templateCode(pt, used, cd->dealloccode, type_names, type_values);
- cd->dtorcode = templateCode(pt, used, cd->dtorcode, type_names, type_values);
-
- /* Handle the members, ie. the common parts of overloads. */
- cd->members = NULL;
- mdtail = &cd->members;
-
- for (omd = tcd->cd->members; omd != NULL; omd = omd->next)
- {
- memberDef *nmd = sipMalloc(sizeof (memberDef));
-
- /* Start with a shallow copy. */
- *nmd = *omd;
-
- nmd->module = mod;
-
- nmd->next = NULL;
- *mdtail = nmd;
- mdtail = &nmd->next;
- }
-
- /* Handle the overloads. */
- cd->overs = NULL;
- odtail = &cd->overs;
-
- for (ood = tcd->cd->overs; ood != NULL; ood = ood->next)
- {
- overDef *nod = sipMalloc(sizeof (overDef));
- memberDef *nmd;
-
- /* Start with a shallow copy. */
- *nod = *ood;
-
- for (nmd = cd->members, omd = tcd->cd->members; omd != NULL; omd = omd->next, nmd = nmd->next)
- if (omd == ood->common)
- {
- nod->common = nmd;
- break;
- }
-
- templateSignature(&nod->pysig, TRUE, tcd, td, cd);
-
- if (ood->cppsig == &ood->pysig)
- nod->cppsig = &nod->pysig;
- else
- {
- nod->cppsig = sipMalloc(sizeof (signatureDef));
-
- *nod->cppsig = *ood->cppsig;
-
- templateSignature(nod->cppsig, TRUE, tcd, td, cd);
- }
-
- nod->methodcode = templateCode(pt, used, nod->methodcode, type_names, type_values);
-
- /* Handle any virtual handler. */
- if (ood->virthandler != NULL)
- {
- nod->virthandler = sipMalloc(sizeof (virtHandlerDef));
-
- /* Start with a shallow copy. */
- *nod->virthandler = *ood->virthandler;
-
- if (ood->virthandler->cppsig == &ood->pysig)
- nod->virthandler->cppsig = &nod->pysig;
- else
- {
- nod->virthandler->cppsig = sipMalloc(sizeof (signatureDef));
-
- *nod->virthandler->cppsig = *ood->virthandler->cppsig;
-
- templateSignature(nod->virthandler->cppsig, TRUE, tcd, td, cd);
- }
-
- nod->virthandler->module = mod;
- nod->virthandler->virtcode = templateCode(pt, used, nod->virthandler->virtcode, type_names, type_values);
- nod->virthandler->next = mod->virthandlers;
-
- mod->virthandlers = nod->virthandler;
- }
-
- nod->next = NULL;
- *odtail = nod;
- odtail = &nod->next;
- }
-
- cd->cppcode = templateCode(pt, used, cd->cppcode, type_names, type_values);
- cd->hdrcode = templateCode(pt, used, cd->hdrcode, type_names, type_values);
- cd->convtosubcode = templateCode(pt, used, cd->convtosubcode, type_names, type_values);
- cd->convtocode = templateCode(pt, used, cd->convtocode, type_names, type_values);
- cd->travcode = templateCode(pt, used, cd->travcode, type_names, type_values);
- cd->clearcode = templateCode(pt, used, cd->clearcode, type_names, type_values);
- cd->readbufcode = templateCode(pt, used, cd->readbufcode, type_names, type_values);
- cd->writebufcode = templateCode(pt, used, cd->writebufcode, type_names, type_values);
- cd->segcountcode = templateCode(pt, used, cd->segcountcode, type_names, type_values);
- cd->charbufcode = templateCode(pt, used, cd->charbufcode, type_names, type_values);
- cd->next = pt->classes;
-
- pt->classes = cd;
-
- tcd->sig.nrArgs--;
-
- freeScopedName(type_names);
- freeScopedName(type_values);
-}
-
-
-/*
- * Replace any template arguments in a signature.
- */
-static void templateSignature(signatureDef *sd, int result, classTmplDef *tcd, templateDef *td, classDef *ncd)
-{
- int a;
-
- if (result)
- templateType(&sd->result, tcd, td, ncd);
-
- for (a = 0; a < sd->nrArgs; ++a)
- templateType(&sd->args[a], tcd, td, ncd);
-}
-
-
-/*
- * Replace any template arguments in a type.
- */
-static void templateType(argDef *ad, classTmplDef *tcd, templateDef *td, classDef *ncd)
-{
- int a;
- char *name;
-
- /* Ignore if it isn't an unscoped name. */
- if (ad->atype != defined_type || ad->u.snd->next != NULL)
- return;
-
- name = ad->u.snd->name;
-
- for (a = 0; a < tcd->sig.nrArgs - 1; ++a)
- if (strcmp(name, scopedNameTail(tcd->sig.args[a].u.snd)) == 0)
- {
- ad->atype = td->types.args[a].atype;
-
- /* We take the constrained flag from the real type. */
- resetIsConstrained(ad);
-
- if (isConstrained(&td->types.args[a]))
- setIsConstrained(ad);
-
- ad->u = td->types.args[a].u;
-
- return;
- }
-
- /* Handle the class name itself. */
- if (strcmp(name, scopedNameTail(classFQCName(tcd->cd))) == 0)
- {
- ad->atype = class_type;
- ad->u.cd = ncd;
- }
-}
-
-
-/*
- * Replace any template arguments in a literal code block.
- */
-codeBlock *templateCode(sipSpec *pt, ifaceFileList **used, codeBlock *ocb, scopedNameDef *names, scopedNameDef *values)
-{
- codeBlock *ncb = NULL, **tail = &ncb;
-
- while (ocb != NULL)
- {
- char *at = ocb->frag;
-
- do
- {
- char *first = NULL;
- codeBlock *cb;
- scopedNameDef *nam, *val, *nam_first, *val_first;
-
- /*
- * Go through the rest of this fragment looking for
- * each of the types and the name of the class itself.
- */
- nam = names;
- val = values;
-
- while (nam != NULL && val != NULL)
- {
- char *cp;
-
- if ((cp = strstr(at, nam->name)) != NULL)
- if (first == NULL || first > cp)
- {
- nam_first = nam;
- val_first = val;
- first = cp;
- }
-
- nam = nam->next;
- val = val->next;
- }
-
- /* Create the new fragment. */
- cb = sipMalloc(sizeof (codeBlock));
-
- if (at == ocb->frag)
- {
- cb->filename = ocb->filename;
- cb->linenr = ocb->linenr;
- }
- else
- cb->filename = NULL;
-
- cb->next = NULL;
- *tail = cb;
- tail = &cb->next;
-
- /* See if anything was found. */
- if (first == NULL)
- {
- /* We can just point to this. */
- cb->frag = at;
-
- /* All done with this one. */
- at = NULL;
- }
- else
- {
- static char *gen_names[] = {
- "sipForceConvertToTransfer_",
- "sipForceConvertTo_",
- "sipConvertFromTransfer_",
- "sipConvertFrom_",
- "sipClass_",
- "sipEnum_",
- "sipException_",
- NULL
- };
-
- char *dp, *sp, **gn;
- int genname = FALSE;
-
- /*
- * If the context in which the text is used is
- * in the name of a SIP generated object then
- * translate any "::" scoping to "_".
- */
- for (gn = gen_names; *gn != NULL; ++gn)
- if (search_back(first, at, *gn))
- {
- addUsedFromCode(pt, used, val_first->name);
- genname = TRUE;
- break;
- }
-
- /* Fragment the fragment. */
- cb->frag = sipMalloc(first - at + strlen(val_first->name) + 1);
-
- strncpy(cb->frag, at, first - at);
-
- dp = &cb->frag[first - at];
- sp = val_first->name;
-
- if (genname)
- {
- char gch;
-
- while ((gch = *sp++) != '\0')
- if (gch == ':' && *sp == ':')
- {
- *dp++ = '_';
- ++sp;
- }
- else
- *dp++ = gch;
-
- *dp = '\0';
- }
- else
- strcpy(dp, sp);
-
- /* Move past the replaced text. */
- at = first + strlen(nam_first->name);
- }
- }
- while (at != NULL && *at != '\0');
-
- ocb = ocb->next;
- }
-
- return ncb;
-}
-
-
-/*
- * Return TRUE if the text at the end of a string matches the target string.
- */
-static int search_back(const char *end, const char *start, const char *target)
-{
- size_t tlen = strlen(target);
-
- if (start + tlen >= end)
- return FALSE;
-
- return (strncmp(end - tlen, target, tlen) == 0);
-}
-
-
-/*
- * Add any needed interface files based on handwritten code.
- */
-static void addUsedFromCode(sipSpec *pt, ifaceFileList **used, const char *sname)
-{
- ifaceFileDef *iff;
- enumDef *ed;
-
- for (iff = pt->ifacefiles; iff != NULL; iff = iff->next)
- {
- if (iff->type != class_iface && iff->type != exception_iface)
- continue;
-
- if (sameName(iff->fqcname, sname))
- {
- addToUsedList(used, iff);
-
- return;
- }
- }
-
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- if (ed->ecd == NULL)
- continue;
-
- if (sameName(ed->fqcname, sname))
- {
- addToUsedList(used, ed->ecd->iff);
-
- return;
- }
- }
-}
-
-
-/*
- * Compare a scoped name with its string equivalent.
- */
-static int sameName(scopedNameDef *snd, const char *sname)
-{
- while (snd != NULL && *sname != '\0')
- {
- const char *sp = snd->name;
-
- while (*sp != '\0' && *sname != ':' && *sname != '\0')
- if (*sp++ != *sname++)
- return FALSE;
-
- if (*sp != '\0' || (*sname != ':' && *sname != '\0'))
- return FALSE;
-
- snd = snd->next;
-
- if (*sname == ':')
- sname += 2;
- }
-
- return (snd == NULL && *sname == '\0');
-}
-
-
-/*
- * Create a new typedef.
- */
-static void newTypedef(sipSpec *pt,moduleDef *mod,char *name,argDef *type)
-{
- typedefDef *td;
- scopedNameDef *fqname = text2scopedName(name);
- classDef *scope = currentScope();
-
- /* See if we are instantiating a template class. */
- if (type->atype == template_type)
- {
- classTmplDef *tcd;
- templateDef *td = type->u.td;
-
- for (tcd = pt->classtemplates; tcd != NULL; tcd = tcd->next)
- if (sameScopedName(tcd->cd->iff->fqcname, td->fqname))
- {
- if (!sameTemplateSignature(&tcd->sig, &td->types, FALSE))
- continue;
-
- instantiateClassTemplate(pt, mod, scope, fqname, tcd, td);
-
- /* All done. */
- return;
- }
- }
-
- /* Check it doesn't already exist. */
- for (td = pt -> typedefs; td != NULL; td = td -> next)
- if (sameScopedName(td -> fqname,fqname))
- {
- fatalScopedName(fqname);
- fatal(" already defined\n");
- }
-
- td = sipMalloc(sizeof (typedefDef));
-
- td -> fqname = fqname;
- td -> ecd = scope;
- td -> module = mod;
- td -> type = *type;
- td -> next = pt -> typedefs;
-
- mod -> nrtypedefs++;
-
- pt -> typedefs = td;
-}
-
-
-/*
- * Return TRUE if the template signatures are the same. A deep comparison is
- * used for mapped type templates where we want to recurse into any nested
- * templates.
- */
-int sameTemplateSignature(signatureDef *sd1, signatureDef *sd2, int deep)
-{
- int a;
-
- if (sd1->nrArgs != sd2->nrArgs)
- return FALSE;
-
- for (a = 0; a < sd1->nrArgs; ++a)
- {
- argDef *ad1 = &sd1->args[a];
- argDef *ad2 = &sd2->args[a];
-
- /*
- * If we are doing a shallow comparision (ie. for class
- * templates) then a type name on the left hand side matches
- * anything on the right hand side.
- */
- if (ad1->atype == defined_type && !deep)
- continue;
-
- /*
- * For type names only compare the references and pointers, and
- * do the same for any nested templates.
- */
- if (ad1->atype == defined_type && ad2->atype == defined_type)
- {
- if (isReference(ad1) != isReference(ad2) || ad1->nrderefs != ad2->nrderefs)
- return FALSE;
- }
- else if (ad1->atype == template_type && ad2->atype == template_type)
- {
- if (!sameTemplateSignature(&ad1->u.td->types, &ad2->u.td->types, deep))
- return FALSE;
- }
- else if (!sameBaseType(ad1, ad2))
- return FALSE;
- }
-
- return TRUE;
-}
-
-
-/*
- * Create a new variable.
- */
-static void newVar(sipSpec *pt,moduleDef *mod,char *name,int isstatic,
- argDef *type,optFlags *of,codeBlock *acode,codeBlock *gcode,
- codeBlock *scode)
-{
- varDef *var;
- classDef *escope = currentScope();
- nameDef *nd = cacheName(pt,getPythonName(of,name));
-
- if (inMainModule())
- setIsUsedName(nd);
-
- checkAttributes(pt,escope,nd -> text,FALSE);
-
- var = sipMalloc(sizeof (varDef));
-
- var -> pyname = nd;
- var -> fqcname = text2scopedName(name);
- var -> ecd = escope;
- var -> module = mod;
- var -> varflags = 0;
- var -> type = *type;
- var -> accessfunc = acode;
- var -> getcode = gcode;
- var -> setcode = scode;
- var -> next = pt -> vars;
-
- if (isstatic || (escope != NULL && escope->iff->type == namespace_iface))
- setIsStaticVar(var);
-
- pt -> vars = var;
-}
-
-
-/*
- * Create a new ctor.
- */
-static void newCtor(char *name,int sectFlags,signatureDef *args,
- optFlags *optflgs,codeBlock *methodcode,
- throwArgs *exceptions,signatureDef *cppsig,int explicit)
-{
- ctorDef *ct, **ctp;
- classDef *cd = currentScope();
-
- /* Check the name of the constructor. */
- if (strcmp(classBaseName(cd),name) != 0)
- yyerror("Constructor doesn't have the same name as its class");
-
- /* Add to the list of constructors. */
- ct = sipMalloc(sizeof (ctorDef));
-
- ct -> ctorflags = sectFlags;
- ct -> pysig = *args;
- ct -> cppsig = (cppsig != NULL ? cppsig : &ct -> pysig);
- ct -> exceptions = exceptions;
- ct -> methodcode = methodcode;
- ct -> next = NULL;
-
- if (!isPrivateCtor(ct))
- setCanCreate(cd);
-
- if (isProtectedCtor(ct))
- setHasShadow(cd);
-
- if (explicit)
- setIsExplicitCtor(ct);
-
- getHooks(optflgs,&ct -> prehook,&ct -> posthook);
-
- if (getReleaseGIL(optflgs))
- setIsReleaseGILCtor(ct);
- else if (getHoldGIL(optflgs))
- setIsHoldGILCtor(ct);
-
- if (findOptFlag(optflgs,"NoDerived",bool_flag) != NULL)
- {
- if (cppsig != NULL)
- yyerror("The /NoDerived/ annotation cannot be used with a C++ signature");
-
- if (methodcode == NULL)
- yyerror("The /NoDerived/ annotation must be used with %MethodCode");
-
- ct->cppsig = NULL;
- }
-
- if (findOptFlag(optflgs,"Default",bool_flag) != NULL)
- {
- if (cd -> defctor != NULL)
- yyerror("A constructor with the /Default/ annotation has already been defined");
-
- cd -> defctor = ct;
- }
-
- /* Append to the list. */
- for (ctp = &cd->ctors; *ctp != NULL; ctp = &(*ctp)->next)
- ;
-
- *ctp = ct;
-}
-
-
-/*
- * Create a new function.
- */
-static void newFunction(sipSpec *pt,moduleDef *mod,int sflags,int isstatic,
- int isvirt,char *name,signatureDef *sig,int isconst,
- int isabstract,optFlags *optflgs,codeBlock *methodcode,
- codeBlock *vcode,throwArgs *exceptions,
- signatureDef *cppsig)
-{
- classDef *cd = currentScope();
- nameDef *pname;
- int factory, xferback;
- overDef *od, **odp, **headp;
- optFlag *of;
- virtHandlerDef *vhd;
-
- /* Extra checks for a C module. */
- if (pt -> genc)
- {
- if (cd != NULL)
- yyerror("Function declaration not allowed in a struct in a C module");
-
- if (isstatic)
- yyerror("Static functions not allowed in a C module");
-
- if (exceptions != NULL)
- yyerror("Exceptions not allowed in a C module");
- }
-
- headp = (cd != NULL ? &cd -> overs : &pt -> overs);
-
- /* See if it is a factory method. */
- if (findOptFlag(optflgs,"Factory",bool_flag) != NULL)
- factory = TRUE;
- else
- {
- int a;
-
- factory = FALSE;
-
- /* Check /TransferThis/ wasn't specified. */
- if (cd == NULL || isstatic)
- for (a = 0; a < sig -> nrArgs; ++a)
- if (isThisTransferred(&sig -> args[a]))
- yyerror("/TransferThis/ may only be specified in constructors and class methods");
- }
-
- /* See if the result is to be returned to Python ownership. */
- xferback = (findOptFlag(optflgs,"TransferBack",bool_flag) != NULL);
-
- if (factory && xferback)
- yyerror("/TransferBack/ and /Factory/ cannot both be specified");
-
- /* Use the C++ name if a Python name wasn't given. */
- pname = cacheName(pt, getPythonName(optflgs, name));
-
- /* Create a new overload definition. */
-
- od = sipMalloc(sizeof (overDef));
-
- /* Set the overload flags. */
-
- od -> overflags = sflags;
-
- if (factory)
- setIsFactory(od);
-
- if (xferback)
- setIsResultTransferredBack(od);
-
- if (isProtected(od))
- setHasShadow(cd);
-
- if ((isSlot(od) || isSignal(od)) && !isPrivate(od))
- {
- if (isSignal(od))
- setHasShadow(cd);
-
- pt -> sigslots = TRUE;
- }
-
- if (isSignal(od) && (methodcode != NULL || vcode != NULL))
- yyerror("Cannot provide code for signals");
-
- if (isstatic)
- {
- if (isSignal(od))
- yyerror("Static functions cannot be signals");
-
- if (isvirt)
- yyerror("Static functions cannot be virtual");
-
- setIsStatic(od);
- }
-
- if (isconst)
- setIsConst(od);
-
- if (isabstract)
- {
- if (sflags == 0)
- yyerror("Non-class function specified as abstract");
-
- setIsAbstract(od);
- }
-
- if ((of = findOptFlag(optflgs,"AutoGen",opt_name_flag)) != NULL)
- {
- setIsAutoGen(od);
-
- if (of -> fvalue.sval != NULL)
- {
- qualDef *qd;
-
- if ((qd = findQualifier(of -> fvalue.sval)) == NULL || qd -> qtype != feature_qualifier)
- yyerror("No such feature");
-
- if (excludedFeature(excludedQualifiers,qd))
- resetIsAutoGen(od);
- }
- }
-
- if (isvirt)
- {
- if (isSignal(od) && !optNoEmitters(pt))
- yyerror("Virtual signals aren't supported");
-
- setIsVirtual(od);
- setHasShadow(cd);
-
- vhd = sipMalloc(sizeof (virtHandlerDef));
-
- vhd -> virthandlernr = -1;
- vhd -> vhflags = 0;
- vhd -> pysig = &od -> pysig;
- vhd -> cppsig = (cppsig != NULL ? cppsig : &od -> pysig);
- vhd -> module = currentModule;
- vhd -> virtcode = vcode;
- vhd -> next = currentModule -> virthandlers;
-
- if (factory || xferback)
- setIsTransferVH(vhd);
-
- currentModule -> virthandlers = vhd;
- }
- else
- {
- if (vcode != NULL)
- yyerror("%VirtualCatcherCode provided for non-virtual function");
-
- vhd = NULL;
- }
-
- od -> cppname = name;
- od -> pysig = *sig;
- od -> cppsig = (cppsig != NULL ? cppsig : &od -> pysig);
- od -> exceptions = exceptions;
- od -> methodcode = methodcode;
- od -> virthandler = vhd;
- od -> common = findFunction(pt,mod,cd,pname,(methodcode != NULL),sig -> nrArgs);
-
- if (findOptFlag(optflgs,"Numeric",bool_flag) != NULL)
- setIsNumeric(od -> common);
-
- /* Methods that run in new threads must be virtual. */
- if (findOptFlag(optflgs,"NewThread",bool_flag) != NULL)
- {
- argDef *res;
-
- if (!isvirt)
- yyerror("/NewThread/ may only be specified for virtual functions");
-
- /*
- * This is an arbitary limitation to make the code generator
- * slightly easier - laziness on my part.
- */
- res = &od -> cppsig -> result;
-
- if (res -> atype != void_type || res -> nrderefs != 0)
- yyerror("/NewThread/ may only be specified for void functions");
-
- setIsNewThread(od);
- }
-
- getHooks(optflgs,&od -> prehook,&od -> posthook);
-
- if (getReleaseGIL(optflgs))
- setIsReleaseGIL(od);
- else if (getHoldGIL(optflgs))
- setIsHoldGIL(od);
-
- od -> next = NULL;
-
- /* Append to the list. */
- for (odp = headp; *odp != NULL; odp = &(*odp)->next)
- ;
-
- *odp = od;
-}
-
-
-/*
- * Return the Python name based on the C/C++ name and any /PyName/ annotation.
- */
-static char *getPythonName(optFlags *optflgs, char *cname)
-{
- char *pname;
- optFlag *of;
-
- if ((of = findOptFlag(optflgs, "PyName", name_flag)) != NULL)
- pname = of -> fvalue.sval;
- else
- pname = cname;
-
- return pname;
-}
-
-
-/*
- * Cache a name in a module.
- */
-static nameDef *cacheName(sipSpec *pt,char *name)
-{
- nameDef *nd;
-
- /* See if it already exists. */
- for (nd = pt -> namecache; nd != NULL; nd = nd -> next)
- if (strcmp(nd -> text,name) == 0)
- return nd;
-
- /* Create a new one. */
- nd = sipMalloc(sizeof (nameDef));
-
- nd -> nameflags = 0;
- nd -> module = currentSpec -> module;
- nd -> text = name;
- nd -> next = pt -> namecache;
-
- pt -> namecache = nd;
-
- return nd;
-}
-
-
-/*
- * Find (or create) an overloaded function name.
- */
-static memberDef *findFunction(sipSpec *pt,moduleDef *mod,classDef *cd,
- nameDef *pname,int hwcode,int nrargs)
-{
- static struct slot_map {
- char *name; /* The slot name. */
- slotType type; /* The corresponding type. */
- int needs_hwcode; /* If handwritten code is required. */
- int nrargs; /* Nr. of arguments. */
- } slot_table[] = {
- {"__str__", str_slot, TRUE, 0},
- {"__unicode__", unicode_slot, TRUE, 0},
- {"__int__", int_slot, FALSE, 0},
- {"__long__", long_slot, FALSE, 0},
- {"__float__", float_slot, FALSE, 0},
- {"__len__", len_slot, TRUE, 0},
- {"__contains__", contains_slot, TRUE, 1},
- {"__add__", add_slot, FALSE, 1},
- {"__sub__", sub_slot, FALSE, 1},
- {"__mul__", mul_slot, FALSE, 1},
- {"__div__", div_slot, FALSE, 1},
- {"__mod__", mod_slot, FALSE, 1},
- {"__and__", and_slot, FALSE, 1},
- {"__or__", or_slot, FALSE, 1},
- {"__xor__", xor_slot, FALSE, 1},
- {"__lshift__", lshift_slot, FALSE, 1},
- {"__rshift__", rshift_slot, FALSE, 1},
- {"__iadd__", iadd_slot, FALSE, 1},
- {"__isub__", isub_slot, FALSE, 1},
- {"__imul__", imul_slot, FALSE, 1},
- {"__idiv__", idiv_slot, FALSE, 1},
- {"__imod__", imod_slot, FALSE, 1},
- {"__iand__", iand_slot, FALSE, 1},
- {"__ior__", ior_slot, FALSE, 1},
- {"__ixor__", ixor_slot, FALSE, 1},
- {"__ilshift__", ilshift_slot, FALSE, 1},
- {"__irshift__", irshift_slot, FALSE, 1},
- {"__invert__", invert_slot, FALSE, 0},
- {"__call__", call_slot, FALSE, -1},
- {"__getitem__", getitem_slot, FALSE, -1},
- {"__setitem__", setitem_slot, TRUE, -1},
- {"__delitem__", delitem_slot, TRUE, -1},
- {"__lt__", lt_slot, FALSE, 1},
- {"__le__", le_slot, FALSE, 1},
- {"__eq__", eq_slot, FALSE, 1},
- {"__ne__", ne_slot, FALSE, 1},
- {"__gt__", gt_slot, FALSE, 1},
- {"__ge__", ge_slot, FALSE, 1},
- {"__cmp__", cmp_slot, FALSE, 1},
- {"__nonzero__", nonzero_slot, TRUE, 0},
- {"__neg__", neg_slot, FALSE, 0},
- {"__pos__", pos_slot, FALSE, 0},
- {"__abs__", abs_slot, TRUE, 0},
- {"__repr__", repr_slot, TRUE, 0},
- {"__hash__", hash_slot, TRUE, 0},
- {NULL}
- };
-
- memberDef *md, **flist;
- struct slot_map *sm;
- slotType st;
-
- /* Get the slot type. */
- st = no_slot;
-
- for (sm = slot_table; sm -> name != NULL; ++sm)
- if (strcmp(sm -> name,pname -> text) == 0)
- {
- if (sm -> needs_hwcode && !hwcode)
- yyerror("This Python slot requires %MethodCode");
-
- if (sm -> nrargs < 0)
- {
- int min_nr;
-
- /* These require a minimum number. */
- switch (sm -> type)
- {
- case getitem_slot:
- case delitem_slot:
- min_nr = 1;
- break;
-
- case setitem_slot:
- min_nr = 2;
- break;
-
- default:
- min_nr = 0;
- }
-
- if (nrargs < min_nr)
- yyerror("Insufficient number of arguments to Python slot");
- }
- else if (cd == NULL)
- {
- /* Global operators need one extra argument. */
- if (sm -> nrargs + 1 != nrargs)
- yyerror("Incorrect number of arguments to global operator");
- }
- else if (sm -> nrargs != nrargs)
- yyerror("Incorrect number of arguments to Python slot");
-
- st = sm -> type;
-
- break;
- }
-
- if (inMainModule())
- setIsUsedName(pname);
-
- /* Check there is no name clash. */
- checkAttributes(pt,cd,pname -> text,TRUE);
-
- /* See if it already exists. */
- flist = (cd != NULL ? &cd -> members : &pt -> othfuncs);
-
- for (md = *flist; md != NULL; md = md -> next)
- if (md -> pyname == pname && md -> module == mod)
- return md;
-
- /* Create a new one. */
- md = sipMalloc(sizeof (memberDef));
-
- md -> pyname = pname;
- md -> memberflags = 0;
- md -> slot = st;
- md -> module = mod;
- md -> next = *flist;
-
- *flist = md;
-
- /* Global operators are a subset. */
- if (cd == NULL && st != no_slot && st != neg_slot && st != pos_slot && !isNumberSlot(md) && !isRichCompareSlot(md))
- yyerror("Global operators must be either numeric or comparison operators");
-
- return md;
-}
-
-
-/*
- * Search a set of flags for a particular one and check its type.
- */
-static optFlag *findOptFlag(optFlags *flgs,char *name,flagType ft)
-{
- int f;
-
- for (f = 0; f < flgs -> nrFlags; ++f)
- {
- optFlag *of = &flgs -> flags[f];
-
- if (strcmp(of -> fname,name) == 0)
- {
- /*
- * An optional name can look like a boolean or a name.
- */
-
- if (ft == opt_name_flag)
- {
- if (of -> ftype == bool_flag)
- {
- of -> ftype = opt_name_flag;
- of -> fvalue.sval = NULL;
- }
- else if (of -> ftype == name_flag)
- of -> ftype = opt_name_flag;
- }
-
- if (ft != of -> ftype)
- yyerror("Optional flag has a value of the wrong type");
-
- return of;
- }
- }
-
- return NULL;
-}
-
-
-/*
- * A name is going to be used as a Python attribute name within a Python scope
- * (ie. a Python dictionary), so check against what we already know is going in
- * the same scope in case there is a clash.
- */
-static void checkAttributes(sipSpec *pt,classDef *pyscope,char *attr,int isfunc)
-{
- enumDef *ed;
- varDef *vd;
- classDef *cd;
-
- /* Check the enums. */
-
- for (ed = pt -> enums; ed != NULL; ed = ed -> next)
- {
- enumMemberDef *emd;
-
- if (ed -> ecd != pyscope || ed -> pyname == NULL)
- continue;
-
- if (strcmp(ed->pyname->text, attr) == 0)
- yyerror("There is already an enum in scope with the same Python name");
-
- for (emd = ed -> members; emd != NULL; emd = emd -> next)
- if (strcmp(emd -> pyname -> text, attr) == 0)
- yyerror("There is already an enum member in scope with the same Python name");
- }
-
- /* Check the variables. */
-
- for (vd = pt -> vars; vd != NULL; vd = vd -> next)
- {
- if (vd -> ecd != pyscope)
- continue;
-
- if (strcmp(vd -> pyname -> text, attr) == 0)
- yyerror("There is already a variable in scope with the same Python name");
- }
-
- /*
- * Only check the members if this attribute isn't a member because we
- * can handle members with the same name in the same scope.
- */
- if (!isfunc)
- {
- memberDef *md, *membs;
-
- membs = (pyscope != NULL ? pyscope -> members : pt -> othfuncs);
-
- for (md = membs; md != NULL; md = md -> next)
- {
- overDef *od, *overs;
-
- if (strcmp(md -> pyname -> text, attr) != 0)
- continue;
-
- /* Check for a conflict with all overloads. */
-
- overs = (pyscope != NULL ? pyscope -> overs : pt -> overs);
-
- for (od = overs; od != NULL; od = od -> next)
- {
- if (od -> common != md)
- continue;
-
- yyerror("There is already a function in scope with the same Python name");
- }
- }
- }
-
- /* Check the classes. */
-
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- {
- if (cd -> ecd != pyscope || cd -> pyname == NULL)
- continue;
-
- if (strcmp(cd->pyname, attr) == 0 && !isExternal(cd))
- yyerror("There is already a class or namespace in scope with the same Python name");
- }
-
- /* Check the exceptions. */
-
- if (pyscope == NULL)
- {
- exceptionDef *xd;
-
- for (xd = pt->exceptions; xd != NULL; xd = xd->next)
- if (xd->pyname != NULL && strcmp(xd->pyname, attr) == 0)
- yyerror("There is already an exception with the same Python name");
- }
-}
-
-
-/*
- * Append a code block to a list of them. Append is needed to give the
- * specifier easy control over the order of the documentation.
- */
-static void appendCodeBlock(codeBlock **headp,codeBlock *new)
-{
- while (*headp != NULL)
- headp = &(*headp) -> next;
-
- *headp = new;
-}
-
-
-/*
- * Handle the end of a fully parsed a file.
- */
-static void handleEOF()
-{
- /*
- * Check that the number of nested if's is the same as when we started
- * the file.
- */
-
- if (skipStackPtr > newContext.ifdepth)
- fatal("Too many %%If statements in %s\n",previousFile);
-
- if (skipStackPtr < newContext.ifdepth)
- fatal("Too many %%End statements in %s\n",previousFile);
-}
-
-
-/*
- * Handle the end of a fully parsed a module.
- */
-static void handleEOM()
-{
- /* Check it has been named. */
-
- if (currentModule -> name == NULL)
- fatal("No %%Module has been specified for module defined in %s\n",previousFile);
-
- /* The previous module is now current. */
-
- currentModule = newContext.prevmod;
-}
-
-
-/*
- * Find an existing qualifier.
- */
-static qualDef *findQualifier(char *name)
-{
- moduleDef *mod;
-
- for (mod = currentSpec -> modules; mod != NULL; mod = mod -> next)
- {
- qualDef *qd;
-
- for (qd = mod -> qualifiers; qd != NULL; qd = qd -> next)
- if (strcmp(qd -> name,name) == 0)
- return qd;
- }
-
- return NULL;
-}
-
-
-/*
- * Return a copy of a scoped name.
- */
-scopedNameDef *copyScopedName(scopedNameDef *snd)
-{
- scopedNameDef *head;
-
- head = NULL;
-
- while (snd != NULL)
- {
- appendScopedName(&head,text2scopePart(snd -> name));
- snd = snd -> next;
- }
-
- return head;
-}
-
-
-/*
- * Append a name to a list of scopes.
- */
-void appendScopedName(scopedNameDef **headp,scopedNameDef *newsnd)
-{
- while (*headp != NULL)
- headp = &(*headp) -> next;
-
- *headp = newsnd;
-}
-
-
-/*
- * Free a scoped name - but not the text itself.
- */
-void freeScopedName(scopedNameDef *snd)
-{
- while (snd != NULL)
- {
- scopedNameDef *next = snd -> next;
-
- free(snd);
-
- snd = next;
- }
-}
-
-
-/*
- * Convert a text string to a scope part structure.
- */
-scopedNameDef *text2scopePart(char *text)
-{
- scopedNameDef *snd;
-
- snd = sipMalloc(sizeof (scopedNameDef));
-
- snd -> name = text;
- snd -> next = NULL;
-
- return snd;
-}
-
-
-/*
- * Convert a text string to a fully scoped name.
- */
-static scopedNameDef *text2scopedName(char *text)
-{
- return scopeScopedName(text2scopePart(text));
-}
-
-
-/*
- * Prepend any current scope to a scoped name.
- */
-static scopedNameDef *scopeScopedName(scopedNameDef *name)
-{
- classDef *cd = currentScope();
- scopedNameDef *snd;
-
- snd = (cd != NULL ? copyScopedName(cd->iff->fqcname) : NULL);
-
- appendScopedName(&snd, name);
-
- return snd;
-}
-
-
-/*
- * Return a pointer to the tail part of a scoped name.
- */
-char *scopedNameTail(scopedNameDef *snd)
-{
- if (snd == NULL)
- return NULL;
-
- while (snd -> next != NULL)
- snd = snd -> next;
-
- return snd -> name;
-}
-
-
-/*
- * Push the given scope onto the scope stack.
- */
-static void pushScope(classDef *scope)
-{
- if (currentScopeIdx >= MAX_NESTED_SCOPE)
- fatal("Internal error: increase the value of MAX_NESTED_SCOPE\n");
-
- scopeStack[currentScopeIdx] = scope;
- sectFlagsStack[currentScopeIdx] = sectionFlags;
-
- ++currentScopeIdx;
-}
-
-
-/*
- * Pop the scope stack.
- */
-static void popScope(void)
-{
- if (currentScopeIdx > 0)
- sectionFlags = sectFlagsStack[--currentScopeIdx];
-}
-
-
-/*
- * Return non-zero if the current input should be parsed rather than be
- * skipped.
- */
-static int notSkipping()
-{
- return (skipStackPtr == 0 ? TRUE : skipStack[skipStackPtr - 1]);
-}
-
-
-/*
- * Return the value of an expression involving a time period.
- */
-static int timePeriod(char *lname,char *uname)
-{
- int this, line;
- qualDef *qd, *lower, *upper;
- moduleDef *mod;
-
- if (lname == NULL)
- lower = NULL;
- else if ((lower = findQualifier(lname)) == NULL || lower -> qtype != time_qualifier)
- yyerror("Lower bound is not a time version");
-
- if (uname == NULL)
- upper = NULL;
- else if ((upper = findQualifier(uname)) == NULL || upper -> qtype != time_qualifier)
- yyerror("Upper bound is not a time version");
-
- /* Sanity checks on the bounds. */
-
- if (lower == NULL && upper == NULL)
- yyerror("Lower and upper bounds cannot both be omitted");
-
- if (lower != NULL && upper != NULL)
- {
- if (lower -> module != upper -> module || lower -> line != upper -> line)
- yyerror("Lower and upper bounds are from different timelines");
-
- if (lower == upper)
- yyerror("Lower and upper bounds must be different");
-
- if (lower -> order > upper -> order)
- yyerror("Later version specified as lower bound");
- }
-
- /* Go through each slot in the relevant timeline. */
-
- if (lower != NULL)
- {
- mod = lower -> module;
- line = lower -> line;
- }
- else
- {
- mod = upper -> module;
- line = upper -> line;
- }
-
- this = FALSE;
-
- for (qd = mod -> qualifiers; qd != NULL; qd = qd -> next)
- {
- if (qd -> qtype != time_qualifier || qd -> line != line)
- continue;
-
- if (lower != NULL && qd -> order < lower -> order)
- continue;
-
- if (upper != NULL && qd -> order >= upper -> order)
- continue;
-
- /*
- * This is within the required range so if it is also needed
- * then the expression is true.
- */
-
- if (isNeeded(qd))
- {
- this = TRUE;
- break;
- }
- }
-
- return this;
-}
-
-
-/*
- * Return the value of an expression involving a single platform or feature.
- */
-static int platOrFeature(char *name,int optnot)
-{
- int this;
- qualDef *qd;
-
- if ((qd = findQualifier(name)) == NULL || qd -> qtype == time_qualifier)
- yyerror("No such platform or feature");
-
- /* Assume this sub-expression is false. */
-
- this = FALSE;
-
- if (qd -> qtype == feature_qualifier)
- {
- if (!excludedFeature(excludedQualifiers,qd))
- this = TRUE;
- }
- else if (isNeeded(qd))
- this = TRUE;
-
- if (optnot)
- this = !this;
-
- return this;
-}
-
-
-/*
- * Return TRUE if the given qualifier is excluded.
- */
-int excludedFeature(stringList *xsl,qualDef *qd)
-{
- while (xsl != NULL)
- {
- if (strcmp(qd -> name,xsl -> s) == 0)
- return TRUE;
-
- xsl = xsl -> next;
- }
-
- return FALSE;
-}
-
-
-/*
- * Return TRUE if the given qualifier is needed.
- */
-static int isNeeded(qualDef *qd)
-{
- stringList *sl;
-
- for (sl = neededQualifiers; sl != NULL; sl = sl -> next)
- if (strcmp(qd -> name,sl -> s) == 0)
- return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Return the current scope. currentScope() is only valid if notSkipping()
- * returns non-zero.
- */
-static classDef *currentScope(void)
-{
- return (currentScopeIdx > 0 ? scopeStack[currentScopeIdx - 1] : NULL);
-}
-
-
-/*
- * Create a new qualifier.
- */
-static void newQualifier(moduleDef *mod,int line,int order,char *name,qualType qt)
-{
- qualDef *qd;
-
- /* Check it doesn't already exist. */
-
- if (findQualifier(name) != NULL)
- yyerror("Version is already defined");
-
- qd = sipMalloc(sizeof (qualDef));
- qd -> name = name;
- qd -> qtype = qt;
- qd -> module = mod;
- qd -> line = line;
- qd -> order = order;
- qd -> next = mod -> qualifiers;
- mod -> qualifiers = qd;
-}
-
-
-/*
- * Create a new imported module.
- */
-static void newImport(char *name)
-{
- moduleDef *from, *mod;
- moduleListDef *mld;
-
- /* Create a new module if it has already been imported. */
- for (mod = currentSpec -> modules; mod != NULL; mod = mod -> next)
- if (strcmp(mod -> file,name) == 0)
- break;
-
- from = currentModule;
-
- if (mod == NULL)
- {
- newModule(NULL,name);
- mod = currentModule;
- }
-
- /* Add the new import unless it has already been imported. */
- for (mld = from->imports; mld != NULL; mld = mld->next)
- if (mld->module == mod)
- return;
-
- mld = sipMalloc(sizeof (moduleListDef));
- mld -> module = mod;
- mld -> next = from->imports;
-
- from->imports = mld;
-}
-
-
-/*
- * Set up pointers to hook names.
- */
-static void getHooks(optFlags *optflgs,char **pre,char **post)
-{
- optFlag *of;
-
- if ((of = findOptFlag(optflgs,"PreHook",name_flag)) != NULL)
- *pre = of -> fvalue.sval;
- else
- *pre = NULL;
-
- if ((of = findOptFlag(optflgs,"PostHook",name_flag)) != NULL)
- *post = of -> fvalue.sval;
- else
- *post = NULL;
-}
-
-
-/*
- * Get the /ReleaseGIL/ option flag.
- */
-static int getReleaseGIL(optFlags *optflgs)
-{
- return (findOptFlag(optflgs, "ReleaseGIL", bool_flag) != NULL);
-}
-
-
-/*
- * Get the /HoldGIL/ option flag.
- */
-static int getHoldGIL(optFlags *optflgs)
-{
- return (findOptFlag(optflgs, "HoldGIL", bool_flag) != NULL);
-}
-
-
-/*
- * Return TRUE if the QtNoEmitters option was specified.
- */
-int optNoEmitters(sipSpec *pt)
-{
- return optFind(pt, "QtNoEmitters");
-}
-
-
-/*
- * Return TRUE if the QtRegisterTypes option was specified.
- */
-int optRegisterTypes(sipSpec *pt)
-{
- return optFind(pt, "QtRegisterTypes");
-}
-
-
-/*
- * Return TRUE if the Qt4Q_OBJECT option was specified.
- */
-int optQ_OBJECT4(sipSpec *pt)
-{
- return optFind(pt, "Qt4Q_OBJECT");
-}
-
-
-/*
- * Return TRUE if a particular option was specified with %SIPOptions.
- */
-static int optFind(sipSpec *pt, const char *opt)
-{
- stringList *sl;
-
- for (sl = pt->options; sl != NULL; sl = sl->next)
- if (strcmp(sl->s, opt) == 0)
- return TRUE;
-
- return FALSE;
-}
-
diff --git a/python/sip/sipgen/parser.h b/python/sip/sipgen/parser.h
deleted file mode 100644
index 7a75072d..00000000
--- a/python/sip/sipgen/parser.h
+++ /dev/null
@@ -1,268 +0,0 @@
-/* A Bison parser, made by GNU Bison 1.875d. */
-
-/* Skeleton parser for Yacc-like parsing with Bison,
- Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
-
- 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 2, or (at your option)
- any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor,
- Boston, MA 02110-1301, USA. */
-
-/* As a special exception, when this file is copied by Bison into a
- Bison output file, you may use that output file without restriction.
- This special exception was added by the Free Software Foundation
- in version 1.24 of Bison. */
-
-/* Tokens. */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
- /* Put the tokens into the symbol table, so that GDB and other debuggers
- know about them. */
- enum yytokentype {
- TK_OPTIONS = 258,
- TK_NOEMITTERS = 259,
- TK_DOC = 260,
- TK_EXPORTEDDOC = 261,
- TK_MAKEFILE = 262,
- TK_ACCESSCODE = 263,
- TK_GETCODE = 264,
- TK_SETCODE = 265,
- TK_PREINITCODE = 266,
- TK_POSTINITCODE = 267,
- TK_UNITCODE = 268,
- TK_MODCODE = 269,
- TK_TYPECODE = 270,
- TK_PREPYCODE = 271,
- TK_COPYING = 272,
- TK_MAPPEDTYPE = 273,
- TK_CODELINE = 274,
- TK_IF = 275,
- TK_END = 276,
- TK_NAME = 277,
- TK_PATHNAME = 278,
- TK_STRING = 279,
- TK_VIRTUALCATCHERCODE = 280,
- TK_TRAVERSECODE = 281,
- TK_CLEARCODE = 282,
- TK_READBUFFERCODE = 283,
- TK_WRITEBUFFERCODE = 284,
- TK_SEGCOUNTCODE = 285,
- TK_CHARBUFFERCODE = 286,
- TK_METHODCODE = 287,
- TK_FROMTYPE = 288,
- TK_TOTYPE = 289,
- TK_TOSUBCLASS = 290,
- TK_INCLUDE = 291,
- TK_OPTINCLUDE = 292,
- TK_IMPORT = 293,
- TK_EXPHEADERCODE = 294,
- TK_MODHEADERCODE = 295,
- TK_TYPEHEADERCODE = 296,
- TK_MODULE = 297,
- TK_CMODULE = 298,
- TK_CLASS = 299,
- TK_STRUCT = 300,
- TK_PUBLIC = 301,
- TK_PROTECTED = 302,
- TK_PRIVATE = 303,
- TK_SIGNALS = 304,
- TK_SLOTS = 305,
- TK_BOOL = 306,
- TK_SHORT = 307,
- TK_INT = 308,
- TK_LONG = 309,
- TK_FLOAT = 310,
- TK_DOUBLE = 311,
- TK_CHAR = 312,
- TK_WCHAR_T = 313,
- TK_VOID = 314,
- TK_PYOBJECT = 315,
- TK_PYTUPLE = 316,
- TK_PYLIST = 317,
- TK_PYDICT = 318,
- TK_PYCALLABLE = 319,
- TK_PYSLICE = 320,
- TK_PYTYPE = 321,
- TK_VIRTUAL = 322,
- TK_ENUM = 323,
- TK_SIGNED = 324,
- TK_UNSIGNED = 325,
- TK_SCOPE = 326,
- TK_LOGICAL_OR = 327,
- TK_CONST = 328,
- TK_STATIC = 329,
- TK_SIPQT_SIGNAL = 330,
- TK_SIPQT_SLOT = 331,
- TK_SIPANYQT_SLOT = 332,
- TK_SIPRXCON = 333,
- TK_SIPRXDIS = 334,
- TK_SIPSLOTCON = 335,
- TK_SIPSLOTDIS = 336,
- TK_NUMBER = 337,
- TK_REAL = 338,
- TK_TYPEDEF = 339,
- TK_NAMESPACE = 340,
- TK_TIMELINE = 341,
- TK_PLATFORMS = 342,
- TK_FEATURE = 343,
- TK_LICENSE = 344,
- TK_QCHAR = 345,
- TK_TRUE = 346,
- TK_FALSE = 347,
- TK_NULL = 348,
- TK_OPERATOR = 349,
- TK_THROW = 350,
- TK_QOBJECT = 351,
- TK_EXCEPTION = 352,
- TK_RAISECODE = 353,
- TK_EXPLICIT = 354,
- TK_TEMPLATE = 355,
- TK_ELLIPSIS = 356
- };
-#endif
-#define TK_OPTIONS 258
-#define TK_NOEMITTERS 259
-#define TK_DOC 260
-#define TK_EXPORTEDDOC 261
-#define TK_MAKEFILE 262
-#define TK_ACCESSCODE 263
-#define TK_GETCODE 264
-#define TK_SETCODE 265
-#define TK_PREINITCODE 266
-#define TK_POSTINITCODE 267
-#define TK_UNITCODE 268
-#define TK_MODCODE 269
-#define TK_TYPECODE 270
-#define TK_PREPYCODE 271
-#define TK_COPYING 272
-#define TK_MAPPEDTYPE 273
-#define TK_CODELINE 274
-#define TK_IF 275
-#define TK_END 276
-#define TK_NAME 277
-#define TK_PATHNAME 278
-#define TK_STRING 279
-#define TK_VIRTUALCATCHERCODE 280
-#define TK_TRAVERSECODE 281
-#define TK_CLEARCODE 282
-#define TK_READBUFFERCODE 283
-#define TK_WRITEBUFFERCODE 284
-#define TK_SEGCOUNTCODE 285
-#define TK_CHARBUFFERCODE 286
-#define TK_METHODCODE 287
-#define TK_FROMTYPE 288
-#define TK_TOTYPE 289
-#define TK_TOSUBCLASS 290
-#define TK_INCLUDE 291
-#define TK_OPTINCLUDE 292
-#define TK_IMPORT 293
-#define TK_EXPHEADERCODE 294
-#define TK_MODHEADERCODE 295
-#define TK_TYPEHEADERCODE 296
-#define TK_MODULE 297
-#define TK_CMODULE 298
-#define TK_CLASS 299
-#define TK_STRUCT 300
-#define TK_PUBLIC 301
-#define TK_PROTECTED 302
-#define TK_PRIVATE 303
-#define TK_SIGNALS 304
-#define TK_SLOTS 305
-#define TK_BOOL 306
-#define TK_SHORT 307
-#define TK_INT 308
-#define TK_LONG 309
-#define TK_FLOAT 310
-#define TK_DOUBLE 311
-#define TK_CHAR 312
-#define TK_WCHAR_T 313
-#define TK_VOID 314
-#define TK_PYOBJECT 315
-#define TK_PYTUPLE 316
-#define TK_PYLIST 317
-#define TK_PYDICT 318
-#define TK_PYCALLABLE 319
-#define TK_PYSLICE 320
-#define TK_PYTYPE 321
-#define TK_VIRTUAL 322
-#define TK_ENUM 323
-#define TK_SIGNED 324
-#define TK_UNSIGNED 325
-#define TK_SCOPE 326
-#define TK_LOGICAL_OR 327
-#define TK_CONST 328
-#define TK_STATIC 329
-#define TK_SIPQT_SIGNAL 330
-#define TK_SIPQT_SLOT 331
-#define TK_SIPANYQT_SLOT 332
-#define TK_SIPRXCON 333
-#define TK_SIPRXDIS 334
-#define TK_SIPSLOTCON 335
-#define TK_SIPSLOTDIS 336
-#define TK_NUMBER 337
-#define TK_REAL 338
-#define TK_TYPEDEF 339
-#define TK_NAMESPACE 340
-#define TK_TIMELINE 341
-#define TK_PLATFORMS 342
-#define TK_FEATURE 343
-#define TK_LICENSE 344
-#define TK_QCHAR 345
-#define TK_TRUE 346
-#define TK_FALSE 347
-#define TK_NULL 348
-#define TK_OPERATOR 349
-#define TK_THROW 350
-#define TK_QOBJECT 351
-#define TK_EXCEPTION 352
-#define TK_RAISECODE 353
-#define TK_EXPLICIT 354
-#define TK_TEMPLATE 355
-#define TK_ELLIPSIS 356
-
-
-
-
-#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
-#line 103 "parser.y"
-typedef union YYSTYPE {
- char qchar;
- char *text;
- long number;
- double real;
- argDef memArg;
- signatureDef signature;
- signatureDef *optsignature;
- throwArgs *throwlist;
- codeBlock *codeb;
- valueDef value;
- valueDef *valp;
- optFlags optflags;
- optFlag flag;
- scopedNameDef *scpvalp;
- fcallDef fcall;
- int boolean;
- exceptionDef exceptionbase;
- classDef *klass;
-} YYSTYPE;
-/* Line 1285 of yacc.c. */
-#line 260 "parser.h"
-# define yystype YYSTYPE /* obsolescent; will be withdrawn */
-# define YYSTYPE_IS_DECLARED 1
-# define YYSTYPE_IS_TRIVIAL 1
-#endif
-
-extern YYSTYPE yylval;
-
-
-
diff --git a/python/sip/sipgen/parser.y b/python/sip/sipgen/parser.y
deleted file mode 100644
index bba7d0c1..00000000
--- a/python/sip/sipgen/parser.y
+++ /dev/null
@@ -1,4945 +0,0 @@
-/*
- * The SIP parser.
- *
- * Copyright (c) 2007
- * Riverbank Computing Limited <info@riverbankcomputing.co.uk>
- *
- * This file is part of SIP.
- *
- * This copy of SIP is licensed for use under the terms of the SIP License
- * Agreement. See the file LICENSE for more details.
- *
- * SIP is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- */
-
-%{
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-
-#include "sip.h"
-
-
-#define MAX_NESTED_IF 10
-#define MAX_NESTED_SCOPE 10
-
-#define inMainModule() (currentSpec -> module == currentModule)
-
-
-static sipSpec *currentSpec; /* The current spec being parsed. */
-static stringList *neededQualifiers; /* The list of required qualifiers. */
-static stringList *excludedQualifiers; /* The list of excluded qualifiers. */
-static moduleDef *currentModule; /* The current module being parsed. */
-static mappedTypeDef *currentMappedType; /* The current mapped type. */
-static enumDef *currentEnum; /* The current enum being parsed. */
-static int sectionFlags; /* The current section flags. */
-static int currentOverIsVirt; /* Set if the overload is virtual. */
-static int currentCtorIsExplicit; /* Set if the ctor is explicit. */
-static int currentIsStatic; /* Set if the current is static. */
-static char *previousFile; /* The file just parsed. */
-static parserContext newContext; /* The new pending context. */
-static int skipStackPtr; /* The skip stack pointer. */
-static int skipStack[MAX_NESTED_IF]; /* Stack of skip flags. */
-static classDef *scopeStack[MAX_NESTED_SCOPE]; /* The scope stack. */
-static int sectFlagsStack[MAX_NESTED_SCOPE]; /* The section flags stack. */
-static int currentScopeIdx; /* The scope stack index. */
-static int currentTimelineOrder; /* The current timeline order. */
-
-
-static char *getPythonName(optFlags *optflgs, char *cname);
-static nameDef *cacheName(sipSpec *,char *);
-static classDef *findClass(sipSpec *,ifaceFileType,scopedNameDef *);
-static classDef *findClassWithInterface(sipSpec *pt, ifaceFileDef *iff);
-static classDef *newClass(sipSpec *,ifaceFileType,scopedNameDef *);
-static void finishClass(sipSpec *,moduleDef *,classDef *,optFlags *);
-static exceptionDef *findException(sipSpec *pt, scopedNameDef *fqname, int new);
-static mappedTypeDef *newMappedType(sipSpec *,argDef *);
-static enumDef *newEnum(sipSpec *,moduleDef *,char *,optFlags *,int);
-static void instantiateClassTemplate(sipSpec *pt, moduleDef *mod, classDef *scope, scopedNameDef *fqname, classTmplDef *tcd, templateDef *td);
-static void newTypedef(sipSpec *,moduleDef *,char *,argDef *);
-static void newVar(sipSpec *,moduleDef *,char *,int,argDef *,optFlags *,
- codeBlock *,codeBlock *,codeBlock *);
-static void newCtor(char *,int,signatureDef *,optFlags *,codeBlock *,
- throwArgs *,signatureDef *,int);
-static void newFunction(sipSpec *,moduleDef *,int,int,int,char *,
- signatureDef *,int,int,optFlags *,codeBlock *,
- codeBlock *,throwArgs *,signatureDef *);
-static optFlag *findOptFlag(optFlags *,char *,flagType);
-static memberDef *findFunction(sipSpec *,moduleDef *,classDef *,nameDef *,int,
- int);
-static void checkAttributes(sipSpec *,classDef *,char *,int);
-static void newModule(FILE *,char *);
-static void appendCodeBlock(codeBlock **,codeBlock *);
-static void parseFile(FILE *,char *,moduleDef *,int);
-static void handleEOF(void);
-static void handleEOM(void);
-static qualDef *findQualifier(char *);
-static scopedNameDef *text2scopedName(char *);
-static scopedNameDef *scopeScopedName(scopedNameDef *name);
-static void pushScope(classDef *);
-static void popScope(void);
-static classDef *currentScope(void);
-static void newQualifier(moduleDef *,int,int,char *,qualType);
-static void newImport(char *);
-static void usedInMainModule(sipSpec *,ifaceFileDef *);
-static int timePeriod(char *,char *);
-static int platOrFeature(char *,int);
-static int isNeeded(qualDef *);
-static int notSkipping(void);
-static void getHooks(optFlags *,char **,char **);
-static int getReleaseGIL(optFlags *);
-static int getHoldGIL(optFlags *);
-static void templateSignature(signatureDef *sd, int result, classTmplDef *tcd, templateDef *td, classDef *ncd);
-static void templateType(argDef *ad, classTmplDef *tcd, templateDef *td, classDef *ncd);
-static int search_back(const char *end, const char *start, const char *target);
-static char *getType(scopedNameDef *ename, argDef *ad);
-static char *scopedNameToString(scopedNameDef *name);
-static void addUsedFromCode(sipSpec *pt, ifaceFileList **used, const char *sname);
-static int sameName(scopedNameDef *snd, const char *sname);
-static int optFind(sipSpec *pt, const char *opt);
-%}
-
-%union {
- char qchar;
- char *text;
- long number;
- double real;
- argDef memArg;
- signatureDef signature;
- signatureDef *optsignature;
- throwArgs *throwlist;
- codeBlock *codeb;
- valueDef value;
- valueDef *valp;
- optFlags optflags;
- optFlag flag;
- scopedNameDef *scpvalp;
- fcallDef fcall;
- int boolean;
- exceptionDef exceptionbase;
- classDef *klass;
-}
-
-%token TK_OPTIONS
-%token TK_NOEMITTERS
-%token TK_DOC
-%token TK_EXPORTEDDOC
-%token TK_MAKEFILE
-%token TK_ACCESSCODE
-%token TK_GETCODE
-%token TK_SETCODE
-%token TK_PREINITCODE
-%token TK_POSTINITCODE
-%token TK_UNITCODE
-%token TK_MODCODE
-%token TK_TYPECODE
-%token TK_PREPYCODE
-%token TK_COPYING
-%token TK_MAPPEDTYPE
-%token <codeb> TK_CODELINE
-%token TK_IF
-%token TK_END
-%token <text> TK_NAME
-%token <text> TK_PATHNAME
-%token <text> TK_STRING
-%token TK_VIRTUALCATCHERCODE
-%token TK_TRAVERSECODE
-%token TK_CLEARCODE
-%token TK_READBUFFERCODE
-%token TK_WRITEBUFFERCODE
-%token TK_SEGCOUNTCODE
-%token TK_CHARBUFFERCODE
-%token TK_METHODCODE
-%token TK_FROMTYPE
-%token TK_TOTYPE
-%token TK_TOSUBCLASS
-%token TK_INCLUDE
-%token TK_OPTINCLUDE
-%token TK_IMPORT
-%token TK_EXPHEADERCODE
-%token TK_MODHEADERCODE
-%token TK_TYPEHEADERCODE
-%token TK_MODULE
-%token TK_CMODULE
-%token TK_CLASS
-%token TK_STRUCT
-%token TK_PUBLIC
-%token TK_PROTECTED
-%token TK_PRIVATE
-%token TK_SIGNALS
-%token TK_SLOTS
-%token TK_BOOL
-%token TK_SHORT
-%token TK_INT
-%token TK_LONG
-%token TK_FLOAT
-%token TK_DOUBLE
-%token TK_CHAR
-%token TK_WCHAR_T
-%token TK_VOID
-%token TK_PYOBJECT
-%token TK_PYTUPLE
-%token TK_PYLIST
-%token TK_PYDICT
-%token TK_PYCALLABLE
-%token TK_PYSLICE
-%token TK_PYTYPE
-%token TK_VIRTUAL
-%token TK_ENUM
-%token TK_SIGNED
-%token TK_UNSIGNED
-%token TK_SCOPE
-%token TK_LOGICAL_OR
-%token TK_CONST
-%token TK_STATIC
-%token TK_SIPSIGNAL
-%token TK_SIPSLOT
-%token TK_SIPANYSLOT
-%token TK_SIPRXCON
-%token TK_SIPRXDIS
-%token TK_SIPSLOTCON
-%token TK_SIPSLOTDIS
-%token <number> TK_NUMBER
-%token <real> TK_REAL
-%token TK_TYPEDEF
-%token TK_NAMESPACE
-%token TK_TIMELINE
-%token TK_PLATFORMS
-%token TK_FEATURE
-%token TK_LICENSE
-%token <qchar> TK_QCHAR
-%token TK_TRUE
-%token TK_FALSE
-%token TK_NULL
-%token TK_OPERATOR
-%token TK_THROW
-%token TK_QOBJECT
-%token TK_EXCEPTION
-%token TK_RAISECODE
-%token TK_EXPLICIT
-%token TK_TEMPLATE
-%token TK_ELLIPSIS
-
-%type <memArg> argvalue
-%type <memArg> argtype
-%type <memArg> cpptype
-%type <memArg> basetype
-%type <signature> template
-%type <signature> arglist
-%type <signature> rawarglist
-%type <signature> cpptypelist
-%type <optsignature> optsig
-%type <optsignature> optctorsig
-%type <throwlist> optexceptions
-%type <throwlist> exceptionlist
-%type <number> optslot
-%type <number> optref
-%type <number> optconst
-%type <number> optvirtual
-%type <number> optabstract
-%type <number> deref
-%type <number> optnumber
-%type <value> simplevalue
-%type <valp> value
-%type <valp> expr
-%type <valp> optassign
-%type <codeb> optaccesscode
-%type <codeb> optgetcode
-%type <codeb> optsetcode
-%type <codeb> exphdrcode
-%type <codeb> modhdrcode
-%type <codeb> typehdrcode
-%type <codeb> opttypehdrcode
-%type <codeb> travcode
-%type <codeb> clearcode
-%type <codeb> readbufcode
-%type <codeb> writebufcode
-%type <codeb> segcountcode
-%type <codeb> charbufcode
-%type <codeb> modcode
-%type <codeb> typecode
-%type <codeb> codeblock
-%type <codeb> codelines
-%type <codeb> virtualcatchercode
-%type <codeb> methodcode
-%type <codeb> raisecode
-%type <text> operatorname
-%type <text> optfilename
-%type <text> optname
-%type <text> modname
-%type <optflags> optflags
-%type <optflags> flaglist
-%type <flag> flag
-%type <flag> flagvalue
-%type <qchar> optunop
-%type <qchar> binop
-%type <scpvalp> scopepart
-%type <scpvalp> scopedname
-%type <fcall> exprlist
-%type <boolean> qualifiers
-%type <boolean> oredqualifiers
-%type <boolean> modlang
-%type <boolean> optclassbody
-%type <exceptionbase> baseexception
-%type <klass> class
-
-%%
-
-specification: statement
- | specification statement
- ;
-
-statement: {
- /*
- * We don't do these in parserEOF() because the parser
- * is reading ahead and that would be too early.
- */
-
- if (previousFile != NULL)
- {
- handleEOF();
-
- if (newContext.prevmod != NULL)
- handleEOM();
-
- free(previousFile);
- previousFile = NULL;
- }
- } modstatement
- ;
-
-modstatement: module
- | options
- | noemitters
- | copying
- | include
- | optinclude
- | import
- | timeline
- | platforms
- | feature
- | license
- | exphdrcode {
- if (notSkipping())
- appendCodeBlock(&currentSpec->exphdrcode, $1);
- }
- | modhdrcode {
- if (notSkipping() && inMainModule())
- appendCodeBlock(&currentSpec -> hdrcode,$1);
- }
- | modcode {
- if (notSkipping() && inMainModule())
- appendCodeBlock(&currentSpec -> cppcode,$1);
- }
- | preinitcode
- | postinitcode
- | unitcode
- | prepycode
- | doc
- | exporteddoc
- | makefile
- | mappedtype
- | mappedtypetmpl
- | nsstatement
- ;
-
-nsstatement: ifstart
- | ifend
- | namespace
- | struct
- | class
- | classtmpl
- | exception
- | typedef
- | enum
- | function
- | variable
- | typehdrcode {
- if (notSkipping())
- {
- classDef *scope = currentScope();
-
- if (scope == NULL)
- yyerror("%TypeHeaderCode can only be used in a namespace, class or mapped type");
-
- appendCodeBlock(&scope->hdrcode, $1);
- }
- }
- ;
-
-options: TK_OPTIONS '(' optionlist ')'
- ;
-
-optionlist: TK_NAME {
- appendString(&currentSpec->options, $1);
- }
- | optionlist ',' TK_NAME {
- appendString(&currentSpec->options, $3);
- }
- ;
-
-noemitters: TK_NOEMITTERS {
- if (notSkipping())
- {
- yywarning("%SIPNoEmitters is deprecated, please use %SIPOptions instead");
- appendString(&currentSpec->options, "QtNoEmitters");
- }
- }
- ;
-
-exception: TK_EXCEPTION scopedname baseexception optflags '{' opttypehdrcode raisecode '}' ';' {
- if (notSkipping())
- {
- exceptionDef *xd;
- char *pyname;
-
- if (currentSpec->genc)
- yyerror("%Exception not allowed in a C module");
-
- pyname = getPythonName(&$4, scopedNameTail($2));
-
- checkAttributes(currentSpec, NULL, pyname, FALSE);
-
- xd = findException(currentSpec, $2, TRUE);
-
- if (xd->cd != NULL)
- yyerror("%Exception name has already been seen as a class name - it must be defined before being used");
-
- if (xd->iff->module != NULL)
- yyerror("The %Exception has already been defined");
-
- /* Complete the definition. */
-
- xd->iff->module = currentModule;
- xd->pyname = pyname;
- xd->bibase = $3.bibase;
- xd->base = $3.base;
- xd->hdrcode = $6;
- xd->raisecode = $7;
-
- if (xd->bibase != NULL || xd->base != NULL)
- xd->exceptionnr = currentModule->nrexceptions++;
-
- if (inMainModule() && xd->base != NULL && xd->base->iff->module != currentModule)
- addToUsedList(&currentSpec->used, xd->base->iff);
- }
- }
- ;
-
-baseexception: {
- $$.bibase = NULL;
- $$.base = NULL;
- }
- | '(' scopedname ')' {
- exceptionDef *xd;
-
- $$.bibase = NULL;
- $$.base = NULL;
-
- /* See if it is a defined exception. */
- for (xd = currentSpec->exceptions; xd != NULL; xd = xd->next)
- if (sameScopedName(xd->iff->fqcname, $2))
- {
- $$.base = xd;
- break;
- }
-
- if (xd == NULL && $2->next == NULL && strncmp($2->name, "SIP_", 4) == 0)
- {
- /* See if it is a builtin exception. */
-
- static char *builtins[] = {
- "Exception",
- "StopIteration",
- "StandardError",
- "ArithmeticError",
- "LookupError",
- "AssertionError",
- "AttributeError",
- "EOFError",
- "FloatingPointError",
- "EnvironmentError",
- "IOError",
- "OSError",
- "ImportError",
- "IndexError",
- "KeyError",
- "KeyboardInterrupt",
- "MemoryError",
- "NameError",
- "OverflowError",
- "RuntimeError",
- "NotImplementedError",
- "SyntaxError",
- "IndentationError",
- "TabError",
- "ReferenceError",
- "SystemError",
- "SystemExit",
- "TypeError",
- "UnboundLocalError",
- "UnicodeError",
- "UnicodeEncodeError",
- "UnicodeDecodeError",
- "UnicodeTranslateError",
- "ValueError",
- "ZeroDivisionError",
- "WindowsError",
- "VMSError",
- NULL
- };
-
- char **cp;
-
- for (cp = builtins; *cp != NULL; ++cp)
- if (strcmp($2->name + 4, *cp) == 0)
- {
- $$.bibase = *cp;
- break;
- }
- }
-
- if ($$.bibase == NULL && $$.base == NULL)
- yyerror("Unknown exception base type");
- }
- ;
-
-raisecode: TK_RAISECODE codeblock {
- $$ = $2;
- }
- ;
-
-mappedtype: TK_MAPPEDTYPE basetype {
- if (notSkipping())
- currentMappedType = newMappedType(currentSpec,&$2);
- } mtdefinition
- ;
-
-mappedtypetmpl: template TK_MAPPEDTYPE basetype {
- int a;
-
- if (currentSpec->genc)
- yyerror("%MappedType templates not allowed in a C module");
-
- /* Check the template arguments are all just simple names. */
- for (a = 0; a < $1.nrArgs; ++a)
- if ($1.args[a].atype != defined_type || $1.args[a].u.snd->next != NULL)
- yyerror("%MappedType template arguments must be simple names");
-
- if ($3.atype != template_type)
- yyerror("%MappedType template must map a template type");
-
- if (notSkipping())
- {
- mappedTypeTmplDef *mtt;
-
- /* Check a template hasn't already been provided. */
- for (mtt = currentSpec->mappedtypetemplates; mtt != NULL; mtt = mtt->next)
- if (sameScopedName(mtt->mt->type.u.td->fqname, $3.u.td->fqname) && sameTemplateSignature(&mtt->mt->type.u.td->types, &$3.u.td->types, TRUE))
- yyerror("%MappedType template for this type has already been defined");
-
- $3.nrderefs = 0;
- $3.argflags = 0;
-
- mtt = sipMalloc(sizeof (mappedTypeTmplDef));
-
- mtt->sig = $1;
- mtt->mt = allocMappedType(&$3);
- mtt->next = currentSpec->mappedtypetemplates;
-
- currentSpec->mappedtypetemplates = mtt;
-
- currentMappedType = mtt->mt;
- }
- } mtdefinition
- ;
-
-mtdefinition: '{' mtbody '}' ';' {
- if (notSkipping())
- {
- if (currentMappedType->convfromcode == NULL)
- yyerror("%MappedType must have a %ConvertFromTypeCode directive");
-
- if (currentMappedType->convtocode == NULL)
- yyerror("%MappedType must have a %ConvertToTypeCode directive");
-
- currentMappedType = NULL;
- }
- }
- ;
-
-mtbody: mtline
- | mtbody mtline
- ;
-
-mtline: typehdrcode {
- if (notSkipping())
- appendCodeBlock(&currentMappedType -> hdrcode,$1);
- }
- | TK_FROMTYPE codeblock {
- if (notSkipping())
- {
- if (currentMappedType -> convfromcode != NULL)
- yyerror("%MappedType has more than one %ConvertFromTypeCode directive");
-
- currentMappedType -> convfromcode = $2;
- }
- }
- | TK_TOTYPE codeblock {
- if (notSkipping())
- {
- if (currentMappedType -> convtocode != NULL)
- yyerror("%MappedType has more than one %ConvertToTypeCode directive");
-
- currentMappedType -> convtocode = $2;
- }
- }
- ;
-
-namespace: TK_NAMESPACE TK_NAME {
- if (currentSpec -> genc)
- yyerror("namespace definition not allowed in a C module");
-
- if (notSkipping())
- {
- classDef *ns;
-
- ns = newClass(currentSpec,namespace_iface,text2scopedName($2));
-
- pushScope(ns);
-
- sectionFlags = 0;
- }
- } '{' nsbody '}' ';' {
- if (inMainModule())
- {
- classDef *ns = currentScope();
-
- if (!isUsedName(ns->iff->name))
- {
- varDef *vd;
-
- for (vd = currentSpec->vars; vd != NULL; vd = vd->next)
- if (vd->ecd == ns)
- {
- setIsUsedName(ns->iff->name);
- break;
- }
- }
- }
-
- if (notSkipping())
- popScope();
- }
- ;
-
-nsbody: nsstatement
- | nsbody nsstatement
- ;
-
-platforms: TK_PLATFORMS {
- qualDef *qd;
-
- for (qd = currentModule -> qualifiers; qd != NULL; qd = qd -> next)
- if (qd -> qtype == platform_qualifier)
- yyerror("%Platforms has already been defined for this module");
- }
- '{' platformlist '}' {
- qualDef *qd;
- int nrneeded;
-
- /*
- * Check that exactly one platform in the set was
- * requested.
- */
-
- nrneeded = 0;
-
- for (qd = currentModule -> qualifiers; qd != NULL; qd = qd -> next)
- if (qd -> qtype == platform_qualifier && isNeeded(qd))
- ++nrneeded;
-
- if (nrneeded > 1)
- yyerror("No more than one of these %Platforms must be specified with the -t flag");
- }
- ;
-
-platformlist: platform
- | platformlist platform
- ;
-
-platform: TK_NAME {
- newQualifier(currentModule,-1,-1,$1,platform_qualifier);
- }
- ;
-
-feature: TK_FEATURE TK_NAME {
- newQualifier(currentModule,-1,-1,$2,feature_qualifier);
- }
- ;
-
-timeline: TK_TIMELINE {
- currentTimelineOrder = 0;
- }
- '{' qualifierlist '}' {
- qualDef *qd;
- int nrneeded;
-
- /*
- * Check that exactly one time slot in the set was
- * requested.
- */
-
- nrneeded = 0;
-
- for (qd = currentModule -> qualifiers; qd != NULL; qd = qd -> next)
- if (qd -> qtype == time_qualifier && isNeeded(qd))
- ++nrneeded;
-
- if (nrneeded > 1)
- yyerror("At most one of this %Timeline must be specified with the -t flag");
-
- currentModule -> nrtimelines++;
- }
- ;
-
-qualifierlist: qualifiername
- | qualifierlist qualifiername
- ;
-
-qualifiername: TK_NAME {
- newQualifier(currentModule,currentModule -> nrtimelines,currentTimelineOrder++,$1,time_qualifier);
- }
- ;
-
-ifstart: TK_IF '(' qualifiers ')' {
- if (skipStackPtr >= MAX_NESTED_IF)
- yyerror("Internal error: increase the value of MAX_NESTED_IF");
-
- /* Nested %Ifs are implicit logical ands. */
-
- if (skipStackPtr > 0)
- $3 = ($3 && skipStack[skipStackPtr - 1]);
-
- skipStack[skipStackPtr++] = $3;
- }
- ;
-
-oredqualifiers: TK_NAME {
- $$ = platOrFeature($1,FALSE);
- }
- | '!' TK_NAME {
- $$ = platOrFeature($2,TRUE);
- }
- | oredqualifiers TK_LOGICAL_OR TK_NAME {
- $$ = (platOrFeature($3,FALSE) || $1);
- }
- | oredqualifiers TK_LOGICAL_OR '!' TK_NAME {
- $$ = (platOrFeature($4,TRUE) || $1);
- }
- ;
-
-qualifiers: oredqualifiers
- | optname '-' optname {
- $$ = timePeriod($1,$3);
- }
- ;
-
-ifend: TK_END {
- if (skipStackPtr-- <= 0)
- yyerror("Too many %End directives");
- }
- ;
-
-license: TK_LICENSE optflags {
- optFlag *of;
-
- if ($2.nrFlags == 0)
- yyerror("%License details not specified");
-
- if ((of = findOptFlag(&$2,"Type",string_flag)) == NULL)
- yyerror("%License type not specified");
-
- currentModule -> license = sipMalloc(sizeof (licenseDef));
-
- currentModule -> license -> type = of -> fvalue.sval;
-
- currentModule -> license -> licensee =
- ((of = findOptFlag(&$2,"Licensee",string_flag)) != NULL)
- ? of -> fvalue.sval : NULL;
-
- currentModule -> license -> timestamp =
- ((of = findOptFlag(&$2,"Timestamp",string_flag)) != NULL)
- ? of -> fvalue.sval : NULL;
-
- currentModule -> license -> sig =
- ((of = findOptFlag(&$2,"Signature",string_flag)) != NULL)
- ? of -> fvalue.sval : NULL;
- }
- ;
-
-module: modlang modname optnumber {
- /* Check the module hasn't already been defined. */
-
- moduleDef *mod;
-
- for (mod = currentSpec -> modules; mod != NULL; mod = mod -> next)
- if (mod->fullname != NULL && strcmp(mod->fullname, $2) == 0)
- yyerror("Module is already defined");
-
- currentModule->fullname = $2;
-
- if ((currentModule->name = strrchr($2, '.')) != NULL)
- currentModule->name++;
- else
- currentModule->name = $2;
-
- currentModule -> version = $3;
-
- if (currentSpec -> genc < 0)
- currentSpec -> genc = $1;
- else if (currentSpec -> genc != $1)
- yyerror("Cannot mix C and C++ modules");
- }
- ;
-
-modlang: TK_MODULE {
- $$ = FALSE;
- }
- | TK_CMODULE {
- $$ = TRUE;
- }
- ;
-
-modname: TK_NAME
- | TK_PATHNAME {
- /*
- * The grammar design is a bit broken and this is the
- * easiest way to allow periods in module names.
- */
-
- char *cp;
-
- for (cp = $1; *cp != '\0'; ++cp)
- if (*cp != '.' && *cp != '_' && !isalnum(*cp))
- yyerror("Invalid character in module name");
-
- $$ = $1;
- }
- ;
-
-optnumber: {
- $$ = -1;
- }
- | TK_NUMBER
- ;
-
-include: TK_INCLUDE TK_PATHNAME {
- parseFile(NULL,$2,NULL,FALSE);
- }
- ;
-
-optinclude: TK_OPTINCLUDE TK_PATHNAME {
- parseFile(NULL,$2,NULL,TRUE);
- }
- ;
-
-import: TK_IMPORT TK_PATHNAME {
- newImport($2);
- }
- ;
-
-optaccesscode: {
- $$ = NULL;
- }
- | TK_ACCESSCODE codeblock {
- $$ = $2;
- }
- ;
-
-optgetcode: {
- $$ = NULL;
- }
- | TK_GETCODE codeblock {
- $$ = $2;
- }
- ;
-
-optsetcode: {
- $$ = NULL;
- }
- | TK_SETCODE codeblock {
- $$ = $2;
- }
- ;
-
-copying: TK_COPYING codeblock {
- if (inMainModule())
- appendCodeBlock(&currentSpec -> copying,$2);
- }
- ;
-
-exphdrcode: TK_EXPHEADERCODE codeblock {
- $$ = $2;
- }
- ;
-
-modhdrcode: TK_MODHEADERCODE codeblock {
- $$ = $2;
- }
- ;
-
-typehdrcode: TK_TYPEHEADERCODE codeblock {
- $$ = $2;
- }
- ;
-
-opttypehdrcode: {
- $$ = NULL;
- }
- | typehdrcode
- ;
-
-travcode: TK_TRAVERSECODE codeblock {
- $$ = $2;
- }
- ;
-
-clearcode: TK_CLEARCODE codeblock {
- $$ = $2;
- }
- ;
-
-readbufcode: TK_READBUFFERCODE codeblock {
- $$ = $2;
- }
- ;
-
-writebufcode: TK_WRITEBUFFERCODE codeblock {
- $$ = $2;
- }
- ;
-
-segcountcode: TK_SEGCOUNTCODE codeblock {
- $$ = $2;
- }
- ;
-
-charbufcode: TK_CHARBUFFERCODE codeblock {
- $$ = $2;
- }
- ;
-
-modcode: TK_MODCODE codeblock {
- $$ = $2;
- }
- ;
-
-typecode: TK_TYPECODE codeblock {
- $$ = $2;
- }
- ;
-
-preinitcode: TK_PREINITCODE codeblock {
- if (notSkipping() && inMainModule())
- appendCodeBlock(&currentSpec -> preinitcode,$2);
- }
- ;
-
-postinitcode: TK_POSTINITCODE codeblock {
- if (notSkipping() && inMainModule())
- appendCodeBlock(&currentSpec -> postinitcode,$2);
- }
- ;
-
-unitcode: TK_UNITCODE codeblock {
- if (notSkipping() && inMainModule())
- appendCodeBlock(&currentSpec->unitcode, $2);
- }
- ;
-
-prepycode: TK_PREPYCODE codeblock {
- /*
- * This is a no-op and is retained for compatibility
- * until the last use of it (by SIP v3) can be removed
- * from PyQt.
- */
- }
- ;
-
-doc: TK_DOC codeblock {
- if (inMainModule())
- appendCodeBlock(&currentSpec -> docs,$2);
- }
- ;
-
-exporteddoc: TK_EXPORTEDDOC codeblock {
- appendCodeBlock(&currentSpec -> docs,$2);
- }
- ;
-
-makefile: TK_MAKEFILE TK_PATHNAME optfilename codeblock {
- if (inMainModule())
- yywarning("%Makefile is ignored, please use the -b flag instead");
- }
- ;
-
-codeblock: codelines TK_END
- ;
-
-codelines: TK_CODELINE
- | codelines TK_CODELINE {
- $$ = $1;
-
- append(&$$->frag, $2->frag);
-
- free($2->frag);
- free($2->filename);
- free($2);
- }
- ;
-
-enum: TK_ENUM optname optflags {
- if (notSkipping())
- {
- if (sectionFlags != 0 && (sectionFlags & ~(SECT_IS_PUBLIC | SECT_IS_PROT)) != 0)
- yyerror("Class enums must be in the public or protected sections");
-
- currentEnum = newEnum(currentSpec,currentModule,$2,&$3,sectionFlags);
- }
- } '{' optenumbody '}' ';'
- ;
-
-optfilename: {
- $$ = NULL;
- }
- | TK_PATHNAME {
- $$ = $1;
- }
- ;
-
-optname: {
- $$ = NULL;
- }
- | TK_NAME {
- $$ = $1;
- }
- ;
-
-optenumbody:
- | enumbody
- ;
-
-enumbody: enumline
- | enumbody enumline
- ;
-
-enumline: ifstart
- | ifend
- | TK_NAME optenumassign optflags optcomma {
- if (notSkipping())
- {
- /*
- * Note that we don't use the assigned value.
- * This is a hangover from when enums where
- * generated in Python. We can remove it when
- * we have got around to updating all the .sip
- * files.
- */
- enumMemberDef *emd, **tail;
-
- emd = sipMalloc(sizeof (enumMemberDef));
-
- emd -> pyname = cacheName(currentSpec, getPythonName(&$3, $1));
- emd -> cname = $1;
- emd -> ed = currentEnum;
- emd -> next = NULL;
-
- checkAttributes(currentSpec,emd -> ed -> ecd,emd -> pyname -> text,FALSE);
-
- /* Append to preserve the order. */
- for (tail = &currentEnum->members; *tail != NULL; tail = &(*tail)->next)
- ;
-
- *tail = emd;
-
- if (inMainModule())
- setIsUsedName(emd -> pyname);
- }
- }
- ;
-
-optcomma:
- | ','
- ;
-
-optenumassign:
- | '=' value
- ;
-
-optassign: {
- $$ = NULL;
- }
- | '=' expr {
- $$ = $2;
- }
- ;
-
-expr: value
- | expr binop value {
- valueDef *vd;
-
- if ($1 -> vtype == string_value || $3 -> vtype == string_value)
- yyerror("Invalid binary operator for string");
-
- /* Find the last value in the existing expression. */
-
- for (vd = $1; vd -> next != NULL; vd = vd -> next)
- ;
-
- vd -> vbinop = $2;
- vd -> next = $3;
-
- $$ = $1;
- }
- ;
-
-binop: '-' {
- $$ = '-';
- }
- | '+' {
- $$ = '+';
- }
- | '*' {
- $$ = '*';
- }
- | '/' {
- $$ = '/';
- }
- | '&' {
- $$ = '&';
- }
- | '|' {
- $$ = '|';
- }
- ;
-
-optunop: {
- $$ = '\0';
- }
- | '!' {
- $$ = '!';
- }
- | '~' {
- $$ = '~';
- }
- | '-' {
- $$ = '-';
- }
- | '+' {
- $$ = '+';
- }
- ;
-
-value: optunop simplevalue {
- if ($1 != '\0' && $2.vtype == string_value)
- yyerror("Invalid unary operator for string");
-
- /*
- * Convert the value to a simple expression on the
- * heap.
- */
-
- $$ = sipMalloc(sizeof (valueDef));
-
- *$$ = $2;
- $$ -> vunop = $1;
- $$ -> vbinop = '\0';
- $$ -> next = NULL;
- }
- ;
-
-scopedname: scopepart
- | scopedname TK_SCOPE scopepart {
- if (currentSpec -> genc)
- yyerror("Scoped names are not allowed in a C module");
-
- appendScopedName(&$1,$3);
- }
- ;
-
-scopepart: TK_NAME {
- $$ = text2scopePart($1);
- }
- ;
-
-simplevalue: scopedname {
- /*
- * We let the C++ compiler decide if the value is a
- * valid one - no point in building a full C++ parser
- * here.
- */
-
- $$.vtype = scoped_value;
- $$.u.vscp = $1;
- }
- | basetype '(' exprlist ')' {
- fcallDef *fcd;
-
- fcd = sipMalloc(sizeof (fcallDef));
- *fcd = $3;
- fcd -> type = $1;
-
- $$.vtype = fcall_value;
- $$.u.fcd = fcd;
- }
- | TK_REAL {
- $$.vtype = real_value;
- $$.u.vreal = $1;
- }
- | TK_NUMBER {
- $$.vtype = numeric_value;
- $$.u.vnum = $1;
- }
- | TK_TRUE {
- $$.vtype = numeric_value;
- $$.u.vnum = 1;
- }
- | TK_FALSE {
- $$.vtype = numeric_value;
- $$.u.vnum = 0;
- }
- | TK_NULL {
- $$.vtype = numeric_value;
- $$.u.vnum = 0;
- }
- | TK_STRING {
- $$.vtype = string_value;
- $$.u.vstr = $1;
- }
- | TK_QCHAR {
- $$.vtype = qchar_value;
- $$.u.vqchar = $1;
- }
- ;
-
-exprlist: {
- /* No values. */
-
- $$.nrArgs = 0;
- }
- | expr {
- /* The single or first expression. */
-
- $$.args[0] = $1;
- $$.nrArgs = 1;
- }
- | exprlist ',' expr {
- /* Check that it wasn't ...(,expression...). */
-
- if ($$.nrArgs == 0)
- yyerror("First argument to function call is missing");
-
- /* Check there is room. */
-
- if ($1.nrArgs == MAX_NR_ARGS)
- yyerror("Too many arguments to function call");
-
- $$ = $1;
-
- $$.args[$$.nrArgs] = $3;
- $$.nrArgs++;
- }
- ;
-
-typedef: TK_TYPEDEF cpptype TK_NAME ';' {
- if (notSkipping())
- newTypedef(currentSpec,currentModule,$3,&$2);
- }
- | TK_TYPEDEF cpptype '(' deref TK_NAME ')' '(' cpptypelist ')' ';' {
- if (notSkipping())
- {
- argDef ftype;
- signatureDef *sig;
-
- /* Create the full signature on the heap. */
- sig = sipMalloc(sizeof (signatureDef));
- *sig = $8;
- sig -> result = $2;
-
- /* Create the full type. */
- ftype.atype = function_type;
- ftype.argflags = 0;
- ftype.nrderefs = $4;
- ftype.defval = NULL;
- ftype.u.sa = sig;
-
- newTypedef(currentSpec,currentModule,$5,&ftype);
- }
- }
- ;
-
-struct: TK_STRUCT TK_NAME {
- if (notSkipping())
- {
- classDef *cd;
-
- cd = newClass(currentSpec,class_iface,text2scopedName($2));
-
- pushScope(cd);
-
- sectionFlags = SECT_IS_PUBLIC;
- }
- } optflags '{' classbody '}' ';' {
- if (notSkipping())
- {
- finishClass(currentSpec, currentModule, currentScope(), &$4);
- popScope();
- }
- }
- ;
-
-classtmpl: template class {
- if (currentSpec->genc)
- yyerror("Class templates not allowed in a C module");
-
- if (notSkipping())
- {
- classTmplDef *tcd;
-
- /*
- * Make sure there is room for the extra class
- * name argument.
- */
- if ($1.nrArgs == MAX_NR_ARGS)
- yyerror("Internal error - increase the value of MAX_NR_ARGS");
-
- tcd = sipMalloc(sizeof (classTmplDef));
- tcd->sig = $1;
- tcd->cd = $2;
- tcd->next = currentSpec->classtemplates;
-
- currentSpec->classtemplates = tcd;
- }
- }
- ;
-
-template: TK_TEMPLATE '<' cpptypelist '>' {
- $$ = $3;
- }
- ;
-
-class: TK_CLASS scopedname {
- if (currentSpec -> genc)
- yyerror("Class definition not allowed in a C module");
-
- if (notSkipping())
- {
- classDef *cd;
-
- cd = newClass(currentSpec, class_iface, scopeScopedName($2));
-
- pushScope(cd);
-
- sectionFlags = SECT_IS_PRIVATE;
- }
- } superclasses optflags optclassbody ';' {
- if (notSkipping())
- {
- classDef *cd = currentScope();
-
- /*
- * See if the class was defined or just
- * declared.
- */
- if ($6)
- {
- if ($2->next != NULL)
- yyerror("A scoped name cannot be given in a class definition");
-
- }
- else if (cd->supers != NULL)
- yyerror("Class has super-classes but no definition");
- else
- setIsOpaque(cd);
-
- finishClass(currentSpec, currentModule, cd, &$5);
- popScope();
-
- /*
- * Check that external classes have only been
- * declared at the global scope.
- */
- if (isExternal(cd) && currentScope() != NULL)
- yyerror("External classes can only be declared in the global scope");
-
- $$ = cd;
- }
- }
- ;
-
-superclasses:
- | ':' superlist
- ;
-
-superlist: superclass
- | superlist ',' superclass
- ;
-
-superclass: scopedname {
- if (notSkipping())
- {
- classDef *cd, *super;
-
- cd = currentScope();
-
- super = findClass(currentSpec,class_iface,$1);
-
- appendToClassList(&cd -> supers,super);
- addToUsedList(&cd->iff->used, super->iff);
- }
- }
- ;
-
-optclassbody: {
- $$ = FALSE;
- }
- | '{' classbody '}' {
- $$ = TRUE;
- }
- ;
-
-classbody: classline
- | classbody classline
- ;
-
-classline: ifstart
- | ifend
- | namespace
- | struct
- | class
- | exception
- | typedef
- | enum
- | typecode {
- if (notSkipping())
- appendCodeBlock(&currentScope() -> cppcode,$1);
- }
- | typehdrcode {
- if (notSkipping())
- appendCodeBlock(&currentScope() -> hdrcode,$1);
- }
- | travcode {
- if (currentScope()->travcode != NULL)
- yyerror("%GCTraverseCode already given for class");
-
- if (notSkipping())
- currentScope()->travcode = $1;
- }
- | clearcode {
- if (currentScope()->clearcode != NULL)
- yyerror("%GCClearCode already given for class");
-
- if (notSkipping())
- currentScope()->clearcode = $1;
- }
- | readbufcode {
- if (currentScope()->readbufcode != NULL)
- yyerror("%BIGetReadBufferCode already given for class");
-
- if (notSkipping())
- currentScope()->readbufcode = $1;
- }
- | writebufcode {
- if (currentScope()->writebufcode != NULL)
- yyerror("%BIGetWriteBufferCode already given for class");
-
- if (notSkipping())
- currentScope()->writebufcode = $1;
- }
- | segcountcode {
- if (currentScope()->segcountcode != NULL)
- yyerror("%BIGetSegCountCode already given for class");
-
- if (notSkipping())
- currentScope()->segcountcode = $1;
- }
- | charbufcode {
- if (currentScope()->charbufcode != NULL)
- yyerror("%BIGetCharBufferCode already given for class");
-
- if (notSkipping())
- currentScope()->charbufcode = $1;
- }
- | ctor
- | dtor
- | varmember
- | TK_TOSUBCLASS codeblock {
- if (notSkipping())
- {
- classDef *cd = currentScope();
-
- if (cd -> convtosubcode != NULL)
- yyerror("Class has more than one %ConvertToSubClassCode directive");
-
- cd -> convtosubcode = $2;
- }
- }
- | TK_TOTYPE codeblock {
- if (notSkipping())
- {
- classDef *cd = currentScope();
-
- if (cd -> convtocode != NULL)
- yyerror("Class has more than one %ConvertToTypeCode directive");
-
- cd -> convtocode = $2;
- }
- }
- | TK_PUBLIC optslot ':' {
- if (currentSpec -> genc)
- yyerror("public section not allowed in a C module");
-
- if (notSkipping())
- sectionFlags = SECT_IS_PUBLIC | $2;
- }
- | TK_PROTECTED optslot ':' {
- if (currentSpec -> genc)
- yyerror("protected section not allowed in a C module");
-
- if (notSkipping())
- sectionFlags = SECT_IS_PROT | $2;
- }
- | TK_PRIVATE optslot ':' {
- if (currentSpec -> genc)
- yyerror("private section not allowed in a C module");
-
- if (notSkipping())
- sectionFlags = SECT_IS_PRIVATE | $2;
- }
- | TK_SIGNALS ':' {
- if (currentSpec -> genc)
- yyerror("signals section not allowed in a C module");
-
- if (notSkipping())
- sectionFlags = SECT_IS_SIGNAL;
- }
- ;
-
-optslot: {
- $$ = 0;
- }
- | TK_SLOTS {
- $$ = SECT_IS_SLOT;
- }
- ;
-
-dtor: optvirtual '~' TK_NAME '(' ')' optexceptions optabstract optflags ';' methodcode virtualcatchercode {
- /* Note that we allow non-virtual dtors in C modules. */
-
- if (notSkipping())
- {
- classDef *cd = currentScope();
-
- if (strcmp(classBaseName(cd),$3) != 0)
- yyerror("Destructor doesn't have the same name as its class");
-
- if (isDtor(cd))
- yyerror("Destructor has already been defined");
-
- if (currentSpec -> genc && $10 == NULL)
- yyerror("Destructor in C modules must include %MethodCode");
-
- cd -> dealloccode = $10;
- cd -> dtorcode = $11;
- cd -> dtorexceptions = $6;
- cd -> classflags |= sectionFlags;
-
- if ($7)
- {
- if (!$1)
- yyerror("Abstract destructor must be virtual");
-
- setIsAbstractClass(cd);
- }
-
- /*
- * The class has a shadow if we have a virtual dtor or some
- * dtor code.
- */
- if ($1 || $11 != NULL)
- {
- if (currentSpec -> genc)
- yyerror("Virtual destructor or %VirtualCatcherCode not allowed in a C module");
-
- setHasShadow(cd);
- }
-
- if (getReleaseGIL(&$8))
- setIsReleaseGILDtor(cd);
- else if (getHoldGIL(&$8))
- setIsHoldGILDtor(cd);
- }
- }
- ;
-
-ctor: TK_EXPLICIT {currentCtorIsExplicit = TRUE;} simplector
- | simplector
- ;
-
-simplector: TK_NAME '(' arglist ')' optexceptions optflags optctorsig ';' methodcode {
- /* Note that we allow ctors in C modules. */
-
- if (notSkipping())
- {
- if (currentSpec -> genc)
- {
- if ($9 == NULL && $3.nrArgs != 0)
- yyerror("Constructors with arguments in C modules must include %MethodCode");
-
- if (currentCtorIsExplicit)
- yyerror("Explicit constructors not allowed in a C module");
- }
-
- if ((sectionFlags & (SECT_IS_PUBLIC | SECT_IS_PROT | SECT_IS_PRIVATE)) == 0)
- yyerror("Constructor must be in the public, private or protected sections");
-
- newCtor($1,sectionFlags,&$3,&$6,$9,$5,$7,currentCtorIsExplicit);
- }
-
- free($1);
-
- currentCtorIsExplicit = FALSE;
- }
- ;
-
-optctorsig: {
- $$ = NULL;
- }
- | '[' '(' arglist ')' ']' {
- $$ = sipMalloc(sizeof (signatureDef));
-
- *$$ = $3;
- }
- ;
-
-optsig: {
- $$ = NULL;
- }
- | '[' cpptype '(' arglist ')' ']' {
- $$ = sipMalloc(sizeof (signatureDef));
-
- *$$ = $4;
- $$ -> result = $2;
- }
- ;
-
-optvirtual: {
- $$ = FALSE;
- }
- | TK_VIRTUAL {
- $$ = TRUE;
- }
- ;
-
-function: cpptype TK_NAME '(' arglist ')' optconst optexceptions optabstract optflags optsig ';' methodcode virtualcatchercode {
- if (notSkipping())
- {
- if (sectionFlags != 0 && (sectionFlags & (SECT_IS_PUBLIC | SECT_IS_PROT | SECT_IS_PRIVATE | SECT_IS_SLOT | SECT_IS_SIGNAL)) == 0)
- yyerror("Class function must be in the public, private, protected, slot or signal sections");
-
- $4.result = $1;
-
- newFunction(currentSpec,currentModule,
- sectionFlags,currentIsStatic,
- currentOverIsVirt,
- $2,&$4,$6,$8,&$9,$12,$13,$7,$10);
- }
-
- currentIsStatic = FALSE;
- currentOverIsVirt = FALSE;
- }
- | cpptype TK_OPERATOR operatorname '(' arglist ')' optconst optexceptions optabstract optflags optsig ';' methodcode virtualcatchercode {
- if (notSkipping())
- {
- classDef *cd = currentScope();
-
- /* Handle the unary '+' and '-' operators. */
- if ((cd != NULL && $5.nrArgs == 0) || (cd == NULL && $5.nrArgs == 1))
- {
- if (strcmp($3, "__add__") == 0)
- $3 = "__pos__";
- else if (strcmp($3, "__sub__") == 0)
- $3 = "__neg__";
- }
-
- $5.result = $1;
-
- newFunction(currentSpec,currentModule,
- sectionFlags,currentIsStatic,
- currentOverIsVirt,
- $3,&$5,$7,$9,&$10,$13,$14,$8,$11);
- }
-
- currentIsStatic = FALSE;
- currentOverIsVirt = FALSE;
- }
- | TK_OPERATOR cpptype '(' arglist ')' optconst optexceptions optabstract optflags optsig ';' methodcode virtualcatchercode {
- classDef *scope = currentScope();
-
- if (scope == NULL || $4.nrArgs != 0)
- yyerror("Operator casts must be specified in a class and have no arguments");
-
-
- if (notSkipping())
- {
- char *sname;
-
- switch ($2.atype)
- {
- case defined_type:
- sname = NULL;
- break;
-
- case bool_type:
- case cbool_type:
- case short_type:
- case ushort_type:
- case int_type:
- case cint_type:
- case uint_type:
- sname = "__int__";
- break;
-
- case long_type:
- case ulong_type:
- case longlong_type:
- case ulonglong_type:
- sname = "__long__";
- break;
-
- case float_type:
- case cfloat_type:
- case double_type:
- case cdouble_type:
- sname = "__float__";
- break;
-
- default:
- yyerror("Unsupported operator cast");
- }
-
- if (sname != NULL)
- {
- $4.result = $2;
-
- newFunction(currentSpec, currentModule,
- sectionFlags,
- currentIsStatic,
- currentOverIsVirt, sname,
- &$4, $6, $8, &$9, $12, $13,
- $7, $10);
- }
- else
- {
- argList *al;
-
- /* Check it doesn't already exist. */
- for (al = scope->casts; al != NULL; al = al->next)
- if (sameScopedName($2.u.snd, al->arg.u.snd))
- yyerror("This operator cast has already been specified in this class");
-
- al = sipMalloc(sizeof (argList));
- al->arg = $2;
- al->next = scope->casts;
-
- scope->casts = al;
- }
- }
-
- currentIsStatic = FALSE;
- currentOverIsVirt = FALSE;
- }
- ;
-
-operatorname: '+' {$$ = "__add__";}
- | '-' {$$ = "__sub__";}
- | '*' {$$ = "__mul__";}
- | '/' {$$ = "__div__";}
- | '%' {$$ = "__mod__";}
- | '&' {$$ = "__and__";}
- | '|' {$$ = "__or__";}
- | '^' {$$ = "__xor__";}
- | '<' '<' {$$ = "__lshift__";}
- | '>' '>' {$$ = "__rshift__";}
- | '+' '=' {$$ = "__iadd__";}
- | '-' '=' {$$ = "__isub__";}
- | '*' '=' {$$ = "__imul__";}
- | '/' '=' {$$ = "__idiv__";}
- | '%' '=' {$$ = "__imod__";}
- | '&' '=' {$$ = "__iand__";}
- | '|' '=' {$$ = "__ior__";}
- | '^' '=' {$$ = "__ixor__";}
- | '<' '<' '=' {$$ = "__ilshift__";}
- | '>' '>' '=' {$$ = "__irshift__";}
- | '~' {$$ = "__invert__";}
- | '(' ')' {$$ = "__call__";}
- | '[' ']' {$$ = "__getitem__";}
- | '<' {$$ = "__lt__";}
- | '<' '=' {$$ = "__le__";}
- | '=' '=' {$$ = "__eq__";}
- | '!' '=' {$$ = "__ne__";}
- | '>' {$$ = "__gt__";}
- | '>' '=' {$$ = "__ge__";}
- ;
-
-optconst: {
- $$ = FALSE;
- }
- | TK_CONST {
- $$ = TRUE;
- }
- ;
-
-optabstract: {
- $$ = 0;
- }
- | '=' TK_NUMBER {
- if ($2 != 0)
- yyerror("Abstract virtual function '= 0' expected");
-
- $$ = TRUE;
- }
- ;
-
-optflags: {
- $$.nrFlags = 0;
- }
- | '/' flaglist '/' {
- $$ = $2;
- }
- ;
-
-
-flaglist: flag {
- $$.flags[0] = $1;
- $$.nrFlags = 1;
- }
- | flaglist ',' flag {
- /* Check there is room. */
-
- if ($1.nrFlags == MAX_NR_FLAGS)
- yyerror("Too many optional flags");
-
- $$ = $1;
-
- $$.flags[$$.nrFlags++] = $3;
- }
- ;
-
-flag: TK_NAME {
- $$.ftype = bool_flag;
- $$.fname = $1;
- }
- | TK_NAME '=' flagvalue {
- $$ = $3;
- $$.fname = $1;
- }
- ;
-
-flagvalue: TK_NAME {
- $$.ftype = name_flag;
- $$.fvalue.sval = $1;
- }
- | TK_STRING {
- $$.ftype = string_flag;
- $$.fvalue.sval = $1;
- }
- | TK_NUMBER {
- $$.ftype = integer_flag;
- $$.fvalue.ival = $1;
- }
- ;
-
-methodcode: {
- $$ = NULL;
- }
- | TK_METHODCODE codeblock {
- $$ = $2;
- }
- ;
-
-virtualcatchercode: {
- $$ = NULL;
- }
- | TK_VIRTUALCATCHERCODE codeblock {
- $$ = $2;
- }
- ;
-
-arglist: rawarglist {
- int a, nrrxcon, nrrxdis, nrslotcon, nrslotdis, nrarray, nrarraysize;
-
- nrrxcon = nrrxdis = nrslotcon = nrslotdis = nrarray = nrarraysize = 0;
-
- for (a = 0; a < $1.nrArgs; ++a)
- {
- argDef *ad = &$1.args[a];
-
- switch (ad -> atype)
- {
- case rxcon_type:
- ++nrrxcon;
- break;
-
- case rxdis_type:
- ++nrrxdis;
- break;
-
- case slotcon_type:
- ++nrslotcon;
- break;
-
- case slotdis_type:
- ++nrslotdis;
- break;
- }
-
- if (isArray(ad))
- ++nrarray;
-
- if (isArraySize(ad))
- ++nrarraysize;
- }
-
- if (nrrxcon != nrslotcon || nrrxcon > 1)
- yyerror("SIP_RXOBJ_CON and SIP_SLOT_CON must both be given and at most once");
-
- if (nrrxdis != nrslotdis || nrrxdis > 1)
- yyerror("SIP_RXOBJ_DIS and SIP_SLOT_DIS must both be given and at most once");
-
- if (nrarray != nrarraysize || nrarray > 1)
- yyerror("/Array/ and /ArraySize/ must both be given and at most once");
-
- $$ = $1;
- }
- ;
-
-rawarglist: {
- /* No arguments. */
-
- $$.nrArgs = 0;
- }
- | argvalue {
- /* The single or first argument. */
-
- $$.args[0] = $1;
- $$.nrArgs = 1;
- }
- | rawarglist ',' argvalue {
- /* Check that it wasn't ...(,arg...). */
- if ($1.nrArgs == 0)
- yyerror("First argument of the list is missing");
-
- /* Check there is nothing after an ellipsis. */
- if ($1.args[$1.nrArgs - 1].atype == ellipsis_type)
- yyerror("An ellipsis must be at the end of the argument list");
-
- /*
- * If this argument has no default value, then the
- * previous one mustn't either.
- */
- if ($3.defval == NULL && $1.args[$1.nrArgs - 1].defval != NULL)
- yyerror("Compulsory argument given after optional argument");
-
- /* Check there is room. */
- if ($1.nrArgs == MAX_NR_ARGS)
- yyerror("Internal error - increase the value of MAX_NR_ARGS");
-
- $$ = $1;
-
- $$.args[$$.nrArgs] = $3;
- $$.nrArgs++;
- }
- ;
-
-argvalue: TK_SIPSIGNAL optname optassign {
- $$.atype = signal_type;
- $$.argflags = ARG_IS_CONST;
- $$.nrderefs = 0;
- $$.name = $2;
- $$.defval = $3;
-
- currentSpec -> sigslots = TRUE;
- }
- | TK_SIPSLOT optname optassign {
- $$.atype = slot_type;
- $$.argflags = ARG_IS_CONST;
- $$.nrderefs = 0;
- $$.name = $2;
- $$.defval = $3;
-
- currentSpec -> sigslots = TRUE;
- }
- | TK_SIPANYSLOT optname optassign {
- $$.atype = anyslot_type;
- $$.argflags = ARG_IS_CONST;
- $$.nrderefs = 0;
- $$.name = $2;
- $$.defval = $3;
-
- currentSpec -> sigslots = TRUE;
- }
- | TK_SIPRXCON optname {
- $$.atype = rxcon_type;
- $$.argflags = 0;
- $$.nrderefs = 0;
- $$.name = $2;
-
- currentSpec -> sigslots = TRUE;
- }
- | TK_SIPRXDIS optname {
- $$.atype = rxdis_type;
- $$.argflags = 0;
- $$.nrderefs = 0;
- $$.name = $2;
-
- currentSpec -> sigslots = TRUE;
- }
- | TK_SIPSLOTCON '(' arglist ')' optname {
- $$.atype = slotcon_type;
- $$.argflags = ARG_IS_CONST;
- $$.nrderefs = 0;
- $$.name = $5;
-
- $3.result.atype = void_type;
- $3.result.argflags = 0;
- $3.result.nrderefs = 0;
-
- $$.u.sa = sipMalloc(sizeof (signatureDef));
- *$$.u.sa = $3;
-
- currentSpec -> sigslots = TRUE;
- }
- | TK_SIPSLOTDIS '(' arglist ')' optname {
- $$.atype = slotdis_type;
- $$.argflags = ARG_IS_CONST;
- $$.nrderefs = 0;
- $$.name = $5;
-
- $3.result.atype = void_type;
- $3.result.argflags = 0;
- $3.result.nrderefs = 0;
-
- $$.u.sa = sipMalloc(sizeof (signatureDef));
- *$$.u.sa = $3;
-
- currentSpec -> sigslots = TRUE;
- }
- | TK_QOBJECT optname {
- $$.atype = qobject_type;
- $$.argflags = 0;
- $$.nrderefs = 0;
- $$.name = $2;
- }
- | argtype optassign {
- $$ = $1;
- $$.defval = $2;
- }
- ;
-
-varmember: TK_STATIC {currentIsStatic = TRUE;} varmem
- | varmem
- ;
-
-varmem: member
- | variable
- ;
-
-member: TK_VIRTUAL {currentOverIsVirt = TRUE;} function
- | function
- ;
-
-variable: cpptype TK_NAME optflags ';' optaccesscode optgetcode optsetcode {
- if (notSkipping())
- {
- /* Check the section. */
-
- if (sectionFlags != 0)
- {
- if ((sectionFlags & SECT_IS_PUBLIC) == 0)
- yyerror("Class variables must be in the public section");
-
- if (!currentIsStatic && $5 != NULL)
- yyerror("%AccessCode cannot be specified for non-static class variables");
- }
-
- if (currentIsStatic && currentSpec -> genc)
- yyerror("Cannot have static members in a C structure");
-
- if ($6 != NULL || $7 != NULL)
- {
- if ($5 != NULL)
- yyerror("Cannot mix %AccessCode and %GetCode or %SetCode");
-
- if (currentScope() == NULL)
- yyerror("Cannot specify %GetCode or %SetCode for global variables");
- }
-
- newVar(currentSpec,currentModule,$2,currentIsStatic,&$1,&$3,$5,$6,$7);
- }
-
- currentIsStatic = FALSE;
- }
- ;
-
-cpptype: TK_CONST basetype deref optref {
- $$ = $2;
- $$.nrderefs = $3;
- $$.argflags = ARG_IS_CONST | $4;
- $$.name = NULL;
- }
- | basetype deref optref {
- $$ = $1;
- $$.nrderefs = $2;
- $$.argflags = $3;
- $$.name = NULL;
- }
- ;
-
-argtype: cpptype optname optflags {
- $$ = $1;
- $$.name = $2;
-
- if (findOptFlag(&$3,"AllowNone",bool_flag) != NULL)
- $$.argflags |= ARG_ALLOW_NONE;
-
- if (findOptFlag(&$3,"GetWrapper",bool_flag) != NULL)
- $$.argflags |= ARG_GET_WRAPPER;
-
- if (findOptFlag(&$3,"Array",bool_flag) != NULL)
- $$.argflags |= ARG_ARRAY;
-
- if (findOptFlag(&$3,"ArraySize",bool_flag) != NULL)
- $$.argflags |= ARG_ARRAY_SIZE;
-
- if (findOptFlag(&$3,"Transfer",bool_flag) != NULL)
- $$.argflags |= ARG_XFERRED;
-
- if (findOptFlag(&$3,"TransferThis",bool_flag) != NULL)
- $$.argflags |= ARG_THIS_XFERRED;
-
- if (findOptFlag(&$3,"TransferBack",bool_flag) != NULL)
- $$.argflags |= ARG_XFERRED_BACK;
-
- if (findOptFlag(&$3,"In",bool_flag) != NULL)
- $$.argflags |= ARG_IN;
-
- if (findOptFlag(&$3,"Out",bool_flag) != NULL)
- $$.argflags |= ARG_OUT;
-
- if (findOptFlag(&$3,"Constrained",bool_flag) != NULL)
- {
- $$.argflags |= ARG_CONSTRAINED;
-
- switch ($$.atype)
- {
- case bool_type:
- $$.atype = cbool_type;
- break;
-
- case int_type:
- $$.atype = cint_type;
- break;
-
- case float_type:
- $$.atype = cfloat_type;
- break;
-
- case double_type:
- $$.atype = cdouble_type;
- break;
- }
- }
- }
- ;
-
-optref: {
- $$ = 0;
- }
- | '&' {
- if (currentSpec -> genc)
- yyerror("References not allowed in a C module");
-
- $$ = ARG_IS_REF;
- }
- ;
-
-deref: {
- $$ = 0;
- }
- | deref '*' {
- $$ = $1 + 1;
- }
- ;
-
-basetype: scopedname {
- $$.atype = defined_type;
- $$.u.snd = $1;
- }
- | scopedname '<' cpptypelist '>' {
- templateDef *td;
-
- td = sipMalloc(sizeof(templateDef));
- td -> fqname = $1;
- td -> types = $3;
-
- $$.atype = template_type;
- $$.u.td = td;
- }
- | TK_STRUCT scopedname {
- /* In a C module all structures must be defined. */
- if (currentSpec -> genc)
- {
- $$.atype = defined_type;
- $$.u.snd = $2;
- }
- else
- {
- $$.atype = struct_type;
- $$.u.sname = $2;
- }
- }
- | TK_UNSIGNED TK_SHORT {
- $$.atype = ushort_type;
- }
- | TK_SHORT {
- $$.atype = short_type;
- }
- | TK_UNSIGNED {
- $$.atype = uint_type;
- }
- | TK_UNSIGNED TK_INT {
- $$.atype = uint_type;
- }
- | TK_INT {
- $$.atype = int_type;
- }
- | TK_LONG {
- $$.atype = long_type;
- }
- | TK_UNSIGNED TK_LONG {
- $$.atype = ulong_type;
- }
- | TK_LONG TK_LONG {
- $$.atype = longlong_type;
- }
- | TK_UNSIGNED TK_LONG TK_LONG {
- $$.atype = ulonglong_type;
- }
- | TK_FLOAT {
- $$.atype = float_type;
- }
- | TK_DOUBLE {
- $$.atype = double_type;
- }
- | TK_BOOL {
- $$.atype = bool_type;
- }
- | TK_SIGNED TK_CHAR {
- $$.atype = sstring_type;
- }
- | TK_UNSIGNED TK_CHAR {
- $$.atype = ustring_type;
- }
- | TK_CHAR {
- $$.atype = string_type;
- }
- | TK_WCHAR_T {
- $$.atype = wstring_type;
- }
- | TK_VOID {
- $$.atype = void_type;
- }
- | TK_PYOBJECT {
- $$.atype = pyobject_type;
- }
- | TK_PYTUPLE {
- $$.atype = pytuple_type;
- }
- | TK_PYLIST {
- $$.atype = pylist_type;
- }
- | TK_PYDICT {
- $$.atype = pydict_type;
- }
- | TK_PYCALLABLE {
- $$.atype = pycallable_type;
- }
- | TK_PYSLICE {
- $$.atype = pyslice_type;
- }
- | TK_PYTYPE {
- $$.atype = pytype_type;
- }
- | TK_ELLIPSIS {
- $$.atype = ellipsis_type;
- }
- ;
-
-cpptypelist: cpptype {
- /* The single or first type. */
-
- $$.args[0] = $1;
- $$.nrArgs = 1;
- }
- | cpptypelist ',' cpptype {
- /* Check there is nothing after an ellipsis. */
- if ($1.args[$1.nrArgs - 1].atype == ellipsis_type)
- yyerror("An ellipsis must be at the end of the argument list");
-
- /* Check there is room. */
- if ($1.nrArgs == MAX_NR_ARGS)
- yyerror("Internal error - increase the value of MAX_NR_ARGS");
-
- $$ = $1;
-
- $$.args[$$.nrArgs] = $3;
- $$.nrArgs++;
- }
- ;
-
-optexceptions: {
- $$ = NULL;
- }
- | TK_THROW '(' exceptionlist ')' {
- if (currentSpec->genc)
- yyerror("Exceptions not allowed in a C module");
-
- if (notSkipping() && inMainModule())
- {
- int e;
- ifaceFileList **ifl;
-
- /*
- * Make sure the exceptions' header files are
- * included. We unconditionally mark them to
- * be included in the current scope's header
- * file to save us the effort of checking if
- * they are being used with a protected method,
- * a virtual or a signal.
- */
- ifl = (currentScope() != NULL) ? &currentScope()->iff->used : &currentSpec->used;
-
- for (e = 0; e < $3->nrArgs; ++e)
- addToUsedList(ifl, $3->args[e]->iff);
- }
-
- $$ = $3;
- }
- ;
-
-exceptionlist: {
- /* Empty list so use a blank. */
-
- $$ = sipMalloc(sizeof (throwArgs));
- $$ -> nrArgs = 0;
- }
- | scopedname {
- /* The only or first exception. */
-
- $$ = sipMalloc(sizeof (throwArgs));
- $$ -> nrArgs = 1;
- $$ -> args[0] = findException(currentSpec, $1, FALSE);
- }
- | exceptionlist ',' scopedname {
- /* Check that it wasn't ...(,arg...). */
-
- if ($1 -> nrArgs == 0)
- yyerror("First exception of throw specifier is missing");
-
- /* Check there is room. */
-
- if ($1 -> nrArgs == MAX_NR_ARGS)
- yyerror("Internal error - increase the value of MAX_NR_ARGS");
-
- $$ = $1;
- $$ -> args[$$ -> nrArgs++] = findException(currentSpec, $3, FALSE);
- }
- ;
-
-%%
-
-
-/*
- * Parse the specification.
- */
-void parse(sipSpec *spec,FILE *fp,char *filename,stringList *tsl,
- stringList *xfl)
-{
- classTmplDef *tcd;
-
- /* Initialise the spec. */
-
- spec -> modules = NULL;
- spec -> namecache = NULL;
- spec -> ifacefiles = NULL;
- spec -> classes = NULL;
- spec -> classtemplates = NULL;
- spec -> proxies = NULL;
- spec -> exceptions = NULL;
- spec -> mappedtypes = NULL;
- spec -> mappedtypetemplates = NULL;
- spec -> qobjclass = -1;
- spec -> enums = NULL;
- spec -> vars = NULL;
- spec -> othfuncs = NULL;
- spec -> overs = NULL;
- spec -> typedefs = NULL;
- spec -> copying = NULL;
- spec -> exphdrcode = NULL;
- spec -> hdrcode = NULL;
- spec -> cppcode = NULL;
- spec -> docs = NULL;
- spec -> preinitcode = NULL;
- spec -> postinitcode = NULL;
- spec -> unitcode = NULL;
- spec -> used = NULL;
- spec -> sigslots = FALSE;
- spec -> genc = -1;
- spec -> options = NULL;
-
- currentSpec = spec;
- neededQualifiers = tsl;
- excludedQualifiers = xfl;
- currentModule = NULL;
- currentMappedType = NULL;
- currentOverIsVirt = FALSE;
- currentCtorIsExplicit = FALSE;
- currentIsStatic = FALSE;
- previousFile = NULL;
- skipStackPtr = 0;
- currentScopeIdx = 0;
- sectionFlags = 0;
-
- newModule(fp,filename);
- spec -> module = currentModule;
-
- yyparse();
-
- handleEOF();
- handleEOM();
-
- /*
- * Go through each template class and remove it from the list of
- * classes.
- */
- for (tcd = spec->classtemplates; tcd != NULL; tcd = tcd->next)
- {
- classDef **cdp;
-
- for (cdp = &spec->classes; *cdp != NULL; cdp = &(*cdp)->next)
- if (*cdp == tcd->cd)
- {
- ifaceFileDef **ifdp;
-
- /* Remove the interface file as well. */
- for (ifdp = &spec->ifacefiles; *ifdp != NULL; ifdp = &(*ifdp)->next)
- if (*ifdp == tcd->cd->iff)
- {
- *ifdp = (*ifdp)->next;
- break;
- }
-
- *cdp = (*cdp)->next;
- break;
- }
- }
-}
-
-
-/*
- * Tell the parser that a complete file has now been read.
- */
-void parserEOF(char *name,parserContext *pc)
-{
- previousFile = sipStrdup(name);
- newContext = *pc;
-}
-
-
-/*
- * Append a class definition to a class list if it doesn't already appear.
- * Append is needed specifically for the list of super-classes because the
- * order is important to Python.
- */
-void appendToClassList(classList **clp,classDef *cd)
-{
- classList *new;
-
- /* Find the end of the list. */
-
- while (*clp != NULL)
- {
- if ((*clp) -> cd == cd)
- return;
-
- clp = &(*clp) -> next;
- }
-
- new = sipMalloc(sizeof (classList));
-
- new -> cd = cd;
- new -> next = NULL;
-
- *clp = new;
-}
-
-
-/*
- * Create a new module for the current specification and make it current.
- */
-static void newModule(FILE *fp,char *filename)
-{
- moduleDef *newmod;
-
- parseFile(fp,filename,currentModule,FALSE);
-
- newmod = sipMalloc(sizeof (moduleDef));
- newmod -> fullname = NULL;
- newmod -> name = NULL;
- newmod -> version = -1;
- newmod -> modflags = 0;
- newmod -> modulenr = -1;
- newmod -> file = filename;
- newmod -> qualifiers = NULL;
- newmod -> root.cd = NULL;
- newmod -> root.child = NULL;
- newmod -> nrtimelines = 0;
- newmod -> nrclasses = 0;
- newmod -> nrexceptions = 0;
- newmod -> nrmappedtypes = 0;
- newmod -> nrenums = 0;
- newmod -> nrtypedefs = 0;
- newmod -> nrvirthandlers = 0;
- newmod -> virthandlers = NULL;
- newmod -> license = NULL;
- newmod -> allimports = NULL;
- newmod -> imports = NULL;
- newmod -> next = currentSpec -> modules;
-
- currentModule = currentSpec->modules = newmod;
-}
-
-
-/*
- * Switch to parsing a new file.
- */
-static void parseFile(FILE *fp,char *name,moduleDef *prevmod,int optional)
-{
- parserContext pc;
-
- pc.ifdepth = skipStackPtr;
- pc.prevmod = prevmod;
-
- setInputFile(fp,name,&pc,optional);
-}
-
-
-/*
- * Find an interface file, or create a new one.
- */
-ifaceFileDef *findIfaceFile(sipSpec *pt, moduleDef *mod, scopedNameDef *fqname,
- ifaceFileType iftype, argDef *ad)
-{
- ifaceFileDef *iff;
-
- /* See if the name is already used. */
-
- for (iff = pt -> ifacefiles; iff != NULL; iff = iff -> next)
- {
- if (!sameScopedName(iff -> fqcname,fqname))
- continue;
-
- /*
- * They must be the same type except that we allow a class if
- * if we want an exception. This is because we allow classes
- * to be used before they are defined.
- */
- if (iff -> type != iftype)
- if (iftype != exception_iface || iff -> type != class_iface)
- yyerror("A class, exception, namespace or mapped type has already been defined with the same name");
-
- /* Ignore an external class declared in another module. */
- if (iftype == class_iface && iff->module != mod)
- {
- classDef *cd;
-
- for (cd = pt->classes; cd != NULL; cd = cd->next)
- if (cd->iff == iff)
- break;
-
- if (cd != NULL && iff->module != NULL && isExternal(cd))
- continue;
- }
-
- /*
- * If this is a mapped type with the same name defined in a
- * different module, then check that this type isn't the same
- * as any of the mapped types defined in that module.
- */
- if (iftype == mappedtype_iface && iff -> module != mod)
- {
- mappedTypeDef *mtd;
-
- for (mtd = pt -> mappedtypes; mtd != NULL; mtd = mtd -> next)
- {
- if (mtd -> iff != iff)
- continue;
-
- if (ad -> atype != template_type ||
- mtd -> type.atype != template_type ||
- sameBaseType(ad,&mtd -> type))
- yyerror("Mapped type has already been defined in another module");
- }
-
- /*
- * If we got here then we have a mapped type based on
- * an existing template, but with unique parameters.
- * We don't want to use interface files from other
- * modules, so skip this one.
- */
-
- continue;
- }
-
- /* Ignore a namespace defined in another module. */
- if (iftype == namespace_iface && iff->module != mod)
- continue;
-
- return iff;
- }
-
- iff = sipMalloc(sizeof (ifaceFileDef));
-
- iff -> name = cacheName(pt,scopedNameTail(fqname));
- iff -> type = iftype;
- iff -> fqcname = fqname;
- iff -> module = NULL;
- iff -> used = NULL;
- iff -> next = pt -> ifacefiles;
-
- pt -> ifacefiles = iff;
-
- return iff;
-}
-
-
-/*
- * Find a class definition in a parse tree.
- */
-static classDef *findClass(sipSpec *pt,ifaceFileType iftype,
- scopedNameDef *fqname)
-{
- return findClassWithInterface(pt, findIfaceFile(pt, currentModule, fqname, iftype, NULL));
-}
-
-
-/*
- * Find a class definition given an existing interface file.
- */
-static classDef *findClassWithInterface(sipSpec *pt, ifaceFileDef *iff)
-{
- classDef *cd;
-
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- if (cd -> iff == iff)
- return cd;
-
- /* Create a new one. */
- cd = sipMalloc(sizeof (classDef));
-
- cd -> iff = iff;
- cd -> pyname = classBaseName(cd);
- cd -> classnr = -1;
- cd -> classflags = 0;
- cd -> userflags = 0;
- cd -> ecd = NULL;
- cd -> dtorexceptions = NULL;
- cd -> real = NULL;
- cd -> node = NULL;
- cd -> supers = NULL;
- cd -> mro = NULL;
- cd -> td = NULL;
- cd -> ctors = NULL;
- cd -> defctor = NULL;
- cd -> dealloccode = NULL;
- cd -> dtorcode = NULL;
- cd -> members = NULL;
- cd -> overs = NULL;
- cd -> casts = NULL;
- cd -> vmembers = NULL;
- cd -> visible = NULL;
- cd -> cppcode = NULL;
- cd -> hdrcode = NULL;
- cd -> convtosubcode = NULL;
- cd -> subbase = NULL;
- cd -> convtocode = NULL;
- cd -> travcode = NULL;
- cd -> clearcode = NULL;
- cd -> readbufcode = NULL;
- cd -> writebufcode = NULL;
- cd -> segcountcode = NULL;
- cd -> charbufcode = NULL;
- cd -> next = pt -> classes;
-
- pt -> classes = cd;
-
- return cd;
-}
-
-
-/*
- * Add an interface file to an interface file list if it isn't already there.
- */
-ifaceFileList *addToUsedList(ifaceFileList **ifflp, ifaceFileDef *iff)
-{
- ifaceFileList *iffl;
-
- while ((iffl = *ifflp) != NULL)
- {
- /* Don't bother if it is already there. */
- if (iffl -> iff == iff)
- return iffl;
-
- ifflp = &iffl -> next;
- }
-
- iffl = sipMalloc(sizeof (ifaceFileList));
-
- iffl->iff = iff;
- iffl->header = FALSE;
- iffl->next = NULL;
-
- *ifflp = iffl;
-
- return iffl;
-}
-
-
-/*
- * Find an undefined (or create a new) exception definition in a parse tree.
- */
-static exceptionDef *findException(sipSpec *pt, scopedNameDef *fqname, int new)
-{
- exceptionDef *xd, **tail;
- ifaceFileDef *iff;
- classDef *cd;
-
- iff = findIfaceFile(pt, currentModule, fqname, exception_iface, NULL);
-
- /* See if it is an existing one. */
- for (xd = pt->exceptions; xd != NULL; xd = xd->next)
- if (xd->iff == iff)
- return xd;
-
- /*
- * If it is an exception interface file then we have never seen this
- * name before. We require that exceptions are defined before being
- * used, but don't make the same requirement of classes (for reasons of
- * backwards compatibility). Therefore the name must be reinterpreted
- * as a (as yet undefined) class.
- */
- if (new)
- if (iff->type == exception_iface)
- cd = NULL;
- else
- yyerror("There is already a class with the same name or the exception has been used before being defined");
- else
- {
- if (iff->type == exception_iface)
- iff->type = class_iface;
-
- cd = findClassWithInterface(pt, iff);
- }
-
- /* Create a new one. */
- xd = sipMalloc(sizeof (exceptionDef));
-
- xd->exceptionnr = -1;
- xd->iff = iff;
- xd->pyname = NULL;
- xd->cd = cd;
- xd->bibase = NULL;
- xd->base = NULL;
- xd->hdrcode = NULL;
- xd->raisecode = NULL;
- xd->next = NULL;
-
- /* Append it to the list. */
- for (tail = &pt->exceptions; *tail != NULL; tail = &(*tail)->next)
- ;
-
- *tail = xd;
-
- return xd;
-}
-
-
-/*
- * Find an undefined (or create a new) class definition in a parse tree.
- */
-static classDef *newClass(sipSpec *pt,ifaceFileType iftype,
- scopedNameDef *fqname)
-{
- int flags;
- classDef *cd, *scope;
- codeBlock *hdrcode;
-
- if (sectionFlags & SECT_IS_PRIVATE)
- yyerror("Classes, structs and namespaces must be in the public or or protected sections");
-
- flags = 0;
-
- if ((scope = currentScope()) != NULL)
- {
- if (sectionFlags & SECT_IS_PROT)
- flags = CLASS_IS_PROTECTED;
-
- hdrcode = scope -> hdrcode;
- }
- else
- hdrcode = NULL;
-
- if (pt -> genc)
- {
- /* C structs are always global types. */
- while (fqname -> next != NULL)
- fqname = fqname -> next;
-
- scope = NULL;
- }
-
- cd = findClass(pt,iftype,fqname);
-
- /* Check it hasn't already been defined. */
- if (iftype != namespace_iface && cd->iff->module != NULL)
- yyerror("The struct/class has already been defined");
-
- /* Complete the initialisation. */
- cd->classflags |= flags;
- cd->ecd = scope;
- cd->iff->module = currentModule;
-
- appendCodeBlock(&cd->hdrcode, hdrcode);
-
- /* See if it is a namespace extender. */
- if (iftype == namespace_iface)
- {
- classDef *ns;
-
- for (ns = pt->classes; ns != NULL; ns = ns->next)
- {
- if (ns == cd)
- continue;
-
- if (ns->iff->type != namespace_iface)
- continue;
-
- if (!sameScopedName(ns->iff->fqcname, fqname))
- continue;
-
- cd->real = ns;
- break;
- }
- }
-
- return cd;
-}
-
-
-/*
- * Tidy up after finishing a class definition.
- */
-static void finishClass(sipSpec *pt, moduleDef *mod, classDef *cd, optFlags *of)
-{
- char *pyname;
- optFlag *flg;
-
- /* Get the Python name and see if it is different to the C++ name. */
- pyname = getPythonName(of, classBaseName(cd));
-
- cd -> pyname = NULL;
- checkAttributes(pt, cd->ecd, pyname, FALSE);
- cd->pyname = pyname;
-
- if (cd->pyname != classBaseName(cd))
- setIsRenamedClass(cd);
-
- if ((flg = findOptFlag(of, "TypeFlags", integer_flag)) != NULL)
- cd->userflags = flg->fvalue.ival;
-
- if (isOpaque(cd))
- {
- if (findOptFlag(of, "External", bool_flag) != NULL)
- setIsExternal(cd);
- }
- else
- {
- int seq_might, seq_not;
- memberDef *md;
-
- if (findOptFlag(of, "NoDefaultCtors", bool_flag) != NULL)
- setNoDefaultCtors(cd);
-
- if (cd -> ctors == NULL)
- {
- if (!noDefaultCtors(cd))
- {
- /* Provide a default ctor. */
-
- cd->ctors = sipMalloc(sizeof (ctorDef));
-
- cd->ctors->ctorflags = SECT_IS_PUBLIC;
- cd->ctors->pysig.nrArgs = 0;
- cd->ctors->cppsig = &cd -> ctors -> pysig;
- cd->ctors->exceptions = NULL;
- cd->ctors->methodcode = NULL;
- cd->ctors->prehook = NULL;
- cd->ctors->posthook = NULL;
- cd->ctors->next = NULL;
-
- cd->defctor = cd->ctors;
-
- setCanCreate(cd);
- }
- }
- else if (cd -> defctor == NULL)
- {
- ctorDef *ct, *last = NULL;
-
- for (ct = cd -> ctors; ct != NULL; ct = ct -> next)
- {
- if (!isPublicCtor(ct))
- continue;
-
- if (ct -> pysig.nrArgs == 0 || ct -> pysig.args[0].defval != NULL)
- {
- cd -> defctor = ct;
- break;
- }
-
- if (last == NULL)
- last = ct;
- }
-
- /* The last resort is the first public ctor. */
- if (cd->defctor == NULL)
- cd->defctor = last;
- }
-
- if (findOptFlag(of,"Abstract",bool_flag) != NULL)
- {
- setIsAbstractClass(cd);
- setIsIncomplete(cd);
- resetCanCreate(cd);
- }
-
- /* We assume a public dtor if nothing specific was provided. */
- if (!isDtor(cd))
- setIsPublicDtor(cd);
-
- if (findOptFlag(of, "DelayDtor", bool_flag) != NULL)
- {
- setIsDelayedDtor(cd);
- setHasDelayedDtors(mod);
- }
-
- /*
- * There are subtle differences between the add and concat methods and
- * the multiply and repeat methods. The number versions can have their
- * operands swapped and may return NotImplemented. If the user has
- * used the /Numeric/ annotation or there are other numeric operators
- * then we use add/multiply. Otherwise, if there are indexing
- * operators then we use concat/repeat.
- */
- seq_might = seq_not = FALSE;
-
- for (md = cd -> members; md != NULL; md = md -> next)
- switch (md -> slot)
- {
- case getitem_slot:
- case setitem_slot:
- case delitem_slot:
- /* This might be a sequence. */
- seq_might = TRUE;
- break;
-
- case sub_slot:
- case isub_slot:
- case div_slot:
- case idiv_slot:
- case mod_slot:
- case imod_slot:
- case pos_slot:
- case neg_slot:
- /* This is definately not a sequence. */
- seq_not = TRUE;
- break;
- }
-
- if (!seq_not && seq_might)
- for (md = cd -> members; md != NULL; md = md -> next)
- {
- /* Ignore if the user has been explicit. */
- if (isNumeric(md))
- continue;
-
- switch (md -> slot)
- {
- case add_slot:
- md -> slot = concat_slot;
- break;
-
- case iadd_slot:
- md -> slot = iconcat_slot;
- break;
-
- case mul_slot:
- md -> slot = repeat_slot;
- break;
-
- case imul_slot:
- md -> slot = irepeat_slot;
- break;
- }
- }
- }
-
- if (inMainModule())
- {
- setIsUsedName(cd->iff->name);
- setIsClassName(cd->iff->name);
- }
-}
-
-
-/*
- * Create a new mapped type.
- */
-static mappedTypeDef *newMappedType(sipSpec *pt,argDef *ad)
-{
- mappedTypeDef *mtd;
- scopedNameDef *snd;
- ifaceFileDef *iff;
-
- /* Check that the type is one we want to map. */
- switch (ad -> atype)
- {
- case defined_type:
- snd = ad -> u.snd;
- break;
-
- case template_type:
- snd = ad -> u.td -> fqname;
- break;
-
- case struct_type:
- snd = ad -> u.sname;
- break;
-
- default:
- yyerror("Invalid type for %MappedType");
- }
-
- iff = findIfaceFile(pt, currentModule, snd, mappedtype_iface, ad);
-
- if (inMainModule())
- setIsUsedName(iff -> name);
-
- /* Check it hasn't already been defined. */
- for (mtd = pt -> mappedtypes; mtd != NULL; mtd = mtd -> next)
- if (mtd -> iff == iff)
- {
- /*
- * We allow types based on the same template but with
- * different arguments.
- */
-
- if (ad -> atype != template_type ||
- sameBaseType(ad,&mtd -> type))
- yyerror("Mapped type has already been defined in this module");
- }
-
- /* The module may not have been set yet. */
- iff -> module = currentModule;
-
- /* Create a new mapped type. */
- mtd = allocMappedType(ad);
-
- mtd -> iff = iff;
- mtd -> next = pt -> mappedtypes;
-
- pt -> mappedtypes = mtd;
-
- return mtd;
-}
-
-
-/*
- * Allocate, intialise and return a mapped type structure.
- */
-mappedTypeDef *allocMappedType(argDef *type)
-{
- mappedTypeDef *mtd;
-
- mtd = sipMalloc(sizeof (mappedTypeDef));
-
- mtd->type = *type;
- mtd->type.argflags = 0;
- mtd->type.nrderefs = 0;
-
- mtd->mappednr = -1;
- mtd->iff = NULL;
- mtd->hdrcode = NULL;
- mtd->convfromcode = NULL;
- mtd->convtocode = NULL;
- mtd->next = NULL;
-
- return mtd;
-}
-
-
-/*
- * Create a new enum.
- */
-static enumDef *newEnum(sipSpec *pt,moduleDef *mod,char *name,optFlags *of,
- int flags)
-{
- enumDef *ed;
- classDef *escope = currentScope();
-
- ed = sipMalloc(sizeof (enumDef));
-
- if (name != NULL)
- {
- ed -> fqcname = text2scopedName(name);
- ed -> pyname = cacheName(pt, getPythonName(of, name));
-
- checkAttributes(pt, escope, ed->pyname->text, FALSE);
- }
- else
- {
- ed -> fqcname = NULL;
- ed -> pyname = NULL;
- }
-
- ed -> enumflags = flags;
- ed -> enumnr = -1;
- ed -> ecd = escope;
- ed -> pcd = (flags & SECT_IS_PROT) ? escope : NULL;
- ed -> module = mod;
- ed -> members = NULL;
- ed -> slots = NULL;
- ed -> overs = NULL;
- ed -> next = pt -> enums;
-
- if (name != NULL && strcmp(ed->pyname->text, name) != 0)
- setIsRenamedEnum(ed);
-
- pt -> enums = ed;
-
- if (escope != NULL)
- setHasEnums(escope);
-
- return ed;
-}
-
-
-/*
- * Get the type values and (optionally) the type names for substitution in
- * handwritten code.
- */
-void appendTypeStrings(scopedNameDef *ename, signatureDef *patt, signatureDef *src, signatureDef *known, scopedNameDef **names, scopedNameDef **values)
-{
- int a;
-
- for (a = 0; a < patt->nrArgs; ++a)
- {
- argDef *pad = &patt->args[a];
-
- if (pad->atype == defined_type)
- {
- char *nam = NULL;
-
- /*
- * If the type names are already known then check that
- * this is one of them.
- */
- if (known == NULL)
- nam = scopedNameTail(pad->u.snd);
- else if (pad->u.snd->next == NULL)
- {
- int k;
-
- for (k = 0; k < known->nrArgs; ++k)
- if (strcmp(pad->u.snd->name, known->args[k].u.snd->name) == 0)
- {
- nam = pad->u.snd->name;
- break;
- }
- }
-
- if (nam == NULL)
- continue;
-
- /* Add the name. */
- appendScopedName(names, text2scopePart(nam));
-
- /* Add the corresponding value. */
- appendScopedName(values, text2scopePart(getType(ename, &src->args[a])));
- }
- else if (pad->atype == template_type)
- {
- argDef *sad = &src->args[a];
-
- /* These checks shouldn't be necessary, but... */
- if (sad->atype == template_type && pad->u.td->types.nrArgs == sad->u.td->types.nrArgs)
- appendTypeStrings(ename, &pad->u.td->types, &sad->u.td->types, known, names, values);
- }
- }
-}
-
-
-/*
- * Convert a type to a string. We impose some limitations because I'm too lazy
- * to handle everything that might be needed one day.
- */
-static char *getType(scopedNameDef *ename, argDef *ad)
-{
- if (ad->atype == defined_type)
- return scopedNameToString(ad->u.snd);
-
- fatalScopedName(ename);
- fatal(": unsupported type argument to template class instantiation\n");
-
- return NULL;
-}
-
-
-/*
- * Convert a scoped name to a string on the heap.
- */
-static char *scopedNameToString(scopedNameDef *name)
-{
- static const char scope_string[] = "::";
- size_t len;
- scopedNameDef *snd;
- char *s, *dp;
-
- /* Work out the length of buffer needed. */
- len = 0;
-
- for (snd = name; snd != NULL; snd = snd->next)
- {
- len += strlen(snd->name);
-
- if (snd->next != NULL)
- len += strlen(scope_string);
- }
-
- /* Allocate and populate the buffer. */
- dp = s = sipMalloc(len + 1);
-
- for (snd = name; snd != NULL; snd = snd->next)
- {
- strcpy(dp, snd->name);
- dp += strlen(snd->name);
-
- if (snd->next != NULL)
- {
- strcpy(dp, scope_string);
- dp += strlen(scope_string);
- }
- }
-
- return s;
-}
-
-
-/*
- * Instantiate a class template.
- */
-static void instantiateClassTemplate(sipSpec *pt, moduleDef *mod, classDef *scope, scopedNameDef *fqname, classTmplDef *tcd, templateDef *td)
-{
- scopedNameDef *type_names, *type_values;
- classDef *cd;
- ctorDef *oct, **cttail;
- memberDef *omd, **mdtail;
- overDef *ood, **odtail;
- argDef *ad;
- ifaceFileList *iffl, **used;
-
- type_names = type_values = NULL;
- appendTypeStrings(classFQCName(tcd->cd), &tcd->sig, &td->types, NULL, &type_names, &type_values);
-
- /*
- * Add a mapping from the template name to the instantiated name. If
- * we have got this far we know there is room for it.
- */
- ad = &tcd->sig.args[tcd->sig.nrArgs++];
- ad->atype = defined_type;
- ad->name = NULL;
- ad->argflags = 0;
- ad->nrderefs = 0;
- ad->defval = NULL;
- ad->u.snd = classFQCName(tcd->cd);
-
- appendScopedName(&type_names, text2scopePart(scopedNameTail(classFQCName(tcd->cd))));
- appendScopedName(&type_values, text2scopePart(scopedNameToString(fqname)));
-
- /* Create the new class. */
- cd = sipMalloc(sizeof (classDef));
-
- /* Start with a shallow copy. */
- *cd = *tcd->cd;
-
- cd->pyname = scopedNameTail(fqname);
- cd->td = td;
-
- /* Handle the interface file. */
- cd->iff = findIfaceFile(pt, mod, fqname, class_iface, NULL);
- cd->iff->module = mod;
-
- /* Make a copy of the used list and add the enclosing scope. */
- used = &cd->iff->used;
-
- for (iffl = tcd->cd->iff->used; iffl != NULL; iffl = iffl->next)
- addToUsedList(used, iffl->iff);
-
- if (scope != NULL)
- addToUsedList(&cd->iff->used, scope->iff);
-
- if (inMainModule())
- {
- setIsUsedName(cd->iff->name);
- setIsClassName(cd->iff->name);
- }
-
- cd->ecd = currentScope();
-
- /* Handle the ctors. */
- cd->ctors = NULL;
- cttail = &cd->ctors;
-
- for (oct = tcd->cd->ctors; oct != NULL; oct = oct->next)
- {
- ctorDef *nct = sipMalloc(sizeof (ctorDef));
-
- /* Start with a shallow copy. */
- *nct = *oct;
-
- templateSignature(&nct->pysig, FALSE, tcd, td, cd);
-
- if (oct->cppsig == NULL)
- nct->cppsig = NULL;
- else if (oct->cppsig == &oct->pysig)
- nct->cppsig = &nct->pysig;
- else
- {
- nct->cppsig = sipMalloc(sizeof (signatureDef));
-
- *nct->cppsig = *oct->cppsig;
-
- templateSignature(nct->cppsig, FALSE, tcd, td, cd);
- }
-
- nct->methodcode = templateCode(pt, used, nct->methodcode, type_names, type_values);
-
- nct->next = NULL;
- *cttail = nct;
- cttail = &nct->next;
-
- /* Handle the default ctor. */
- if (tcd->cd->defctor == oct)
- cd->defctor = nct;
- }
-
- cd->dealloccode = templateCode(pt, used, cd->dealloccode, type_names, type_values);
- cd->dtorcode = templateCode(pt, used, cd->dtorcode, type_names, type_values);
-
- /* Handle the members, ie. the common parts of overloads. */
- cd->members = NULL;
- mdtail = &cd->members;
-
- for (omd = tcd->cd->members; omd != NULL; omd = omd->next)
- {
- memberDef *nmd = sipMalloc(sizeof (memberDef));
-
- /* Start with a shallow copy. */
- *nmd = *omd;
-
- nmd->module = mod;
-
- nmd->next = NULL;
- *mdtail = nmd;
- mdtail = &nmd->next;
- }
-
- /* Handle the overloads. */
- cd->overs = NULL;
- odtail = &cd->overs;
-
- for (ood = tcd->cd->overs; ood != NULL; ood = ood->next)
- {
- overDef *nod = sipMalloc(sizeof (overDef));
- memberDef *nmd;
-
- /* Start with a shallow copy. */
- *nod = *ood;
-
- for (nmd = cd->members, omd = tcd->cd->members; omd != NULL; omd = omd->next, nmd = nmd->next)
- if (omd == ood->common)
- {
- nod->common = nmd;
- break;
- }
-
- templateSignature(&nod->pysig, TRUE, tcd, td, cd);
-
- if (ood->cppsig == &ood->pysig)
- nod->cppsig = &nod->pysig;
- else
- {
- nod->cppsig = sipMalloc(sizeof (signatureDef));
-
- *nod->cppsig = *ood->cppsig;
-
- templateSignature(nod->cppsig, TRUE, tcd, td, cd);
- }
-
- nod->methodcode = templateCode(pt, used, nod->methodcode, type_names, type_values);
-
- /* Handle any virtual handler. */
- if (ood->virthandler != NULL)
- {
- nod->virthandler = sipMalloc(sizeof (virtHandlerDef));
-
- /* Start with a shallow copy. */
- *nod->virthandler = *ood->virthandler;
-
- if (ood->virthandler->cppsig == &ood->pysig)
- nod->virthandler->cppsig = &nod->pysig;
- else
- {
- nod->virthandler->cppsig = sipMalloc(sizeof (signatureDef));
-
- *nod->virthandler->cppsig = *ood->virthandler->cppsig;
-
- templateSignature(nod->virthandler->cppsig, TRUE, tcd, td, cd);
- }
-
- nod->virthandler->module = mod;
- nod->virthandler->virtcode = templateCode(pt, used, nod->virthandler->virtcode, type_names, type_values);
- nod->virthandler->next = mod->virthandlers;
-
- mod->virthandlers = nod->virthandler;
- }
-
- nod->next = NULL;
- *odtail = nod;
- odtail = &nod->next;
- }
-
- cd->cppcode = templateCode(pt, used, cd->cppcode, type_names, type_values);
- cd->hdrcode = templateCode(pt, used, cd->hdrcode, type_names, type_values);
- cd->convtosubcode = templateCode(pt, used, cd->convtosubcode, type_names, type_values);
- cd->convtocode = templateCode(pt, used, cd->convtocode, type_names, type_values);
- cd->travcode = templateCode(pt, used, cd->travcode, type_names, type_values);
- cd->clearcode = templateCode(pt, used, cd->clearcode, type_names, type_values);
- cd->readbufcode = templateCode(pt, used, cd->readbufcode, type_names, type_values);
- cd->writebufcode = templateCode(pt, used, cd->writebufcode, type_names, type_values);
- cd->segcountcode = templateCode(pt, used, cd->segcountcode, type_names, type_values);
- cd->charbufcode = templateCode(pt, used, cd->charbufcode, type_names, type_values);
- cd->next = pt->classes;
-
- pt->classes = cd;
-
- tcd->sig.nrArgs--;
-
- freeScopedName(type_names);
- freeScopedName(type_values);
-}
-
-
-/*
- * Replace any template arguments in a signature.
- */
-static void templateSignature(signatureDef *sd, int result, classTmplDef *tcd, templateDef *td, classDef *ncd)
-{
- int a;
-
- if (result)
- templateType(&sd->result, tcd, td, ncd);
-
- for (a = 0; a < sd->nrArgs; ++a)
- templateType(&sd->args[a], tcd, td, ncd);
-}
-
-
-/*
- * Replace any template arguments in a type.
- */
-static void templateType(argDef *ad, classTmplDef *tcd, templateDef *td, classDef *ncd)
-{
- int a;
- char *name;
-
- /* Ignore if it isn't an unscoped name. */
- if (ad->atype != defined_type || ad->u.snd->next != NULL)
- return;
-
- name = ad->u.snd->name;
-
- for (a = 0; a < tcd->sig.nrArgs - 1; ++a)
- if (strcmp(name, scopedNameTail(tcd->sig.args[a].u.snd)) == 0)
- {
- ad->atype = td->types.args[a].atype;
-
- /* We take the constrained flag from the real type. */
- resetIsConstrained(ad);
-
- if (isConstrained(&td->types.args[a]))
- setIsConstrained(ad);
-
- ad->u = td->types.args[a].u;
-
- return;
- }
-
- /* Handle the class name itself. */
- if (strcmp(name, scopedNameTail(classFQCName(tcd->cd))) == 0)
- {
- ad->atype = class_type;
- ad->u.cd = ncd;
- }
-}
-
-
-/*
- * Replace any template arguments in a literal code block.
- */
-codeBlock *templateCode(sipSpec *pt, ifaceFileList **used, codeBlock *ocb, scopedNameDef *names, scopedNameDef *values)
-{
- codeBlock *ncb = NULL, **tail = &ncb;
-
- while (ocb != NULL)
- {
- char *at = ocb->frag;
-
- do
- {
- char *first = NULL;
- codeBlock *cb;
- scopedNameDef *nam, *val, *nam_first, *val_first;
-
- /*
- * Go through the rest of this fragment looking for
- * each of the types and the name of the class itself.
- */
- nam = names;
- val = values;
-
- while (nam != NULL && val != NULL)
- {
- char *cp;
-
- if ((cp = strstr(at, nam->name)) != NULL)
- if (first == NULL || first > cp)
- {
- nam_first = nam;
- val_first = val;
- first = cp;
- }
-
- nam = nam->next;
- val = val->next;
- }
-
- /* Create the new fragment. */
- cb = sipMalloc(sizeof (codeBlock));
-
- if (at == ocb->frag)
- {
- cb->filename = ocb->filename;
- cb->linenr = ocb->linenr;
- }
- else
- cb->filename = NULL;
-
- cb->next = NULL;
- *tail = cb;
- tail = &cb->next;
-
- /* See if anything was found. */
- if (first == NULL)
- {
- /* We can just point to this. */
- cb->frag = at;
-
- /* All done with this one. */
- at = NULL;
- }
- else
- {
- static char *gen_names[] = {
- "sipForceConvertToTransfer_",
- "sipForceConvertTo_",
- "sipConvertFromTransfer_",
- "sipConvertFrom_",
- "sipClass_",
- "sipEnum_",
- "sipException_",
- NULL
- };
-
- char *dp, *sp, **gn;
- int genname = FALSE;
-
- /*
- * If the context in which the text is used is
- * in the name of a SIP generated object then
- * translate any "::" scoping to "_".
- */
- for (gn = gen_names; *gn != NULL; ++gn)
- if (search_back(first, at, *gn))
- {
- addUsedFromCode(pt, used, val_first->name);
- genname = TRUE;
- break;
- }
-
- /* Fragment the fragment. */
- cb->frag = sipMalloc(first - at + strlen(val_first->name) + 1);
-
- strncpy(cb->frag, at, first - at);
-
- dp = &cb->frag[first - at];
- sp = val_first->name;
-
- if (genname)
- {
- char gch;
-
- while ((gch = *sp++) != '\0')
- if (gch == ':' && *sp == ':')
- {
- *dp++ = '_';
- ++sp;
- }
- else
- *dp++ = gch;
-
- *dp = '\0';
- }
- else
- strcpy(dp, sp);
-
- /* Move past the replaced text. */
- at = first + strlen(nam_first->name);
- }
- }
- while (at != NULL && *at != '\0');
-
- ocb = ocb->next;
- }
-
- return ncb;
-}
-
-
-/*
- * Return TRUE if the text at the end of a string matches the target string.
- */
-static int search_back(const char *end, const char *start, const char *target)
-{
- size_t tlen = strlen(target);
-
- if (start + tlen >= end)
- return FALSE;
-
- return (strncmp(end - tlen, target, tlen) == 0);
-}
-
-
-/*
- * Add any needed interface files based on handwritten code.
- */
-static void addUsedFromCode(sipSpec *pt, ifaceFileList **used, const char *sname)
-{
- ifaceFileDef *iff;
- enumDef *ed;
-
- for (iff = pt->ifacefiles; iff != NULL; iff = iff->next)
- {
- if (iff->type != class_iface && iff->type != exception_iface)
- continue;
-
- if (sameName(iff->fqcname, sname))
- {
- addToUsedList(used, iff);
-
- return;
- }
- }
-
- for (ed = pt->enums; ed != NULL; ed = ed->next)
- {
- if (ed->ecd == NULL)
- continue;
-
- if (sameName(ed->fqcname, sname))
- {
- addToUsedList(used, ed->ecd->iff);
-
- return;
- }
- }
-}
-
-
-/*
- * Compare a scoped name with its string equivalent.
- */
-static int sameName(scopedNameDef *snd, const char *sname)
-{
- while (snd != NULL && *sname != '\0')
- {
- const char *sp = snd->name;
-
- while (*sp != '\0' && *sname != ':' && *sname != '\0')
- if (*sp++ != *sname++)
- return FALSE;
-
- if (*sp != '\0' || (*sname != ':' && *sname != '\0'))
- return FALSE;
-
- snd = snd->next;
-
- if (*sname == ':')
- sname += 2;
- }
-
- return (snd == NULL && *sname == '\0');
-}
-
-
-/*
- * Create a new typedef.
- */
-static void newTypedef(sipSpec *pt,moduleDef *mod,char *name,argDef *type)
-{
- typedefDef *td;
- scopedNameDef *fqname = text2scopedName(name);
- classDef *scope = currentScope();
-
- /* See if we are instantiating a template class. */
- if (type->atype == template_type)
- {
- classTmplDef *tcd;
- templateDef *td = type->u.td;
-
- for (tcd = pt->classtemplates; tcd != NULL; tcd = tcd->next)
- if (sameScopedName(tcd->cd->iff->fqcname, td->fqname))
- {
- if (!sameTemplateSignature(&tcd->sig, &td->types, FALSE))
- continue;
-
- instantiateClassTemplate(pt, mod, scope, fqname, tcd, td);
-
- /* All done. */
- return;
- }
- }
-
- /* Check it doesn't already exist. */
- for (td = pt -> typedefs; td != NULL; td = td -> next)
- if (sameScopedName(td -> fqname,fqname))
- {
- fatalScopedName(fqname);
- fatal(" already defined\n");
- }
-
- td = sipMalloc(sizeof (typedefDef));
-
- td -> fqname = fqname;
- td -> ecd = scope;
- td -> module = mod;
- td -> type = *type;
- td -> next = pt -> typedefs;
-
- mod -> nrtypedefs++;
-
- pt -> typedefs = td;
-}
-
-
-/*
- * Return TRUE if the template signatures are the same. A deep comparison is
- * used for mapped type templates where we want to recurse into any nested
- * templates.
- */
-int sameTemplateSignature(signatureDef *sd1, signatureDef *sd2, int deep)
-{
- int a;
-
- if (sd1->nrArgs != sd2->nrArgs)
- return FALSE;
-
- for (a = 0; a < sd1->nrArgs; ++a)
- {
- argDef *ad1 = &sd1->args[a];
- argDef *ad2 = &sd2->args[a];
-
- /*
- * If we are doing a shallow comparision (ie. for class
- * templates) then a type name on the left hand side matches
- * anything on the right hand side.
- */
- if (ad1->atype == defined_type && !deep)
- continue;
-
- /*
- * For type names only compare the references and pointers, and
- * do the same for any nested templates.
- */
- if (ad1->atype == defined_type && ad2->atype == defined_type)
- {
- if (isReference(ad1) != isReference(ad2) || ad1->nrderefs != ad2->nrderefs)
- return FALSE;
- }
- else if (ad1->atype == template_type && ad2->atype == template_type)
- {
- if (!sameTemplateSignature(&ad1->u.td->types, &ad2->u.td->types, deep))
- return FALSE;
- }
- else if (!sameBaseType(ad1, ad2))
- return FALSE;
- }
-
- return TRUE;
-}
-
-
-/*
- * Create a new variable.
- */
-static void newVar(sipSpec *pt,moduleDef *mod,char *name,int isstatic,
- argDef *type,optFlags *of,codeBlock *acode,codeBlock *gcode,
- codeBlock *scode)
-{
- varDef *var;
- classDef *escope = currentScope();
- nameDef *nd = cacheName(pt,getPythonName(of,name));
-
- if (inMainModule())
- setIsUsedName(nd);
-
- checkAttributes(pt,escope,nd -> text,FALSE);
-
- var = sipMalloc(sizeof (varDef));
-
- var -> pyname = nd;
- var -> fqcname = text2scopedName(name);
- var -> ecd = escope;
- var -> module = mod;
- var -> varflags = 0;
- var -> type = *type;
- var -> accessfunc = acode;
- var -> getcode = gcode;
- var -> setcode = scode;
- var -> next = pt -> vars;
-
- if (isstatic || (escope != NULL && escope->iff->type == namespace_iface))
- setIsStaticVar(var);
-
- pt -> vars = var;
-}
-
-
-/*
- * Create a new ctor.
- */
-static void newCtor(char *name,int sectFlags,signatureDef *args,
- optFlags *optflgs,codeBlock *methodcode,
- throwArgs *exceptions,signatureDef *cppsig,int explicit)
-{
- ctorDef *ct, **ctp;
- classDef *cd = currentScope();
-
- /* Check the name of the constructor. */
- if (strcmp(classBaseName(cd),name) != 0)
- yyerror("Constructor doesn't have the same name as its class");
-
- /* Add to the list of constructors. */
- ct = sipMalloc(sizeof (ctorDef));
-
- ct -> ctorflags = sectFlags;
- ct -> pysig = *args;
- ct -> cppsig = (cppsig != NULL ? cppsig : &ct -> pysig);
- ct -> exceptions = exceptions;
- ct -> methodcode = methodcode;
- ct -> next = NULL;
-
- if (!isPrivateCtor(ct))
- setCanCreate(cd);
-
- if (isProtectedCtor(ct))
- setHasShadow(cd);
-
- if (explicit)
- setIsExplicitCtor(ct);
-
- getHooks(optflgs,&ct -> prehook,&ct -> posthook);
-
- if (getReleaseGIL(optflgs))
- setIsReleaseGILCtor(ct);
- else if (getHoldGIL(optflgs))
- setIsHoldGILCtor(ct);
-
- if (findOptFlag(optflgs,"NoDerived",bool_flag) != NULL)
- {
- if (cppsig != NULL)
- yyerror("The /NoDerived/ annotation cannot be used with a C++ signature");
-
- if (methodcode == NULL)
- yyerror("The /NoDerived/ annotation must be used with %MethodCode");
-
- ct->cppsig = NULL;
- }
-
- if (findOptFlag(optflgs,"Default",bool_flag) != NULL)
- {
- if (cd -> defctor != NULL)
- yyerror("A constructor with the /Default/ annotation has already been defined");
-
- cd -> defctor = ct;
- }
-
- /* Append to the list. */
- for (ctp = &cd->ctors; *ctp != NULL; ctp = &(*ctp)->next)
- ;
-
- *ctp = ct;
-}
-
-
-/*
- * Create a new function.
- */
-static void newFunction(sipSpec *pt,moduleDef *mod,int sflags,int isstatic,
- int isvirt,char *name,signatureDef *sig,int isconst,
- int isabstract,optFlags *optflgs,codeBlock *methodcode,
- codeBlock *vcode,throwArgs *exceptions,
- signatureDef *cppsig)
-{
- classDef *cd = currentScope();
- nameDef *pname;
- int factory, xferback;
- overDef *od, **odp, **headp;
- optFlag *of;
- virtHandlerDef *vhd;
-
- /* Extra checks for a C module. */
- if (pt -> genc)
- {
- if (cd != NULL)
- yyerror("Function declaration not allowed in a struct in a C module");
-
- if (isstatic)
- yyerror("Static functions not allowed in a C module");
-
- if (exceptions != NULL)
- yyerror("Exceptions not allowed in a C module");
- }
-
- headp = (cd != NULL ? &cd -> overs : &pt -> overs);
-
- /* See if it is a factory method. */
- if (findOptFlag(optflgs,"Factory",bool_flag) != NULL)
- factory = TRUE;
- else
- {
- int a;
-
- factory = FALSE;
-
- /* Check /TransferThis/ wasn't specified. */
- if (cd == NULL || isstatic)
- for (a = 0; a < sig -> nrArgs; ++a)
- if (isThisTransferred(&sig -> args[a]))
- yyerror("/TransferThis/ may only be specified in constructors and class methods");
- }
-
- /* See if the result is to be returned to Python ownership. */
- xferback = (findOptFlag(optflgs,"TransferBack",bool_flag) != NULL);
-
- if (factory && xferback)
- yyerror("/TransferBack/ and /Factory/ cannot both be specified");
-
- /* Use the C++ name if a Python name wasn't given. */
- pname = cacheName(pt, getPythonName(optflgs, name));
-
- /* Create a new overload definition. */
-
- od = sipMalloc(sizeof (overDef));
-
- /* Set the overload flags. */
-
- od -> overflags = sflags;
-
- if (factory)
- setIsFactory(od);
-
- if (xferback)
- setIsResultTransferredBack(od);
-
- if (isProtected(od))
- setHasShadow(cd);
-
- if ((isSlot(od) || isSignal(od)) && !isPrivate(od))
- {
- if (isSignal(od))
- setHasShadow(cd);
-
- pt -> sigslots = TRUE;
- }
-
- if (isSignal(od) && (methodcode != NULL || vcode != NULL))
- yyerror("Cannot provide code for signals");
-
- if (isstatic)
- {
- if (isSignal(od))
- yyerror("Static functions cannot be signals");
-
- if (isvirt)
- yyerror("Static functions cannot be virtual");
-
- setIsStatic(od);
- }
-
- if (isconst)
- setIsConst(od);
-
- if (isabstract)
- {
- if (sflags == 0)
- yyerror("Non-class function specified as abstract");
-
- setIsAbstract(od);
- }
-
- if ((of = findOptFlag(optflgs,"AutoGen",opt_name_flag)) != NULL)
- {
- setIsAutoGen(od);
-
- if (of -> fvalue.sval != NULL)
- {
- qualDef *qd;
-
- if ((qd = findQualifier(of -> fvalue.sval)) == NULL || qd -> qtype != feature_qualifier)
- yyerror("No such feature");
-
- if (excludedFeature(excludedQualifiers,qd))
- resetIsAutoGen(od);
- }
- }
-
- if (isvirt)
- {
- if (isSignal(od) && !optNoEmitters(pt))
- yyerror("Virtual signals aren't supported");
-
- setIsVirtual(od);
- setHasShadow(cd);
-
- vhd = sipMalloc(sizeof (virtHandlerDef));
-
- vhd -> virthandlernr = -1;
- vhd -> vhflags = 0;
- vhd -> pysig = &od -> pysig;
- vhd -> cppsig = (cppsig != NULL ? cppsig : &od -> pysig);
- vhd -> module = currentModule;
- vhd -> virtcode = vcode;
- vhd -> next = currentModule -> virthandlers;
-
- if (factory || xferback)
- setIsTransferVH(vhd);
-
- currentModule -> virthandlers = vhd;
- }
- else
- {
- if (vcode != NULL)
- yyerror("%VirtualCatcherCode provided for non-virtual function");
-
- vhd = NULL;
- }
-
- od -> cppname = name;
- od -> pysig = *sig;
- od -> cppsig = (cppsig != NULL ? cppsig : &od -> pysig);
- od -> exceptions = exceptions;
- od -> methodcode = methodcode;
- od -> virthandler = vhd;
- od -> common = findFunction(pt,mod,cd,pname,(methodcode != NULL),sig -> nrArgs);
-
- if (findOptFlag(optflgs,"Numeric",bool_flag) != NULL)
- setIsNumeric(od -> common);
-
- /* Methods that run in new threads must be virtual. */
- if (findOptFlag(optflgs,"NewThread",bool_flag) != NULL)
- {
- argDef *res;
-
- if (!isvirt)
- yyerror("/NewThread/ may only be specified for virtual functions");
-
- /*
- * This is an arbitary limitation to make the code generator
- * slightly easier - laziness on my part.
- */
- res = &od -> cppsig -> result;
-
- if (res -> atype != void_type || res -> nrderefs != 0)
- yyerror("/NewThread/ may only be specified for void functions");
-
- setIsNewThread(od);
- }
-
- getHooks(optflgs,&od -> prehook,&od -> posthook);
-
- if (getReleaseGIL(optflgs))
- setIsReleaseGIL(od);
- else if (getHoldGIL(optflgs))
- setIsHoldGIL(od);
-
- od -> next = NULL;
-
- /* Append to the list. */
- for (odp = headp; *odp != NULL; odp = &(*odp)->next)
- ;
-
- *odp = od;
-}
-
-
-/*
- * Return the Python name based on the C/C++ name and any /PyName/ annotation.
- */
-static char *getPythonName(optFlags *optflgs, char *cname)
-{
- char *pname;
- optFlag *of;
-
- if ((of = findOptFlag(optflgs, "PyName", name_flag)) != NULL)
- pname = of -> fvalue.sval;
- else
- pname = cname;
-
- return pname;
-}
-
-
-/*
- * Cache a name in a module.
- */
-static nameDef *cacheName(sipSpec *pt,char *name)
-{
- nameDef *nd;
-
- /* See if it already exists. */
- for (nd = pt -> namecache; nd != NULL; nd = nd -> next)
- if (strcmp(nd -> text,name) == 0)
- return nd;
-
- /* Create a new one. */
- nd = sipMalloc(sizeof (nameDef));
-
- nd -> nameflags = 0;
- nd -> module = currentSpec -> module;
- nd -> text = name;
- nd -> next = pt -> namecache;
-
- pt -> namecache = nd;
-
- return nd;
-}
-
-
-/*
- * Find (or create) an overloaded function name.
- */
-static memberDef *findFunction(sipSpec *pt,moduleDef *mod,classDef *cd,
- nameDef *pname,int hwcode,int nrargs)
-{
- static struct slot_map {
- char *name; /* The slot name. */
- slotType type; /* The corresponding type. */
- int needs_hwcode; /* If handwritten code is required. */
- int nrargs; /* Nr. of arguments. */
- } slot_table[] = {
- {"__str__", str_slot, TRUE, 0},
- {"__unicode__", unicode_slot, TRUE, 0},
- {"__int__", int_slot, FALSE, 0},
- {"__long__", long_slot, FALSE, 0},
- {"__float__", float_slot, FALSE, 0},
- {"__len__", len_slot, TRUE, 0},
- {"__contains__", contains_slot, TRUE, 1},
- {"__add__", add_slot, FALSE, 1},
- {"__sub__", sub_slot, FALSE, 1},
- {"__mul__", mul_slot, FALSE, 1},
- {"__div__", div_slot, FALSE, 1},
- {"__mod__", mod_slot, FALSE, 1},
- {"__and__", and_slot, FALSE, 1},
- {"__or__", or_slot, FALSE, 1},
- {"__xor__", xor_slot, FALSE, 1},
- {"__lshift__", lshift_slot, FALSE, 1},
- {"__rshift__", rshift_slot, FALSE, 1},
- {"__iadd__", iadd_slot, FALSE, 1},
- {"__isub__", isub_slot, FALSE, 1},
- {"__imul__", imul_slot, FALSE, 1},
- {"__idiv__", idiv_slot, FALSE, 1},
- {"__imod__", imod_slot, FALSE, 1},
- {"__iand__", iand_slot, FALSE, 1},
- {"__ior__", ior_slot, FALSE, 1},
- {"__ixor__", ixor_slot, FALSE, 1},
- {"__ilshift__", ilshift_slot, FALSE, 1},
- {"__irshift__", irshift_slot, FALSE, 1},
- {"__invert__", invert_slot, FALSE, 0},
- {"__call__", call_slot, FALSE, -1},
- {"__getitem__", getitem_slot, FALSE, -1},
- {"__setitem__", setitem_slot, TRUE, -1},
- {"__delitem__", delitem_slot, TRUE, -1},
- {"__lt__", lt_slot, FALSE, 1},
- {"__le__", le_slot, FALSE, 1},
- {"__eq__", eq_slot, FALSE, 1},
- {"__ne__", ne_slot, FALSE, 1},
- {"__gt__", gt_slot, FALSE, 1},
- {"__ge__", ge_slot, FALSE, 1},
- {"__cmp__", cmp_slot, FALSE, 1},
- {"__nonzero__", nonzero_slot, TRUE, 0},
- {"__neg__", neg_slot, FALSE, 0},
- {"__pos__", pos_slot, FALSE, 0},
- {"__abs__", abs_slot, TRUE, 0},
- {"__repr__", repr_slot, TRUE, 0},
- {"__hash__", hash_slot, TRUE, 0},
- {NULL}
- };
-
- memberDef *md, **flist;
- struct slot_map *sm;
- slotType st;
-
- /* Get the slot type. */
- st = no_slot;
-
- for (sm = slot_table; sm -> name != NULL; ++sm)
- if (strcmp(sm -> name,pname -> text) == 0)
- {
- if (sm -> needs_hwcode && !hwcode)
- yyerror("This Python slot requires %MethodCode");
-
- if (sm -> nrargs < 0)
- {
- int min_nr;
-
- /* These require a minimum number. */
- switch (sm -> type)
- {
- case getitem_slot:
- case delitem_slot:
- min_nr = 1;
- break;
-
- case setitem_slot:
- min_nr = 2;
- break;
-
- default:
- min_nr = 0;
- }
-
- if (nrargs < min_nr)
- yyerror("Insufficient number of arguments to Python slot");
- }
- else if (cd == NULL)
- {
- /* Global operators need one extra argument. */
- if (sm -> nrargs + 1 != nrargs)
- yyerror("Incorrect number of arguments to global operator");
- }
- else if (sm -> nrargs != nrargs)
- yyerror("Incorrect number of arguments to Python slot");
-
- st = sm -> type;
-
- break;
- }
-
- if (inMainModule())
- setIsUsedName(pname);
-
- /* Check there is no name clash. */
- checkAttributes(pt,cd,pname -> text,TRUE);
-
- /* See if it already exists. */
- flist = (cd != NULL ? &cd -> members : &pt -> othfuncs);
-
- for (md = *flist; md != NULL; md = md -> next)
- if (md -> pyname == pname && md -> module == mod)
- return md;
-
- /* Create a new one. */
- md = sipMalloc(sizeof (memberDef));
-
- md -> pyname = pname;
- md -> memberflags = 0;
- md -> slot = st;
- md -> module = mod;
- md -> next = *flist;
-
- *flist = md;
-
- /* Global operators are a subset. */
- if (cd == NULL && st != no_slot && st != neg_slot && st != pos_slot && !isNumberSlot(md) && !isRichCompareSlot(md))
- yyerror("Global operators must be either numeric or comparison operators");
-
- return md;
-}
-
-
-/*
- * Search a set of flags for a particular one and check its type.
- */
-static optFlag *findOptFlag(optFlags *flgs,char *name,flagType ft)
-{
- int f;
-
- for (f = 0; f < flgs -> nrFlags; ++f)
- {
- optFlag *of = &flgs -> flags[f];
-
- if (strcmp(of -> fname,name) == 0)
- {
- /*
- * An optional name can look like a boolean or a name.
- */
-
- if (ft == opt_name_flag)
- {
- if (of -> ftype == bool_flag)
- {
- of -> ftype = opt_name_flag;
- of -> fvalue.sval = NULL;
- }
- else if (of -> ftype == name_flag)
- of -> ftype = opt_name_flag;
- }
-
- if (ft != of -> ftype)
- yyerror("Optional flag has a value of the wrong type");
-
- return of;
- }
- }
-
- return NULL;
-}
-
-
-/*
- * A name is going to be used as a Python attribute name within a Python scope
- * (ie. a Python dictionary), so check against what we already know is going in
- * the same scope in case there is a clash.
- */
-static void checkAttributes(sipSpec *pt,classDef *pyscope,char *attr,int isfunc)
-{
- enumDef *ed;
- varDef *vd;
- classDef *cd;
-
- /* Check the enums. */
-
- for (ed = pt -> enums; ed != NULL; ed = ed -> next)
- {
- enumMemberDef *emd;
-
- if (ed -> ecd != pyscope || ed -> pyname == NULL)
- continue;
-
- if (strcmp(ed->pyname->text, attr) == 0)
- yyerror("There is already an enum in scope with the same Python name");
-
- for (emd = ed -> members; emd != NULL; emd = emd -> next)
- if (strcmp(emd -> pyname -> text, attr) == 0)
- yyerror("There is already an enum member in scope with the same Python name");
- }
-
- /* Check the variables. */
-
- for (vd = pt -> vars; vd != NULL; vd = vd -> next)
- {
- if (vd -> ecd != pyscope)
- continue;
-
- if (strcmp(vd -> pyname -> text, attr) == 0)
- yyerror("There is already a variable in scope with the same Python name");
- }
-
- /*
- * Only check the members if this attribute isn't a member because we
- * can handle members with the same name in the same scope.
- */
- if (!isfunc)
- {
- memberDef *md, *membs;
-
- membs = (pyscope != NULL ? pyscope -> members : pt -> othfuncs);
-
- for (md = membs; md != NULL; md = md -> next)
- {
- overDef *od, *overs;
-
- if (strcmp(md -> pyname -> text, attr) != 0)
- continue;
-
- /* Check for a conflict with all overloads. */
-
- overs = (pyscope != NULL ? pyscope -> overs : pt -> overs);
-
- for (od = overs; od != NULL; od = od -> next)
- {
- if (od -> common != md)
- continue;
-
- yyerror("There is already a function in scope with the same Python name");
- }
- }
- }
-
- /* Check the classes. */
-
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- {
- if (cd -> ecd != pyscope || cd -> pyname == NULL)
- continue;
-
- if (strcmp(cd->pyname, attr) == 0 && !isExternal(cd))
- yyerror("There is already a class or namespace in scope with the same Python name");
- }
-
- /* Check the exceptions. */
-
- if (pyscope == NULL)
- {
- exceptionDef *xd;
-
- for (xd = pt->exceptions; xd != NULL; xd = xd->next)
- if (xd->pyname != NULL && strcmp(xd->pyname, attr) == 0)
- yyerror("There is already an exception with the same Python name");
- }
-}
-
-
-/*
- * Append a code block to a list of them. Append is needed to give the
- * specifier easy control over the order of the documentation.
- */
-static void appendCodeBlock(codeBlock **headp,codeBlock *new)
-{
- while (*headp != NULL)
- headp = &(*headp) -> next;
-
- *headp = new;
-}
-
-
-/*
- * Handle the end of a fully parsed a file.
- */
-static void handleEOF()
-{
- /*
- * Check that the number of nested if's is the same as when we started
- * the file.
- */
-
- if (skipStackPtr > newContext.ifdepth)
- fatal("Too many %%If statements in %s\n",previousFile);
-
- if (skipStackPtr < newContext.ifdepth)
- fatal("Too many %%End statements in %s\n",previousFile);
-}
-
-
-/*
- * Handle the end of a fully parsed a module.
- */
-static void handleEOM()
-{
- /* Check it has been named. */
-
- if (currentModule -> name == NULL)
- fatal("No %%Module has been specified for module defined in %s\n",previousFile);
-
- /* The previous module is now current. */
-
- currentModule = newContext.prevmod;
-}
-
-
-/*
- * Find an existing qualifier.
- */
-static qualDef *findQualifier(char *name)
-{
- moduleDef *mod;
-
- for (mod = currentSpec -> modules; mod != NULL; mod = mod -> next)
- {
- qualDef *qd;
-
- for (qd = mod -> qualifiers; qd != NULL; qd = qd -> next)
- if (strcmp(qd -> name,name) == 0)
- return qd;
- }
-
- return NULL;
-}
-
-
-/*
- * Return a copy of a scoped name.
- */
-scopedNameDef *copyScopedName(scopedNameDef *snd)
-{
- scopedNameDef *head;
-
- head = NULL;
-
- while (snd != NULL)
- {
- appendScopedName(&head,text2scopePart(snd -> name));
- snd = snd -> next;
- }
-
- return head;
-}
-
-
-/*
- * Append a name to a list of scopes.
- */
-void appendScopedName(scopedNameDef **headp,scopedNameDef *newsnd)
-{
- while (*headp != NULL)
- headp = &(*headp) -> next;
-
- *headp = newsnd;
-}
-
-
-/*
- * Free a scoped name - but not the text itself.
- */
-void freeScopedName(scopedNameDef *snd)
-{
- while (snd != NULL)
- {
- scopedNameDef *next = snd -> next;
-
- free(snd);
-
- snd = next;
- }
-}
-
-
-/*
- * Convert a text string to a scope part structure.
- */
-scopedNameDef *text2scopePart(char *text)
-{
- scopedNameDef *snd;
-
- snd = sipMalloc(sizeof (scopedNameDef));
-
- snd -> name = text;
- snd -> next = NULL;
-
- return snd;
-}
-
-
-/*
- * Convert a text string to a fully scoped name.
- */
-static scopedNameDef *text2scopedName(char *text)
-{
- return scopeScopedName(text2scopePart(text));
-}
-
-
-/*
- * Prepend any current scope to a scoped name.
- */
-static scopedNameDef *scopeScopedName(scopedNameDef *name)
-{
- classDef *cd = currentScope();
- scopedNameDef *snd;
-
- snd = (cd != NULL ? copyScopedName(cd->iff->fqcname) : NULL);
-
- appendScopedName(&snd, name);
-
- return snd;
-}
-
-
-/*
- * Return a pointer to the tail part of a scoped name.
- */
-char *scopedNameTail(scopedNameDef *snd)
-{
- if (snd == NULL)
- return NULL;
-
- while (snd -> next != NULL)
- snd = snd -> next;
-
- return snd -> name;
-}
-
-
-/*
- * Push the given scope onto the scope stack.
- */
-static void pushScope(classDef *scope)
-{
- if (currentScopeIdx >= MAX_NESTED_SCOPE)
- fatal("Internal error: increase the value of MAX_NESTED_SCOPE\n");
-
- scopeStack[currentScopeIdx] = scope;
- sectFlagsStack[currentScopeIdx] = sectionFlags;
-
- ++currentScopeIdx;
-}
-
-
-/*
- * Pop the scope stack.
- */
-static void popScope(void)
-{
- if (currentScopeIdx > 0)
- sectionFlags = sectFlagsStack[--currentScopeIdx];
-}
-
-
-/*
- * Return non-zero if the current input should be parsed rather than be
- * skipped.
- */
-static int notSkipping()
-{
- return (skipStackPtr == 0 ? TRUE : skipStack[skipStackPtr - 1]);
-}
-
-
-/*
- * Return the value of an expression involving a time period.
- */
-static int timePeriod(char *lname,char *uname)
-{
- int this, line;
- qualDef *qd, *lower, *upper;
- moduleDef *mod;
-
- if (lname == NULL)
- lower = NULL;
- else if ((lower = findQualifier(lname)) == NULL || lower -> qtype != time_qualifier)
- yyerror("Lower bound is not a time version");
-
- if (uname == NULL)
- upper = NULL;
- else if ((upper = findQualifier(uname)) == NULL || upper -> qtype != time_qualifier)
- yyerror("Upper bound is not a time version");
-
- /* Sanity checks on the bounds. */
-
- if (lower == NULL && upper == NULL)
- yyerror("Lower and upper bounds cannot both be omitted");
-
- if (lower != NULL && upper != NULL)
- {
- if (lower -> module != upper -> module || lower -> line != upper -> line)
- yyerror("Lower and upper bounds are from different timelines");
-
- if (lower == upper)
- yyerror("Lower and upper bounds must be different");
-
- if (lower -> order > upper -> order)
- yyerror("Later version specified as lower bound");
- }
-
- /* Go through each slot in the relevant timeline. */
-
- if (lower != NULL)
- {
- mod = lower -> module;
- line = lower -> line;
- }
- else
- {
- mod = upper -> module;
- line = upper -> line;
- }
-
- this = FALSE;
-
- for (qd = mod -> qualifiers; qd != NULL; qd = qd -> next)
- {
- if (qd -> qtype != time_qualifier || qd -> line != line)
- continue;
-
- if (lower != NULL && qd -> order < lower -> order)
- continue;
-
- if (upper != NULL && qd -> order >= upper -> order)
- continue;
-
- /*
- * This is within the required range so if it is also needed
- * then the expression is true.
- */
-
- if (isNeeded(qd))
- {
- this = TRUE;
- break;
- }
- }
-
- return this;
-}
-
-
-/*
- * Return the value of an expression involving a single platform or feature.
- */
-static int platOrFeature(char *name,int optnot)
-{
- int this;
- qualDef *qd;
-
- if ((qd = findQualifier(name)) == NULL || qd -> qtype == time_qualifier)
- yyerror("No such platform or feature");
-
- /* Assume this sub-expression is false. */
-
- this = FALSE;
-
- if (qd -> qtype == feature_qualifier)
- {
- if (!excludedFeature(excludedQualifiers,qd))
- this = TRUE;
- }
- else if (isNeeded(qd))
- this = TRUE;
-
- if (optnot)
- this = !this;
-
- return this;
-}
-
-
-/*
- * Return TRUE if the given qualifier is excluded.
- */
-int excludedFeature(stringList *xsl,qualDef *qd)
-{
- while (xsl != NULL)
- {
- if (strcmp(qd -> name,xsl -> s) == 0)
- return TRUE;
-
- xsl = xsl -> next;
- }
-
- return FALSE;
-}
-
-
-/*
- * Return TRUE if the given qualifier is needed.
- */
-static int isNeeded(qualDef *qd)
-{
- stringList *sl;
-
- for (sl = neededQualifiers; sl != NULL; sl = sl -> next)
- if (strcmp(qd -> name,sl -> s) == 0)
- return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Return the current scope. currentScope() is only valid if notSkipping()
- * returns non-zero.
- */
-static classDef *currentScope(void)
-{
- return (currentScopeIdx > 0 ? scopeStack[currentScopeIdx - 1] : NULL);
-}
-
-
-/*
- * Create a new qualifier.
- */
-static void newQualifier(moduleDef *mod,int line,int order,char *name,qualType qt)
-{
- qualDef *qd;
-
- /* Check it doesn't already exist. */
-
- if (findQualifier(name) != NULL)
- yyerror("Version is already defined");
-
- qd = sipMalloc(sizeof (qualDef));
- qd -> name = name;
- qd -> qtype = qt;
- qd -> module = mod;
- qd -> line = line;
- qd -> order = order;
- qd -> next = mod -> qualifiers;
- mod -> qualifiers = qd;
-}
-
-
-/*
- * Create a new imported module.
- */
-static void newImport(char *name)
-{
- moduleDef *from, *mod;
- moduleListDef *mld;
-
- /* Create a new module if it has already been imported. */
- for (mod = currentSpec -> modules; mod != NULL; mod = mod -> next)
- if (strcmp(mod -> file,name) == 0)
- break;
-
- from = currentModule;
-
- if (mod == NULL)
- {
- newModule(NULL,name);
- mod = currentModule;
- }
-
- /* Add the new import unless it has already been imported. */
- for (mld = from->imports; mld != NULL; mld = mld->next)
- if (mld->module == mod)
- return;
-
- mld = sipMalloc(sizeof (moduleListDef));
- mld -> module = mod;
- mld -> next = from->imports;
-
- from->imports = mld;
-}
-
-
-/*
- * Set up pointers to hook names.
- */
-static void getHooks(optFlags *optflgs,char **pre,char **post)
-{
- optFlag *of;
-
- if ((of = findOptFlag(optflgs,"PreHook",name_flag)) != NULL)
- *pre = of -> fvalue.sval;
- else
- *pre = NULL;
-
- if ((of = findOptFlag(optflgs,"PostHook",name_flag)) != NULL)
- *post = of -> fvalue.sval;
- else
- *post = NULL;
-}
-
-
-/*
- * Get the /ReleaseGIL/ option flag.
- */
-static int getReleaseGIL(optFlags *optflgs)
-{
- return (findOptFlag(optflgs, "ReleaseGIL", bool_flag) != NULL);
-}
-
-
-/*
- * Get the /HoldGIL/ option flag.
- */
-static int getHoldGIL(optFlags *optflgs)
-{
- return (findOptFlag(optflgs, "HoldGIL", bool_flag) != NULL);
-}
-
-
-/*
- * Return TRUE if the QtNoEmitters option was specified.
- */
-int optNoEmitters(sipSpec *pt)
-{
- return optFind(pt, "QtNoEmitters");
-}
-
-
-/*
- * Return TRUE if the QtRegisterTypes option was specified.
- */
-int optRegisterTypes(sipSpec *pt)
-{
- return optFind(pt, "QtRegisterTypes");
-}
-
-
-/*
- * Return TRUE if the Qt4Q_OBJECT option was specified.
- */
-int optQ_OBJECT4(sipSpec *pt)
-{
- return optFind(pt, "Qt4Q_OBJECT");
-}
-
-
-/*
- * Return TRUE if a particular option was specified with %SIPOptions.
- */
-static int optFind(sipSpec *pt, const char *opt)
-{
- stringList *sl;
-
- for (sl = pt->options; sl != NULL; sl = sl->next)
- if (strcmp(sl->s, opt) == 0)
- return TRUE;
-
- return FALSE;
-}
diff --git a/python/sip/sipgen/sip.h b/python/sip/sipgen/sip.h
deleted file mode 100644
index a259a6dc..00000000
--- a/python/sip/sipgen/sip.h
+++ /dev/null
@@ -1,1027 +0,0 @@
-/*
- * The main header file for SIP.
- *
- * Copyright (c) 2007
- * Riverbank Computing Limited <info@riverbankcomputing.co.uk>
- *
- * This file is part of SIP.
- *
- * This copy of SIP is licensed for use under the terms of the SIP License
- * Agreement. See the file LICENSE for more details.
- *
- * SIP is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- */
-
-
-#ifndef SIP_H
-#define SIP_H
-
-#include <stdio.h>
-#include <sys/types.h>
-
-
-#ifdef TRUE
-#undef TRUE
-#endif
-
-#ifdef FALSE
-#undef FALSE
-#endif
-
-#define TRUE 1
-#define FALSE 0
-
-
-#define DEFAULT_OFILE_EXT ".o" /* Default object file extension. */
-
-#define MAX_NR_ARGS 20 /* Max. nr. args. to a function or template. */
-
-
-/* For convenience. */
-
-#define classBaseName(cd) ((cd)->iff->name->text)
-#define classFQCName(cd) ((cd)->iff->fqcname)
-
-
-/* Handle module flags. */
-
-#define MOD_HAS_DELAYED_DTORS 0x0001 /* It has a class with a delayed dtor. */
-
-#define hasDelayedDtors(m) ((m)->modflags & MOD_HAS_DELAYED_DTORS)
-#define setHasDelayedDtors(m) ((m)->modflags |= MOD_HAS_DELAYED_DTORS)
-
-
-/* Handle section flags. */
-
-#define SECT_IS_PUBLIC 0x01 /* It is public. */
-#define SECT_IS_PROT 0x02 /* It is protected. */
-#define SECT_IS_PRIVATE 0x04 /* It is private. */
-#define SECT_IS_SLOT 0x08 /* It is a slot. */
-#define SECT_IS_SIGNAL 0x10 /* It is a signal. */
-#define SECT_MASK 0x1f /* The mask of all flags. */
-
-
-/* Handle class flags. These are combined with the section flags. */
-
-#define CLASS_HAS_ENUMS 0x00000100 /* It has enums. */
-#define CLASS_HAS_SIGSLOTS 0x00000200 /* It has signals or slots. */
-#define CLASS_IS_ABSTRACT 0x00000400 /* It is an abstract class. */
-#define CLASS_HAS_SHADOW 0x00000800 /* It is has a shadow class. */
-#define CLASS_IS_OPAQUE 0x00001000 /* It is opaque. */
-#define CLASS_HAS_VAR_HANDLERS 0x00002000 /* It has variable handlers. */
-#define CLASS_DTOR_RELEASE_GIL 0x00004000 /* The dtor releases the GIL. */
-#define CLASS_IS_PROTECTED 0x00008000 /* It is protected. */
-#define CLASS_IS_PROTECTED_SAV 0x00010000 /* It is protected (saved). */
-#define CLASS_IS_RENAMED 0x00020000 /* It has a different Python name. */
-#define CLASS_IS_INCOMPLETE 0x00040000 /* The specification is incomplete. */
-#define CLASS_CAN_CREATE 0x00080000 /* It has usable ctors. */
-#define CLASS_IS_EXTERNAL 0x00100000 /* It is external. */
-#define CLASS_IS_DELAYED_DTOR 0x00200000 /* The dtor is delayed. */
-#define CLASS_NO_DEFAULT_CTORS 0x00400000 /* Don't create default ctors. */
-#define CLASS_QOBJECT_SUB 0x00800000 /* It is derived from TQObject. */
-#define CLASS_DTOR_HOLD_GIL 0x01000000 /* The dtor holds the GIL. */
-
-#define hasEnums(cd) ((cd)->classflags & CLASS_HAS_ENUMS)
-#define setHasEnums(cd) ((cd)->classflags |= CLASS_HAS_ENUMS)
-#define hasSigSlots(cd) ((cd)->classflags & CLASS_HAS_SIGSLOTS)
-#define setHasSigSlots(cd) ((cd)->classflags |= CLASS_HAS_SIGSLOTS)
-#define isAbstractClass(cd) ((cd)->classflags & CLASS_IS_ABSTRACT)
-#define setIsAbstractClass(cd) ((cd)->classflags |= CLASS_IS_ABSTRACT)
-#define hasShadow(cd) ((cd)->classflags & CLASS_HAS_SHADOW)
-#define setHasShadow(cd) ((cd)->classflags |= CLASS_HAS_SHADOW)
-#define resetHasShadow(cd) ((cd)->classflags &= ~CLASS_HAS_SHADOW)
-#define isOpaque(cd) ((cd)->classflags & CLASS_IS_OPAQUE)
-#define setIsOpaque(cd) ((cd)->classflags |= CLASS_IS_OPAQUE)
-#define hasVarHandlers(cd) ((cd)->classflags & CLASS_HAS_VAR_HANDLERS)
-#define setHasVarHandlers(cd) ((cd)->classflags |= CLASS_HAS_VAR_HANDLERS)
-#define isProtectedClass(cd) ((cd)->classflags & CLASS_IS_PROTECTED)
-#define setIsProtectedClass(cd) ((cd)->classflags |= CLASS_IS_PROTECTED)
-#define resetIsProtectedClass(cd) ((cd)->classflags &= ~CLASS_IS_PROTECTED)
-#define wasProtectedClass(cd) ((cd)->classflags & CLASS_IS_PROTECTED_SAV)
-#define setWasProtectedClass(cd) ((cd)->classflags |= CLASS_IS_PROTECTED_SAV)
-#define resetWasProtectedClass(cd) ((cd)->classflags &= ~CLASS_IS_PROTECTED_SAV)
-#define isReleaseGILDtor(c) ((cd)->classflags & CLASS_DTOR_RELEASE_GIL)
-#define setIsReleaseGILDtor(c) ((cd)->classflags |= CLASS_DTOR_RELEASE_GIL)
-#define isRenamedClass(cd) ((cd)->classflags & CLASS_IS_RENAMED)
-#define setIsRenamedClass(cd) ((cd)->classflags |= CLASS_IS_RENAMED)
-#define isIncomplete(cd) ((cd)->classflags & CLASS_IS_INCOMPLETE)
-#define setIsIncomplete(cd) ((cd)->classflags |= CLASS_IS_INCOMPLETE)
-#define canCreate(cd) ((cd)->classflags & CLASS_CAN_CREATE)
-#define setCanCreate(cd) ((cd)->classflags |= CLASS_CAN_CREATE)
-#define resetCanCreate(cd) ((cd)->classflags &= ~CLASS_CAN_CREATE)
-#define isExternal(cd) ((cd)->classflags & CLASS_IS_EXTERNAL)
-#define setIsExternal(cd) ((cd)->classflags |= CLASS_IS_EXTERNAL)
-#define isDelayedDtor(cd) ((cd)->classflags & CLASS_IS_DELAYED_DTOR)
-#define setIsDelayedDtor(cd) ((cd)->classflags |= CLASS_IS_DELAYED_DTOR)
-#define noDefaultCtors(cd) ((cd)->classflags & CLASS_NO_DEFAULT_CTORS)
-#define setNoDefaultCtors(cd) ((cd)->classflags |= CLASS_NO_DEFAULT_CTORS)
-#define isQObjectSubClass(cd) ((cd)->classflags & CLASS_QOBJECT_SUB)
-#define setIsQObjectSubClass(cd) ((cd)->classflags |= CLASS_QOBJECT_SUB)
-#define isHoldGILDtor(c) ((cd)->classflags & CLASS_DTOR_HOLD_GIL)
-#define setIsHoldGILDtor(c) ((cd)->classflags |= CLASS_DTOR_HOLD_GIL)
-
-#define isPublicDtor(cd) ((cd)->classflags & SECT_IS_PUBLIC)
-#define setIsPublicDtor(cd) ((cd)->classflags |= SECT_IS_PUBLIC)
-#define isProtectedDtor(cd) ((cd)->classflags & SECT_IS_PROT)
-#define isPrivateDtor(cd) ((cd)->classflags & SECT_IS_PRIVATE)
-
-#define isDtor(cd) ((cd)->classflags & (SECT_IS_PUBLIC | SECT_IS_PROT | SECT_IS_PRIVATE))
-
-
-/* Handle ctor flags. These are combined with the section flags. */
-
-#define CTOR_RELEASE_GIL 0x00000100 /* The ctor releases the GIL. */
-#define CTOR_EXPLICIT 0x00000200 /* The ctor is explicit. */
-#define CTOR_CAST 0x00000400 /* The ctor is a cast. */
-#define CTOR_HOLD_GIL 0x00000800 /* The ctor holds the GIL. */
-
-#define isPublicCtor(c) ((c)->ctorflags & SECT_IS_PUBLIC)
-#define setIsPublicCtor(c) ((c)->ctorflags |= SECT_IS_PUBLIC)
-#define isProtectedCtor(c) ((c)->ctorflags & SECT_IS_PROT)
-#define setIsProtectedCtor(c) ((c)->ctorflags |= SECT_IS_PROT)
-#define isPrivateCtor(c) ((c)->ctorflags & SECT_IS_PRIVATE)
-#define setIsPrivateCtor(c) ((c)->ctorflags |= SECT_IS_PRIVATE)
-
-#define isReleaseGILCtor(c) ((c)->ctorflags & CTOR_RELEASE_GIL)
-#define setIsReleaseGILCtor(c) ((c)->ctorflags |= CTOR_RELEASE_GIL)
-#define isExplicitCtor(c) ((c)->ctorflags & CTOR_EXPLICIT)
-#define setIsExplicitCtor(c) ((c)->ctorflags |= CTOR_EXPLICIT)
-#define isCastCtor(c) ((c)->ctorflags & CTOR_CAST)
-#define isHoldGILCtor(c) ((c)->ctorflags & CTOR_HOLD_GIL)
-#define setIsHoldGILCtor(c) ((c)->ctorflags |= CTOR_HOLD_GIL)
-
-
-/* Handle member flags. */
-
-#define MEMBR_NUMERIC 0x0001 /* It is a numeric slot. */
-
-#define isNumeric(m) ((m)->memberflags & MEMBR_NUMERIC)
-#define setIsNumeric(m) ((m)->memberflags |= MEMBR_NUMERIC)
-
-
-/* Handle enum flags. These are combined with the section flags. */
-
-#define ENUM_WAS_PROT 0x00000100 /* It was defined as protected. */
-#define ENUM_IS_RENAMED 0x00000200 /* It has been renamed. */
-
-#define isProtectedEnum(e) ((e)->enumflags & SECT_IS_PROT)
-#define setIsProtectedEnum(e) ((e)->enumflags |= SECT_IS_PROT)
-#define resetIsProtectedEnum(e) ((e)->enumflags &= ~SECT_IS_PROT)
-
-#define wasProtectedEnum(e) ((e)->enumflags & ENUM_WAS_PROT)
-#define setWasProtectedEnum(e) ((e)->enumflags |= ENUM_WAS_PROT)
-#define resetWasProtectedEnum(e) ((e)->enumflags &= ~ENUM_WAS_PROT)
-#define isRenamedEnum(e) ((e)->enumflags & ENUM_IS_RENAMED)
-#define setIsRenamedEnum(e) ((e)->enumflags |= ENUM_IS_RENAMED)
-
-
-/* Handle hierarchy flags. */
-
-#define HIER_IS_DUPLICATE 0x0001 /* It is a super class duplicate. */
-#define HIER_HAS_DUPLICATE 0x0002 /* It has a super class duplicate. */
-
-#define isDuplicateSuper(m) ((m)->mroflags & HIER_IS_DUPLICATE)
-#define setIsDuplicateSuper(m) ((m)->mroflags |= HIER_IS_DUPLICATE)
-#define hasDuplicateSuper(m) ((m)->mroflags & HIER_HAS_DUPLICATE)
-#define setHasDuplicateSuper(m) ((m)->mroflags |= HIER_HAS_DUPLICATE)
-
-
-/* Handle overload flags. These are combined with the section flags. */
-
-#define OVER_IS_VIRTUAL 0x00000100 /* It is virtual. */
-#define OVER_IS_ABSTRACT 0x00000200 /* It is abstract. */
-#define OVER_IS_CONST 0x00000400 /* It is a const function. */
-#define OVER_IS_STATIC 0x00000800 /* It is a static function. */
-#define OVER_IS_AUTOGEN 0x00001000 /* It is auto-generated. */
-#define OVER_IS_NEW_THREAD 0x00002000 /* It is in a new thread. */
-#define OVER_IS_FACTORY 0x00004000 /* It is a factory method. */
-#define OVER_XFERRED_BACK 0x00008000 /* Ownership is transferred back. */
-#define OVER_RELEASE_GIL 0x00010000 /* The function releases the GIL. */
-#define OVER_IS_VIRTUAL_REIMP 0x00020000 /* It is a re-implementation of a virtual. */
-#define OVER_DONT_DEREF_SELF 0x00040000 /* For comparison operators, don't dereference self. */
-#define OVER_HOLD_GIL 0x00080000 /* The function holds the GIL. */
-
-#define isPublic(o) ((o)->overflags & SECT_IS_PUBLIC)
-#define setIsPublic(o) ((o)->overflags |= SECT_IS_PUBLIC)
-#define isProtected(o) ((o)->overflags & SECT_IS_PROT)
-#define setIsProtected(o) ((o)->overflags |= SECT_IS_PROT)
-#define isPrivate(o) ((o)->overflags & SECT_IS_PRIVATE)
-#define setIsPrivate(o) ((o)->overflags |= SECT_IS_PRIVATE)
-#define isSlot(o) ((o)->overflags & SECT_IS_SLOT)
-#define setIsSlot(o) ((o)->overflags |= SECT_IS_SLOT)
-#define isSignal(o) ((o)->overflags & SECT_IS_SIGNAL)
-#define setIsSignal(o) ((o)->overflags |= SECT_IS_SIGNAL)
-
-#define isVirtual(o) ((o)->overflags & OVER_IS_VIRTUAL)
-#define setIsVirtual(o) ((o)->overflags |= OVER_IS_VIRTUAL)
-#define isAbstract(o) ((o)->overflags & OVER_IS_ABSTRACT)
-#define setIsAbstract(o) ((o)->overflags |= OVER_IS_ABSTRACT)
-#define isConst(o) ((o)->overflags & OVER_IS_CONST)
-#define setIsConst(o) ((o)->overflags |= OVER_IS_CONST)
-#define isStatic(o) ((o)->overflags & OVER_IS_STATIC)
-#define setIsStatic(o) ((o)->overflags |= OVER_IS_STATIC)
-#define isAutoGen(o) ((o)->overflags & OVER_IS_AUTOGEN)
-#define setIsAutoGen(o) ((o)->overflags |= OVER_IS_AUTOGEN)
-#define resetIsAutoGen(o) ((o)->overflags &= ~OVER_IS_AUTOGEN)
-#define isNewThread(o) ((o)->overflags & OVER_IS_NEW_THREAD)
-#define setIsNewThread(o) ((o)->overflags |= OVER_IS_NEW_THREAD)
-#define isFactory(o) ((o)->overflags & OVER_IS_FACTORY)
-#define setIsFactory(o) ((o)->overflags |= OVER_IS_FACTORY)
-#define isResultTransferredBack(o) ((o)->overflags & OVER_XFERRED_BACK)
-#define setIsResultTransferredBack(o) ((o)->overflags |= OVER_XFERRED_BACK)
-#define isReleaseGIL(o) ((o)->overflags & OVER_RELEASE_GIL)
-#define setIsReleaseGIL(o) ((o)->overflags |= OVER_RELEASE_GIL)
-#define isVirtualReimp(o) ((o)->overflags & OVER_IS_VIRTUAL_REIMP)
-#define setIsVirtualReimp(o) ((o)->overflags |= OVER_IS_VIRTUAL_REIMP)
-#define dontDerefSelf(o) ((o)->overflags & OVER_DONT_DEREF_SELF)
-#define setDontDerefSelf(o) ((o)->overflags |= OVER_DONT_DEREF_SELF)
-#define isHoldGIL(o) ((o)->overflags & OVER_HOLD_GIL)
-#define setIsHoldGIL(o) ((o)->overflags |= OVER_HOLD_GIL)
-
-
-/* Handle variable flags. */
-
-#define VAR_IS_STATIC 0x01 /* It is a static variable. */
-#define VAR_NEEDS_HANDLER 0x02 /* It the variable needs a handler. */
-
-#define isStaticVar(v) ((v)->varflags & VAR_IS_STATIC)
-#define setIsStaticVar(v) ((v)->varflags |= VAR_IS_STATIC)
-#define needsHandler(v) ((v)->varflags & VAR_NEEDS_HANDLER)
-#define setNeedsHandler(v) ((v)->varflags |= VAR_NEEDS_HANDLER)
-
-
-/* Handle argument flags. */
-
-#define ARG_IS_REF 0x0001 /* It is a reference. */
-#define ARG_IS_CONST 0x0002 /* It is a const. */
-#define ARG_XFERRED 0x0004 /* Ownership is transferred. */
-#define ARG_THIS_XFERRED 0x0008 /* Ownership of this is transferred. */
-#define ARG_XFERRED_BACK 0x0010 /* Ownership is transferred back. */
-#define ARG_ARRAY 0x0020 /* Used as an array. */
-#define ARG_ARRAY_SIZE 0x0040 /* Used as an array size. */
-#define ARG_ALLOW_NONE 0x0080 /* Allow None as a value. */
-#define ARG_GET_WRAPPER 0x0100 /* Get the wrapper object. */
-#define ARG_IN 0x0200 /* It passes an argument. */
-#define ARG_OUT 0x0400 /* It returns a result. */
-#define ARG_CONSTRAINED 0x0800 /* Suppress type conversion. */
-
-#define isReference(a) ((a)->argflags & ARG_IS_REF)
-#define setIsReference(a) ((a)-> argflags |= ARG_IS_REF)
-#define resetIsReference(a) ((a)->argflags &= ~ARG_IS_REF)
-#define isConstArg(a) ((a)->argflags & ARG_IS_CONST)
-#define setIsConstArg(a) ((a)->argflags |= ARG_IS_CONST)
-#define resetIsConstArg(a) ((a)->argflags &= ~ARG_IS_CONST)
-#define isTransferred(a) ((a)->argflags & ARG_XFERRED)
-#define setIsTransferred(a) ((a)->argflags |= ARG_XFERRED)
-#define isThisTransferred(a) ((a)->argflags & ARG_THIS_XFERRED)
-#define setIsThisTransferred(a) ((a)->argflags |= ARG_THIS_XFERRED)
-#define isTransferredBack(a) ((a)->argflags & ARG_XFERRED_BACK)
-#define setIsTransferredBack(a) ((a)->argflags |= ARG_XFERRED_BACK)
-#define isArray(a) ((a)->argflags & ARG_ARRAY)
-#define setArray(a) ((a)->argflags |= ARG_ARRAY)
-#define isArraySize(a) ((a)->argflags & ARG_ARRAY_SIZE)
-#define setArraySize(a) ((a)->argflags |= ARG_ARRAY_SIZE)
-#define isAllowNone(a) ((a)->argflags & ARG_ALLOW_NONE)
-#define setAllowNone(a) ((a)->argflags |= ARG_ALLOW_NONE)
-#define isGetWrapper(a) ((a)->argflags & ARG_GET_WRAPPER)
-#define setGetWrapper(a) ((a)->argflags |= ARG_GET_WRAPPER)
-#define isInArg(a) ((a)->argflags & ARG_IN)
-#define setIsInArg(a) ((a)->argflags |= ARG_IN)
-#define isOutArg(a) ((a)->argflags & ARG_OUT)
-#define setIsOutArg(a) ((a)->argflags |= ARG_OUT)
-#define isConstrained(a) ((a)->argflags & ARG_CONSTRAINED)
-#define setIsConstrained(a) ((a)->argflags |= ARG_CONSTRAINED)
-#define resetIsConstrained(a) ((a)->argflags &= ~ARG_CONSTRAINED)
-
-
-/* Handle name flags. */
-
-#define NAME_IS_USED 0x01 /* It is used in the main module. */
-#define NAME_IS_CLASS 0x02 /* It is the name of a class. */
-
-#define isUsedName(n) ((n)->nameflags & NAME_IS_USED)
-#define setIsUsedName(n) ((n)->nameflags |= NAME_IS_USED)
-#define resetIsUsedName(n) ((n)->nameflags &= ~NAME_IS_USED)
-#define isClassName(n) ((n)->nameflags & NAME_IS_CLASS)
-#define setIsClassName(n) ((n)->nameflags |= NAME_IS_CLASS)
-#define resetIsClassName(n) ((n)->nameflags &= ~NAME_IS_CLASS)
-
-
-/* Handle virtual handler flags. */
-
-#define VH_IS_DUPLICATE 0x01 /* It is a duplicate. */
-#define VH_TRANSFERS 0x02 /* It transfers ownership of the result. */
-
-#define isDuplicateVH(vh) ((vh)->vhflags & VH_IS_DUPLICATE)
-#define setIsDuplicateVH(vh) ((vh)->vhflags |= VH_IS_DUPLICATE)
-#define resetIsDuplicateVH(vh) ((vh)->vhflags &= ~VH_IS_DUPLICATE)
-#define isTransferVH(vh) ((vh)->vhflags & VH_TRANSFERS)
-#define setIsTransferVH(vh) ((vh)->vhflags |= VH_TRANSFERS)
-
-
-/* Slot types. */
-
-typedef enum {
- str_slot,
- unicode_slot,
- int_slot,
- long_slot,
- float_slot,
- len_slot,
- contains_slot,
- add_slot,
- concat_slot,
- sub_slot,
- mul_slot,
- repeat_slot,
- div_slot,
- mod_slot,
- and_slot,
- or_slot,
- xor_slot,
- lshift_slot,
- rshift_slot,
- iadd_slot,
- iconcat_slot,
- isub_slot,
- imul_slot,
- irepeat_slot,
- idiv_slot,
- imod_slot,
- iand_slot,
- ior_slot,
- ixor_slot,
- ilshift_slot,
- irshift_slot,
- invert_slot,
- call_slot,
- getitem_slot,
- setitem_slot,
- delitem_slot,
- lt_slot,
- le_slot,
- eq_slot,
- ne_slot,
- gt_slot,
- ge_slot,
- cmp_slot,
- nonzero_slot,
- neg_slot,
- pos_slot,
- abs_slot,
- repr_slot,
- hash_slot,
- no_slot
-} slotType;
-
-
-/*
- * Argument types. Always add new ones at the end because the numeric values
- * can appear in generated code.
- */
-typedef enum {
- no_type,
- defined_type,
- class_type,
- struct_type,
- void_type,
- enum_type,
- template_type,
- signal_type,
- slot_type,
- rxcon_type,
- rxdis_type,
- slotcon_type,
- slotdis_type,
- ustring_type,
- string_type,
- short_type,
- ushort_type,
- cint_type,
- int_type,
- uint_type,
- long_type,
- ulong_type,
- float_type,
- cfloat_type,
- double_type,
- cdouble_type,
- bool_type,
- mapped_type,
- pyobject_type,
- pytuple_type,
- pylist_type,
- pydict_type,
- pycallable_type,
- pyslice_type,
- qobject_type,
- function_type,
- pytype_type,
- ellipsis_type,
- longlong_type,
- ulonglong_type,
- anyslot_type,
- cbool_type,
- sstring_type,
- wstring_type
-} argType;
-
-
-/* Value types. */
-
-typedef enum {
- qchar_value,
- string_value,
- numeric_value,
- real_value,
- scoped_value,
- fcall_value
-} valueType;
-
-
-/* Version types. */
-
-typedef enum {
- time_qualifier,
- platform_qualifier,
- feature_qualifier
-} qualType;
-
-
-/* Interface file types. */
-
-typedef enum {
- exception_iface,
- mappedtype_iface,
- namespace_iface,
- class_iface
-} ifaceFileType;
-
-
-/* A software license. */
-
-typedef struct {
- char *type; /* The license type. */
- char *licensee; /* The licensee. */
- char *timestamp; /* The timestamp. */
- char *sig; /* The signature. */
-} licenseDef;
-
-
-/* A version qualifier. */
-
-typedef struct _qualDef {
- char *name; /* The qualifier name. */
- qualType qtype; /* The qualifier type. */
- struct _moduleDef *module; /* The defining module. */
- int line; /* Timeline if it is a time. */
- int order; /* Order if it is a time. */
- struct _qualDef *next; /* Next in the list. */
-} qualDef;
-
-
-/* A scoped name. */
-
-typedef struct _scopedNameDef {
- char *name; /* The name. */
- struct _scopedNameDef *next; /* Next in the scope list. */
-} scopedNameDef;
-
-
-/* A name. */
-
-typedef struct _nameDef {
- int nameflags; /* The name flags. */
- struct _moduleDef *module; /* The main module. */
- char *text; /* The text of the name. */
- struct _nameDef *next; /* Next in the list. */
-} nameDef;
-
-
-/*
- * A node in the tree of classes used to determine the order in which the
- * classes need to be created.
- */
-
-typedef struct _nodeDef {
- int ordered; /* Set if in order. */
- struct _classDef *cd; /* The class. */
- struct _nodeDef *parent; /* The parent. */
- struct _nodeDef *child; /* The first child. */
- struct _nodeDef *next; /* The next sibling. */
-} nodeDef;
-
-
-/* A module definition. */
-
-typedef struct _moduleDef {
- char *fullname; /* The full module name. */
- char *name; /* The module base name. */
- int version; /* The module version. */
- int modflags; /* The module flags. */
- int modulenr; /* The module number. */
- char *file; /* The filename. */
- qualDef *qualifiers; /* The list of qualifiers. */
- nodeDef root; /* Root of class tree. */
- int nrtimelines; /* The nr. of timelines. */
- int nrclasses; /* The nr. of classes. */
- int nrexceptions; /* The nr. of exceptions. */
- int nrmappedtypes; /* The nr. of mapped types. */
- int nrenums; /* The nr. of named enums. */
- int nrtypedefs; /* The nr. of typedefs. */
- int nrvirthandlers; /* The nr. of virtual handlers. */
- struct _virtHandlerDef *virthandlers; /* The virtual handlers. */
- licenseDef *license; /* The software license. */
- struct _moduleListDef *allimports; /* The list of all imports. */
- struct _moduleListDef *imports; /* The list of direct imports. */
- struct _moduleDef *next; /* Next in the list. */
-} moduleDef;
-
-
-/* An entry in a linked module list. */
-
-typedef struct _moduleListDef {
- moduleDef *module; /* The module itself. */
- struct _moduleListDef *next; /* The next in the list. */
-} moduleListDef;
-
-
-/* A literal code block. */
-
-typedef struct _codeBlock {
- char *frag; /* The code itself. */
- char *filename; /* The original file. */
- int linenr; /* The line in the file. */
- struct _codeBlock *next; /* Next in the list. */
-} codeBlock;
-
-
-/* The arguments to a throw specifier. */
-
-typedef struct _throwArgs {
- int nrArgs; /* The number of arguments. */
- struct _exceptionDef *args[MAX_NR_ARGS]; /* The arguments. */
-} throwArgs;
-
-
-/* An exception. */
-
-typedef struct _exceptionDef {
- int exceptionnr; /* The exception number. */
- struct _ifaceFileDef *iff; /* The interface file. */
- char *pyname; /* The exception Python name. */
- struct _classDef *cd; /* The exception class. */
- char *bibase; /* The builtin base exception. */
- struct _exceptionDef *base; /* The defined base exception. */
- codeBlock *hdrcode; /* Optional header code. */
- codeBlock *raisecode; /* Raise exception code. */
- struct _exceptionDef *next; /* The next in the list. */
-} exceptionDef;
-
-
-/* A value. */
-
-typedef struct _valueDef {
- valueType vtype; /* The type. */
- char vunop; /* Any unary operator. */
- char vbinop; /* Any binary operator. */
- union {
- char vqchar; /* Quoted character value. */
- long vnum; /* Numeric value. */
- double vreal; /* Real value. */
- char *vstr; /* String value. */
- scopedNameDef *vscp; /* Scoped value. */
- struct _fcallDef *fcd; /* Function call. */
- } u;
- struct _valueDef *next; /* Next in the expression. */
-} valueDef;
-
-
-/* A member function argument (or result). */
-
-typedef struct {
- argType atype; /* The type. */
- char *name; /* The name. */
- int argflags; /* The argument flags. */
- int nrderefs; /* Nr. of dereferences. */
- valueDef *defval; /* The default value. */
- union {
- struct _signatureDef *sa; /* If it is a function. */
- struct _templateDef *td; /* If it is a template. */
- struct _scopedNameDef *snd; /* If it is a defined type. */
- struct _classDef *cd; /* If it is a class. */
- struct _enumDef *ed; /* If it is an enum. */
- struct _scopedNameDef *sname; /* If it is a struct. */
- struct _mappedTypeDef *mtd; /* If it is a mapped type. */
- } u;
-} argDef;
-
-
-
-/* An entry in a linked argument list. */
-typedef struct _argList {
- argDef arg; /* The argument itself. */
- struct _argList *next; /* Next in the list. */
-} argList;
-
-
-/* A function call. */
-
-typedef struct _fcallDef {
- argDef type; /* The type. */
- int nrArgs; /* The number of arguments. */
- struct _valueDef *args[MAX_NR_ARGS]; /* The arguments. */
-} fcallDef;
-
-
-/* An interface file definition. */
-
-typedef struct _ifaceFileDef {
- nameDef *name; /* The name. */
- ifaceFileType type; /* Interface file type. */
- scopedNameDef *fqcname; /* The fully qualified C++ name. */
- moduleDef *module; /* The owning module. */
- struct _ifaceFileList *used; /* Interface files used. */
- struct _ifaceFileDef *next; /* Next in the list. */
-} ifaceFileDef;
-
-
-/* An entry in a linked interface file list. */
-
-typedef struct _ifaceFileList {
- ifaceFileDef *iff; /* The interface file itself. */
- int header; /* If needed in the .h file. */
- struct _ifaceFileList *next; /* Next in the list. */
-} ifaceFileList;
-
-
-/* A mapped type. */
-
-typedef struct _mappedTypeDef {
- argDef type; /* The type being mapped. */
- int mappednr; /* The mapped type number. */
- ifaceFileDef *iff; /* The interface file. */
- codeBlock *hdrcode; /* Header code. */
- codeBlock *convfromcode; /* Convert from C++ code. */
- codeBlock *convtocode; /* Convert to C++ code. */
- struct _mappedTypeDef *next; /* Next in the list. */
-} mappedTypeDef;
-
-
-/* A function signature. */
-
-typedef struct _signatureDef {
- argDef result; /* The result. */
- int nrArgs; /* The number of arguments. */
- argDef args[MAX_NR_ARGS]; /* The arguments. */
-} signatureDef;
-
-
-/* A list of function signatures. */
-
-typedef struct _signatureList {
- struct _signatureDef *sd; /* The signature. */
- struct _signatureList *next; /* Next in the list. */
-} signatureList;
-
-
-/* A template type. */
-
-typedef struct _templateDef {
- scopedNameDef *fqname; /* The name. */
- signatureDef types; /* The types. */
-} templateDef;
-
-
-/* A list of virtual handlers. */
-
-typedef struct _virtHandlerDef {
- int virthandlernr; /* The nr. of the virtual handler. */
- int vhflags; /* The virtual handler flags. */
- signatureDef *pysig; /* The Python signature. */
- signatureDef *cppsig; /* The C++ signature. */
- struct _moduleDef *module; /* The defining module. */
- codeBlock *virtcode; /* Virtual handler code. */
- struct _virtHandlerDef *next; /* Next in the list. */
-} virtHandlerDef;
-
-
-/* A typedef definition. */
-
-typedef struct _typedefDef {
- scopedNameDef *fqname; /* The fully qualified name. */
- struct _classDef *ecd; /* The enclosing class. */
- moduleDef *module; /* The owning module. */
- argDef type; /* The actual type. */
- struct _typedefDef *next; /* Next in the list. */
-} typedefDef;
-
-
-/* A variable definition. */
-
-typedef struct _varDef {
- nameDef *pyname; /* The variable Python name. */
- scopedNameDef *fqcname; /* The fully qualified C/C++ name. */
- struct _classDef *ecd; /* The enclosing class. */
- moduleDef *module; /* The owning module. */
- int varflags; /* The variable flags. */
- argDef type; /* The actual type. */
- codeBlock *accessfunc; /* The access function. */
- codeBlock *getcode; /* The get code. */
- codeBlock *setcode; /* The set code. */
- struct _varDef *next; /* Next in the list. */
-} varDef;
-
-
-/* An overloaded member function definition. */
-
-typedef struct _overDef {
- char *cppname; /* The C++ name. */
- int overflags; /* The overload flags. */
- struct _memberDef *common; /* Common parts. */
- signatureDef pysig; /* The Python signature. */
- signatureDef *cppsig; /* The C++ signature. */
- throwArgs *exceptions; /* The exceptions. */
- codeBlock *methodcode; /* Method code. */
- virtHandlerDef *virthandler; /* The virtual handler. */
- char *prehook; /* The pre-hook name. */
- char *posthook; /* The post-hook name. */
- struct _overDef *next; /* Next in the list. */
-} overDef;
-
-
-/* An overloaded constructor definition. */
-
-typedef struct _ctorDef {
- int ctorflags; /* The ctor flags. */
- signatureDef pysig; /* The Python signature. */
- signatureDef *cppsig; /* The C++ signature, NULL if /NoDerived/. */
- throwArgs *exceptions; /* The exceptions. */
- codeBlock *methodcode; /* Method code. */
- char *prehook; /* The pre-hook name. */
- char *posthook; /* The post-hook name. */
- struct _ctorDef *next; /* Next in the list. */
-} ctorDef;
-
-
-/* An enumerated type member definition. */
-
-typedef struct _enumMemberDef {
- nameDef *pyname; /* The Python name. */
- char *cname; /* The C/C++ name. */
- struct _enumDef *ed; /* The enclosing enum. */
- struct _enumMemberDef *next; /* Next in the list. */
-} enumMemberDef;
-
-
-/* An enumerated type definition. */
-
-typedef struct _enumDef {
- int enumflags; /* The enum flags. */
- scopedNameDef *fqcname; /* The name (may be NULL). */
- nameDef *pyname; /* The Python name (may be NULL). */
- int enumnr; /* The enum number. */
- struct _classDef *ecd; /* The enclosing class. */
- struct _classDef *pcd; /* The publishing class. */
- moduleDef *module; /* The owning module. */
- enumMemberDef *members; /* The list of members. */
- struct _memberDef *slots; /* The list of slots. */
- struct _overDef *overs; /* The list of slot overloads. */
- struct _enumDef *next; /* Next in the list. */
-} enumDef;
-
-
-/* An member function definition. */
-
-typedef struct _memberDef {
- nameDef *pyname; /* The Python name. */
- int memberflags; /* The member flags. */
- slotType slot; /* The slot type. */
- moduleDef *module; /* The owning module. */
- struct _memberDef *next; /* Next in the list. */
-} memberDef;
-
-
-/* A list of visible member functions. */
-
-typedef struct _visibleList {
- memberDef *m; /* The member definition. */
- struct _classDef *cd; /* The class. */
- struct _visibleList *next; /* Next in the list. */
-} visibleList;
-
-
-/* An entry in a linked class list. */
-
-typedef struct _classList {
- struct _classDef *cd; /* The class itself. */
- struct _classList *next; /* Next in the list. */
-} classList;
-
-
-/* A virtual overload definition. */
-
-typedef struct _virtOverDef {
- overDef o; /* The overload. */
- struct _classDef *scope; /* The overload scope. */
- struct _virtOverDef *next; /* Next in the list. */
-} virtOverDef;
-
-
-/* A class that appears in a class's hierarchy. */
-
-typedef struct _mroDef {
- struct _classDef *cd; /* The class. */
- int mroflags; /* The hierarchy flags. */
- struct _mroDef *next; /* The next in the list. */
-} mroDef;
-
-
-/* A class definition. */
-
-typedef struct _classDef {
- int classflags; /* The class flags. */
- int userflags; /* The user type flags. */
- int classnr; /* The class number. */
- char *pyname; /* The Python name. */
- ifaceFileDef *iff; /* The interface file. */
- struct _classDef *ecd; /* The enclosing scope. */
- struct _classDef *real; /* The real class if this is a proxy or extender. */
- nodeDef *node; /* Position in class tree. */
- classList *supers; /* The parent classes. */
- mroDef *mro; /* The super-class hierarchy. */
- templateDef *td; /* The instantiated template. */
- ctorDef *ctors; /* The constructors. */
- ctorDef *defctor; /* The default ctor. */
- codeBlock *dealloccode; /* Handwritten dealloc code. */
- codeBlock *dtorcode; /* Handwritten dtor code. */
- throwArgs *dtorexceptions; /* The dtor exceptions. */
- memberDef *members; /* The member functions. */
- overDef *overs; /* The overloads. */
- argList *casts; /* The operator casts. */
- virtOverDef *vmembers; /* The virtual members. */
- visibleList *visible; /* The visible members. */
- codeBlock *cppcode; /* Class C++ code. */
- codeBlock *hdrcode; /* Class header code. */
- codeBlock *convtosubcode; /* Convert to sub C++ code. */
- struct _classDef *subbase; /* Sub-class base class. */
- codeBlock *convtocode; /* Convert to C++ code. */
- codeBlock *travcode; /* Traverse code. */
- codeBlock *clearcode; /* Clear code. */
- codeBlock *readbufcode; /* Read buffer code. */
- codeBlock *writebufcode; /* Write buffer code. */
- codeBlock *segcountcode; /* Segment count code. */
- codeBlock *charbufcode; /* Character buffer code. */
- struct _classDef *next; /* Next in the list. */
-} classDef;
-
-
-/* A class template definition. */
-
-typedef struct _classTmplDef {
- signatureDef sig; /* The template arguments. */
- classDef *cd; /* The class itself. */
- struct _classTmplDef *next; /* The next in the list. */
-} classTmplDef;
-
-
-/* A mapped type template definition. */
-
-typedef struct _mappedTypeTmplDef {
- signatureDef sig; /* The template arguments. */
- mappedTypeDef *mt; /* The mapped type itself. */
- struct _mappedTypeTmplDef *next; /* The next in the list. */
-} mappedTypeTmplDef;
-
-
-/* The parse tree corresponding to the specification file. */
-
-typedef struct {
- moduleDef *module; /* This module. */
- moduleDef *modules; /* The list of modules. */
- nameDef *namecache; /* The name cache. */
- ifaceFileDef *ifacefiles; /* The list of interface files. */
- classDef *classes; /* The list of classes. */
- classTmplDef *classtemplates; /* The list of class templates. */
- classDef *proxies; /* The list of proxy classes. */
- exceptionDef *exceptions; /* The list of exceptions. */
- mappedTypeDef *mappedtypes; /* The mapped types. */
- mappedTypeTmplDef *mappedtypetemplates; /* The list of mapped type templates. */
- int qobjclass; /* TQObject class, -1 if none. */
- enumDef *enums; /* List of enums. */
- varDef *vars; /* List of variables. */
- memberDef *othfuncs; /* List of other functions. */
- overDef *overs; /* Global overloads. */
- typedefDef *typedefs; /* List of typedefs. */
- codeBlock *copying; /* Software license. */
- codeBlock *exphdrcode; /* Exported header code. */
- codeBlock *hdrcode; /* Header code. */
- codeBlock *cppcode; /* Global C++ code. */
- codeBlock *docs; /* Documentation. */
- codeBlock *preinitcode; /* Pre-initialisation code. */
- codeBlock *postinitcode; /* Post-initialisation code. */
- codeBlock *unitcode; /* Compilation unit code. */
- ifaceFileList *used; /* Interface files used. */
- int sigslots; /* Set if signals or slots are used. */
- int genc; /* Set if we are generating C code. */
- struct _stringList *options; /* The list of options. */
-} sipSpec;
-
-
-/* A list of strings. */
-
-typedef struct _stringList {
- const char *s; /* The string. */
- struct _stringList *next; /* The next in the list. */
-} stringList;
-
-
-/* File specific context information for the parser. */
-
-typedef struct _parserContext {
- int ifdepth; /* The depth of nested if's. */
- moduleDef *prevmod; /* The previous module. */
-} parserContext;
-
-
-extern char *sipVersion; /* The version of SIP. */
-extern stringList *includeDirList; /* The include directory list for SIP files. */
-
-
-void parse(sipSpec *,FILE *,char *,stringList *,stringList *);
-void parserEOF(char *,parserContext *);
-void transform(sipSpec *);
-void generateCode(sipSpec *,char *,char *,char *,char *,int,int,int,int,stringList *);
-void generateAPI(sipSpec *pt, const char *apiFile);
-void generateXML(sipSpec *pt, const char *xmlFile);
-void generateExpression(valueDef *vd, FILE *fp);
-void warning(char *,...);
-void fatal(char *,...);
-void fatalScopedName(scopedNameDef *);
-void setInputFile(FILE *,char *,parserContext *,int);
-void *sipMalloc(size_t);
-char *sipStrdup(char *);
-char *concat(const char *, ...);
-void append(char **,char *);
-ifaceFileList *addToUsedList(ifaceFileList **, ifaceFileDef *);
-int excludedFeature(stringList *,qualDef *);
-int sameSignature(signatureDef *,signatureDef *,int);
-int sameTemplateSignature(signatureDef *sd1, signatureDef *sd2, int deep);
-int sameScopedName(scopedNameDef *,scopedNameDef *);
-int sameBaseType(argDef *,argDef *);
-char *scopedNameTail(scopedNameDef *);
-scopedNameDef *text2scopePart(char *);
-scopedNameDef *copyScopedName(scopedNameDef *);
-void appendScopedName(scopedNameDef **,scopedNameDef *);
-void freeScopedName(scopedNameDef *);
-void appendToClassList(classList **,classDef *);
-void prcode(FILE *fp, const char *fmt, ...);
-void prOverloadName(FILE *fp, overDef *od);
-void prScopedPythonName(FILE *fp, classDef *scope, const char *pyname);
-void prOverloadDecl(FILE *fp, overDef *od, int defval);
-int isIntReturnSlot(memberDef *md);
-int isLongReturnSlot(memberDef *md);
-int isVoidReturnSlot(memberDef *md);
-int isNumberSlot(memberDef *md);
-int isRichCompareSlot(memberDef *md);
-mappedTypeDef *allocMappedType(argDef *type);
-void appendString(stringList **headp, const char *s);
-void appendTypeStrings(scopedNameDef *ename, signatureDef *patt, signatureDef *src, signatureDef *known, scopedNameDef **names, scopedNameDef **values);
-codeBlock *templateCode(sipSpec *pt, ifaceFileList **used, codeBlock *ocb, scopedNameDef *names, scopedNameDef *values);
-ifaceFileDef *findIfaceFile(sipSpec *pt, moduleDef *mod, scopedNameDef *fqname, ifaceFileType iftype, argDef *ad);
-int optNoEmitters(sipSpec *pt);
-int optRegisterTypes(sipSpec *pt);
-int optQ_OBJECT4(sipSpec *pt);
-void yywarning(char *);
-
-
-/* These are only here because bison publically references them. */
-
-/* Represent a set of option flags. */
-
-#define MAX_NR_FLAGS 5
-
-typedef enum {
- bool_flag,
- string_flag,
- name_flag,
- opt_name_flag,
- integer_flag
-} flagType;
-
-typedef struct {
- char *fname; /* The flag name. */
- flagType ftype; /* The flag type. */
- union { /* The flag value. */
- char *sval; /* A string value. */
- long ival; /* An integer value. */
- } fvalue;
-} optFlag;
-
-typedef struct {
- int nrFlags; /* The number of flags. */
- optFlag flags[MAX_NR_FLAGS]; /* Each flag. */
-} optFlags;
-
-#endif
diff --git a/python/sip/sipgen/sipgen.sbf b/python/sip/sipgen/sipgen.sbf
deleted file mode 100644
index 911b216b..00000000
--- a/python/sip/sipgen/sipgen.sbf
+++ /dev/null
@@ -1,16 +0,0 @@
-# This is the build file for the code generator.
-#
-# Copyright (c) 2007
-# Riverbank Computing Limited <info@riverbankcomputing.co.uk>
-#
-# This file is part of SIP.
-#
-# This copy of SIP is licensed for use under the terms of the SIP License
-# Agreement. See the file LICENSE for more details.
-#
-# SIP is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
-target = sip
-sources = main.c transform.c gencode.c export.c heap.c parser.c lexer.c
-headers = sip.h parser.h
diff --git a/python/sip/sipgen/transform.c b/python/sip/sipgen/transform.c
deleted file mode 100644
index d19fb719..00000000
--- a/python/sip/sipgen/transform.c
+++ /dev/null
@@ -1,2856 +0,0 @@
-/*
- * The parse tree transformation module for SIP.
- *
- * Copyright (c) 2007
- * Riverbank Computing Limited <info@riverbankcomputing.co.uk>
- *
- * This file is part of SIP.
- *
- * This copy of SIP is licensed for use under the terms of the SIP License
- * Agreement. See the file LICENSE for more details.
- *
- * SIP is supplied WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- */
-
-
-#include <stddef.h>
-#include <string.h>
-#include <stdlib.h>
-
-#include "sip.h"
-
-
-static int samePythonSignature(signatureDef *sd1, signatureDef *sd2);
-static int nextSignificantArg(signatureDef *sd, int a);
-static int sameArgType(argDef *a1, argDef *a2, int strict);
-static int supportedType(classDef *,overDef *,argDef *,int);
-static int sameOverload(overDef *od1,overDef *od2);
-static int sameVirtualHandler(virtHandlerDef *vhd1,virtHandlerDef *vhd2);
-static int isSubClass(classDef *cc,classDef *pc);
-static void setAllImports(sipSpec *pt, moduleDef *mod);
-static void addUniqueModule(moduleDef *mod, moduleDef *imp);
-static void ensureInput(classDef *,overDef *,argDef *);
-static void defaultInput(argDef *);
-static void defaultOutput(classDef *,overDef *,argDef *);
-static void assignClassNrs(sipSpec *,moduleDef *,nodeDef *);
-static void assignEnumNrs(sipSpec *pt);
-static void positionClass(classDef *);
-static void addNodeToParent(nodeDef *,classDef *);
-static void addAutoOverload(sipSpec *,classDef *,overDef *);
-static void ifaceFileIsUsed(sipSpec *, ifaceFileDef *, argDef *);
-static void ifaceFilesAreUsed(sipSpec *, ifaceFileDef *, overDef *);
-static void ifaceFilesAreUsedByMethod(sipSpec *, classDef *, memberDef *);
-static void ifaceFilesAreUsedFromOther(sipSpec *pt, signatureDef *sd);
-static void scopeDefaultValue(sipSpec *,classDef *,argDef *);
-static void setHierarchy(sipSpec *,classDef *,classDef *,classList **);
-static void transformCtors(sipSpec *,classDef *);
-static void transformCasts(sipSpec *,classDef *);
-static void addDefaultCopyCtor(classDef *);
-static void transformOverloads(sipSpec *,classDef *,overDef *);
-static void transformVariableList(sipSpec *);
-static void transformMappedTypes(sipSpec *);
-static void getVisibleMembers(sipSpec *,classDef *);
-static void getVirtuals(sipSpec *pt,classDef *cd);
-static void getClassVirtuals(classDef *,classDef *);
-static void transformTypedefs(sipSpec *pt);
-static void resolveMappedTypeTypes(sipSpec *,mappedTypeDef *);
-static void resolveCtorTypes(sipSpec *,classDef *,ctorDef *);
-static void resolveFuncTypes(sipSpec *,moduleDef *,classDef *,overDef *);
-static void resolvePySigTypes(sipSpec *,moduleDef *,classDef *,overDef *,signatureDef *,int);
-static void resolveVariableType(sipSpec *,varDef *);
-static void fatalNoDefinedType(scopedNameDef *);
-static void getBaseType(sipSpec *,moduleDef *,classDef *,argDef *);
-static void searchScope(sipSpec *,classDef *,scopedNameDef *,argDef *);
-static void searchMappedTypes(sipSpec *,scopedNameDef *,argDef *);
-static void searchTypedefs(sipSpec *,scopedNameDef *,argDef *);
-static void searchEnums(sipSpec *,scopedNameDef *,argDef *);
-static void searchClasses(sipSpec *,moduleDef *mod,scopedNameDef *,argDef *);
-static void appendToMRO(mroDef *,mroDef ***,classDef *);
-static void moveClassCasts(sipSpec *pt, classDef *cd);
-static void moveGlobalSlot(sipSpec *pt, memberDef *gmd);
-static void filterVirtualHandlers(moduleDef *mod);
-static ifaceFileDef *getIfaceFile(argDef *ad);
-static mappedTypeDef *instantiateMappedTypeTemplate(sipSpec *pt, moduleDef *mod, mappedTypeTmplDef *mtt, argDef *type);
-static classDef *getProxy(sipSpec *pt, classDef *cd);
-
-
-/*
- * Transform the parse tree.
- */
-
-void transform(sipSpec *pt)
-{
- moduleDef *mod;
- moduleListDef *mld;
- classDef *cd, *rev, **tail;
- classList *newl;
- overDef *od;
- mappedTypeDef *mtd;
- virtHandlerDef *vhd;
- int nr;
-
- if (pt -> module -> name == NULL)
- fatal("No %%Module has been specified for the module\n");
-
- /*
- * The class list has the main module's classes at the front and the
- * ones from the module at the most nested %Import at the end. This
- * affects some of the following algorithms, eg. when assigning class
- * numbers. We have to have consistency whenever a module is used. To
- * achieve this we reverse the order of the classes.
- */
- rev = NULL;
- cd = pt -> classes;
-
- while (cd != NULL)
- {
- classDef *next = cd -> next;
-
- cd -> next = rev;
- rev = cd;
-
- /*
- * Mark any TQObject class. This flag will ripple through all derived
- * classes when we set the hierarchy.
- */
- if (strcmp(classBaseName(cd), "TQObject") == 0)
- setIsQObjectSubClass(cd);
-
- cd = next;
- }
-
- pt -> classes = rev;
-
- /* Build the list of all imports for each module. */
- for (mod = pt->modules; mod != NULL; mod = mod->next)
- setAllImports(pt, mod);
-
- /* Check each class has been defined. */
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- if (cd -> iff -> module == NULL)
- {
- fatalScopedName(classFQCName(cd));
- fatal(" has not been defined\n");
- }
-
- /*
- * Set the super-class hierarchy for each class and re-order the list
- * of classes so that no class appears before a super class or an
- * enclosing scope class.
- */
- newl = NULL;
-
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- setHierarchy(pt,cd,cd,&newl);
-
- /* Replace the old list with the new one. */
- tail = &pt -> classes;
-
- while (newl != NULL)
- {
- classList *cl = newl;
-
- *tail = cl -> cd;
- tail = &cl -> cd -> next;
-
- newl = cl -> next;
- free(cl);
- }
-
- *tail = NULL;
-
- /* Transform typedefs, variables and global functions. */
- transformTypedefs(pt);
- transformVariableList(pt);
- transformOverloads(pt,NULL,pt -> overs);
-
- /* Transform class ctors, functions and casts. */
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- {
- transformCtors(pt,cd);
-
- if (!pt -> genc)
- {
- transformOverloads(pt,cd,cd -> overs);
- transformCasts(pt, cd);
- }
- }
-
- /* Transform mapped types based on templates. */
- transformMappedTypes(pt);
-
- /* Handle default ctors now that the argument types are resolved. */
- if (!pt -> genc)
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- if (!noDefaultCtors(cd) && !isOpaque(cd) && cd->iff->type != namespace_iface)
- addDefaultCopyCtor(cd);
-
- /*
- * Go through each class and add it to it's defining module's tree of
- * classes. The tree reflects the namespace hierarchy.
- */
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- addNodeToParent(&cd -> iff -> module -> root,cd);
-
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- positionClass(cd);
-
- /* Assign module specific class numbers for all modules. */
- for (mod = pt->modules; mod != NULL; mod = mod->next)
- assignClassNrs(pt, mod, &mod->root);
-
- /* Assign module specific enum numbers for all enums. */
- assignEnumNrs(pt);
-
- /* Add any automatically generated methods. */
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- for (od = cd -> overs; od != NULL; od = od -> next)
- if (isAutoGen(od))
- addAutoOverload(pt,cd,od);
-
- /* Allocate mapped types numbers. */
- for (mtd = pt -> mappedtypes; mtd != NULL; mtd = mtd -> next)
- mtd -> mappednr = mtd -> iff -> module -> nrmappedtypes++;
-
- /*
- * Move casts and slots around to their correct classes (if in the same
- * module) or create proxies for them (if cross-module).
- */
- if (!pt -> genc)
- {
- memberDef *md;
-
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- if (cd->iff->module == pt->module)
- moveClassCasts(pt, cd);
-
- for (md = pt->othfuncs; md != NULL; md = md->next)
- if (md->slot != no_slot && md->module == pt->module)
- moveGlobalSlot(pt, md);
- }
-
- /* Generate the different class views. */
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- {
- ifaceFileDef *iff = cd -> iff;
-
- if (iff -> type == class_iface)
- {
- /* Get the list of visible member functions. */
- getVisibleMembers(pt,cd);
-
- /* Get the virtual members. */
- if (hasShadow(cd))
- getVirtuals(pt,cd);
- }
- else if (iff -> type == namespace_iface && iff -> module == pt -> module)
- {
- memberDef *md;
-
- for (md = cd -> members; md != NULL; md = md -> next)
- ifaceFilesAreUsedByMethod(pt, cd, md);
- }
- }
-
- /*
- * In case there are any global functions that need external interface
- * files.
- */
- for (od = pt -> overs; od != NULL; od = od -> next)
- if (od->common->module == pt->module)
- ifaceFilesAreUsedFromOther(pt, &od->pysig);
-
- /*
- * Remove redundant virtual handlers. It's important that earlier,
- * ie. those at the deepest level of %Import, are done first.
- */
- nr = 0;
-
- for (mld = pt->module->allimports; mld != NULL; mld = mld->next)
- {
- mld->module->modulenr = nr++;
- filterVirtualHandlers(mld->module);
- }
-
- pt->module->modulenr = nr;
- filterVirtualHandlers(pt->module);
-
- /*
- * Make sure we have the interface files for all types from other modules
- * that are used in virtual handlers implemented in this module.
- */
- for (vhd = pt->module->virthandlers; vhd != NULL; vhd = vhd->next)
- if (!isDuplicateVH(vhd))
- ifaceFilesAreUsedFromOther(pt, vhd->cppsig);
-
- /* Update proxies with some information from the real classes. */
- for (cd = pt->proxies; cd != NULL; cd = cd->next)
- cd->classnr = cd->real->classnr;
-}
-
-
-/*
- * Set the list of all imports for a module. The list is ordered so that a
- * module appears before any module that imports it.
- */
-static void setAllImports(sipSpec *pt, moduleDef *mod)
-{
- moduleListDef *mld;
-
- /*
- * Handle the trivial case where there are no imports, or the list has
- * already been done.
- */
- if (mod->imports == NULL || mod->allimports != NULL)
- return;
-
- /* Make sure all the direct imports are done first. */
- for (mld = mod->imports; mld != NULL; mld = mld->next)
- setAllImports(pt, mld->module);
-
- /*
- * Now build the list from our direct imports lists but ignoring
- * duplicates.
- */
- for (mld = mod->imports; mld != NULL; mld = mld->next)
- {
- moduleListDef *amld;
-
- for (amld = mld->module->allimports; amld != NULL; amld = amld->next)
- addUniqueModule(mod, amld->module);
-
- addUniqueModule(mod, mld->module);
- }
-}
-
-
-/*
- * Append a module to the list of all imported modules if it isn't already
- * there.
- */
-static void addUniqueModule(moduleDef *mod, moduleDef *imp)
-{
- moduleListDef **tail;
-
- for (tail = &mod->allimports; *tail != NULL; tail = &(*tail)->next)
- if ((*tail)->module == imp)
- return;
-
- *tail = sipMalloc(sizeof (moduleListDef));
-
- (*tail)->module = imp;
- (*tail)->next = NULL;
-}
-
-
-/*
- * Move any class casts to its correct class, or publish as a ctor extender.
- */
-static void moveClassCasts(sipSpec *pt, classDef *cd)
-{
- argList *al;
-
- for (al = cd->casts; al != NULL; al = al->next)
- {
- classDef *dcd = al->arg.u.cd;
- ctorDef *ct, **ctp;
- argDef *ad;
-
- /*
- * If the destination class is in a different module then use
- * a proxy.
- */
- if (dcd->iff->module != pt->module)
- dcd = getProxy(pt, dcd);
-
- /* Create the new ctor. */
- ct = sipMalloc(sizeof (ctorDef));
-
- ct->ctorflags = SECT_IS_PUBLIC | CTOR_CAST;
- ct->cppsig = &ct->pysig;
- ct->exceptions = NULL;
- ct->methodcode = NULL;
- ct->prehook = NULL;
- ct->posthook = NULL;
- ct->next = NULL;
-
- /* Add the source class as the only argument. */
- ad = &ct->pysig.args[0];
-
- ad->atype = class_type;
- ad->name = NULL;
- ad->argflags = ARG_IN | (al->arg.argflags & (ARG_IS_REF | ARG_IS_CONST));
- ad->nrderefs = al->arg.nrderefs;
- ad->defval = NULL;
- ad->u.cd = cd;
-
- ifaceFileIsUsed(pt, dcd->iff, ad);
-
- ct->pysig.nrArgs = 1;
-
- /* Append it to the list. */
- for (ctp = &dcd->ctors; *ctp != NULL; ctp = &(*ctp)->next)
- if (sameSignature(&(*ctp)->pysig, &ct->pysig, FALSE))
- {
- fatal("operator ");
- fatalScopedName(classFQCName(dcd));
- fatal("::");
- fatalScopedName(classFQCName(dcd));
- fatal("(");
- fatalScopedName(classFQCName(cd));
- fatal(") already defined\n");
- }
-
- *ctp = ct;
- }
-}
-
-
-/*
- * If possible, move a global slot to its correct class.
- */
-static void moveGlobalSlot(sipSpec *pt, memberDef *gmd)
-{
- overDef **odp = &pt->overs, *od;
-
- while ((od = *odp) != NULL)
- {
- int second;
- argDef *arg0, *arg1;
- memberDef *md, **mdhead;
- overDef **odhead;
- moduleDef *mod;
- nameDef *nd;
-
- if (od->common != gmd)
- {
- odp = &od->next;
- continue;
- }
-
- /*
- * We know that the slot has the right number of arguments, but the
- * first or second one needs to be a class or enum defined in the same
- * module. Otherwise we leave it as it is and publish it as a slot
- * extender.
- */
- arg0 = &od->pysig.args[0];
- arg1 = &od->pysig.args[1];
-
- second = FALSE;
- nd = NULL;
-
- if (arg0->atype == class_type)
- {
- mdhead = &arg0->u.cd->members;
- odhead = &arg0->u.cd->overs;
- mod = arg0->u.cd->iff->module;
- }
- else if (arg0->atype == enum_type)
- {
- mdhead = &arg0->u.ed->slots;
- odhead = &arg0->u.ed->overs;
- mod = arg0->u.ed->module;
- nd = arg0->u.ed->pyname;
- }
- else if (arg1->atype == class_type)
- {
- mdhead = &arg1->u.cd->members;
- odhead = &arg1->u.cd->overs;
- mod = arg1->u.cd->iff->module;
- second = TRUE;
- }
- else if (arg1->atype == enum_type)
- {
- mdhead = &arg1->u.ed->slots;
- odhead = &arg1->u.ed->overs;
- mod = arg1->u.ed->module;
- nd = arg1->u.ed->pyname;
- second = TRUE;
- }
- else
- {
- fatal("One of the arguments of ");
- prOverloadName(stderr, od);
- fatal(" must be a class or enum\n");
- }
-
- /*
- * For rich comparisons the first argument must be a class or
- * an enum. For cross-module slots then it may only be a
- * class. (This latter limitation is artificial, but is
- * unlikely to be a problem in practice.)
- */
- if (isRichCompareSlot(gmd))
- {
- if (second)
- {
- fatal("The first argument of ");
- prOverloadName(stderr, od);
- fatal(" must be a class or enum\n");
- }
-
- if (mod != gmd->module && arg0->atype == enum_type)
- {
- fatal("The first argument of ");
- prOverloadName(stderr, od);
- fatal(" must be a class\n");
- }
- }
-
- if (mod != gmd->module)
- {
- if (isRichCompareSlot(gmd))
- {
- classDef *pcd = getProxy(pt, arg0->u.cd);
- memberDef *pmd;
- overDef *pod;
-
- /* Create a new proxy member if needed. */
- for (pmd = pcd->members; pmd != NULL; pmd = pmd->next)
- if (pmd->slot == gmd->slot)
- break;
-
- if (pmd == NULL)
- {
- pmd = sipMalloc(sizeof (memberDef));
-
- pmd->pyname = gmd->pyname;
- pmd->memberflags = 0;
- pmd->slot = gmd->slot;
- pmd->module = mod;
- pmd->next = pcd->members;
-
- pcd->members = pmd;
- }
-
- /* Add the proxy overload. */
- pod = sipMalloc(sizeof (overDef));
-
- *pod = *od;
- pod->common = pmd;
- pod->next = pcd->overs;
-
- pcd->overs = pod;
-
- /* Remove the first argument. */
- pod->pysig.args[0] = pod->pysig.args[1];
- pod->pysig.nrArgs = 1;
-
- /* Remove from the list. */
- *odp = od->next;
- }
- else
- odp = &od->next;
-
- continue;
- }
-
- /* Remove from the list. */
- *odp = od->next;
-
- /*
- * The only time we need the name of an enum is when it has
- * slots.
- */
- if (nd != NULL)
- setIsUsedName(nd);
-
- /* See if there is already a member or create a new one. */
- for (md = *mdhead; md != NULL; md = md->next)
- if (md->slot == gmd->slot)
- break;
-
- if (md == NULL)
- {
- md = sipMalloc(sizeof (memberDef));
-
- *md = *gmd;
-
- md->module = mod;
- md->next = *mdhead;
-
- *mdhead = md;
- }
-
- /* Move the overload. */
- setIsPublic(od);
- od->common = md;
- od->next = *odhead;
-
- *odhead = od;
-
- /* Remove the first argument of comparison operators. */
- if (isRichCompareSlot(md))
- {
- /* Remember if the argument was a pointer. */
- if (arg0->nrderefs > 0)
- setDontDerefSelf(od);
-
- *arg0 = *arg1;
- od->pysig.nrArgs = 1;
- }
- }
-}
-
-
-/*
- * Create a proxy for a class if it doesn't already exist. Proxies are used as
- * containers for cross-module extenders.
- */
-static classDef *getProxy(sipSpec *pt, classDef *cd)
-{
- classDef *pcd;
-
- for (pcd = pt->proxies; pcd != NULL; pcd = pcd->next)
- if (pcd->iff == cd->iff)
- return pcd;
-
- pcd = sipMalloc(sizeof (classDef));
-
- pcd->classflags = 0;
- pcd->userflags = 0;
- pcd->classnr = -1;
- pcd->pyname = cd->pyname;
- pcd->iff = cd->iff;
- pcd->ecd = cd->ecd;
- pcd->real = cd;
- pcd->node = NULL;
- pcd->supers = cd->supers;
- pcd->mro = cd->mro;
- pcd->td = NULL;
- pcd->ctors = NULL;
- pcd->defctor = NULL;
- pcd->dealloccode = NULL;
- pcd->dtorcode = NULL;
- pcd->dtorexceptions = NULL;
- pcd->members = NULL;
- pcd->overs = NULL;
- pcd->casts = NULL;
- pcd->vmembers = NULL;
- pcd->visible = NULL;
- pcd->cppcode = NULL;
- pcd->hdrcode = NULL;
- pcd->convtosubcode = NULL;
- pcd->subbase = NULL;
- pcd->convtocode = NULL;
- pcd->travcode = NULL;
- pcd->clearcode = NULL;
- pcd->readbufcode = NULL;
- pcd->writebufcode = NULL;
- pcd->segcountcode = NULL;
- pcd->charbufcode = NULL;
- pcd->next = pt->proxies;
-
- pt->proxies = pcd;
-
- return pcd;
-}
-
-
-/*
- * Go through the virtual handlers filtering those that can duplicate earlier
- * ones. Make sure each virtual is numbered within its module, and according
- * to their position in the list (ignoring duplicates).
- */
-static void filterVirtualHandlers(moduleDef *mod)
-{
- virtHandlerDef *vhd;
-
- for (vhd = mod->virthandlers; vhd != NULL; vhd = vhd->next)
- {
- virtHandlerDef *best, *best_thismod, *hd;
-
- best = best_thismod = NULL;
-
- /*
- * If this has handwritten code then we will want to use it.
- * Otherwise, look for a handler in earlier modules.
- */
- if (vhd->virtcode == NULL)
- {
- moduleListDef *mld;
-
- for (mld = mod->allimports; mld != NULL && mld->module != mod; mld = mld->next)
- {
- for (hd = mld->module->virthandlers; hd != NULL; hd = hd->next)
- if (sameVirtualHandler(vhd, hd))
- {
- best = hd;
- break;
- }
-
- /*
- * No need to check later modules as this will either be the
- * right one, or a duplicate of the right one.
- */
- if (best != NULL)
- break;
- }
- }
-
- /*
- * Find the best candidate in this module in case we want to give it
- * our handwritten code.
- */
- for (hd = mod->virthandlers; hd != vhd; hd = hd->next)
- if (sameVirtualHandler(vhd, hd))
- {
- best_thismod = hd;
- break;
- }
-
- /*
- * We don't use this one if it doesn't have virtual code and there is
- * an alternative, or if it does have virtual code and there is already
- * an alternative in the same module which doesn't have virtual code.
- */
- if ((vhd->virtcode == NULL && (best != NULL || best_thismod != NULL)) ||
- (vhd->virtcode != NULL && best_thismod != NULL && best_thismod->virtcode == NULL))
- {
- virtHandlerDef *saved;
-
- /*
- * If the alternative is in the same module and we have virtual
- * code then give it to the alternative. Note that there is a bug
- * here. If there are three handlers, the first without code and
- * the second and third with code then which code is transfered to
- * the first is down to luck. We should really only transfer code
- * to methods that are known to be re-implementations - just having
- * the same signature isn't enough.
- */
- if (best_thismod != NULL)
- {
- if (best_thismod->virtcode == NULL && vhd->virtcode != NULL)
- {
- best_thismod->virtcode = vhd->virtcode;
- resetIsDuplicateVH(best_thismod);
- }
-
- best = best_thismod;
- }
-
- /* Use the better one in place of this one. */
- saved = vhd->next;
- *vhd = *best;
- setIsDuplicateVH(vhd);
- vhd->next = saved;
- }
- else
- vhd->virthandlernr = mod->nrvirthandlers++;
- }
-}
-
-
-/*
- * Add an overload that is automatically generated (typically by Qt's moc).
- */
-static void addAutoOverload(sipSpec *pt,classDef *autocd,overDef *autood)
-{
- classDef *cd;
-
- /* Find every class that has this one in its hierarchy. */
-
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- {
- mroDef *mro;
-
- if (cd == autocd)
- continue;
-
- for (mro = cd -> mro; mro != NULL; mro = mro -> next)
- if (mro -> cd == autocd)
- {
- memberDef *md;
- overDef *od;
-
- /* Another overload may already exist. */
-
- for (md = cd -> members; md != NULL; md = md -> next)
- if (md -> pyname == autood -> common -> pyname)
- break;
-
- if (md == NULL)
- {
- md = sipMalloc(sizeof (memberDef));
-
- md -> pyname = autood -> common -> pyname;
- md -> memberflags = autood -> common -> memberflags;
- md -> slot = autood -> common -> slot;
- md -> module = cd -> iff -> module;
- md -> next = cd -> members;
- cd -> members = md;
- }
-
- od = sipMalloc(sizeof (overDef));
-
- *od = *autood;
- od -> common = md;
- od -> next = cd -> overs;
- cd -> overs = od;
-
- resetIsAutoGen(od);
-
- if (cd -> iff -> module == pt -> module)
- setIsUsedName(md -> pyname);
-
- break;
- }
- }
-}
-
-
-/*
- * Set the complete hierarchy for a class.
- */
-static void setHierarchy(sipSpec *pt,classDef *base,classDef *cd,
- classList **head)
-{
- mroDef **tailp = &cd -> mro;
-
- /* See if it has already been done. */
- if (cd -> mro != NULL)
- return;
-
- if (cd -> ecd != NULL)
- setHierarchy(pt,base,cd -> ecd,head);
-
- if (cd -> iff -> type == class_iface)
- {
- classList *cl;
-
- /* The first thing is itself. */
- appendToMRO(cd -> mro,&tailp,cd);
-
- if (cd -> convtosubcode != NULL)
- cd -> subbase = cd;
-
- /* Now do it's superclasses. */
- for (cl = cd -> supers; cl != NULL; cl = cl -> next)
- {
- mroDef *mro;
-
- /*
- * Make sure the super-class's hierarchy has been done.
- */
- setHierarchy(pt,base,cl -> cd,head);
-
- /* Append the super-classes hierarchy. */
- for (mro = cl -> cd -> mro; mro != NULL; mro = mro -> next)
- {
- appendToMRO(cd -> mro,&tailp,mro -> cd);
-
- /*
- * If the super-class is a TQObject sub-class then this one is
- * as well.
- */
- if (isQObjectSubClass(mro->cd))
- setIsQObjectSubClass(cd);
-
- /*
- * If the super-class has a shadow then this one should have
- * one as well.
- */
- if (hasShadow(mro->cd))
- setHasShadow(cd);
-
- /*
- * Ensure that the sub-class base class is the furthest up the
- * hierarchy.
- */
- if (mro->cd->subbase != NULL)
- cd->subbase = mro->cd->subbase;
- }
- }
- }
-
- /*
- * We can't have a shadow if the specification is incomplete, there is
- * a private dtor, there are no none-private ctors or there are private
- * abstract methods.
- */
- if (isIncomplete(cd) || isPrivateDtor(cd) || !canCreate(cd))
- resetHasShadow(cd);
- else
- {
- overDef *od;
-
- /*
- * Note that we should be able to provide better support for
- * abstract private methods than we do at the moment.
- */
- for (od = cd->overs; od != NULL; od = od->next)
- if (isAbstract(od) && isPrivate(od))
- {
- resetHasShadow(cd);
-
- /*
- * It also means we cannot create an instance
- * from Python.
- */
- resetCanCreate(cd);
-
- break;
- }
- }
-
- /* Add it to the new list. */
- appendToClassList(head,cd);
-}
-
-
-/*
- * Append a class definition to an mro list
- */
-static void appendToMRO(mroDef *head,mroDef ***tailp,classDef *cd)
-{
- mroDef *mro, *new;
-
- new = sipMalloc(sizeof (mroDef));
-
- new -> cd = cd;
- new -> mroflags = 0;
- new -> next = NULL;
-
- /* See if it is a duplicate. */
-
- for (mro = head; mro != NULL; mro = mro -> next)
- if (mro -> cd == cd)
- {
- setIsDuplicateSuper(new);
-
- if (!isDuplicateSuper(mro))
- setHasDuplicateSuper(mro);
-
- break;
- }
-
- /* Append to the list and update the tail pointer. */
- **tailp = new;
- *tailp = &new -> next;
-}
-
-
-/*
- * Get the base types for all typedefs.
- */
-static void transformTypedefs(sipSpec *pt)
-{
- typedefDef *td;
-
- for (td = pt -> typedefs; td != NULL; td = td -> next)
- getBaseType(pt, td->module, td -> ecd, &td -> type);
-}
-
-
-/*
- * Transform the data types for mapped types based on a template.
- */
-static void transformMappedTypes(sipSpec *pt)
-{
- mappedTypeDef *mt;
-
- for (mt = pt -> mappedtypes; mt != NULL; mt = mt -> next)
- {
- /* Nothing to do if this isn't template based. */
-
- if (mt -> type.atype == template_type)
- resolveMappedTypeTypes(pt,mt);
- }
-}
-
-
-/*
- * Transform the data types for a list of ctors.
- */
-static void transformCtors(sipSpec *pt, classDef *cd)
-{
- ctorDef *ct;
-
- for (ct = cd->ctors; ct != NULL; ct = ct->next)
- {
- ctorDef *prev;
-
- resolveCtorTypes(pt, cd, ct);
-
- /*
- * Now check that the Python signature doesn't conflict with an
- * earlier one.
- */
- for (prev = cd->ctors; prev != ct; prev = prev->next)
- if (samePythonSignature(&prev->pysig, &ct->pysig))
- {
- fatalScopedName(classFQCName(cd));
- fatal(" has ctors with the same Python signature\n");
- }
- }
-}
-
-
-/*
- * Transform the data type for a list of casts.
- */
-static void transformCasts(sipSpec *pt, classDef *cd)
-{
- argList *al;
-
- for (al = cd->casts; al != NULL; al = al->next)
- {
- getBaseType(pt, cd->iff->module, cd, &al->arg);
-
- if (al->arg.atype != class_type)
- {
- fatalScopedName(classFQCName(cd));
- fatal(" operator cast must be to a class\n");
- }
- }
-}
-
-
-/*
- * Add a default copy ctor is required.
- */
-static void addDefaultCopyCtor(classDef *cd)
-{
- ctorDef *copyct;
- mroDef *mro;
-
- /* See if there is a private copy ctor in the hierarchy. */
-
- copyct = NULL;
-
- for (mro = cd -> mro; mro != NULL; mro = mro -> next)
- {
- ctorDef *ct;
-
- if (isDuplicateSuper(mro))
- continue;
-
- for (ct = mro -> cd -> ctors; ct != NULL; ct = ct -> next)
- {
- argDef *ad = &ct -> pysig.args[0];
-
- /* See if is a copy ctor. */
- if (ct -> pysig.nrArgs != 1 || ad -> nrderefs != 0 ||
- !isReference(ad) || ad -> atype != class_type ||
- ad -> u.cd != mro -> cd)
- continue;
-
- /* Stop now if the copy ctor is private. */
- if (isPrivateCtor(ct))
- return;
-
- /*
- * Remember if it's in the class we are dealing with.
- */
- if (mro == cd -> mro)
- copyct = ct;
-
- break;
- }
- }
-
- if (copyct == NULL)
- {
- ctorDef **tailp;
-
- /* Create a default public copy ctor. */
-
- copyct = sipMalloc(sizeof (ctorDef));
-
- copyct -> ctorflags = SECT_IS_PUBLIC;
- copyct -> pysig.nrArgs = 1;
- copyct -> pysig.args[0].name = "other";
- copyct -> pysig.args[0].atype = class_type;
- copyct -> pysig.args[0].u.cd = cd;
- copyct -> pysig.args[0].argflags = (ARG_IS_REF | ARG_IS_CONST | ARG_IN);
- copyct -> pysig.args[0].nrderefs = 0;
- copyct -> pysig.args[0].defval = NULL;
-
- copyct -> cppsig = &copyct -> pysig;
- copyct -> exceptions = NULL;
- copyct -> methodcode = NULL;
- copyct -> prehook = NULL;
- copyct -> posthook = NULL;
- copyct -> next = NULL;
-
- /* Append it to the list. */
- for (tailp = &cd -> ctors; *tailp != NULL; tailp = &(*tailp) -> next)
- ;
-
- *tailp = copyct;
- }
-}
-
-
-/*
- * Transform the data types for a list of overloads.
- */
-static void transformOverloads(sipSpec *pt, classDef *scope, overDef *overs)
-{
- overDef *od;
-
- for (od = overs; od != NULL; od = od -> next)
- {
- overDef *prev;
-
- resolveFuncTypes(pt, od->common->module, scope, od);
-
- /*
- * Now check that the Python signature doesn't conflict with an
- * earlier one.
- */
- for (prev = overs; prev != od; prev = prev->next)
- {
- if (prev->common != od->common)
- continue;
-
- if (samePythonSignature(&prev->pysig, &od->pysig))
- {
- if (scope != NULL)
- {
- fatalScopedName(classFQCName(scope));
- fatal("::");
- }
-
- fatal("%s() has overloaded functions with the same Python signature\n", od->common->pyname->text);
- }
- }
- }
-}
-
-
-/*
- * Transform the data types for the variables.
- */
-static void transformVariableList(sipSpec *pt)
-{
- varDef *vd;
-
- for (vd = pt -> vars; vd != NULL; vd = vd -> next)
- resolveVariableType(pt,vd);
-}
-
-
-/*
- * Set the list of visible member functions for a class.
- */
-static void getVisibleMembers(sipSpec *pt,classDef *cd)
-{
- mroDef *mro;
-
- cd -> visible = NULL;
-
- for (mro = cd -> mro; mro != NULL; mro = mro -> next)
- {
- memberDef *md;
- classDef *mrocd;
-
- if (isDuplicateSuper(mro))
- continue;
-
- mrocd = mro -> cd;
-
- /*
- * If the base class is in the main module, see if it needs to
- * publish any protected enums.
- */
- if (cd -> iff -> module == pt -> module)
- {
- enumDef *ed;
-
- for (ed = pt -> enums; ed != NULL; ed = ed -> next)
- {
- /* Skip unless we are the publisher. */
- if (ed -> pcd != mrocd)
- continue;
-
- /*
- * If we are not in the main module then the
- * base class must take over as the publisher.
- */
- if (mrocd -> iff -> module != pt -> module)
- ed -> pcd = cd;
- }
- }
-
- for (md = mrocd -> members; md != NULL; md = md -> next)
- {
- visibleList *vl;
-
- /*
- * See if it is already in the list. This has the desired side
- * effect of eliminating any functions that have an implementation
- * closer to this class in the hierarchy. This is the only reason
- * to define private functions.
- */
- for (vl = cd->visible; vl != NULL; vl = vl->next)
- if (vl->m->pyname == md->pyname)
- break;
-
- /* See if it is a new member function. */
-
- if (vl == NULL)
- {
- overDef *od;
-
- vl = sipMalloc(sizeof (visibleList));
-
- vl -> m = md;
- vl -> cd = mrocd;
- vl -> next = cd -> visible;
-
- addToUsedList(&cd->iff->used, mrocd->iff);
-
- cd -> visible = vl;
-
- for (od = mrocd -> overs; od != NULL; od = od -> next)
- if (od -> common == md)
- {
- if (isAbstract(od))
- setIsAbstractClass(cd);
-
- ifaceFilesAreUsed(pt, cd->iff, od);
-
- /* See if we need the name. */
- if (cd->iff->module != pt->module)
- continue;
-
- if (isProtected(od) || (isSignal(od) && !optNoEmitters(pt)))
- setIsUsedName(md->pyname);
- }
- }
- }
- }
-}
-
-
-/*
- * Get all the virtuals for a particular class.
- */
-static void getVirtuals(sipSpec *pt,classDef *cd)
-{
- mroDef *mro;
- virtOverDef *vod;
-
- for (mro = cd -> mro; mro != NULL; mro = mro -> next)
- {
- if (isDuplicateSuper(mro))
- continue;
-
- getClassVirtuals(cd,mro -> cd);
- }
-
- /*
- * Identify any re-implementations of virtuals. We have to do this for
- * all classes, not just those in the main module.
- */
- for (vod = cd -> vmembers; vod != NULL; vod = vod -> next)
- {
- overDef *od;
-
- for (od = cd->overs; od != NULL; od = od->next)
- {
- if (isVirtual(od))
- continue;
-
- if (strcmp(vod->o.cppname, od->cppname) == 0 && sameOverload(&vod->o, od))
- {
- setIsVirtualReimp(od);
- break;
- }
- }
-
- /*
- * If this class is defined in the main module make sure we get
- * the API files for all the visible virtuals.
- */
- if (cd->iff->module == pt->module)
- {
- /* Make sure we get the name. */
- setIsUsedName(vod -> o.common -> pyname);
-
- ifaceFilesAreUsed(pt, cd->iff, &vod -> o);
- }
- }
-}
-
-
-/*
- * Get the list of visible virtual functions for a class.
- */
-static void getClassVirtuals(classDef *base,classDef *cd)
-{
- overDef *od;
-
- for (od = cd -> overs; od != NULL; od = od -> next)
- {
- virtOverDef **tailp, *vod;
-
- if (!isVirtual(od) || isPrivate(od))
- continue;
-
- /*
- * See if a virtual of this name and signature is already in
- * the list.
- */
- for (tailp = &base -> vmembers; (vod = *tailp) != NULL; tailp = &vod -> next)
- if (strcmp(vod -> o.cppname,od -> cppname) == 0 && sameOverload(&vod -> o,od))
- break;
-
- if (vod == NULL)
- {
- /*
- * See if there is a non-virtual reimplementation
- * nearer in the class hierarchy.
- */
-
- mroDef *mro;
- classDef *scope = NULL;
- overDef *eod;
-
- for (mro = base -> mro; mro -> cd != cd; mro = mro -> next)
- {
- if (isDuplicateSuper(mro))
- continue;
-
- /*
- * Ignore classes that are on a different
- * branch of the class hierarchy.
- */
- if (!isSubClass(mro -> cd,cd))
- continue;
-
- for (eod = mro -> cd -> overs; eod != NULL; eod = eod -> next)
- if (strcmp(eod -> cppname,od -> cppname) == 0 && sameSignature(eod -> cppsig,od -> cppsig,TRUE) && isConst(eod) == isConst(od) && !isAbstract(eod))
- {
- scope = mro -> cd;
- break;
- }
-
- if (scope != NULL)
- break;
- }
-
- vod = sipMalloc(sizeof (virtOverDef));
-
- vod -> o = *od;
- vod -> scope = (scope != NULL ? scope : cd);
- vod -> next = NULL;
-
- *tailp = vod;
-
- /*
- * If there was a nearer reimplementation then we use
- * its protection and abstract flags.
- */
- if (scope != NULL)
- {
- vod -> o.overflags &= ~(SECT_MASK | OVER_IS_ABSTRACT);
- vod -> o.overflags |= (SECT_MASK | OVER_IS_ABSTRACT) & eod -> overflags;
- }
- }
- }
-}
-
-
-/*
- * Return TRUE is a class is derived from another.
- */
-static int isSubClass(classDef *cc,classDef *pc)
-{
- mroDef *mro;
-
- /*
- * In other words, does the parent class appear in the child class's
- * MRO list.
- */
- for (mro = cc -> mro; mro != NULL; mro = mro -> next)
- if (mro -> cd == pc)
- return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Resolve the types of a mapped type based on a template.
- */
-static void resolveMappedTypeTypes(sipSpec *pt,mappedTypeDef *mt)
-{
- int a;
- templateDef *td = mt -> type.u.td;
-
- for (a = 0; a < td -> types.nrArgs; ++a)
- {
- getBaseType(pt, mt->iff->module, NULL, &td->types.args[a]);
-
- ifaceFileIsUsed(pt, mt->iff, &td->types.args[a]);
- }
-}
-
-
-/*
- * Resolve the types of a ctor.
- */
-static void resolveCtorTypes(sipSpec *pt,classDef *scope,ctorDef *ct)
-{
- int a;
-
- /* Handle any C++ signature. */
- if (ct->cppsig != NULL && ct->cppsig != &ct->pysig)
- for (a = 0; a < ct -> cppsig -> nrArgs; ++a)
- getBaseType(pt, scope->iff->module, scope, &ct->cppsig->args[a]);
-
- /* Handle the Python signature. */
- for (a = 0; a < ct -> pysig.nrArgs; ++a)
- {
- argDef *ad = &ct -> pysig.args[a];
-
- getBaseType(pt, scope->iff->module, scope, ad);
-
- if (!supportedType(scope,NULL,ad,FALSE) && (ct -> cppsig == &ct -> pysig || ct -> methodcode == NULL))
- {
- fatalScopedName(classFQCName(scope));
- fatal(" unsupported ctor argument type - provide %%MethodCode and a C++ signature\n");
- }
-
- ifaceFileIsUsed(pt, scope->iff, ad);
- scopeDefaultValue(pt,scope,ad);
- }
-}
-
-
-/*
- * Resolve the types of a function.
- */
-static void resolveFuncTypes(sipSpec *pt, moduleDef *mod, classDef *scope, overDef *od)
-{
- argDef *res;
-
- /* Handle any C++ signature. */
- if (od -> cppsig != &od -> pysig)
- {
- int a;
-
- getBaseType(pt,mod, scope, &od->cppsig->result);
-
- for (a = 0; a < od -> cppsig -> nrArgs; ++a)
- getBaseType(pt, mod, scope, &od->cppsig->args[a]);
- }
-
- /* Handle the Python signature. */
- resolvePySigTypes(pt, mod, scope, od, &od->pysig,isSignal(od));
-
- /* These slots must return int. */
- res = &od -> pysig.result;
-
- if (isIntReturnSlot(od->common))
- if (res -> atype != int_type || res -> nrderefs != 0 ||
- isReference(res) || isConstArg(res))
- fatal("%s slots must return int\n",od -> common -> pyname -> text);
-
- /* These slots must return void. */
- if (isVoidReturnSlot(od -> common))
- if (res -> atype != void_type || res -> nrderefs != 0 ||
- isReference(res) || isConstArg(res))
- fatal("%s slots must return void\n",od -> common -> pyname -> text);
-
- /* These slots must return long. */
- if (isLongReturnSlot(od->common))
- if (res->atype != long_type || res->nrderefs != 0 ||
- isReference(res) || isConstArg(res))
- fatal("%s slots must return long\n", od->common->pyname->text);
-}
-
-
-/*
- * Resolve the types of a Python signature.
- */
-static void resolvePySigTypes(sipSpec *pt, moduleDef *mod, classDef *scope,
- overDef *od, signatureDef *pysig, int issignal)
-{
- int a;
- argDef *res = &pysig -> result;
-
- if (res -> atype != void_type || res -> nrderefs != 0)
- {
- if (issignal)
- {
- if (scope != NULL)
- {
- fatalScopedName(classFQCName(scope));
- fatal("::");
- }
-
- fatal("%s() signals must return void\n",od -> cppname);
- }
-
- getBaseType(pt, mod, scope, res);
-
- /* Results must be simple. */
- if (!supportedType(scope,od,res,FALSE) && (od -> cppsig == &od -> pysig || od -> methodcode == NULL))
- {
- if (scope != NULL)
- {
- fatalScopedName(classFQCName(scope));
- fatal("::");
- }
-
- fatal("%s() unsupported function return type - provide %%MethodCode and a %s signature\n",od -> cppname,(pt -> genc ? "C" : "C++"));
- }
- }
-
- for (a = 0; a < pysig -> nrArgs; ++a)
- {
- argDef *ad = &pysig -> args[a];
-
- getBaseType(pt, mod, scope, ad);
-
- if (ad -> atype == slotcon_type)
- resolvePySigTypes(pt, mod, scope, od, ad->u.sa, TRUE);
-
- /*
- * Note signal arguments are restricted in their types because we don't
- * (yet) support handwritten code for them.
- */
- if (issignal)
- {
- if (!supportedType(scope,od,ad,FALSE))
- {
- if (scope != NULL)
- {
- fatalScopedName(classFQCName(scope));
- fatal("::");
- }
-
- fatal("%s() unsupported signal argument type\n");
- }
- }
- else if (!supportedType(scope,od,ad,TRUE) && (od -> cppsig == &od -> pysig || od -> methodcode == NULL || (isVirtual(od) && od -> virthandler -> virtcode == NULL)))
- {
- if (scope != NULL)
- {
- fatalScopedName(classFQCName(scope));
- fatal("::");
- }
-
- if (isVirtual(od))
- fatal("%s() unsupported function argument type - provide %%Method code, a valid %%VirtualCatcherCode and a valid C++ signature\n",od -> cppname);
-
- fatal("%s() unsupported function argument type - provide %%Method code and a valid %s signature\n",od -> cppname,(pt -> genc ? "C" : "C++"));
- }
-
- if (scope != NULL)
- scopeDefaultValue(pt,scope,ad);
- }
-}
-
-
-/*
- * Resolve the type of a variable.
- */
-static void resolveVariableType(sipSpec *pt,varDef *vd)
-{
- int bad = TRUE;
- argDef *vtype = &vd -> type;
-
- getBaseType(pt, vd->module, vd->ecd, vtype);
-
- switch (vtype -> atype)
- {
- case mapped_type:
- case class_type:
- /* Class, Class & and Class * are supported. */
-
- if (vtype -> nrderefs <= 1)
- bad = FALSE;
- break;
-
- case sstring_type:
- case ustring_type:
- case string_type:
- case wstring_type:
- /*
- * (signed/unsigned) char, (signed/unsigned) char *, wchar_t, wchar_t *
- * are supported.
- */
-
- if (!isReference(vtype) && vtype -> nrderefs <= 1)
- bad = FALSE;
- break;
-
- case cfloat_type:
- case float_type:
- case cdouble_type:
- case double_type:
- case enum_type:
- case bool_type:
- case cbool_type:
- case ushort_type:
- case short_type:
- case uint_type:
- case cint_type:
- case int_type:
- case ulong_type:
- case long_type:
- case ulonglong_type:
- case longlong_type:
- case pyobject_type:
- case pytuple_type:
- case pylist_type:
- case pydict_type:
- case pycallable_type:
- case pyslice_type:
- case pytype_type:
- /* These are supported without pointers or references. */
-
- if (!isReference(vtype) && vtype -> nrderefs == 0)
- bad = FALSE;
- break;
-
- case struct_type:
- case void_type:
- /* A simple pointer is supported. */
-
- if (!isReference(vtype) && vtype -> nrderefs == 1)
- bad = FALSE;
- break;
- }
-
- if (bad)
- {
- fatalScopedName(vd -> fqcname);
- fatal(" has an unsupported type\n");
- }
-
- if (vtype -> atype != class_type && vd -> accessfunc != NULL)
- {
- fatalScopedName(vd -> fqcname);
- fatal(" has %%AccessCode but isn't a class instance\n");
- }
-
- if (vd -> ecd != NULL)
- ifaceFileIsUsed(pt, vd->ecd->iff, vtype);
- else
- ifaceFileIsUsed(pt, NULL, vtype);
-
- /*
- * Instance variables or static class variables (unless they are
- * constants) need a handler.
- */
- if (vd -> ecd != NULL && vd -> accessfunc == NULL &&
- (!isStaticVar(vd) || vtype -> nrderefs != 0 || !isConstArg(vtype)))
- {
- setNeedsHandler(vd);
- setHasVarHandlers(vd -> ecd);
- }
-}
-
-
-/*
- * See if a type is supported by the generated code.
- */
-static int supportedType(classDef *cd,overDef *od,argDef *ad,int outputs)
-{
- switch (ad -> atype)
- {
- case anyslot_type:
- /*
- * This must be an input, and must also have handwritten code.
- */
-
- ensureInput(cd,od,ad);
- return FALSE;
-
- case signal_type:
- case slot_type:
- case rxcon_type:
- case rxdis_type:
- case slotcon_type:
- case slotdis_type:
- case qobject_type:
- case ellipsis_type:
- /* These can only appear in argument lists without * or &. */
-
- ensureInput(cd,od,ad);
- return TRUE;
-
- case sstring_type:
- case ustring_type:
- case string_type:
- case wstring_type:
- if (isReference(ad))
- {
- if (outputs && ad -> nrderefs <= 1)
- {
- defaultOutput(cd,od,ad);
- return TRUE;
- }
- }
- else if (ad -> nrderefs == 0)
- {
- ensureInput(cd,od,ad);
- return TRUE;
- }
- else if (ad -> nrderefs == 1)
- {
- if (outputs)
- defaultInput(ad);
- else
- ensureInput(cd,od,ad);
-
- return TRUE;
- }
- else if (ad -> nrderefs == 2 && outputs)
- {
- defaultOutput(cd,od,ad);
- return TRUE;
- }
-
- break;
-
- case cfloat_type:
- case float_type:
- case cdouble_type:
- case double_type:
- case enum_type:
- case bool_type:
- case cbool_type:
- case ushort_type:
- case short_type:
- case uint_type:
- case cint_type:
- case int_type:
- case ulong_type:
- case long_type:
- case ulonglong_type:
- case longlong_type:
- case pyobject_type:
- case pytuple_type:
- case pylist_type:
- case pydict_type:
- case pycallable_type:
- case pyslice_type:
- case pytype_type:
- if (isReference(ad))
- {
- if (ad -> nrderefs == 0 && outputs)
- {
- defaultOutput(cd,od,ad);
- return TRUE;
- }
- }
- else if (ad -> nrderefs == 0)
- {
- ensureInput(cd,od,ad);
- return TRUE;
- }
- else if (ad -> nrderefs == 1 && outputs)
- {
- defaultOutput(cd,od,ad);
- return TRUE;
- }
-
- break;
-
- case mapped_type:
- case class_type:
- if (isReference(ad))
- {
- if (ad -> nrderefs == 0)
- {
- defaultInput(ad);
- return TRUE;
- }
- else if (ad -> nrderefs == 1 && outputs)
- {
- defaultOutput(cd,od,ad);
- return TRUE;
- }
- }
- else if (ad -> nrderefs == 0)
- {
- ensureInput(cd,od,ad);
- return TRUE;
- }
- else if (ad -> nrderefs == 1)
- {
- if (outputs)
- defaultInput(ad);
- else
- ensureInput(cd,od,ad);
-
- return TRUE;
- }
- else if (ad -> nrderefs == 2 && outputs)
- {
- defaultOutput(cd,od,ad);
- return TRUE;
- }
-
- break;
-
- case struct_type:
- case void_type:
- if (isReference(ad))
- {
- if (ad -> nrderefs == 1 && outputs)
- {
- defaultOutput(cd,od,ad);
- return TRUE;
- }
- }
- else if (ad -> nrderefs == 1)
- {
- ensureInput(cd,od,ad);
- return TRUE;
- }
- else if (ad -> nrderefs == 2 && outputs)
- {
- defaultOutput(cd,od,ad);
- return TRUE;
- }
-
- break;
- }
-
- /* Unsupported if we got this far. */
- return FALSE;
-}
-
-
-/*
- * Ensure the direction of an argument is an input.
- */
-static void ensureInput(classDef *cd,overDef *od,argDef *ad)
-{
- if (isOutArg(ad))
- {
- if (cd != NULL)
- {
- fatalScopedName(classFQCName(cd));
- fatal("::");
- }
-
- if (od != NULL)
- fatal("%s",od -> cppname);
-
- fatal("() invalid argument type for /Out/\n");
- }
-
- setIsInArg(ad);
-}
-
-
-/*
- * Default the direction of an argument to an input.
- */
-static void defaultInput(argDef *ad)
-{
- if (!isInArg(ad) && !isOutArg(ad))
- setIsInArg(ad);
-}
-
-
-/*
- * Default the direction of an argument to an output unless the argument is
- * const.
- */
-static void defaultOutput(classDef *cd,overDef *od,argDef *ad)
-{
- if (isOutArg(ad))
- {
- if (isConstArg(ad))
- {
- if (cd != NULL)
- {
- fatalScopedName(classFQCName(cd));
- fatal("::");
- }
-
- if (od != NULL)
- fatal("%s",od -> cppname);
-
- fatal("() const argument cannot have /Out/ specified\n");
- }
- }
- else if (!isInArg(ad))
- if (isConstArg(ad))
- setIsInArg(ad);
- else
- setIsOutArg(ad);
-}
-
-
-/*
- * Put a scoped name to stderr.
- */
-void fatalScopedName(scopedNameDef *snd)
-{
- while (snd != NULL)
- {
- fatal("%s",snd -> name);
-
- snd = snd -> next;
-
- if (snd != NULL)
- fatal("::");
- }
-}
-
-
-/*
- * Compare two overloads and return TRUE if they are the same.
- */
-static int sameOverload(overDef *od1,overDef *od2)
-{
- /* They must both be const, or both not. */
- if (isConst(od1) != isConst(od2))
- return FALSE;
-
- return sameSignature(&od1 -> pysig,&od2 -> pysig,TRUE);
-}
-
-
-/*
- * Compare two virtual handlers and return TRUE if they are the same.
- */
-static int sameVirtualHandler(virtHandlerDef *vhd1,virtHandlerDef *vhd2)
-{
- if (isTransferVH(vhd1) != isTransferVH(vhd2))
- return FALSE;
-
- if (!sameArgType(&vhd1->pysig->result, &vhd2->pysig->result, TRUE))
- return FALSE;
-
- if (!sameSignature(vhd1->pysig, vhd2->pysig, TRUE))
- return FALSE;
-
- if (vhd1->pysig == vhd1->cppsig && vhd2->pysig == vhd2->cppsig)
- return TRUE;
-
- if (!sameArgType(&vhd1->cppsig->result, &vhd2->cppsig->result, TRUE))
- return FALSE;
-
- return sameSignature(vhd1->cppsig, vhd2->cppsig, TRUE);
-}
-
-
-/*
- * Compare two signatures and return TRUE if they are the same.
- */
-int sameSignature(signatureDef *sd1,signatureDef *sd2,int strict)
-{
- int a;
-
- if (strict)
- {
- /* The number of arguments must be the same. */
- if (sd1 -> nrArgs != sd2 -> nrArgs)
- return FALSE;
- }
- else
- {
- int na1, na2;
-
- /* We only count the compulsory arguments. */
- na1 = 0;
-
- for (a = 0; a < sd1 -> nrArgs; ++a)
- {
- if (sd1 -> args[a].defval != NULL)
- break;
-
- ++na1;
- }
-
- na2 = 0;
-
- for (a = 0; a < sd2 -> nrArgs; ++a)
- {
- if (sd2 -> args[a].defval != NULL)
- break;
-
- ++na2;
- }
-
- if (na1 != na2)
- return FALSE;
- }
-
- /* The arguments must be the same. */
- for (a = 0; a < sd1 -> nrArgs; ++a)
- {
- if (!strict && sd1 -> args[a].defval != NULL)
- break;
-
- if (!sameArgType(&sd1 -> args[a],&sd2 -> args[a],strict))
- return FALSE;
- }
-
- /* Must be the same if we've got this far. */
- return TRUE;
-}
-
-
-#define pyAsString(t) ((t) == ustring_type || (t) == sstring_type || \
- (t) == string_type)
-#define pyAsFloat(t) ((t) == cfloat_type || (t) == float_type || \
- (t) == cdouble_type || (t) == double_type)
-#define pyAsInt(t) ((t) == cint_type || (t) == bool_type || \
- (t) == short_type || (t) == ushort_type || \
- (t) == int_type || (t) == uint_type)
-#define pyAsLong(t) ((t) == long_type || (t) == longlong_type)
-#define pyAsULong(t) ((t) == ulong_type || (t) == ulonglong_type)
-#define pyAsAuto(t) ((t) == bool_type || \
- (t) == short_type || (t) == ushort_type || \
- (t) == int_type || (t) == uint_type || \
- (t) == float_type || (t) == double_type)
-
-/*
- * Compare two argument types and return TRUE if they are the same. "strict"
- * means as C++ would see it, rather than Python.
- */
-static int sameArgType(argDef *a1, argDef *a2, int strict)
-{
- /* The references must be the same. */
- if (isReference(a1) != isReference(a2) || a1->nrderefs != a2->nrderefs)
- return FALSE;
-
- if (strict)
- {
- /* The const should be the same. */
- if (isConstArg(a1) != isConstArg(a2))
- return FALSE;
-
- return sameBaseType(a1,a2);
- }
-
- /* Python will see all these as strings. */
- if (pyAsString(a1->atype) && pyAsString(a2->atype))
- return TRUE;
-
- /* Python will see all these as floats. */
- if (pyAsFloat(a1->atype) && pyAsFloat(a2->atype))
- return TRUE;
-
- /* Python will see all these as ints. */
- if (pyAsInt(a1->atype) && pyAsInt(a2->atype))
- return TRUE;
-
- /* Python will see all these as longs. */
- if (pyAsLong(a1->atype) && pyAsLong(a2->atype))
- return TRUE;
-
- /* Python will see all these as unsigned longs. */
- if (pyAsULong(a1->atype) && pyAsULong(a2->atype))
- return TRUE;
-
- /* Python will automatically convert between these. */
- if (pyAsAuto(a1->atype) && pyAsAuto(a2->atype))
- return TRUE;
-
- /* All the special cases have been handled. */
- return sameBaseType(a1, a2);
-}
-
-
-/*
- * Compare two basic types and return TRUE if they are the same.
- */
-
-int sameBaseType(argDef *a1,argDef *a2)
-{
- /* The types must be the same. */
-
- if (a1 -> atype != a2 ->atype)
- return FALSE;
-
- switch (a1 -> atype)
- {
- case class_type:
- if (a1 -> u.cd != a2 -> u.cd)
- return FALSE;
-
- break;
-
- case enum_type:
- if (a1 -> u.ed != a2 -> u.ed)
- return FALSE;
-
- break;
-
- case slotcon_type:
- case slotdis_type:
- if (!sameSignature(a1 -> u.sa,a2 -> u.sa,TRUE))
- return FALSE;
-
- break;
-
- case template_type:
- {
- int a;
- templateDef *td1, *td2;
-
- td1 = a1 -> u.td;
- td2 = a2 -> u.td;
-
- if (!sameScopedName(td1 -> fqname,td2 -> fqname) != 0 ||
- td1 -> types.nrArgs != td2 -> types.nrArgs)
- return FALSE;
-
- for (a = 0; a < td1 -> types.nrArgs; ++a)
- if (!sameBaseType(&td1 -> types.args[a],&td2 -> types.args[a]))
- return FALSE;
-
- break;
- }
-
- case struct_type:
- if (!sameScopedName(a1 -> u.sname,a2 -> u.sname) != 0)
- return FALSE;
-
- break;
-
- case defined_type:
- if (!sameScopedName(a1 -> u.snd,a2 -> u.snd))
- return FALSE;
-
- break;
-
- case mapped_type:
- if (a1 -> u.mtd != a2 -> u.mtd)
- return FALSE;
-
- break;
- }
-
- /* Must be the same if we've got this far. */
-
- return TRUE;
-}
-
-
-/*
- * See if two Python signatures are the same as far as Python is concerned.
- */
-static int samePythonSignature(signatureDef *sd1, signatureDef *sd2)
-{
- int a1, a2;
-
- a1 = a2 = -1;
-
- for (;;)
- {
- a1 = nextSignificantArg(sd1, a1);
- a2 = nextSignificantArg(sd2, a2);
-
- if (a1 < 0 || a2 < 0)
- break;
-
- if (!sameArgType(&sd1->args[a1], &sd2->args[a2], FALSE))
- return FALSE;
- }
-
- return (a1 < 0 && a2 < 0);
-
-}
-
-
-/*
- * Return the next significant argument from a Python signature (ie. one that
- * is not optional or an output only argument. Return -1 if there isn't one.
- */
-static int nextSignificantArg(signatureDef *sd, int a)
-{
- while (++a < sd->nrArgs)
- {
- if (sd->args[a].defval != NULL)
- break;
-
- if (isInArg(&sd->args[a]))
- return a;
- }
-
- return -1;
-}
-
-
-/*
- * Return TRUE if two scoped names are the same.
- */
-
-int sameScopedName(scopedNameDef *snd1,scopedNameDef *snd2)
-{
- while (snd1 != NULL && snd2 != NULL && strcmp(snd1 -> name,snd2 -> name) == 0)
- {
- snd1 = snd1 -> next;
- snd2 = snd2 -> next;
- }
-
- return (snd1 == NULL && snd2 == NULL);
-}
-
-
-/*
- * Add an explicit scope to the default value of an argument if possible.
- */
-
-static void scopeDefaultValue(sipSpec *pt,classDef *cd,argDef *ad)
-{
- valueDef *vd, **tailp, *newvd;
-
- /*
- * We do a quick check to see if we need to do anything. This means
- * we can limit the times we need to copy the default value. It needs
- * to be copied because it will be shared by class versions that have
- * been created on the fly and it may need to be scoped differently for
- * each of those versions.
- */
-
- for (vd = ad -> defval; vd != NULL; vd = vd -> next)
- if (vd -> vtype == scoped_value && vd -> u.vscp -> next == NULL)
- break;
-
- if (vd == NULL)
- return;
-
- /*
- * It's not certain that we will do anything, but we assume we will and
- * start copying.
- */
-
- newvd = NULL;
- tailp = &newvd;
-
- for (vd = ad -> defval; vd != NULL; vd = vd -> next)
- {
- mroDef *mro;
- scopedNameDef *origname;
- valueDef *new;
-
- /* Make the copy. */
-
- new = sipMalloc(sizeof (valueDef));
-
- *new = *vd;
- *tailp = new;
- tailp = &new -> next;
-
- /*
- * Skip this part of the expression if it isn't a named value
- * or it already has a scope.
- */
-
- if (vd -> vtype != scoped_value || vd -> u.vscp -> next != NULL)
- continue;
-
- /*
- * Search the class hierarchy for an enum value with the same
- * name. If we don't find one, leave it as it is (the compiler
- * will find out if this is a problem).
- */
-
- origname = vd -> u.vscp;
-
- for (mro = cd -> mro; mro != NULL; mro = mro -> next)
- {
- enumDef *ed;
-
- if (isDuplicateSuper(mro))
- continue;
-
- for (ed = pt -> enums; ed != NULL; ed = ed -> next)
- {
- enumMemberDef *emd;
-
- if (ed -> ecd != mro -> cd)
- continue;
-
- for (emd = ed -> members; emd != NULL; emd = emd -> next)
- if (strcmp(emd -> cname,origname -> name) == 0)
- {
- scopedNameDef *snd;
-
- /*
- * Take the scope from the
- * class that the enum was
- * defined in.
- */
-
- snd = copyScopedName(mro -> cd -> iff -> fqcname);
- appendScopedName(&snd,origname);
-
- new -> u.vscp = snd;
-
- /* Nothing more to do. */
-
- break;
- }
-
- if (emd != NULL)
- break;
- }
-
- if (ed != NULL)
- break;
- }
- }
-
- ad -> defval = newvd;
-}
-
-
-/*
- * Make sure a type is a base type.
- */
-static void getBaseType(sipSpec *pt, moduleDef *mod, classDef *defscope, argDef *type)
-{
- /* Loop until we've got to a base type. */
- while (type -> atype == defined_type)
- {
- scopedNameDef *snd = type -> u.snd;
-
- type -> atype = no_type;
-
- if (defscope != NULL)
- searchScope(pt,defscope,snd,type);
-
- if (type -> atype == no_type)
- searchMappedTypes(pt,snd,type);
-
- if (type -> atype == no_type)
- searchTypedefs(pt,snd,type);
-
- if (type -> atype == no_type)
- searchEnums(pt,snd,type);
-
- if (type -> atype == no_type)
- searchClasses(pt, mod, snd, type);
-
- if (type -> atype == no_type)
- fatalNoDefinedType(snd);
- }
-
- /* Get the base type of any slot arguments. */
- if (type -> atype == slotcon_type || type -> atype == slotdis_type)
- {
- int sa;
-
- for (sa = 0; sa < type -> u.sa -> nrArgs; ++sa)
- getBaseType(pt, mod, defscope, &type->u.sa->args[sa]);
- }
-
- /* See if the type refers to an instantiated template. */
- if (type->atype == template_type)
- {
- classDef *cd;
-
- for (cd = pt->classes; cd != NULL; cd = cd->next)
- if (cd->td != NULL &&
- sameScopedName(cd->td->fqname, type->u.td->fqname) &&
- sameSignature(&cd->td->types, &type->u.td->types, TRUE))
- {
- type->atype = class_type;
- type->u.cd = cd;
-
- break;
- }
- }
-
- /* Replace the base type if it has been mapped. */
- if (type -> atype == struct_type || type -> atype == template_type)
- {
- searchMappedTypes(pt,NULL,type);
-
- /*
- * If we still have a template then see if we need to
- * automatically instantiate it.
- */
- if (type->atype == template_type)
- {
- mappedTypeTmplDef *mtt;
-
- for (mtt = pt->mappedtypetemplates; mtt != NULL; mtt = mtt->next)
- if (sameScopedName(type->u.td->fqname, mtt->mt->type.u.td->fqname) && sameTemplateSignature(&type->u.td->types, &mtt->mt->type.u.td->types, TRUE))
- {
- type->u.mtd = instantiateMappedTypeTemplate(pt, mod, mtt, type);
- type->atype = mapped_type;
-
- break;
- }
- }
- }
-}
-
-
-/*
- * Instantiate a mapped type template and return it.
- */
-static mappedTypeDef *instantiateMappedTypeTemplate(sipSpec *pt, moduleDef *mod, mappedTypeTmplDef *mtt, argDef *type)
-{
- scopedNameDef *type_names, *type_values;
- mappedTypeDef *mtd;
-
- type_names = type_values = NULL;
- appendTypeStrings(type->u.td->fqname, &mtt->mt->type.u.td->types, &type->u.td->types, &mtt->sig, &type_names, &type_values);
-
- mtd = allocMappedType(type);
-
- mtd->iff = findIfaceFile(pt, mod, type->u.td->fqname, mappedtype_iface, type);
- mtd->iff->module = mod;
-
- mtd->hdrcode = templateCode(pt, &mtd->iff->used, mtt->mt->hdrcode, type_names, type_values);
- mtd->convfromcode = templateCode(pt, &mtd->iff->used, mtt->mt->convfromcode, type_names, type_values);
- mtd->convtocode = templateCode(pt, &mtd->iff->used, mtt->mt->convtocode, type_names, type_values);
-
- mtd->next = pt->mappedtypes;
- pt->mappedtypes = mtd;
-
- if (type_names != NULL)
- freeScopedName(type_names);
-
- if (type_values != NULL)
- freeScopedName(type_values);
-
- return mtd;
-}
-
-
-/*
- * Search for a name in a scope and return the corresponding type.
- */
-
-static void searchScope(sipSpec *pt,classDef *scope,scopedNameDef *snd,
- argDef *ad)
-{
- scopedNameDef *tmpsnd = NULL;
- mroDef *mro;
-
- for (mro = scope -> mro; mro != NULL; mro = mro -> next)
- {
- if (isDuplicateSuper(mro))
- continue;
-
- /* Append the name to the scope and see if it exists. */
-
- tmpsnd = copyScopedName(classFQCName(mro -> cd));
- appendScopedName(&tmpsnd,copyScopedName(snd));
-
- searchMappedTypes(pt,tmpsnd,ad);
-
- if (ad -> atype != no_type)
- break;
-
- searchTypedefs(pt,tmpsnd,ad);
-
- if (ad -> atype != no_type)
- break;
-
- searchEnums(pt,tmpsnd,ad);
-
- if (ad -> atype != no_type)
- break;
-
- searchClasses(pt, mro->cd->iff->module, tmpsnd, ad);
-
- if (ad -> atype != no_type)
- break;
-
- freeScopedName(tmpsnd);
- tmpsnd = NULL;
- }
-
- if (tmpsnd != NULL)
- freeScopedName(tmpsnd);
-}
-
-
-/*
- * Search the mapped types for a name and return the type.
- */
-
-static void searchMappedTypes(sipSpec *pt,scopedNameDef *snd,argDef *ad)
-{
- mappedTypeDef *mtd;
- scopedNameDef *oname;
-
- /* Patch back to defined types so we can use sameBaseType(). */
- if (snd != NULL)
- {
- oname = ad -> u.snd;
- ad -> u.snd = snd;
- ad -> atype = defined_type;
- }
-
- for (mtd = pt -> mappedtypes; mtd != NULL; mtd = mtd -> next)
- if (sameBaseType(ad,&mtd -> type))
- {
- /* Copy the type. */
- ad -> atype = mapped_type;
- ad -> u.mtd = mtd;
-
- return;
- }
-
- /* Restore because we didn't find anything. */
- if (snd != NULL)
- {
- ad -> u.snd = oname;
- ad -> atype = no_type;
- }
-}
-
-
-/*
- * Search the typedefs for a name and return the type.
- */
-
-static void searchTypedefs(sipSpec *pt,scopedNameDef *snd,argDef *ad)
-{
- typedefDef *td;
-
- for (td = pt -> typedefs; td != NULL; td = td -> next)
- if (sameScopedName(td -> fqname,snd))
- {
- /* Copy the type. */
-
- ad -> atype = td -> type.atype;
- ad -> argflags |= td -> type.argflags;
- ad -> nrderefs += td -> type.nrderefs;
- ad -> u = td -> type.u;
-
- break;
- }
-}
-
-
-/*
- * Search the enums for a name and return the type.
- */
-
-static void searchEnums(sipSpec *pt,scopedNameDef *snd,argDef *ad)
-{
- enumDef *ed;
-
- for (ed = pt -> enums; ed != NULL; ed = ed -> next)
- {
- if (ed -> fqcname == NULL)
- continue;
-
- if (sameScopedName(ed -> fqcname,snd))
- {
- ad -> atype = enum_type;
- ad -> u.ed = ed;
-
- break;
- }
- }
-}
-
-
-/*
- * Search the classes for one with a particular name and return it as a type.
- */
-static void searchClasses(sipSpec *pt, moduleDef *mod, scopedNameDef *cname, argDef *ad)
-{
- classDef *cd;
-
- for (cd = pt -> classes; cd != NULL; cd = cd -> next)
- {
- /*
- * Ignore an external class unless it was declared in the same
- * context (ie. module) as the name is being used.
- */
- if (isExternal(cd) && cd->iff->module != mod)
- continue;
-
- if (sameScopedName(classFQCName(cd), cname))
- {
- ad -> atype = class_type;
- ad -> u.cd = cd;
-
- break;
- }
- }
-}
-
-
-/*
- * Print an error message describing an undefined type to stderr and terminate.
- */
-
-static void fatalNoDefinedType(scopedNameDef *snd)
-{
- fatalScopedName(snd);
- fatal(" is undefined\n");
-}
-
-
-/*
- * Make sure all external interface files for all other functions of a module
- * are used.
- */
-static void ifaceFilesAreUsedFromOther(sipSpec *pt, signatureDef *sd)
-{
- int a;
- ifaceFileDef *iff;
-
- if ((iff = getIfaceFile(&sd->result)) != NULL && iff->module != pt->module)
- addToUsedList(&pt->used, iff);
-
- for (a = 0; a < sd->nrArgs; ++a)
- if ((iff = getIfaceFile(&sd->args[a])) != NULL && iff->module != pt->module)
- addToUsedList(&pt->used, iff);
-}
-
-
-/*
- * Make sure all interface files for all overloads of a method are used.
- */
-static void ifaceFilesAreUsedByMethod(sipSpec *pt, classDef *cd, memberDef *md)
-{
- overDef *od;
-
- for (od = cd -> overs; od != NULL; od = od -> next)
- if (od -> common == md)
- ifaceFilesAreUsed(pt, cd->iff, od);
-}
-
-
-/*
- * Make sure all interface files for a signature are used.
- */
-static void ifaceFilesAreUsed(sipSpec *pt, ifaceFileDef *iff, overDef *od)
-{
- int a;
-
- ifaceFileIsUsed(pt, iff, &od->pysig.result);
-
- for (a = 0; a < od->pysig.nrArgs; ++a)
- ifaceFileIsUsed(pt, iff, &od->pysig.args[a]);
-
- if (od->cppsig != &od->pysig)
- {
- ifaceFileIsUsed(pt, iff, &od->cppsig->result);
-
- for (a = 0; a < od->cppsig->nrArgs; ++a)
- ifaceFileIsUsed(pt, iff, &od->cppsig->args[a]);
- }
-}
-
-
-/*
- * If a type has an interface file then add it to the appropriate list of used
- * interface files so that the header file is #included in the generated code.
- */
-static void ifaceFileIsUsed(sipSpec *pt, ifaceFileDef *iff, argDef *ad)
-{
- ifaceFileDef *usediff;
-
- if ((usediff = getIfaceFile(ad)) != NULL && usediff != iff)
- {
- ifaceFileList *iffl, **used;
-
- used = (iff != NULL ? &iff->used : &pt->used);
-
- iffl = addToUsedList(used, usediff);
-
- /*
- * If the type is a protected enum then its scoping shadow
- * class is needed in the generated header file.
- */
- if (ad->atype == enum_type && isProtectedEnum(ad->u.ed))
- iffl->header = TRUE;
- }
-}
-
-
-/*
- * Return the interface file for a type, or NULL if it doesn't have one.
- */
-static ifaceFileDef *getIfaceFile(argDef *ad)
-{
- ifaceFileDef *iff;
-
- switch (ad -> atype)
- {
- case class_type:
- iff = ad -> u.cd -> iff;
- break;
-
- case mapped_type:
- iff = ad -> u.mtd -> iff;
- break;
-
- case enum_type:
- if (ad -> u.ed -> fqcname != NULL && ad -> u.ed -> ecd != NULL)
- {
- iff = ad -> u.ed -> ecd -> iff;
- break;
- }
-
- /* Drop through. */
-
- default:
- iff = NULL;
- }
-
- return iff;
-}
-
-
-/*
- * Position a class so that it is after all its super-classes.
- */
-static void positionClass(classDef *cd)
-{
- classList *cl;
-
- /* See if it has already been done. */
- if (cd -> node -> ordered)
- return;
-
- for (cl = cd -> supers; cl != NULL; cl = cl -> next)
- {
- nodeDef **ndp, *nd1, *nd2, *rp;
-
- /* Ignore super-classes from different modules. */
- if (cl -> cd -> iff -> module != cd -> iff -> module)
- continue;
-
- /* Make sure the super-class is positioned. */
- positionClass(cl -> cd);
-
- /*
- * Find ancestors of the two that are siblings (ie. they have a
- * common parent).
- */
- rp = &cd -> iff -> module -> root;
-
- for (nd1 = cd -> node; nd1 != rp; nd1 = nd1 -> parent)
- {
- for (nd2 = cl -> cd -> node; nd2 != rp; nd2 = nd2 -> parent)
- if (nd1 -> parent == nd2 -> parent)
- break;
-
- if (nd2 != rp)
- break;
- }
-
- /*
- * The first node must appear after the second in the common
- * parent's list of children.
- */
- for (ndp = &nd1 -> parent -> child; *ndp != NULL; ndp = &(*ndp) -> next)
- {
- nodeDef *nd = *ndp;
-
- if (nd == nd2)
- break;
-
- if (nd == nd1)
- {
- /* Remove this one from the list. */
- *ndp = nd -> next;
-
- /* Find the super-class ancestor. */
- while (*ndp != nd2)
- ndp = &(*ndp) -> next;
-
- /*
- * Put this one back after the super-class
- * ancestor.
- */
- nd -> next = (*ndp) -> next;
- (*ndp) -> next = nd;
-
- break;
- }
- }
- }
-
- cd -> node -> ordered = TRUE;
-}
-
-
-/*
- * Make sure a class is in the namespace tree.
- */
-static void addNodeToParent(nodeDef *root,classDef *cd)
-{
- nodeDef *nd, *parent;
-
- /* Skip classes already in the tree. */
- if (cd -> node != NULL)
- return;
-
- /* Add this child to the parent. */
- nd = sipMalloc(sizeof (nodeDef));
-
- nd -> ordered = FALSE;
- nd -> cd = cd;
- nd -> child = NULL;
-
- /* Get the address of the parent node. */
- if (cd -> ecd == NULL)
- parent = root;
- else
- {
- /* Make sure the parent is in the tree. */
- addNodeToParent(root,cd -> ecd);
-
- parent = cd -> ecd -> node;
- }
-
- nd -> parent = parent;
-
- /* Insert this at the head of the parent's children. */
- nd -> next = parent -> child;
- parent -> child = nd;
-
- /* Remember where we are in the tree. */
- cd -> node = nd;
-}
-
-
-/*
- * Assign the module specific class number for a class and all it's children.
- */
-static void assignClassNrs(sipSpec *pt,moduleDef *mod,nodeDef *nd)
-{
- classDef *cd;
- nodeDef *cnd;
-
- /* Assign the class if it's not the root. */
- if ((cd = nd -> cd) != NULL)
- {
- cd -> classnr = mod -> nrclasses++;
-
- /*
- * If we find a class defined in the main module called TQObject, assume
- * it's Qt.
- */
- if (mod == pt -> module && strcmp(classBaseName(cd),"TQObject") == 0)
- pt -> qobjclass = cd -> classnr;
- }
-
- /* Assign all it's children. */
- for (cnd = nd -> child; cnd != NULL; cnd = cnd -> next)
- assignClassNrs(pt,mod,cnd);
-}
-
-
-/*
- * Assign the module specific enum number for all named enums.
- */
-static void assignEnumNrs(sipSpec *pt)
-{
- enumDef *ed;
-
- for (ed = pt -> enums; ed != NULL; ed = ed -> next)
- if (ed -> fqcname != NULL)
- ed -> enumnr = ed -> module -> nrenums++;
-}