WIP: additional unoidl::Provider that directly reads from .idl files

Change-Id: I30fa6400724f4ca6f0e1986c741500f05710b840

6 files changed, 4487 insertions, 0 deletions

diff --git a/unoidl/Library_unoidl.mk b/unoidl/Library_unoidl.mk
index 46534c7ec6aa..5cffa49c3fe0 100644
--- a/unoidl/Library_unoidl.mk
+++ b/unoidl/Library_unoidl.mk
@@ -13,10 +13,24 @@ $(eval $(call gb_Library_add_defs,unoidl,-DLO_DLLIMPLEMENTATION_UNOIDL))
 
 $(eval $(call gb_Library_add_exception_objects,unoidl, \
     unoidl/source/legacyprovider \
+    unoidl/source/sourceprovider \
     unoidl/source/unoidl \
     unoidl/source/unoidlprovider \
 ))
 
+$(eval $(call gb_Library_add_grammars,unoidl, \
+    unoidl/source/sourceprovider-parser \
+))
+
+$(eval $(call gb_Library_add_scanners,unoidl, \
+    unoidl/source/sourceprovider-scanner \
+))
+
+$(eval $(call gb_Library_set_include,unoidl, \
+    $$(INCLUDE) \
+    -I$(SRCDIR)/unoidl/source \
+))
+
 $(eval $(call gb_Library_use_libraries,unoidl, \
     reg \
     sal \
diff --git a/unoidl/source/sourceprovider-parser-requires.hxx b/unoidl/source/sourceprovider-parser-requires.hxx
new file mode 100644
index 000000000000..0c52b3db802d
--- /dev/null
+++ b/unoidl/source/sourceprovider-parser-requires.hxx
@@ -0,0 +1,136 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ */
+
+#ifndef INCLUDED_UNOIDL_SOURCE_SOURCEPROVIDER_PARSER_REQUIRES_HXX
+#define INCLUDED_UNOIDL_SOURCE_SOURCEPROVIDER_PARSER_REQUIRES_HXX
+
+#include "sal/config.h"
+
+#include <vector>
+
+#include "rtl/string.hxx"
+#include "rtl/ustring.hxx"
+#include "sal/types.h"
+#include "unoidl/unoidl.hxx"
+
+#define YYLTYPE int
+
+typedef void * yyscan_t;
+
+int yyparse(yyscan_t yyscanner);
+
+namespace unoidl { namespace detail {
+
+struct SourceProviderEntity;
+
+enum SourceProviderAccessDecls { ACCESS_DECL_GET = 0x1, ACCESS_DECL_SET = 0x2 };
+
+enum SourceProviderFlags {
+    FLAG_ATTRIBUTE = 0x001, FLAG_BOUND = 0x002, FLAG_CONSTRAINED = 0x004,
+    FLAG_MAYBEAMBIGUOUS = 0x008, FLAG_MAYBEDEFAULT = 0x010,
+    FLAG_MAYBEVOID = 0x020, FLAG_OPTIONAL = 0x040, FLAG_PROPERTY = 0x080,
+    FLAG_READONLY = 0x100, FLAG_REMOVABLE = 0x200, FLAG_TRANSIENT = 0x400
+};
+
+struct SourceProviderExpr {
+    static SourceProviderExpr Bool(bool v) {
+        SourceProviderExpr e;
+        e.type = TYPE_BOOL;
+        e.bval = v;
+        return e;
+    }
+
+    static SourceProviderExpr Int(sal_Int64 v) {
+        SourceProviderExpr e;
+        e.type = TYPE_INT;
+        e.ival = v;
+        return e;
+    }
+
+    static SourceProviderExpr Uint(sal_uInt64 v) {
+        SourceProviderExpr e;
+        e.type = TYPE_UINT;
+        e.uval = v;
+        return e;
+    }
+
+    static SourceProviderExpr Float(double v) {
+        SourceProviderExpr e;
+        e.type = TYPE_FLOAT;
+        e.fval = v;
+        return e;
+    }
+
+    enum Type { TYPE_BOOL, TYPE_INT, TYPE_UINT, TYPE_FLOAT };
+
+    Type type;
+    union {
+        bool bval;
+        sal_Int64 ival;
+        sal_uInt64 uval;
+        double fval;
+    };
+};
+
+struct SourceProviderType {
+    enum Type {
+        TYPE_VOID, TYPE_BOOLEAN, TYPE_BYTE, TYPE_SHORT, TYPE_UNSIGNED_SHORT,
+        TYPE_LONG, TYPE_UNSIGNED_LONG, TYPE_HYPER, TYPE_UNSIGNED_HYPER,
+        TYPE_FLOAT, TYPE_DOUBLE, TYPE_CHAR, TYPE_STRING, TYPE_TYPE, TYPE_ANY,
+        TYPE_SEQUENCE, TYPE_ENUM, TYPE_PLAIN_STRUCT, TYPE_EXCEPTION,
+        TYPE_INTERFACE, TYPE_INSTANTIATED_POLYMORPHIC_STRUCT, TYPE_PARAMETER
+    };
+
+    SourceProviderType() {}
+
+    explicit SourceProviderType(Type theType): type(theType)
+    { assert(theType <= TYPE_ANY); }
+
+    explicit SourceProviderType(SourceProviderType const * componentType):
+        type(TYPE_SEQUENCE)
+    { assert(componentType != 0); subtypes.push_back(*componentType); }
+
+    SourceProviderType(
+        Type theType, OUString const & theName,
+        SourceProviderEntity const * theEntity):
+        type(theType), name(theName), entity(theEntity)
+    {
+        assert(theType >= TYPE_ENUM && theType <= TYPE_INTERFACE);
+        assert(theEntity != 0);
+    }
+
+    SourceProviderType(
+        OUString const & polymorphicStructTypeTemplateName,
+        SourceProviderEntity const * theEntity,
+        std::vector<SourceProviderType> const & typeArguments):
+        type(TYPE_INSTANTIATED_POLYMORPHIC_STRUCT),
+        name(polymorphicStructTypeTemplateName), entity(theEntity),
+        subtypes(typeArguments)
+    { assert(theEntity != 0); }
+
+    explicit SourceProviderType(OUString const & identifier):
+        type(TYPE_PARAMETER), name(identifier)
+    {}
+
+    OUString getName() const;
+
+    Type type;
+    OUString name; // TYPE_ENUM ... TYPE_PARAMETER
+    SourceProviderEntity const * entity;
+        // TYPE_ENUM ... TYPE_INSTANTIATED_POLYMOPRHIC_STRUCT
+    std::vector<SourceProviderType> subtypes;
+        // TYPE_SEQUENCE, TYPE_INSTANTIATED_POLYMOPRHIC_STRUCT
+    OUString typedefName;
+};
+
+} }
+
+#endif
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/unoidl/source/sourceprovider-parser.y b/unoidl/source/sourceprovider-parser.y
new file mode 100644
index 000000000000..6029151a47ae
--- /dev/null
+++ b/unoidl/source/sourceprovider-parser.y
@@ -0,0 +1,3631 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ */
+
+/*TODO: @deprecated annotations */
+/*TODO: check Exception, RuntimeException, XInterface defns */
+
+%locations
+%pure-parser
+
+%{
+
+#include "sal/config.h"
+
+#include <algorithm>
+#include <cassert>
+#include <cstddef>
+#include <cstdlib>
+#include <limits>
+#include <utility>
+
+#include <sourceprovider-parser-requires.hxx>
+
+%}
+
+%union {
+    sal_uInt64 ival;
+    double fval;
+    OString * sval;
+
+    bool bval;
+    std::vector<OUString> * excns;
+    unoidl::detail::SourceProviderAccessDecls decls;
+    unoidl::InterfaceTypeEntity::Method::Parameter::Direction dir;
+    unoidl::detail::SourceProviderFlags flags;
+    unoidl::detail::SourceProviderExpr expr;
+    unoidl::detail::SourceProviderType * type;
+    std::vector<unoidl::detail::SourceProviderType> * types;
+}
+
+/* TODO: %destructor { delete $$; } <sval> <excns> <type> <types> */
+
+%lex-param {yyscan_t yyscanner}
+%parse-param {yyscan_t yyscanner}
+
+%{
+
+#include "sourceprovider-scanner.hxx"
+
+#define YYLLOC_DEFAULT(Current, Rhs, N) \
+    do { (Current) = YYRHSLOC((Rhs), YYID((N)) ? 1 : 0); } while (YYID(0))
+
+void yyerror(YYLTYPE * locp, yyscan_t yyscanner, char const * msg) {
+    assert(locp != 0);
+    unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+    data->errorLine = *locp;
+    data->parserError = OString(msg);
+}
+
+namespace {
+
+void error(YYLTYPE location, yyscan_t yyscanner, OUString const & message) {
+    unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+    data->errorLine = location;
+    data->errorMessage = message;
+}
+
+OUString flagName(unoidl::detail::SourceProviderFlags flag) {
+    switch (flag) {
+    case unoidl::detail::FLAG_ATTRIBUTE:
+        return OUString("attribute");
+    case unoidl::detail::FLAG_BOUND:
+        return OUString("bound");
+    case unoidl::detail::FLAG_CONSTRAINED:
+        return OUString("constrained");
+    case unoidl::detail::FLAG_MAYBEAMBIGUOUS:
+        return OUString("maybeambiguous");
+    case unoidl::detail::FLAG_MAYBEDEFAULT:
+        return OUString("maybedefault");
+    case unoidl::detail::FLAG_MAYBEVOID:
+        return OUString("maybevoid");
+    case unoidl::detail::FLAG_OPTIONAL:
+        return OUString("optional");
+    case unoidl::detail::FLAG_PROPERTY:
+        return OUString("property");
+    case unoidl::detail::FLAG_READONLY:
+        return OUString("readonly");
+    case unoidl::detail::FLAG_REMOVABLE:
+        return OUString("removable");
+    case unoidl::detail::FLAG_TRANSIENT:
+        return OUString("transient");
+    default:
+        assert(false); for (;;) { std::abort(); } // this cannot happen
+    }
+}
+
+OUString convertName(OString const * name) {
+    assert(name != 0);
+    OUString s(OStringToOUString(*name, RTL_TEXTENCODING_ASCII_US));
+    delete name;
+    return s;
+}
+
+OUString convertToFullName(
+    unoidl::detail::SourceProviderScannerData const * data,
+    OString const * identifier)
+{
+    assert(data != 0);
+    OUString pref;
+    if (!data->modules.empty()) {
+        pref = data->modules.back() + ".";
+    }
+    return pref + convertName(identifier);
+}
+
+void convertToCurrentName(
+    unoidl::detail::SourceProviderScannerData * data,
+    OString const * identifier)
+{
+    assert(data != 0);
+    assert(data->currentName.isEmpty());
+    data->currentName = convertToFullName(data, identifier);
+    assert(!data->currentName.isEmpty());
+}
+
+void clearCurrentName(unoidl::detail::SourceProviderScannerData * data) {
+    assert(data != 0);
+    assert(!data->currentName.isEmpty());
+    data->currentName = "";
+}
+
+unoidl::detail::SourceProviderEntity * getCurrentEntity(
+    unoidl::detail::SourceProviderScannerData * data)
+{
+    assert(data != 0);
+    assert(!data->currentName.isEmpty());
+    std::map<OUString, unoidl::detail::SourceProviderEntity>::iterator i(
+        data->entities.find(data->currentName));
+    assert(i != data->entities.end());
+    assert(i->second.kind == unoidl::detail::SourceProviderEntity::KIND_LOCAL);
+    assert(i->second.pad.is());
+    return &i->second;
+}
+
+template<typename T> rtl::Reference<T> getCurrentPad(
+    unoidl::detail::SourceProviderScannerData * data)
+{
+    rtl::Reference<T> pad(dynamic_cast<T *>(getCurrentEntity(data)->pad.get()));
+    assert(pad.is());
+    return pad;
+}
+
+bool nameHasSameIdentifierAs(OUString const & name, OUString const & identifier)
+{
+    sal_Int32 i = name.lastIndexOf('.') + 1;
+    return identifier.getLength() == name.getLength() - i
+        && name.match(identifier, i);
+}
+
+bool coerce(
+    YYLTYPE location, yyscan_t yyscanner,
+    unoidl::detail::SourceProviderExpr * lhs,
+    unoidl::detail::SourceProviderExpr * rhs)
+{
+    assert(lhs != 0);
+    assert(rhs != 0);
+    bool ok;
+    switch (lhs->type) {
+    case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+        ok = rhs->type != unoidl::detail::SourceProviderExpr::TYPE_BOOL;
+        break;
+    case unoidl::detail::SourceProviderExpr::TYPE_INT:
+        switch (rhs->type) {
+        case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+            ok = false;
+            break;
+        case unoidl::detail::SourceProviderExpr::TYPE_INT:
+            ok = true;
+            break;
+        case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+            if (lhs->ival >= 0) {
+                lhs->type = unoidl::detail::SourceProviderExpr::TYPE_UINT;
+                ok = true;
+            } else if (rhs->uval <= SAL_MAX_INT64) {
+                rhs->type = unoidl::detail::SourceProviderExpr::TYPE_INT;
+                ok = true;
+            } else {
+                ok = false;
+            }
+            break;
+        case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+            lhs->fval = lhs->ival;
+            ok = true;
+            break;
+        }
+        break;
+    case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+        switch (rhs->type) {
+        case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+            ok = false;
+            break;
+        case unoidl::detail::SourceProviderExpr::TYPE_INT:
+            if (rhs->ival >= 0) {
+                rhs->type = unoidl::detail::SourceProviderExpr::TYPE_UINT;
+                ok = true;
+            } else if (lhs->uval <= SAL_MAX_INT64) {
+                lhs->type = unoidl::detail::SourceProviderExpr::TYPE_INT;
+                ok = true;
+            } else {
+                ok = false;
+            }
+            break;
+        case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+            ok = true;
+            break;
+        case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+            lhs->fval = lhs->uval;
+            ok = true;
+            break;
+        }
+        break;
+    case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+        switch (rhs->type) {
+        case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+            ok = false;
+            break;
+        case unoidl::detail::SourceProviderExpr::TYPE_INT:
+            rhs->fval = rhs->ival;
+            ok = true;
+            break;
+        case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+            rhs->fval = rhs->uval;
+            ok = true;
+            break;
+        case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+            ok = true;
+            break;
+        }
+        break;
+    }
+    if (!ok) {
+        error(location, yyscanner, "cannot coerce binary expression arguments");
+    }
+    return ok;
+}
+
+unoidl::detail::SourceProviderEntity * findEntity_(
+    unoidl::detail::SourceProviderScannerData * data, OUString * name)
+{
+    assert(data != 0);
+    assert(name != 0);
+    OUString n;
+    if (name->startsWith(".")) {
+        n = name->copy(1);
+    } else {
+        for (std::vector<OUString>::const_reverse_iterator i(data->modules.rbegin());
+             i != data->modules.rend(); ++i)
+        {
+            n = *i + "." + *name;
+            std::map<OUString, unoidl::detail::SourceProviderEntity>::iterator j(
+                data->entities.find(n));
+            if (j != data->entities.end()) {
+                *name = n;
+                return &j->second;
+            }
+            rtl::Reference<unoidl::Entity> ent(data->manager->findEntity(n));
+            if (ent.is()) {
+                std::map<OUString, unoidl::detail::SourceProviderEntity>::iterator
+                    k(data->entities.insert(
+                          std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                              n,
+                              unoidl::detail::SourceProviderEntity(
+                                  unoidl::detail::SourceProviderEntity::KIND_EXTERNAL,
+                                  ent))).
+                      first);
+                *name = n;
+                return &k->second;
+            }
+        }
+        n = *name;
+    }
+    std::map<OUString, unoidl::detail::SourceProviderEntity>::iterator i(
+        data->entities.find(n));
+    if (i != data->entities.end()) {
+        *name = n;
+        return &i->second;
+    }
+    rtl::Reference<unoidl::Entity> ent(data->manager->findEntity(n));
+    if (ent.is()) {
+        std::map<OUString, unoidl::detail::SourceProviderEntity>::iterator
+            j(data->entities.insert(
+                  std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                      n,
+                      unoidl::detail::SourceProviderEntity(
+                          unoidl::detail::SourceProviderEntity::KIND_EXTERNAL,
+                          ent))).
+              first);
+        *name = n;
+        return &j->second;
+    }
+    return 0;
+}
+
+enum Found { FOUND_ERROR, FOUND_TYPE, FOUND_ENTITY };
+
+Found findEntity(
+    YYLTYPE location, yyscan_t yyscanner,
+    unoidl::detail::SourceProviderScannerData * data,
+    bool resolveInterfaceDefinitions, OUString * name,
+    unoidl::detail::SourceProviderEntity const ** entity,
+    unoidl::detail::SourceProviderType * typedefedType)
+{
+    //TODO: avoid recursion
+    assert(data != 0);
+    assert(name != 0);
+    assert(entity != 0);
+    unoidl::detail::SourceProviderEntity * e = findEntity_(data, name);
+    OUString n(*name);
+    OUString typeNucleus;
+    std::size_t rank = 0;
+    std::vector<unoidl::detail::SourceProviderType> args;
+    for (;;) {
+        if (e != 0) {
+            switch (e->kind) {
+            case unoidl::detail::SourceProviderEntity::KIND_LOCAL:
+                if (e->pad.is()) {
+                    break;
+                }
+                assert(e->entity.is());
+                // fall through
+            case unoidl::detail::SourceProviderEntity::KIND_EXTERNAL:
+                if (e->entity->getSort() == unoidl::Entity::SORT_TYPEDEF) {
+                    OUString t(
+                        static_cast<unoidl::TypedefEntity *>(e->entity.get())
+                        ->getType());
+                    typeNucleus = t;
+                    while (typeNucleus.startsWith("[]")) {
+                        if (!args.empty()) {
+                            error(
+                                location, yyscanner,
+                                ("inconsistent type manager: bad type " + *name
+                                 + (" based on instantiated polymorphic struct"
+                                    " type based on sequence type named ")
+                                 + t));
+                            return FOUND_ERROR;
+                        }
+                        if (rank == std::numeric_limits<std::size_t>::max()) {
+                            error(
+                                location, yyscanner,
+                                ("bad type " + *name
+                                 + " based on sequence type of too high rank"));
+                            return FOUND_ERROR;
+                        }
+                        ++rank;
+                        typeNucleus = typeNucleus.copy(2);
+                    }
+                    sal_Int32 i = typeNucleus.indexOf('<');
+                    if (i != -1) {
+                        if (!args.empty()) {
+                            error(
+                                location, yyscanner,
+                                ("inconsistent type manager: bad type " + *name
+                                 + (" based on instantiated polymorphic struct"
+                                    " type based on instantiated polymorphic"
+                                    " struct type named ")
+                                 + t));
+                            return FOUND_ERROR;
+                        }
+                        OUString tmpl(typeNucleus.copy(0, i));
+                        do {
+                            ++i; // skip '<' or ','
+                            sal_Int32 j = i;
+                            for (sal_Int32 level = 0;
+                                 j != typeNucleus.getLength(); ++j)
+                            {
+                                sal_Unicode c = typeNucleus[j];
+                                if (c == ',') {
+                                    if (level == 0) {
+                                        break;
+                                    }
+                                } else if (c == '<') {
+                                    ++level;
+                                } else if (c == '>') {
+                                    if (level == 0) {
+                                        break;
+                                    }
+                                    --level;
+                                }
+                            }
+                            if (j != typeNucleus.getLength()) {
+                                OUString argName(typeNucleus.copy(i, j - i));
+                                unoidl::detail::SourceProviderEntity const *
+                                    argEnt;
+                                unoidl::detail::SourceProviderType argType;
+                                switch (
+                                    findEntity(
+                                        location, yyscanner, data, false,
+                                        &argName, &argEnt, &argType))
+                                {
+                                case FOUND_ERROR:
+                                    return FOUND_ERROR;
+                                case FOUND_TYPE:
+                                    break;
+                                case FOUND_ENTITY:
+                                    if (argEnt == 0) {
+                                        error(
+                                            location, yyscanner,
+                                            (("inconsistent type manager: bad"
+                                              " instantiated polymorphic struct"
+                                              " type template type argument ")
+                                             + argName));
+                                        return FOUND_ERROR;
+                                    } else {
+                                        unoidl::detail::SourceProviderType::Type argT;
+                                        switch (argEnt->kind) {
+                                        case unoidl::detail::SourceProviderEntity::KIND_LOCAL:
+                                            if (e->pad.is()) {
+                                                error(
+                                                    location, yyscanner,
+                                                    (("inconsistent type"
+                                                      " manager: bad"
+                                                      " instantiated"
+                                                      " polymorphic struct type"
+                                                      " template type"
+                                                      " argument ")
+                                                     + argName));
+                                                return FOUND_ERROR;
+                                            }
+                                            assert(e->entity.is());
+                                            // fall through
+                                        case unoidl::detail::SourceProviderEntity::KIND_EXTERNAL:
+                                            switch (e->entity->getSort()) {
+                                            case unoidl::Entity::SORT_ENUM_TYPE:
+                                                argT = unoidl::detail::SourceProviderType::TYPE_ENUM;
+                                                break;
+                                            case unoidl::Entity::SORT_PLAIN_STRUCT_TYPE:
+                                                argT = unoidl::detail::SourceProviderType::TYPE_PLAIN_STRUCT;
+                                                break;
+                                            case unoidl::Entity::SORT_INTERFACE_TYPE:
+                                                argT = unoidl::detail::SourceProviderType::TYPE_INTERFACE;
+                                                break;
+                                            default:
+                                                error(
+                                                    location, yyscanner,
+                                                    (("inconsistent type"
+                                                      "manager: bad"
+                                                      " instantiated"
+                                                      " polymorphic struct type"
+                                                      " template type"
+                                                      " argument ")
+                                                     + argName));
+                                                return FOUND_ERROR;
+                                            }
+                                            break;
+                                        case unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL:
+                                            argT = unoidl::detail::SourceProviderType::TYPE_INTERFACE;
+                                            break;
+                                        }
+                                        argType
+                                            = unoidl::detail::SourceProviderType(
+                                                argT, argName, argEnt);
+                                    }
+                                    break;
+                                }
+                                args.push_back(argType);
+                            }
+                            i = j;
+                        } while (i != typeNucleus.getLength()
+                                 && typeNucleus[i] != '>');
+                        if (i != typeNucleus.getLength() - 1
+                            || typeNucleus[i] != '>')
+                        {
+                            error(
+                                location, yyscanner,
+                                ("inconsistent type manager: bad type name \""
+                                 + t + "\""));
+                            return FOUND_ERROR;
+                        }
+                        assert(!args.empty());
+                        typeNucleus = tmpl;
+                    }
+                    if (typeNucleus.isEmpty()) {
+                        error(
+                            location, yyscanner,
+                            ("inconsistent type manager: bad type name \"" + t
+                             + "\""));
+                        return FOUND_ERROR;
+                    }
+                    if (typeNucleus == "void") {
+                        error(
+                            location, yyscanner,
+                            ("inconsistent type manager: bad type " + *name
+                             + " based on void"));
+                        return FOUND_ERROR;
+                    }
+                    if (typeNucleus == "boolean" || typeNucleus == "byte"
+                        || typeNucleus == "short"
+                        || typeNucleus == "unsigned short"
+                        || typeNucleus == "long"
+                        || typeNucleus == "unsigned long"
+                        || typeNucleus == "hyper"
+                        || typeNucleus == "unsigned hyper"
+                        || typeNucleus == "float" || typeNucleus == "double"
+                        || typeNucleus == "char" || typeNucleus == "string"
+                        || typeNucleus == "type" || typeNucleus == "any")
+                    {
+                        if (!args.empty()) {
+                            error(
+                                location, yyscanner,
+                                ("inconsistent type manager: bad type " + *name
+                                 + (" based on instantiated polymorphic struct"
+                                    " type based on ")
+                                 + typeNucleus));
+                            return FOUND_ERROR;
+                        }
+                        break;
+                    }
+                    n = "." + typeNucleus;
+                    typeNucleus = "",
+                    e = findEntity_(data, &n);
+                    continue;
+                }
+                break;
+            case unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL:
+                if (resolveInterfaceDefinitions) {
+                    rtl::Reference<unoidl::Entity> ent(
+                        data->manager->findEntity(n));
+                    // Do not allow ent to be of SORT_TYPEDEF:
+                    if (!ent.is()
+                        || (ent->getSort()
+                            != unoidl::Entity::SORT_INTERFACE_TYPE))
+                    {
+                        error(
+                            location, yyscanner,
+                            (*name + " is based on interface declaration " + n
+                             + " that is not an interface type entity"));
+                        return FOUND_ERROR;
+                    }
+                    e->kind
+                        = unoidl::detail::SourceProviderEntity::KIND_EXTERNAL;
+                    e->entity = ent;
+                }
+                break;
+            }
+        }
+        if (!typeNucleus.isEmpty() || rank != 0 || !args.empty()) {
+            if (typeNucleus.isEmpty() && e == 0) {
+                // Found a type name based on an unknown entity:
+                *entity = 0;
+                return FOUND_ENTITY;
+            }
+            unoidl::detail::SourceProviderType t;
+            if (args.empty()) {
+                if (typeNucleus == "boolean") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_BOOLEAN);
+                } else if (typeNucleus == "byte") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_BYTE);
+                } else if (typeNucleus == "short") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_SHORT);
+                } else if (typeNucleus == "unsigned short") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_UNSIGNED_SHORT);
+                } else if (typeNucleus == "long") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_LONG);
+                } else if (typeNucleus == "unsigned long") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_UNSIGNED_LONG);
+                } else if (typeNucleus == "hyper") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_HYPER);
+                } else if (typeNucleus == "usigned hyper") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_UNSIGNED_HYPER);
+                } else if (typeNucleus == "float") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_FLOAT);
+                } else if (typeNucleus == "double") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_DOUBLE);
+                } else if (typeNucleus == "char") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_CHAR);
+                } else if (typeNucleus == "string") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_STRING);
+                } else if (typeNucleus == "type") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_TYPE);
+                } else if (typeNucleus == "any") {
+                    t = unoidl::detail::SourceProviderType(
+                        unoidl::detail::SourceProviderType::TYPE_ANY);
+                } else {
+                    assert(typeNucleus.isEmpty());
+                    assert(e != 0);
+                    switch (e->kind) {
+                    case unoidl::detail::SourceProviderEntity::KIND_LOCAL:
+                        if (e->pad.is()) {
+                            if (dynamic_cast<unoidl::detail::SourceProviderEnumTypeEntityPad *>(
+                                    e->pad.get())
+                                != 0)
+                            {
+                                t = unoidl::detail::SourceProviderType(
+                                    unoidl::detail::SourceProviderType::TYPE_ENUM,
+                                    n, e);
+                            } else if (dynamic_cast<unoidl::detail::SourceProviderPlainStructTypeEntityPad *>(
+                                           e->pad.get())
+                                       != 0)
+                            {
+                                t = unoidl::detail::SourceProviderType(
+                                    unoidl::detail::SourceProviderType::TYPE_PLAIN_STRUCT,
+                                    n, e);
+                            } else if (dynamic_cast<unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad *>(
+                                           e->pad.get())
+                                       != 0)
+                            {
+                                error(
+                                    location, yyscanner,
+                                    ("bad type " + *name
+                                     + (" based on recursive reference to"
+                                        " polymorphic struct type template ")
+                                     + n));
+                                return FOUND_ERROR;
+                            } else if (dynamic_cast<unoidl::detail::SourceProviderExceptionTypeEntityPad *>(
+                                           e->pad.get())
+                                       != 0)
+                            {
+                                t = unoidl::detail::SourceProviderType(
+                                    unoidl::detail::SourceProviderType::TYPE_EXCEPTION,
+                                    n, e);
+                            } else if (dynamic_cast<unoidl::detail::SourceProviderInterfaceTypeEntityPad *>(
+                                           e->pad.get())
+                                       != 0)
+                            {
+                                t = unoidl::detail::SourceProviderType(
+                                    unoidl::detail::SourceProviderType::TYPE_INTERFACE,
+                                    n, e);
+                            } else {
+                                error(
+                                    location, yyscanner,
+                                    ("bad type " + *name
+                                     + " based on non-type entity " + n));
+                                return FOUND_ERROR;
+                            }
+                            break;
+                        }
+                        assert(e->entity.is());
+                        // fall through
+                    case unoidl::detail::SourceProviderEntity::KIND_EXTERNAL:
+                        switch (e->entity->getSort()) {
+                        case unoidl::Entity::SORT_ENUM_TYPE:
+                            t = unoidl::detail::SourceProviderType(
+                                unoidl::detail::SourceProviderType::TYPE_ENUM,
+                                n, e);
+                            break;
+                        case unoidl::Entity::SORT_PLAIN_STRUCT_TYPE:
+                            t = unoidl::detail::SourceProviderType(
+                                unoidl::detail::SourceProviderType::TYPE_PLAIN_STRUCT,
+                                n, e);
+                            break;
+                        case unoidl::Entity::SORT_POLYMORPHIC_STRUCT_TYPE_TEMPLATE:
+                            error(
+                                location, yyscanner,
+                                ("bad type " + *name
+                                 + " based on polymorphic struct type template "
+                                 + n + " without type arguments"));
+                            return FOUND_ERROR;
+                        case unoidl::Entity::SORT_EXCEPTION_TYPE:
+                            t = unoidl::detail::SourceProviderType(
+                                unoidl::detail::SourceProviderType::TYPE_EXCEPTION,
+                                n, e);
+                            break;
+                        case unoidl::Entity::SORT_INTERFACE_TYPE:
+                            t = unoidl::detail::SourceProviderType(
+                                unoidl::detail::SourceProviderType::TYPE_INTERFACE,
+                                n, e);
+                            break;
+                        default:
+                            error(
+                                location, yyscanner,
+                                ("bad type " + *name
+                                 + " based on non-type entity " + n));
+                            return FOUND_ERROR;
+                        }
+                        break;
+                    case unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL:
+                        t = unoidl::detail::SourceProviderType(
+                            unoidl::detail::SourceProviderType::TYPE_INTERFACE,
+                            n, e);
+                        break;
+                    }
+                }
+            } else {
+                assert(typeNucleus.isEmpty());
+                assert(e != 0);
+                switch (e->kind) {
+                case unoidl::detail::SourceProviderEntity::KIND_LOCAL:
+                    if (e->pad.is()) {
+                        error(
+                            location, yyscanner,
+                            ("bad type " + *name
+                             + (" based on instantiated polymorphic struct type"
+                                " based on ")
+                             + n
+                             + (" that is either not a polymorphic struct type"
+                                " template or a recursive reference to a"
+                                " polymorphic struct type template")));
+                        return FOUND_ERROR;
+                    }
+                    assert(e->entity.is());
+                    // fall through
+                case unoidl::detail::SourceProviderEntity::KIND_EXTERNAL:
+                    if (e->entity->getSort()
+                        == unoidl::Entity::SORT_POLYMORPHIC_STRUCT_TYPE_TEMPLATE)
+                    {
+                        if (args.size()
+                            != (static_cast<
+                                    unoidl::PolymorphicStructTypeTemplateEntity *>(
+                                        e->entity.get())
+                                ->getTypeParameters().size()))
+                        {
+                            error(
+                                location, yyscanner,
+                                ("bad type " + *name
+                                 + (" based on instantiated polymorphic struct"
+                                    " type with ")
+                                 + OUString::number(args.size())
+                                 + (" type arguments based on polymorphic"
+                                    " struct type template ")
+                                 + n + " with "
+                                 + OUString::number(
+                                     static_cast<
+                                         unoidl::PolymorphicStructTypeTemplateEntity *>(
+                                             e->entity.get())
+                                     ->getTypeParameters().size())
+                                 + " type paramters"));
+                            return FOUND_ERROR;
+                        }
+                        t = unoidl::detail::SourceProviderType(n, e, args);
+                        break;
+                    }
+                    // fall through
+                case unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL:
+                    error(
+                        location, yyscanner,
+                        ("bad type " + *name
+                         + (" based on instantiated polymorphic struct type"
+                            " based on ")
+                         + n
+                         + " that is not a polymorphic struct type template"));
+                    return FOUND_ERROR;
+                }
+            }
+            if (typedefedType != 0) {
+                for (std::size_t i = 0; i != rank; ++i) {
+                    t = unoidl::detail::SourceProviderType(&t);
+                }
+                *typedefedType = t;
+                typedefedType->typedefName = *name;
+            }
+            *entity = 0;
+            return FOUND_TYPE;
+        }
+        *entity = e;
+        return FOUND_ENTITY;
+    }
+}
+
+bool checkTypeArgument(
+    YYLTYPE location, yyscan_t yyscanner,
+    unoidl::detail::SourceProviderType const & type)
+{
+    switch (type.type) {
+    case unoidl::detail::SourceProviderType::TYPE_VOID:
+    case unoidl::detail::SourceProviderType::TYPE_UNSIGNED_SHORT:
+    case unoidl::detail::SourceProviderType::TYPE_UNSIGNED_LONG:
+    case unoidl::detail::SourceProviderType::TYPE_UNSIGNED_HYPER:
+    case unoidl::detail::SourceProviderType::TYPE_EXCEPTION:
+    case unoidl::detail::SourceProviderType::TYPE_PARAMETER: //TODO?
+        error(
+            location, yyscanner,
+            "bad instantiated polymorphic struct type argument");
+        return false;
+    default:
+        return true;
+    }
+}
+
+std::vector<OUString> annotations(bool deprecated) {
+    std::vector<OUString> ann;
+    if (deprecated) {
+        ann.push_back("deprecated");
+    }
+    return ann;
+}
+
+}
+
+%}
+
+%token TOK_ELLIPSIS
+%token TOK_COLONS
+%token TOK_LEFTSHIFT
+%token TOK_RIGHTSHIFT
+
+%token TOK_FALSE
+%token TOK_TRUE
+%token TOK_ANY
+%token TOK_ATTRIBUTE
+%token TOK_BOOLEAN
+%token TOK_BOUND
+%token TOK_BYTE
+%token TOK_CHAR
+%token TOK_CONST
+%token TOK_CONSTANTS
+%token TOK_CONSTRAINED
+%token TOK_DOUBLE
+%token TOK_ENUM
+%token TOK_EXCEPTION
+%token TOK_FLOAT
+%token TOK_GET
+%token TOK_HYPER
+%token TOK_IN
+%token TOK_INOUT
+%token TOK_INTERFACE
+%token TOK_LONG
+%token TOK_MAYBEAMBIGUOUS
+%token TOK_MAYBEDEFAULT
+%token TOK_MAYBEVOID
+%token TOK_MODULE
+%token TOK_OPTIONAL
+%token TOK_OUT
+%token TOK_PROPERTY
+%token TOK_PUBLISHED
+%token TOK_RAISES
+%token TOK_READONLY
+%token TOK_REMOVABLE
+%token TOK_SEQUENCE
+%token TOK_SERVICE
+%token TOK_SET
+%token TOK_SHORT
+%token TOK_SINGLETON
+%token TOK_STRING
+%token TOK_STRUCT
+%token TOK_TRANSIENT
+%token TOK_TYPE
+%token TOK_TYPEDEF
+%token TOK_UNSIGNED
+%token TOK_VOID
+
+%token<sval> TOK_IDENTIFIER
+%token<ival> TOK_INTEGER
+%token<fval> TOK_FLOATING
+
+%token TOK_DEPRECATED
+
+%token TOK_ERROR
+
+%type<sval> identifier name singleInheritance singleInheritance_opt
+%type<bval> ctors_opt deprecated_opt ellipsis_opt published_opt
+%type<decls> attributeAccessDecl attributeAccessDecls
+%type<dir> direction
+%type<excns> exceptionSpec exceptionSpec_opt exceptions
+%type<flags> flag flagSection flagSection_opt flags
+%type<expr> addExpr andExpr expr multExpr orExpr primaryExpr shiftExpr unaryExpr
+  xorExpr
+%type<type> type
+%type<types> typeArguments
+
+%initial-action { yylloc = 1; }
+
+%%
+
+definitions:
+  definitions definition
+| /* empty */
+;
+
+definition:
+  moduleDecl
+| enumDefn
+| plainStructDefn
+| polymorphicStructTemplateDefn
+| exceptionDefn
+| interfaceDefn
+| typedefDefn
+| constantGroupDefn
+| singleInterfaceBasedServiceDefn
+| accumulationBasedServiceDefn
+| interfaceBasedSingletonDefn
+| serviceBasedSingletonDefn
+| interfaceDecl
+;
+
+moduleDecl:
+  TOK_MODULE identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      data->modules.push_back(convertToFullName(data, $2));
+  }
+  '{' definitions '}' ';' { yyget_extra(yyscanner)->modules.pop_back(); }
+;
+
+enumDefn:
+  deprecated_opt published_opt TOK_ENUM identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      convertToCurrentName(data, $4);
+      if (!data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  data->currentName,
+                  unoidl::detail::SourceProviderEntity(
+                      new unoidl::detail::SourceProviderEnumTypeEntityPad(
+                          $2)))).
+          second)
+      {
+          error(@4, yyscanner, "multiple entities named " + data->currentName);
+          YYERROR;
+      }
+  }
+  '{' enumMembers '}' ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderEntity * ent = getCurrentEntity(data);
+      unoidl::detail::SourceProviderEnumTypeEntityPad * pad =
+          dynamic_cast<unoidl::detail::SourceProviderEnumTypeEntityPad *>(
+              ent->pad.get());
+      assert(pad != 0);
+      ent->entity = new unoidl::EnumTypeEntity(
+          pad->isPublished(), pad->members, annotations($1));
+      ent->pad.clear();
+      clearCurrentName(data);
+  }
+;
+
+enumMembers:
+| enumMembers ',' enumMember
+| enumMember
+;
+
+enumMember:
+  deprecated_opt identifier
+  {
+      OUString id(convertName($2));
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      rtl::Reference<unoidl::detail::SourceProviderEnumTypeEntityPad> pad(
+          getCurrentPad<unoidl::detail::SourceProviderEnumTypeEntityPad>(data));
+      sal_Int32 v;
+      if (pad->members.empty()) {
+          v = 0;
+      } else {
+          v = pad->members.back().value;
+          if (v == SAL_MAX_INT32) {
+              error(
+                  @2, yyscanner,
+                  ("enum " + data->currentName + " member " + id
+                   + " would have out-of-range value 2^31"));
+              YYERROR;
+          }
+          ++v;
+      }
+      pad->members.push_back(
+          unoidl::EnumTypeEntity::Member(id, v, annotations($1)));
+  }
+| deprecated_opt identifier '=' expr
+  {
+      OUString id(convertName($2));
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      rtl::Reference<unoidl::detail::SourceProviderEnumTypeEntityPad> pad(
+          getCurrentPad<unoidl::detail::SourceProviderEnumTypeEntityPad>(data));
+      sal_Int32 v;
+      switch ($4.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          if ($4.ival < SAL_MIN_INT32 || $4.ival > SAL_MAX_INT32) {
+              error(
+                  @4, yyscanner,
+                  ("out-of-range enum " + data->currentName + " member " + id
+                   + " value " + OUString::number($4.ival)));
+              YYERROR;
+          }
+          v = static_cast<sal_Int32>($4.ival);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          if ($4.uval > SAL_MAX_INT32) {
+              error(
+                  @4, yyscanner,
+                  ("out-of-range enum " + data->currentName + " member " + id
+                   + " value " + OUString::number($4.uval)));
+              YYERROR;
+          }
+          v = static_cast<sal_Int32>($4.uval);
+          break;
+      default:
+          error(
+              @4, yyscanner,
+              ("non-integer enum " + data->currentName + " member " + id
+               + " value"));
+          YYERROR;
+          break;
+      }
+      pad->members.push_back(
+          unoidl::EnumTypeEntity::Member(id, v, annotations($1)));
+  }
+;
+
+plainStructDefn:
+  deprecated_opt published_opt TOK_STRUCT identifier singleInheritance_opt
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      convertToCurrentName(data, $4);
+      OUString baseName;
+      rtl::Reference<unoidl::PlainStructTypeEntity> baseEnt;
+      if ($5 != 0) {
+          baseName = convertName($5);
+          unoidl::detail::SourceProviderEntity const * p;
+          if (findEntity(@5, yyscanner, data, false, &baseName, &p, 0)
+              == FOUND_ERROR)
+          {
+              YYERROR;
+          }
+          if (p == 0 || !p->entity.is()
+              || p->entity->getSort() != unoidl::Entity::SORT_PLAIN_STRUCT_TYPE)
+          {
+              error(
+                  @5, yyscanner,
+                  ("plain struct type " + data->currentName + " base "
+                   + baseName
+                   + " does not resolve to an existing plain struct type"));
+              YYERROR;
+          }
+          baseEnt = static_cast<unoidl::PlainStructTypeEntity *>(
+              p->entity.get());
+      }
+      if (!data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  data->currentName,
+                  unoidl::detail::SourceProviderEntity(
+                      new unoidl::detail::SourceProviderPlainStructTypeEntityPad(
+                          $2, baseName, baseEnt)))).
+          second)
+      {
+          error(@4, yyscanner, "multiple entities named " + data->currentName);
+          YYERROR;
+      }
+  }
+  '{' structMembers '}' ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderEntity * ent = getCurrentEntity(data);
+      unoidl::detail::SourceProviderPlainStructTypeEntityPad * pad =
+          dynamic_cast<
+              unoidl::detail::SourceProviderPlainStructTypeEntityPad *>(
+                  ent->pad.get());
+      assert(pad != 0);
+      ent->entity = new unoidl::PlainStructTypeEntity(
+          pad->isPublished(), pad->baseName, pad->members, annotations($1));
+      ent->pad.clear();
+      clearCurrentName(data);
+  }
+;
+
+polymorphicStructTemplateDefn:
+  deprecated_opt published_opt TOK_STRUCT identifier '<'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      convertToCurrentName(data, $4);
+      if (!data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  data->currentName,
+                  unoidl::detail::SourceProviderEntity(
+                      new unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad(
+                          $2)))).
+          second)
+      {
+          error(@4, yyscanner, "multiple entities named " + data->currentName);
+          YYERROR;
+      }
+  }
+  typeParameters '>' '{' structMembers '}' ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderEntity * ent = getCurrentEntity(data);
+      unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad *
+          pad = dynamic_cast<
+              unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad *>(
+                  ent->pad.get());
+      assert(pad != 0);
+      ent->entity = new unoidl::PolymorphicStructTypeTemplateEntity(
+          pad->isPublished(), pad->typeParameters, pad->members,
+          annotations($1));
+      ent->pad.clear();
+      clearCurrentName(data);
+  }
+;
+
+typeParameters:
+  typeParameters ',' identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      rtl::Reference<unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad>
+          pad(getCurrentPad<unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad>(
+                  data));
+      OUString id(convertName($3));
+      if (nameHasSameIdentifierAs(data->currentName, id)) {
+          error(
+              @3, yyscanner,
+              ("polymorphic struct type template " + data->currentName
+               + " type parameter " + id
+               + " has same unqualified identifer as the type itself"));
+          YYERROR;
+      }
+      if (std::find(
+              pad->typeParameters.begin(), pad->typeParameters.end(),  id)
+          != pad->typeParameters.end())
+      {
+          error(
+              @3, yyscanner,
+              ("polymorphic struct type template " + data->currentName
+               + " type parameter " + id
+               + " has same identifier as another type parameter"));
+          YYERROR;
+      }
+      pad->typeParameters.push_back(id);
+  }
+| identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      rtl::Reference<unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad>
+          pad(getCurrentPad<unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad>(
+                  data));
+      OUString id(convertName($1));
+      if (nameHasSameIdentifierAs(data->currentName, id)) {
+          error(
+              @1, yyscanner,
+              ("polymorphic struct type template " + data->currentName
+               + " type parameter " + id
+               + " has same unqualified identifer as the type itself"));
+          YYERROR;
+      }
+      assert(pad->typeParameters.empty());
+      pad->typeParameters.push_back(id);
+  }
+;
+
+exceptionDefn:
+  deprecated_opt published_opt TOK_EXCEPTION identifier singleInheritance_opt
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      convertToCurrentName(data, $4);
+      OUString baseName;
+      rtl::Reference<unoidl::ExceptionTypeEntity> baseEnt;
+      if ($5 != 0) {
+          baseName = convertName($5);
+          unoidl::detail::SourceProviderEntity const * p;
+          if (findEntity(@5, yyscanner, data, false, &baseName, &p, 0)
+              == FOUND_ERROR)
+          {
+              YYERROR;
+          }
+          if (p == 0 || !p->entity.is()
+              || p->entity->getSort() != unoidl::Entity::SORT_EXCEPTION_TYPE)
+          {
+              error(
+                  @5, yyscanner,
+                  ("exception type " + data->currentName + " base " + baseName
+                   + " does not resolve to an existing exception type"));
+              YYERROR;
+          }
+          baseEnt = static_cast<unoidl::ExceptionTypeEntity *>(
+              p->entity.get());
+      }
+      if (!data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  data->currentName,
+                  unoidl::detail::SourceProviderEntity(
+                      new unoidl::detail::SourceProviderExceptionTypeEntityPad(
+                          $2, baseName, baseEnt)))).
+          second)
+      {
+          error(@4, yyscanner, "multiple entities named " + data->currentName);
+          YYERROR;
+      }
+  }
+ '{' structMembers '}' ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderEntity * ent = getCurrentEntity(data);
+      unoidl::detail::SourceProviderExceptionTypeEntityPad * pad =
+          dynamic_cast<unoidl::detail::SourceProviderExceptionTypeEntityPad *>(
+              ent->pad.get());
+      assert(pad != 0);
+      ent->entity = new unoidl::ExceptionTypeEntity(
+          pad->isPublished(), pad->baseName, pad->members, annotations($1));
+      ent->pad.clear();
+      clearCurrentName(data);
+  }
+;
+
+structMembers:
+  structMembers structMember
+| /* empty */
+;
+
+structMember:
+  deprecated_opt type identifier ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderType t(*$2);
+      delete $2;
+      OUString id(convertName($3));
+      switch (t.type) {
+      case unoidl::detail::SourceProviderType::TYPE_VOID:
+      case unoidl::detail::SourceProviderType::TYPE_EXCEPTION:
+          error(
+              @2, yyscanner,
+              ("illegal struct/exception type " + data->currentName
+               + " direct member " + id + " type"));
+          YYERROR;
+          break;
+      default:
+          break;
+      }
+      if (nameHasSameIdentifierAs(data->currentName, id)) {
+          error(
+              @2, yyscanner,
+              ("struct/exception type " + data->currentName + " direct member "
+               + id + " has same unqualified identifer as the type itself"));
+          YYERROR;
+      }
+      unoidl::detail::SourceProviderEntity * ent = getCurrentEntity(data);
+      unoidl::detail::SourceProviderPlainStructTypeEntityPad * p1 =
+          dynamic_cast<unoidl::detail::SourceProviderPlainStructTypeEntityPad *>(
+              ent->pad.get());
+      if (p1 != 0) {
+          for (std::vector<unoidl::PlainStructTypeEntity::Member>::iterator i(
+                   p1->members.begin());
+               i != p1->members.end(); ++i)
+          {
+              if (id == i->name) {
+                  error(
+                      @3, yyscanner,
+                      ("plain struct type " + data->currentName
+                       + " direct member " + id
+                       + " has same identifier as another direct member"));
+                  YYERROR;
+              }
+          }
+          if (p1->baseEntity.is()) {
+              OUString baseName(p1->baseName);
+              for (rtl::Reference<unoidl::PlainStructTypeEntity> baseEnt(
+                       p1->baseEntity);;)
+              {
+                  if (nameHasSameIdentifierAs(baseName, id)) {
+                      error(
+                          @3, yyscanner,
+                          ("plain struct type " + data->currentName
+                           + " direct member " + id
+                           + " has same unqalified identifier as base "
+                           + baseName));
+                      YYERROR;
+                  }
+                  for (std::vector<unoidl::PlainStructTypeEntity::Member>::const_iterator i(
+                           baseEnt->getDirectMembers().begin());
+                       i != baseEnt->getDirectMembers().end(); ++i)
+                  {
+                      if (id == i->name) {
+                          error(
+                              @3, yyscanner,
+                              ("plain struct type " + data->currentName
+                               + " direct member " + id
+                               + " has same identifier as a member of base "
+                               + baseName));
+                          YYERROR;
+                      }
+                  }
+                  baseName = baseEnt->getDirectBase();
+                  if (baseName.isEmpty()) {
+                      break;
+                  }
+                  unoidl::detail::SourceProviderEntity const * p;
+                  if (findEntity(@2, yyscanner, data, false, &baseName, &p, 0)
+                      == FOUND_ERROR)
+                  {
+                      YYERROR;
+                  }
+                  if (p == 0 || !p->entity.is()
+                      || (p->entity->getSort()
+                          != unoidl::Entity::SORT_PLAIN_STRUCT_TYPE))
+                  {
+                      error(
+                          @2, yyscanner,
+                          ("inconsistent type manager: plain struct type "
+                           + data->currentName + " base " + baseName
+                           + (" does not resolve to an existing plain struct"
+                              " type")));
+                      YYERROR;
+                  }
+                  baseEnt = static_cast<unoidl::PlainStructTypeEntity *>(
+                      p->entity.get());
+              }
+          }
+          p1->members.push_back(
+              unoidl::PlainStructTypeEntity::Member(
+                  id, t.getName(), annotations($1)));
+      } else {
+          unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad *
+              p2 = dynamic_cast<unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad *>(
+                  ent->pad.get());
+          if (p2 != 0) {
+              if (std::find(
+                      p2->typeParameters.begin(), p2->typeParameters.end(),  id)
+                  != p2->typeParameters.end())
+              {
+                  error(
+                      @3, yyscanner,
+                      ("polymorphic struct type template " + data->currentName
+                       + " direct member " + id
+                       + " has same identifier as a type parameter"));
+                  YYERROR;
+              }
+              for (std::vector<unoidl::PolymorphicStructTypeTemplateEntity::Member>::iterator i(
+                       p2->members.begin());
+                   i != p2->members.end(); ++i)
+              {
+                  if (id == i->name) {
+                      error(
+                          @3, yyscanner,
+                          ("polymorphic struct type template "
+                           + data->currentName + " direct member " + id
+                           + " has same identifier as another direct member"));
+                      YYERROR;
+                  }
+              }
+              p2->members.push_back(
+                  unoidl::PolymorphicStructTypeTemplateEntity::Member(
+                      id, t.getName(),
+                      (t.type
+                       == unoidl::detail::SourceProviderType::TYPE_PARAMETER),
+                      annotations($1)));
+          } else {
+              unoidl::detail::SourceProviderExceptionTypeEntityPad * p3
+                  = dynamic_cast<unoidl::detail::SourceProviderExceptionTypeEntityPad *>(
+                      ent->pad.get());
+              assert(p3 != 0);
+              for (std::vector<unoidl::ExceptionTypeEntity::Member>::iterator i(
+                       p3->members.begin());
+                   i != p3->members.end(); ++i)
+              {
+                  if (id == i->name) {
+                      error(
+                          @3, yyscanner,
+                          ("exception type " + data->currentName
+                           + " direct member " + id
+                           + " has same identifier as another direct member"));
+                      YYERROR;
+                  }
+              }
+              if (p3->baseEntity.is()) {
+                  OUString baseName(p3->baseName);
+                  for (rtl::Reference<unoidl::ExceptionTypeEntity> baseEnt(
+                           p3->baseEntity);;)
+                  {
+                      if (nameHasSameIdentifierAs(baseName, id)) {
+                          error(
+                              @3, yyscanner,
+                              ("exception type " + data->currentName
+                               + " direct member " + id
+                               + " has same unqalified identifier as base "
+                               + baseName));
+                          YYERROR;
+                      }
+                      for (std::vector<unoidl::ExceptionTypeEntity::Member>::const_iterator i(
+                               baseEnt->getDirectMembers().begin());
+                           i != baseEnt->getDirectMembers().end(); ++i)
+                      {
+                          if (id == i->name) {
+                              error(
+                                  @3, yyscanner,
+                                  ("exception type " + data->currentName
+                                   + " direct member " + id
+                                   + " has same identifier as a member of base "
+                                   + baseName));
+                              YYERROR;
+                          }
+                      }
+                      baseName = baseEnt->getDirectBase();
+                      if (baseName.isEmpty()) {
+                          break;
+                      }
+                      unoidl::detail::SourceProviderEntity const * p;
+                      if (findEntity(
+                              @2, yyscanner, data, false, &baseName, &p, 0)
+                          == FOUND_ERROR)
+                      {
+                          YYERROR;
+                      }
+                      if (p == 0 || !p->entity.is()
+                          || (p->entity->getSort()
+                              != unoidl::Entity::SORT_EXCEPTION_TYPE))
+                      {
+                          error(
+                              @2, yyscanner,
+                              ("inconsistent type manager: exception type "
+                               + data->currentName + " base " + baseName
+                               + (" does not resolve to an existing exception"
+                                  " type")));
+                          YYERROR;
+                      }
+                      baseEnt = static_cast<unoidl::ExceptionTypeEntity *>(
+                          p->entity.get());
+                  }
+              }
+              p3->members.push_back(
+                  unoidl::ExceptionTypeEntity::Member(
+                      id, t.getName(), annotations($1)));
+          }
+      }
+  }
+;
+
+interfaceDefn:
+  deprecated_opt published_opt TOK_INTERFACE identifier singleInheritance_opt
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      convertToCurrentName(data, $4);
+      OUString baseName;
+      rtl::Reference<unoidl::InterfaceTypeEntity> baseEnt;
+      if ($5 != 0) {
+          baseName = convertName($5);
+          unoidl::detail::SourceProviderEntity const * p;
+          if (findEntity(@5, yyscanner, data, true, &baseName, &p, 0)
+              == FOUND_ERROR)
+          {
+              YYERROR;
+          }
+          if (p == 0 || !p->entity.is()
+              || p->entity->getSort() != unoidl::Entity::SORT_INTERFACE_TYPE)
+          {
+              error(
+                  @5, yyscanner,
+                  ("interface type " + data->currentName + " direct base "
+                   + baseName
+                   + " does not resolve to an existing interface type"));
+              YYERROR;
+          }
+          baseEnt = static_cast<unoidl::InterfaceTypeEntity *>(p->entity.get());
+      }
+      std::map<OUString, unoidl::detail::SourceProviderEntity>::iterator i(
+          data->entities.find(data->currentName));
+      if (i != data->entities.end()
+          && (i->second.kind
+              != unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL))
+      {
+          error(@4, yyscanner, "multiple entities named " + data->currentName);
+          YYERROR;
+      }
+      data->entities[data->currentName] = unoidl::detail::SourceProviderEntity(
+          new unoidl::detail::SourceProviderInterfaceTypeEntityPad(
+              $2, baseName, baseEnt));
+  }
+  '{' interfaceMembers '}' ';'
+  {
+      //TODO: check direct member uniqueness
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderEntity * ent = getCurrentEntity(data);
+      unoidl::detail::SourceProviderInterfaceTypeEntityPad * pad =
+          dynamic_cast<unoidl::detail::SourceProviderInterfaceTypeEntityPad *>(
+              ent->pad.get());
+      assert(pad != 0);
+      if (pad->mandatoryBases.empty()
+          && data->currentName != "com.sun.star.uno.XInterface")
+      {
+          OUString base(".com.sun.star.uno.XInterface");
+          unoidl::detail::SourceProviderEntity const * p;
+          if (findEntity(@4, yyscanner, data, true, &base, &p, 0)
+              == FOUND_ERROR)
+          {
+              YYERROR;
+          }
+          if (p == 0 || !p->entity.is()
+              || p->entity->getSort() != unoidl::Entity::SORT_INTERFACE_TYPE)
+          {
+              error(
+                  @3, yyscanner,
+                  ("interface type " + data->currentName
+                   + " implicit direct base " + base
+                   + " does not resolve to an existing interface type"));
+              YYERROR;
+          }
+          pad->mandatoryBases.push_back(
+              unoidl::detail::SourceProviderInterfaceTypeEntityPad::Base(
+                  base,
+                  static_cast<unoidl::InterfaceTypeEntity *>(p->entity.get()),
+                  std::vector<OUString>()));
+      }
+      std::vector<unoidl::AnnotatedReference> mbases;
+      for (std::vector<unoidl::detail::SourceProviderInterfaceTypeEntityPad::Base>::const_iterator
+               i(pad->mandatoryBases.begin());
+           i != pad->mandatoryBases.end(); ++i)
+      {
+          mbases.push_back(unoidl::AnnotatedReference(i->name, i->annotations));
+      }
+      std::vector<unoidl::AnnotatedReference> obases;
+      for (std::vector<unoidl::detail::SourceProviderInterfaceTypeEntityPad::Base>::const_iterator
+               i(pad->optionalBases.begin());
+           i != pad->optionalBases.end(); ++i)
+      {
+          obases.push_back(unoidl::AnnotatedReference(i->name, i->annotations));
+      }
+      ent->entity = new unoidl::InterfaceTypeEntity(
+          pad->isPublished(), mbases, obases, pad->attributes, pad->methods,
+          annotations($1));
+      ent->pad.clear();
+      clearCurrentName(data);
+  }
+;
+
+interfaceMembers:
+ interfaceMembers interfaceMember
+| /* empty */
+;
+
+interfaceMember:
+  interfaceBase
+| interfaceAttribute
+| interfaceMethod
+;
+
+interfaceBase:
+  deprecated_opt flagSection_opt TOK_INTERFACE name ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString name(convertName($4));
+      rtl::Reference<unoidl::detail::SourceProviderInterfaceTypeEntityPad> pad(
+          getCurrentPad<unoidl::detail::SourceProviderInterfaceTypeEntityPad>(
+              data));
+      if (pad->singleBase) {
+          error(
+              @3, yyscanner,
+              "single-inheritance interface cannot have additional bases");
+          YYERROR;
+      }
+      if (($2 & ~unoidl::detail::FLAG_OPTIONAL) != 0) {
+          error(
+              @2, yyscanner,
+              "interface base can only be flagged as [optional]");
+          YYERROR;
+      }
+      bool opt = ($2 & unoidl::detail::FLAG_OPTIONAL) != 0;
+      unoidl::detail::SourceProviderEntity const * p;
+      if (findEntity(@4, yyscanner, data, true, &name, &p, 0) == FOUND_ERROR) {
+          YYERROR;
+      }
+      if (p == 0 || !p->entity.is()
+          || p->entity->getSort() != unoidl::Entity::SORT_INTERFACE_TYPE)
+      {
+          error(
+              @4, yyscanner,
+              ("interface type " + data->currentName + " direct base " + name
+               + " does not resolve to an existing interface type"));
+          YYERROR;
+      }
+      //TODO: check uniqueness (incl. that opt base != XInterface)
+      (opt ? pad->optionalBases : pad->mandatoryBases).push_back(
+          unoidl::detail::SourceProviderInterfaceTypeEntityPad::Base(
+              name,
+              static_cast<unoidl::InterfaceTypeEntity *>(p->entity.get()),
+              annotations($1)));
+  }
+;
+
+interfaceAttribute:
+  deprecated_opt flagSection type identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderType t(*$3);
+      delete $3;
+      OUString id(convertName($4));
+      if (($2 & unoidl::detail::FLAG_ATTRIBUTE) == 0) {
+          error(
+              @2, yyscanner,
+              "interface attribute must be flagged as [attribute]");
+          YYERROR;
+      }
+      if (($2
+           & ~(unoidl::detail::FLAG_ATTRIBUTE | unoidl::detail::FLAG_BOUND
+               | unoidl::detail::FLAG_READONLY))
+          != 0)
+      {
+          error(
+              @2, yyscanner,
+              ("interface attribute can only be flagged as [attribute,"
+               " optional]"));
+          YYERROR;
+      }
+      switch (t.type) {
+      case unoidl::detail::SourceProviderType::TYPE_VOID:
+      case unoidl::detail::SourceProviderType::TYPE_EXCEPTION:
+          error(
+              @3, yyscanner,
+              ("illegal interface type " + data->currentName
+               + " direct attribute " + id + " type"));
+          YYERROR;
+          break;
+      default:
+          break;
+      }
+      rtl::Reference<unoidl::detail::SourceProviderInterfaceTypeEntityPad> pad(
+          getCurrentPad<unoidl::detail::SourceProviderInterfaceTypeEntityPad>(
+              data));
+      pad->attributes.push_back(
+          unoidl::InterfaceTypeEntity::Attribute(
+              id, t.getName(), ($2 & unoidl::detail::FLAG_BOUND) != 0,
+              ($2 & unoidl::detail::FLAG_READONLY) != 0,
+              std::vector<OUString>(), std::vector<OUString>(),
+              annotations($1)));
+  }
+  attributeAccessDecls_opt ';'
+;
+
+attributeAccessDecls_opt:
+  '{' attributeAccessDecls '}'
+| /* empty */
+;
+
+attributeAccessDecls:
+  attributeAccessDecls attributeAccessDecl
+  {
+      if (($1 & $2) != 0) {
+          error(
+              @2, yyscanner, "duplicate get/set attribute access declaration");
+          YYERROR;
+      }
+      $$ = unoidl::detail::SourceProviderAccessDecls($1 | $2);
+  }
+| /* empty */ { $$ = unoidl::detail::SourceProviderAccessDecls(0); }
+;
+
+attributeAccessDecl:
+  TOK_GET exceptionSpec ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      rtl::Reference<unoidl::detail::SourceProviderInterfaceTypeEntityPad>
+          pad(getCurrentPad<unoidl::detail::SourceProviderInterfaceTypeEntityPad>(
+              data));
+      assert(!pad->attributes.empty());
+      pad->attributes.back().getExceptions = *$2;
+      delete $2;
+      $$ = unoidl::detail::SourceProviderAccessDecls::ACCESS_DECL_GET;
+  }
+| TOK_SET exceptionSpec ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      rtl::Reference<unoidl::detail::SourceProviderInterfaceTypeEntityPad>
+          pad(getCurrentPad<unoidl::detail::SourceProviderInterfaceTypeEntityPad>(
+              data));
+      assert(!pad->attributes.empty());
+      pad->attributes.back().setExceptions = *$2;
+      delete $2;
+      if (pad->attributes.back().readOnly) {
+          error(
+              @1, yyscanner,
+              ("interface type " + data->currentName
+               + " direct read-only attribute " + pad->attributes.back().name
+               + " cannot have set access declaration"));
+          YYERROR;
+      }
+      $$ = unoidl::detail::SourceProviderAccessDecls::ACCESS_DECL_SET;
+  }
+;
+
+interfaceMethod:
+  deprecated_opt type identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderType t(*$2);
+      delete $2;
+      OUString id(convertName($3));
+      if (t.type == unoidl::detail::SourceProviderType::TYPE_EXCEPTION) {
+          error(
+              @3, yyscanner,
+              ("illegal interface type " + data->currentName
+               + " direct method " + id + " return type"));
+          YYERROR;
+      }
+      rtl::Reference<unoidl::detail::SourceProviderInterfaceTypeEntityPad> pad(
+          getCurrentPad<unoidl::detail::SourceProviderInterfaceTypeEntityPad>(
+              data));
+      pad->methods.push_back(
+          unoidl::InterfaceTypeEntity::Method(
+              id, t.getName(),
+              std::vector<unoidl::InterfaceTypeEntity::Method::Parameter>(),
+              std::vector<OUString>(), annotations($1)));
+  }
+  '(' methodParams_opt ')' exceptionSpec_opt ';'
+  {
+      if ($8 != 0) {
+          unoidl::detail::SourceProviderScannerData * data
+              = yyget_extra(yyscanner);
+          rtl::Reference<unoidl::detail::SourceProviderInterfaceTypeEntityPad>
+              pad(getCurrentPad<unoidl::detail::SourceProviderInterfaceTypeEntityPad>(
+                  data));
+          assert(!pad->methods.empty());
+          pad->methods.back().exceptions = *$8;
+          delete $8;
+      }
+  }
+;
+
+methodParams_opt:
+  methodParams
+| /* empty */
+;
+
+methodParams:
+  methodParams ',' methodParam
+| methodParam
+;
+
+methodParam:
+  '[' direction ']' type identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderType t(*$4);
+      delete $4;
+      OUString id(convertName($5));
+      rtl::Reference<unoidl::detail::SourceProviderInterfaceTypeEntityPad>
+          pad(getCurrentPad<unoidl::detail::SourceProviderInterfaceTypeEntityPad>(
+              data));
+      assert(!pad->methods.empty());
+      switch (t.type) {
+      case unoidl::detail::SourceProviderType::TYPE_VOID:
+      case unoidl::detail::SourceProviderType::TYPE_EXCEPTION:
+          error(
+              @4, yyscanner,
+              ("illegal interface type " + data->currentName
+               + " direct method " + pad->methods.back().name + " parameter "
+               + id + " type"));
+          YYERROR;
+          break;
+      default:
+          break;
+      }
+      for (std::vector<unoidl::InterfaceTypeEntity::Method::Parameter>::iterator
+               i(pad->methods.back().parameters.begin());
+           i != pad->methods.back().parameters.end(); ++i)
+      {
+          if (id == i->name) {
+              error(
+                  @5, yyscanner,
+                  ("interface type " + data->currentName + " direct method "
+                   + pad->methods.back().name + " parameter " + id
+                   + " has same identifier as another parameter"));
+              YYERROR;
+          }
+      }
+      pad->methods.back().parameters.push_back(
+          unoidl::InterfaceTypeEntity::Method::Parameter(id, t.getName(), $2));
+  }
+;
+
+direction:
+  TOK_IN { $$ = unoidl::InterfaceTypeEntity::Method::Parameter::DIRECTION_IN; }
+| TOK_OUT
+  { $$ = unoidl::InterfaceTypeEntity::Method::Parameter::DIRECTION_OUT; }
+| TOK_INOUT
+  { $$ = unoidl::InterfaceTypeEntity::Method::Parameter::DIRECTION_IN_OUT; }
+;
+
+typedefDefn:
+  deprecated_opt published_opt TOK_TYPEDEF type identifier ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderType t(*$4); //TODO: service/singleton typedefs?
+      delete $4;
+      OUString name(convertToFullName(data, $5));
+      if (!data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  name,
+                  unoidl::detail::SourceProviderEntity(
+                      unoidl::detail::SourceProviderEntity::KIND_LOCAL,
+                      new unoidl::TypedefEntity(
+                          $2, t.getName(), annotations($1))))).
+          second)
+      {
+          error(@5, yyscanner, "multiple entities named " + name);
+          YYERROR;
+      }
+  }
+;
+
+constantGroupDefn:
+  deprecated_opt published_opt TOK_CONSTANTS identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      convertToCurrentName(data, $4);
+      if (!data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  data->currentName,
+                  unoidl::detail::SourceProviderEntity(
+                      new unoidl::detail::SourceProviderConstantGroupEntityPad(
+                          $2)))).
+          second)
+      {
+          error(@4, yyscanner, "multiple entities named " + data->currentName);
+          YYERROR;
+      }
+  }
+  '{' constants '}' ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderEntity * ent = getCurrentEntity(data);
+      unoidl::detail::SourceProviderConstantGroupEntityPad * pad =
+          dynamic_cast<unoidl::detail::SourceProviderConstantGroupEntityPad *>(
+              ent->pad.get());
+      assert(pad != 0);
+      ent->entity = new unoidl::ConstantGroupEntity(
+          pad->isPublished(), pad->members, annotations($1));
+      ent->pad.clear();
+      clearCurrentName(data);
+  }
+;
+
+constants:
+  constants constant
+| /* empty */
+;
+
+constant:
+  deprecated_opt TOK_CONST type identifier '=' expr ';'
+  {
+      OUString id(convertName($4));
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      rtl::Reference<unoidl::detail::SourceProviderConstantGroupEntityPad> pad(
+          getCurrentPad<unoidl::detail::SourceProviderConstantGroupEntityPad>(
+              data));
+      unoidl::detail::SourceProviderType t(*$3);
+      delete $3;
+      unoidl::ConstantValue v(false); // dummy value
+      switch (t.type) {
+      case unoidl::detail::SourceProviderType::TYPE_BOOLEAN:
+          if ($6.type != unoidl::detail::SourceProviderExpr::TYPE_BOOL) {
+              error(
+                  @6, yyscanner,
+                  ("bad value of boolean-typed constant " + data->currentName
+                   + "." + id));
+              YYERROR;
+          }
+          v = unoidl::ConstantValue($6.bval);
+          break;
+      case unoidl::detail::SourceProviderType::TYPE_BYTE:
+          switch ($6.type) {
+          case unoidl::detail::SourceProviderExpr::TYPE_INT:
+              if ($6.ival < SAL_MIN_INT8 || $6.ival > SAL_MAX_INT8) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range byte-typed constant " + data->currentName
+                       + "." + id + " value " + OUString::number($6.ival)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_Int8>($6.ival));
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+              if ($6.uval > SAL_MAX_INT8) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range byte-typed constant " + data->currentName
+                       + "." + id + " value " + OUString::number($6.uval)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_Int8>($6.uval));
+              break;
+          default:
+              error(
+                  @6, yyscanner,
+                  ("bad value of byte-typed constant " + data->currentName + "."
+                   + id));
+              YYERROR;
+              break;
+          }
+          break;
+      case unoidl::detail::SourceProviderType::TYPE_SHORT:
+          switch ($6.type) {
+          case unoidl::detail::SourceProviderExpr::TYPE_INT:
+              if ($6.ival < SAL_MIN_INT16 || $6.ival > SAL_MAX_INT16) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range short-typed constant " + data->currentName
+                       + "." + id + " value " + OUString::number($6.ival)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_Int16>($6.ival));
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+              if ($6.uval > SAL_MAX_INT16) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range short-typed constant " + data->currentName
+                       + "." + id + " value " + OUString::number($6.uval)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_Int16>($6.uval));
+              break;
+          default:
+              error(
+                  @6, yyscanner,
+                  ("bad value of short-typed constant " + data->currentName
+                   + "." + id));
+              YYERROR;
+              break;
+          }
+          break;
+      case unoidl::detail::SourceProviderType::TYPE_UNSIGNED_SHORT:
+          switch ($6.type) {
+          case unoidl::detail::SourceProviderExpr::TYPE_INT:
+              if ($6.ival < 0 || $6.ival > SAL_MAX_UINT16) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range unsigned-short-typed constant "
+                       + data->currentName + "." + id + " value "
+                       + OUString::number($6.ival)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_uInt16>($6.ival));
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+              if ($6.uval > SAL_MAX_UINT16) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range unsigned-short-typed constant "
+                       + data->currentName + "." + id + " value "
+                       + OUString::number($6.uval)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_uInt16>($6.uval));
+              break;
+          default:
+              error(
+                  @6, yyscanner,
+                  ("bad value of unsigned-short-typed constant "
+                   + data->currentName + "." + id));
+              YYERROR;
+              break;
+          }
+          break;
+      case unoidl::detail::SourceProviderType::TYPE_LONG:
+          switch ($6.type) {
+          case unoidl::detail::SourceProviderExpr::TYPE_INT:
+              if ($6.ival < SAL_MIN_INT32 || $6.ival > SAL_MAX_INT32) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range long-typed constant " + data->currentName
+                       + "." + id + " value " + OUString::number($6.ival)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_Int32>($6.ival));
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+              if ($6.uval > SAL_MAX_INT32) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range long-typed constant " + data->currentName
+                       + "." + id + " value " + OUString::number($6.uval)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_Int32>($6.uval));
+              break;
+          default:
+              error(
+                  @6, yyscanner,
+                  ("bad value of long-typed constant " + data->currentName
+                   + "." + id));
+              YYERROR;
+              break;
+          }
+          break;
+      case unoidl::detail::SourceProviderType::TYPE_UNSIGNED_LONG:
+          switch ($6.type) {
+          case unoidl::detail::SourceProviderExpr::TYPE_INT:
+              if ($6.ival < 0 || $6.ival > SAL_MAX_UINT32) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range unsigned-long-typed constant "
+                       + data->currentName + "." + id + " value "
+                       + OUString::number($6.ival)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_uInt32>($6.ival));
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+              if ($6.uval > SAL_MAX_UINT32) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range unsigned-long-typed constant "
+                       + data->currentName + "." + id + " value "
+                       + OUString::number($6.uval)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_uInt32>($6.uval));
+              break;
+          default:
+              error(
+                  @6, yyscanner,
+                  ("bad value of unsigned-long-typed constant "
+                   + data->currentName + "." + id));
+              YYERROR;
+              break;
+          }
+          break;
+      case unoidl::detail::SourceProviderType::TYPE_HYPER:
+          switch ($6.type) {
+          case unoidl::detail::SourceProviderExpr::TYPE_INT:
+              v = unoidl::ConstantValue($6.ival);
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+              if ($6.uval > SAL_MAX_INT64) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range hyper-typed constant " + data->currentName
+                       + "." + id + " value " + OUString::number($6.uval)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_Int64>($6.uval));
+              break;
+          default:
+              error(
+                  @6, yyscanner,
+                  ("bad value of hyper-typed constant " + data->currentName
+                   + "." + id));
+              YYERROR;
+              break;
+          }
+          break;
+      case unoidl::detail::SourceProviderType::TYPE_UNSIGNED_HYPER:
+          switch ($6.type) {
+          case unoidl::detail::SourceProviderExpr::TYPE_INT:
+              if ($6.ival < 0) {
+                  error(
+                      @6, yyscanner,
+                      ("out-of-range unsigned-hyper-typed constant "
+                       + data->currentName + "." + id + " value "
+                       + OUString::number($6.ival)));
+                  YYERROR;
+              }
+              v = unoidl::ConstantValue(static_cast<sal_uInt64>($6.ival));
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+              v = unoidl::ConstantValue($6.uval);
+              break;
+          default:
+              error(
+                  @6, yyscanner,
+                  ("bad value of unsigned-hyper-typed constant "
+                   + data->currentName + "." + id));
+              YYERROR;
+              break;
+          }
+          break;
+      case unoidl::detail::SourceProviderType::TYPE_FLOAT:
+          switch ($6.type) {
+          case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+              error(
+                  @6, yyscanner,
+                  ("bad boolean value of float-typed constant "
+                   + data->currentName + "." + id));
+              YYERROR;
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_INT:
+              v = unoidl::ConstantValue(static_cast<float>($6.ival));
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+              v = unoidl::ConstantValue(static_cast<float>($6.uval));
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+              v = unoidl::ConstantValue(static_cast<float>($6.fval));
+              break;
+          }
+          break;
+      case unoidl::detail::SourceProviderType::TYPE_DOUBLE:
+          switch ($6.type) {
+          case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+              error(
+                  @6, yyscanner,
+                  ("bad boolean value of double-typed constant "
+                   + data->currentName + "." + id));
+              YYERROR;
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_INT:
+              v = unoidl::ConstantValue(static_cast<double>($6.ival));
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+              v = unoidl::ConstantValue(static_cast<double>($6.uval));
+              break;
+          case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+              v = unoidl::ConstantValue($6.fval);
+              break;
+          }
+          break;
+      default:
+          error(
+              @3, yyscanner,
+              "bad type for constant " + data->currentName + "." + id);
+          YYERROR;
+          break;
+      }
+      pad->members.push_back(
+          unoidl::ConstantGroupEntity::Member(id, v, annotations($1)));
+  }
+;
+
+singleInterfaceBasedServiceDefn:
+  deprecated_opt published_opt TOK_SERVICE identifier singleInheritance
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      convertToCurrentName(data, $4);
+      OUString base(convertName($5));
+      unoidl::detail::SourceProviderEntity const * p;
+      if (findEntity(@5, yyscanner, data, false, &base, &p, 0) == FOUND_ERROR) {
+          YYERROR;
+      }
+      if (p == 0
+          || ((p->kind
+               != unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL)
+              && (!p->entity.is()
+                  || (p->entity->getSort()
+                      != unoidl::Entity::SORT_INTERFACE_TYPE))))
+      {
+          error(
+              @5, yyscanner,
+              ("single-interface--based service " + data->currentName + " base "
+               + base + " does not resolve to an interface type"));
+          YYERROR;
+      }
+      if (!data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  data->currentName,
+                  unoidl::detail::SourceProviderEntity(
+                      new unoidl::detail::SourceProviderSingleInterfaceBasedServiceEntityPad(
+                          $2, base)))).
+          second)
+      {
+          error(@4, yyscanner, "multiple entities named " + data->currentName);
+          YYERROR;
+      }
+  }
+  ctors_opt ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderEntity * ent = getCurrentEntity(data);
+      unoidl::detail::SourceProviderSingleInterfaceBasedServiceEntityPad * pad =
+          dynamic_cast<unoidl::detail::SourceProviderSingleInterfaceBasedServiceEntityPad *>(
+              ent->pad.get());
+      assert(pad != 0);
+      if (!$7) {
+          assert(pad->constructors.empty());
+          pad->constructors.push_back(
+              unoidl::SingleInterfaceBasedServiceEntity::Constructor());
+      }
+      ent->entity = new unoidl::SingleInterfaceBasedServiceEntity(
+          pad->isPublished(), pad->base, pad->constructors, annotations($1));
+      ent->pad.clear();
+      clearCurrentName(data);
+  }
+;
+
+ctors_opt:
+  '{' ctors '}' { $$ = true; }
+| /* empty */ { $$ = false; }
+;
+
+ctors:
+  ctors ctor
+| /* empty */
+;
+
+ctor:
+  deprecated_opt identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString id(convertName($2));
+      rtl::Reference<unoidl::detail::SourceProviderSingleInterfaceBasedServiceEntityPad>
+          pad(getCurrentPad<unoidl::detail::SourceProviderSingleInterfaceBasedServiceEntityPad>(
+                  data));
+      for (std::vector<unoidl::SingleInterfaceBasedServiceEntity::Constructor>::iterator
+               i(pad->constructors.begin());
+           i != pad->constructors.end(); ++i)
+      {
+          if (id == i->name) {
+              error(
+                  @2, yyscanner,
+                  ("single-interface--based service " + data->currentName
+                   + " constructor " + id
+                   + " has same identifier as another constructor"));
+              YYERROR;
+          }
+      }
+      pad->constructors.push_back(
+          unoidl::SingleInterfaceBasedServiceEntity::Constructor(
+              id, std::vector<unoidl::SingleInterfaceBasedServiceEntity::Constructor::Parameter>(),
+              std::vector<OUString>(), annotations($1)));
+  }
+  '(' ctorParams_opt ')' exceptionSpec_opt ';'
+  {
+      if ($7 != 0) {
+          unoidl::detail::SourceProviderScannerData * data
+              = yyget_extra(yyscanner);
+          rtl::Reference<unoidl::detail::SourceProviderSingleInterfaceBasedServiceEntityPad>
+              pad(getCurrentPad<unoidl::detail::SourceProviderSingleInterfaceBasedServiceEntityPad>(
+                      data));
+          assert(!pad->constructors.empty());
+          pad->constructors.back().exceptions = *$7;
+          delete $7;
+      }
+  }
+;
+
+ctorParams_opt:
+  ctorParams
+| /* empty */
+;
+
+ctorParams:
+  ctorParams ',' ctorParam
+| ctorParam
+;
+
+ctorParam:
+  '[' direction ']' type ellipsis_opt identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderType t(*$4);
+      delete $4;
+      OUString id(convertName($6));
+      rtl::Reference<unoidl::detail::SourceProviderSingleInterfaceBasedServiceEntityPad>
+          pad(getCurrentPad<unoidl::detail::SourceProviderSingleInterfaceBasedServiceEntityPad>(
+              data));
+      assert(!pad->constructors.empty());
+      if ($2 != unoidl::InterfaceTypeEntity::Method::Parameter::DIRECTION_IN) {
+          error(
+              @4, yyscanner,
+              ("single-interface--based service " + data->currentName
+               + " constructor " + pad->constructors.back().name + " parameter "
+               + id + " direction must be [in]"));
+          YYERROR;
+      }
+      switch (t.type) {
+      case unoidl::detail::SourceProviderType::TYPE_VOID:
+      case unoidl::detail::SourceProviderType::TYPE_EXCEPTION:
+          error(
+              @4, yyscanner,
+              ("illegal single-interface--based service " + data->currentName
+               + " constructor " + pad->constructors.back().name + " parameter "
+               + id + " type"));
+          YYERROR;
+          break;
+      default:
+          break;
+      }
+      if ($5) {
+          if (t.type != unoidl::detail::SourceProviderType::TYPE_ANY) {
+              error(
+                  @4, yyscanner,
+                  ("illegal single-interface--based service "
+                   + data->currentName + " constructor "
+                   + pad->constructors.back().name + " rest parameter " + id
+                   + " non-any type"));
+              YYERROR;
+          }
+          if (!pad->constructors.back().parameters.empty()) {
+              error(
+                  @5, yyscanner,
+                  ("single-interface--based service " + data->currentName
+                   + " constructor " + pad->constructors.back().name
+                   + " rest parameter " + id + " must be first parameter"));
+              YYERROR;
+          }
+      } else if (!pad->constructors.back().parameters.empty()
+                 && pad->constructors.back().parameters.back().rest)
+      {
+          error(
+              @1, yyscanner,
+              ("single-interface--based service " + data->currentName
+               + " constructor " + pad->constructors.back().name
+               + " rest parameter must be last parameter"));
+          YYERROR;
+      }
+      for (std::vector<unoidl::SingleInterfaceBasedServiceEntity::Constructor::Parameter>::iterator
+               i(pad->constructors.back().parameters.begin());
+           i != pad->constructors.back().parameters.end(); ++i)
+      {
+          if (id == i->name) {
+              error(
+                  @6, yyscanner,
+                  ("single-interface--based service " + data->currentName
+                   + " constructor " + pad->constructors.back().name
+                   + " parameter " + id
+                   + " has same identifier as another parameter"));
+              YYERROR;
+          }
+      }
+      pad->constructors.back().parameters.push_back(
+          unoidl::SingleInterfaceBasedServiceEntity::Constructor::Parameter(
+              id, t.getName(), $5));
+  }
+;
+
+ellipsis_opt:
+  TOK_ELLIPSIS { $$ = true; }
+| /* empty */ { $$ = false; }
+
+accumulationBasedServiceDefn:
+  deprecated_opt published_opt TOK_SERVICE identifier
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      convertToCurrentName(data, $4);
+      if (!data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  data->currentName,
+                  unoidl::detail::SourceProviderEntity(
+                      new unoidl::detail::SourceProviderAccumulationBasedServiceEntityPad(
+                          $2)))).
+          second)
+      {
+          error(@4, yyscanner, "multiple entities named " + data->currentName);
+          YYERROR;
+      }
+  }
+  '{' serviceMembers '}' ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderEntity * ent = getCurrentEntity(data);
+      unoidl::detail::SourceProviderAccumulationBasedServiceEntityPad * pad =
+          dynamic_cast<unoidl::detail::SourceProviderAccumulationBasedServiceEntityPad *>(
+              ent->pad.get());
+      assert(pad != 0);
+      ent->entity = new unoidl::AccumulationBasedServiceEntity(
+          pad->isPublished(), pad->directMandatoryBaseServices,
+          pad->directOptionalBaseServices, pad->directMandatoryBaseInterfaces,
+          pad->directOptionalBaseInterfaces, pad->directProperties,
+          annotations($1));
+      ent->pad.clear();
+      clearCurrentName(data);
+  }
+;
+
+serviceMembers:
+  serviceMembers serviceMember
+| /* empty */
+;
+
+serviceMember:
+  serviceBase
+| serviceInterfaceBase
+| serviceProperty
+;
+
+serviceBase:
+  deprecated_opt flagSection_opt TOK_SERVICE name ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString name(convertName($4));
+      rtl::Reference<unoidl::detail::SourceProviderAccumulationBasedServiceEntityPad> pad(
+          getCurrentPad<unoidl::detail::SourceProviderAccumulationBasedServiceEntityPad>(
+              data));
+      if (($2 & ~unoidl::detail::FLAG_OPTIONAL) != 0) {
+          error(
+              @2, yyscanner,
+              "service base can only be flagged as [optional]");
+          YYERROR;
+      }
+      bool opt = ($2 & unoidl::detail::FLAG_OPTIONAL) != 0;
+      unoidl::detail::SourceProviderEntity const * p;
+      if (findEntity(@4, yyscanner, data, false, &name, &p, 0) == FOUND_ERROR) {
+          YYERROR;
+      }
+      if (p == 0 || !p->entity.is()
+          || (p->entity->getSort()
+              != unoidl::Entity::SORT_ACCUMULATION_BASED_SERVICE))
+      {
+          error(
+              @4, yyscanner,
+              ("accumulation-based service " + data->currentName
+               + " direct base service " + name
+               + " does not resolve to an accumulation-based service"));
+          YYERROR;
+      }
+      //TODO: check uniqueness
+      (opt ? pad->directOptionalBaseServices : pad->directMandatoryBaseServices)
+          .push_back(unoidl::AnnotatedReference(name, annotations($1)));
+  }
+;
+
+serviceInterfaceBase:
+  deprecated_opt flagSection_opt TOK_INTERFACE name ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString name(convertName($4));
+      rtl::Reference<unoidl::detail::SourceProviderAccumulationBasedServiceEntityPad> pad(
+          getCurrentPad<unoidl::detail::SourceProviderAccumulationBasedServiceEntityPad>(
+              data));
+      if (($2 & ~unoidl::detail::FLAG_OPTIONAL) != 0) {
+          error(
+              @2, yyscanner,
+              "interface base can only be flagged as [optional]");
+          YYERROR;
+      }
+      bool opt = ($2 & unoidl::detail::FLAG_OPTIONAL) != 0;
+      unoidl::detail::SourceProviderEntity const * p;
+      if (findEntity(@4, yyscanner, data, false, &name, &p, 0) == FOUND_ERROR) {
+          YYERROR;
+      }
+      if (p == 0
+          || ((p->kind
+               != unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL)
+              && (!p->entity.is()
+                  || (p->entity->getSort()
+                      != unoidl::Entity::SORT_INTERFACE_TYPE))))
+      {
+          error(
+              @4, yyscanner,
+              ("accumulation-based service " + data->currentName
+               + " direct base interface " + name
+               + " does not resolve to an interface type"));
+          YYERROR;
+      }
+      //TODO: check uniqueness
+      (opt
+       ? pad->directOptionalBaseInterfaces
+       : pad->directMandatoryBaseInterfaces)
+          .push_back(unoidl::AnnotatedReference(name, annotations($1)));
+  }
+;
+
+serviceProperty:
+  deprecated_opt flagSection type identifier ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::detail::SourceProviderType t(*$3);
+      delete $3;
+      OUString id(convertName($4));
+      if (($2 & unoidl::detail::FLAG_PROPERTY) == 0) {
+          error(
+              @2, yyscanner,
+              ("accumulation-based service property must be flagged as"
+               " [property]"));
+          YYERROR;
+      }
+      if (($2
+           & ~(unoidl::detail::FLAG_BOUND | unoidl::detail::FLAG_CONSTRAINED
+               | unoidl::detail::FLAG_MAYBEAMBIGUOUS
+               | unoidl::detail::FLAG_MAYBEDEFAULT
+               | unoidl::detail::FLAG_MAYBEVOID | unoidl::detail::FLAG_OPTIONAL
+               | unoidl::detail::FLAG_PROPERTY | unoidl::detail::FLAG_READONLY
+               | unoidl::detail::FLAG_REMOVABLE
+               | unoidl::detail::FLAG_TRANSIENT))
+          != 0)
+      {
+          error(
+              @2, yyscanner,
+              ("accumulation-based service property can only be flagged as"
+               " [property, bound, constrained, maybeambiguous, maybedefault,"
+               " maybevoid, optional, readonly, removable, transient]"));
+          YYERROR;
+      }
+      int att = 0;
+      if (($2 && unoidl::detail::FLAG_BOUND) != 0) {
+          att |= unoidl::AccumulationBasedServiceEntity::Property::ATTRIBUTE_BOUND;
+      }
+      if (($2 && unoidl::detail::FLAG_CONSTRAINED) != 0) {
+          att |= unoidl::AccumulationBasedServiceEntity::Property::ATTRIBUTE_CONSTRAINED;
+      }
+      if (($2 && unoidl::detail::FLAG_MAYBEAMBIGUOUS) != 0) {
+          att |= unoidl::AccumulationBasedServiceEntity::Property::ATTRIBUTE_MAYBE_AMBIGUOUS;
+      }
+      if (($2 && unoidl::detail::FLAG_MAYBEDEFAULT) != 0) {
+          att |= unoidl::AccumulationBasedServiceEntity::Property::ATTRIBUTE_MAYBE_DEFAULT;
+      }
+      if (($2 && unoidl::detail::FLAG_MAYBEVOID) != 0) {
+          att |= unoidl::AccumulationBasedServiceEntity::Property::ATTRIBUTE_MAYBE_VOID;
+      }
+      if (($2 && unoidl::detail::FLAG_OPTIONAL) != 0) {
+          att |= unoidl::AccumulationBasedServiceEntity::Property::ATTRIBUTE_OPTIONAL;
+      }
+      if (($2 && unoidl::detail::FLAG_READONLY) != 0) {
+          att |= unoidl::AccumulationBasedServiceEntity::Property::ATTRIBUTE_READ_ONLY;
+      }
+      if (($2 && unoidl::detail::FLAG_REMOVABLE) != 0) {
+          att |= unoidl::AccumulationBasedServiceEntity::Property::ATTRIBUTE_REMOVABLE;
+      }
+      if (($2 && unoidl::detail::FLAG_TRANSIENT) != 0) {
+          att |= unoidl::AccumulationBasedServiceEntity::Property::ATTRIBUTE_TRANSIENT;
+      }
+      switch (t.type) {
+      case unoidl::detail::SourceProviderType::TYPE_VOID:
+      case unoidl::detail::SourceProviderType::TYPE_EXCEPTION:
+          error(
+              @3, yyscanner,
+              ("illegal accumulation-based service " + data->currentName
+               + " direct attribute " + id + " type"));
+          YYERROR;
+          break;
+      default:
+          break;
+      }
+      rtl::Reference<unoidl::detail::SourceProviderAccumulationBasedServiceEntityPad>
+          pad(getCurrentPad<unoidl::detail::SourceProviderAccumulationBasedServiceEntityPad>(
+                  data));
+      //TODO: check uniqueness
+      pad->directProperties.push_back(
+          unoidl::AccumulationBasedServiceEntity::Property(
+              id, t.getName(),
+              unoidl::AccumulationBasedServiceEntity::Property::Attributes(att),
+              annotations($1)));
+  }
+;
+
+interfaceBasedSingletonDefn:
+  deprecated_opt published_opt TOK_SINGLETON identifier singleInheritance ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString name(convertToFullName(data, $4));
+      OUString base(convertName($5));
+      unoidl::detail::SourceProviderEntity const * p;
+      if (findEntity(@5, yyscanner, data, false, &base, &p, 0) == FOUND_ERROR) {
+          YYERROR;
+      }
+      if (p == 0
+          || ((p->kind
+               != unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL)
+              && (!p->entity.is()
+                  || (p->entity->getSort()
+                      != unoidl::Entity::SORT_INTERFACE_TYPE))))
+      {
+          error(
+              @5, yyscanner,
+              ("interface-based singleton " + name + " base " + base
+               + " does not resolve to an interface type"));
+          YYERROR;
+      }
+      if (!data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  name,
+                  unoidl::detail::SourceProviderEntity(
+                      unoidl::detail::SourceProviderEntity::KIND_LOCAL,
+                      new unoidl::InterfaceBasedSingletonEntity(
+                          $2, base, annotations($1))))).
+          second)
+      {
+          error(@4, yyscanner, "multiple entities named " + name);
+          YYERROR;
+      }
+  }
+;
+
+serviceBasedSingletonDefn:
+  deprecated_opt published_opt TOK_SINGLETON identifier '{' TOK_SERVICE name ';'
+  '}' ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString name(convertToFullName(data, $4));
+      OUString base(convertName($7));
+      unoidl::detail::SourceProviderEntity const * p;
+      if (findEntity(@7, yyscanner, data, false, &base, &p, 0) == FOUND_ERROR) {
+          YYERROR;
+      }
+      if (p == 0
+          || !p->entity.is()
+          || (p->entity->getSort()
+              != unoidl::Entity::SORT_ACCUMULATION_BASED_SERVICE))
+      {
+          error(
+              @7, yyscanner,
+              ("service-based singleton " + name + " base " + base
+               + " does not resolve to an accumulation-based service"));
+          YYERROR;
+      }
+      if (!data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  name,
+                  unoidl::detail::SourceProviderEntity(
+                      unoidl::detail::SourceProviderEntity::KIND_LOCAL,
+                      new unoidl::ServiceBasedSingletonEntity(
+                          $2, base, annotations($1))))).
+          second)
+      {
+          error(@4, yyscanner, "multiple entities named " + name);
+          YYERROR;
+      }
+  }
+;
+
+singleInheritance_opt:
+  singleInheritance
+| /* empty */ { $$ = 0; }
+;
+
+singleInheritance: ':' name { $$ = $2; }
+;
+
+exceptionSpec_opt:
+  exceptionSpec
+| /* empty */ { $$ = 0; }
+;
+
+exceptionSpec: TOK_RAISES '(' exceptions ')' { $$ = $3; }
+;
+
+exceptions:
+  exceptions ',' name
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString name(convertName($3));
+      unoidl::detail::SourceProviderEntity const * p;
+      if (findEntity(@3, yyscanner, data, false, &name, &p, 0) == FOUND_ERROR) {
+          delete $1; /* see commented-out %destructor above */
+          YYERROR;
+      }
+      if (p == 0
+          || !p->entity.is()
+          || (p->entity->getSort() != unoidl::Entity::SORT_EXCEPTION_TYPE))
+      {
+          delete $1; /* see commented-out %destructor above */
+          error(
+              @3, yyscanner,
+              ("exception " + name + " does not resolve to an exception type"));
+          YYERROR;
+      }
+      if (std::find($1->begin(), $1->end(), name) != $1->end()) {
+          delete $1; /* see commented-out %destructor above */
+          error(
+              @3, yyscanner, ("exception " + name + " listed more than once"));
+          YYERROR;
+      }
+      $1->push_back(name);
+      $$ = $1;
+  }
+| name
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString name(convertName($1));
+      unoidl::detail::SourceProviderEntity const * p;
+      if (findEntity(@1, yyscanner, data, false, &name, &p, 0) == FOUND_ERROR) {
+          YYERROR;
+      }
+      if (p == 0
+          || !p->entity.is()
+          || (p->entity->getSort() != unoidl::Entity::SORT_EXCEPTION_TYPE))
+      {
+          error(
+              @1, yyscanner,
+              ("exception " + name + " does not resolve to an exception type"));
+          YYERROR;
+      }
+      $$ = new std::vector<OUString>; $$->push_back(name);
+  }
+;
+
+interfaceDecl:
+  deprecated_opt/*ignored*/ published_opt TOK_INTERFACE identifier ';'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString name(convertToFullName(data, $4));
+      std::pair<std::map<OUString, unoidl::detail::SourceProviderEntity>::iterator, bool> p(
+          data->entities.insert(
+              std::map<OUString, unoidl::detail::SourceProviderEntity>::value_type(
+                  name, unoidl::detail::SourceProviderEntity())));
+      if (!p.second
+          && (p.first->second.kind
+              != unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL))
+      {
+          assert(p.first->second.entity.is());
+          if (p.first->second.entity->getSort()
+              != unoidl::Entity::SORT_INTERFACE_TYPE)
+          {
+              error(
+                  @4, yyscanner,
+                  "multiple entities named " + data->currentName);
+              YYERROR;
+          }
+      }
+  }
+;
+
+published_opt:
+  TOK_PUBLISHED { $$ = true; }
+| /* empty */ { $$ = false; }
+;
+
+flagSection_opt:
+  flagSection
+| /* empty */ { $$ = unoidl::detail::SourceProviderFlags(0); }
+;
+
+flagSection: '[' flags ']' { $$ = $2; }
+;
+
+flags:
+  flags ',' flag
+  {
+      if (($1 & $3) != 0) {
+          error(@3, yyscanner, "duplicate flag " + flagName($3));
+          YYERROR;
+      }
+      $$ = unoidl::detail::SourceProviderFlags($1 | $3);
+  }
+| flag
+;
+
+flag:
+  TOK_ATTRIBUTE { $$ = unoidl::detail::FLAG_ATTRIBUTE; }
+| TOK_BOUND { $$ = unoidl::detail::FLAG_BOUND; }
+| TOK_CONSTRAINED { $$ = unoidl::detail::FLAG_CONSTRAINED; }
+| TOK_MAYBEAMBIGUOUS { $$ = unoidl::detail::FLAG_MAYBEAMBIGUOUS; }
+| TOK_MAYBEDEFAULT { $$ = unoidl::detail::FLAG_MAYBEDEFAULT; }
+| TOK_MAYBEVOID { $$ = unoidl::detail::FLAG_MAYBEVOID; }
+| TOK_OPTIONAL { $$ = unoidl::detail::FLAG_OPTIONAL; }
+| TOK_PROPERTY { $$ = unoidl::detail::FLAG_PROPERTY; }
+| TOK_READONLY { $$ = unoidl::detail::FLAG_READONLY; }
+| TOK_REMOVABLE { $$ = unoidl::detail::FLAG_REMOVABLE; }
+| TOK_TRANSIENT { $$ = unoidl::detail::FLAG_TRANSIENT; }
+;
+
+expr: orExpr
+;
+
+orExpr:
+  orExpr '|' xorExpr
+  {
+      if (!coerce(@1, yyscanner, &$1, &$3)) {
+          YYERROR;
+      }
+      switch ($1.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          $$ = unoidl::detail::SourceProviderExpr::Int($1.ival | $3.ival);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          $$ = unoidl::detail::SourceProviderExpr::Uint($1.uval | $3.uval);
+          break;
+      default:
+          error(@1, yyscanner, "arguments of non-integer type to \"|\"");
+          YYERROR;
+          break;
+      }
+  }
+| xorExpr
+;
+
+xorExpr:
+  xorExpr '^' andExpr
+  {
+      if (!coerce(@1, yyscanner, &$1, &$3)) {
+          YYERROR;
+      }
+      switch ($1.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          $$ = unoidl::detail::SourceProviderExpr::Int($1.ival ^ $3.ival);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          $$ = unoidl::detail::SourceProviderExpr::Uint($1.uval ^ $3.uval);
+          break;
+      default:
+          error(@1, yyscanner, "arguments of non-integer type to \"^\"");
+          YYERROR;
+          break;
+      }
+  }
+| andExpr
+;
+
+andExpr:
+  andExpr '&' shiftExpr
+  {
+      if (!coerce(@1, yyscanner, &$1, &$3)) {
+          YYERROR;
+      }
+      switch ($1.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          $$ = unoidl::detail::SourceProviderExpr::Int($1.ival & $3.ival);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          $$ = unoidl::detail::SourceProviderExpr::Uint($1.uval & $3.uval);
+          break;
+      default:
+          error(@1, yyscanner, "arguments of non-integer type to \"&\"");
+          YYERROR;
+          break;
+      }
+  }
+| shiftExpr
+;
+
+shiftExpr:
+  shiftExpr TOK_LEFTSHIFT addExpr
+  {
+      int n;
+      switch ($3.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          if ($3.ival < 0 || $3.ival > 63) {
+              error(
+                  @3, yyscanner,
+                  ("out-of-range shift argument " + OUString::number($3.ival)
+                   + " to \"<<\" "));
+              YYERROR;
+          }
+          n = static_cast<int>($3.ival);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          if ($3.uval > 63) {
+              error(
+                  @3, yyscanner,
+                  ("out-of-range shift argument " + OUString::number($3.uval)
+                   + " to \"<<\" "));
+              YYERROR;
+          }
+          n = static_cast<int>($3.uval);
+          break;
+      default:
+          error(@3, yyscanner, "right argument of non-integer type to \"<<\"");
+          YYERROR;
+      }
+      switch ($1.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          if ($1.ival < 0) {
+              error(
+                  @1, yyscanner,
+                  ("cannot left-shift negative argument "
+                   + OUString::number($1.ival)));
+              YYERROR;
+          }
+          $$ = unoidl::detail::SourceProviderExpr::Int($1.ival << n);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          $$ = unoidl::detail::SourceProviderExpr::Uint($1.uval << n);
+          break;
+      default:
+          error(@1, yyscanner, "left argument of non-integer type to \"<<\"");
+          YYERROR;
+          break;
+      }
+  }
+| shiftExpr TOK_RIGHTSHIFT addExpr
+  {
+      int n;
+      switch ($3.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          if ($3.ival < 0 || $3.ival > 63) {
+              error(
+                  @3, yyscanner,
+                  ("out-of-range shift argument " + OUString::number($3.ival)
+                   + " to \">>\" "));
+              YYERROR;
+          }
+          n = static_cast<int>($3.ival);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          if ($3.uval > 63) {
+              error(
+                  @3, yyscanner,
+                  ("out-of-range shift argument " + OUString::number($3.uval)
+                   + " to \">>\" "));
+              YYERROR;
+          }
+          n = static_cast<int>($3.uval);
+          break;
+      default:
+          error(@3, yyscanner, "right argument of non-integer type to \">>\"");
+          YYERROR;
+          break;
+      }
+      switch ($1.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          $$ = unoidl::detail::SourceProviderExpr::Int($1.ival >> n);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          $$ = unoidl::detail::SourceProviderExpr::Uint($1.uval >> n);
+          break;
+      default:
+          error(@1, yyscanner, "left argument of non-integer type to \">>\"");
+          YYERROR;
+          break;
+      }
+  }
+| addExpr
+;
+
+addExpr:
+  addExpr '+' multExpr
+  {
+      if (!coerce(@1, yyscanner, &$1, &$3)) {
+          YYERROR;
+      }
+      switch ($1.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+          error(@1, yyscanner, "arguments of boolean type to binary \"+\"");
+          YYERROR;
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          $$ = unoidl::detail::SourceProviderExpr::Int($1.ival + $3.ival); //TODO: overflow
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          $$ = unoidl::detail::SourceProviderExpr::Uint($1.uval + $3.uval); //TODO: overflow
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+          $$ = unoidl::detail::SourceProviderExpr::Float($1.fval + $3.fval);
+          break;
+      }
+  }
+| addExpr '-' multExpr
+  {
+      if (!coerce(@1, yyscanner, &$1, &$3)) {
+          YYERROR;
+      }
+      switch ($1.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+          error(@1, yyscanner, "arguments of boolean type to binary \"-\"");
+          YYERROR;
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          $$ = unoidl::detail::SourceProviderExpr::Int($1.ival - $3.ival); //TODO: overflow
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          $$ = unoidl::detail::SourceProviderExpr::Uint($1.uval - $3.uval); //TODO: overflow
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+          $$ = unoidl::detail::SourceProviderExpr::Float($1.fval - $3.fval);
+          break;
+      }
+  }
+| multExpr
+;
+
+multExpr:
+  multExpr '*' unaryExpr
+  {
+      if (!coerce(@1, yyscanner, &$1, &$3)) {
+          YYERROR;
+      }
+      switch ($1.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+          error(@1, yyscanner, "arguments of boolean type to \"*\"");
+          YYERROR;
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          $$ = unoidl::detail::SourceProviderExpr::Int($1.ival * $3.ival); //TODO: overflow
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          $$ = unoidl::detail::SourceProviderExpr::Uint($1.uval * $3.uval); //TODO: overflow
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+          $$ = unoidl::detail::SourceProviderExpr::Float($1.fval * $3.fval);
+          break;
+      }
+  }
+| multExpr '/' unaryExpr
+  {
+      if (!coerce(@1, yyscanner, &$1, &$3)) {
+          YYERROR;
+      }
+      switch ($1.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+          error(@1, yyscanner, "arguments of boolean type to \"/\"");
+          YYERROR;
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          if ($3.ival == 0) {
+              error(@3, yyscanner, "cannot divide by zero");
+              YYERROR;
+          }
+          $$ = unoidl::detail::SourceProviderExpr::Int($1.ival / $3.ival);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          if ($3.uval == 0) {
+              error(@3, yyscanner, "cannot divide by zero");
+              YYERROR;
+          }
+          $$ = unoidl::detail::SourceProviderExpr::Uint($1.uval / $3.uval);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+          if ($3.fval == 0) {
+              error(@3, yyscanner, "cannot divide by zero");
+              YYERROR;
+          }
+          $$ = unoidl::detail::SourceProviderExpr::Float($1.fval - $3.fval);
+          break;
+      }
+  }
+| multExpr '%' unaryExpr
+  {
+      if (!coerce(@1, yyscanner, &$1, &$3)) {
+          YYERROR;
+      }
+      switch ($1.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          if ($3.ival == 0) {
+              error(@3, yyscanner, "cannot divide by zero");
+              YYERROR;
+          }
+          $$ = unoidl::detail::SourceProviderExpr::Int($1.ival % $3.ival);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          if ($3.uval == 0) {
+              error(@3, yyscanner, "cannot divide by zero");
+              YYERROR;
+          }
+          $$ = unoidl::detail::SourceProviderExpr::Uint($1.uval % $3.uval);
+          break;
+      default:
+          error(@1, yyscanner, "arguments of non-integer type to \"%\"");
+          YYERROR;
+          break;
+      }
+  }
+| unaryExpr
+;
+
+unaryExpr:
+  '+' primaryExpr
+  {
+      if ($2.type == unoidl::detail::SourceProviderExpr::TYPE_BOOL) {
+          error(@2, yyscanner, "argument of boolean type to unary \"+\"");
+          YYERROR;
+      }
+      $$ = $2;
+  }
+| '-' primaryExpr
+  {
+      switch ($2.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_BOOL:
+          error(@2, yyscanner, "argument of boolean type to unary \"-\"");
+          YYERROR;
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          if ($2.ival == SAL_MIN_INT64) {
+              error(@2, yyscanner, "cannot negate -2^63");
+              YYERROR;
+          }
+          $$ = unoidl::detail::SourceProviderExpr::Int(-$2.ival);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          if ($2.uval > SAL_MAX_INT64) {
+              error(
+                  @2, yyscanner,
+                  ("cannot negate out-of-range value "
+                   + OUString::number($2.uval)));
+              YYERROR;
+          }
+          $$ = unoidl::detail::SourceProviderExpr::Int(
+              -static_cast<sal_Int64>($2.uval));
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_FLOAT:
+          $$ = unoidl::detail::SourceProviderExpr::Float(-$2.fval);
+          break;
+      }
+  }
+| '~' primaryExpr
+  {
+      switch ($2.type) {
+      case unoidl::detail::SourceProviderExpr::TYPE_INT:
+          $$ = unoidl::detail::SourceProviderExpr::Int(~$2.ival);
+          break;
+      case unoidl::detail::SourceProviderExpr::TYPE_UINT:
+          $$ = unoidl::detail::SourceProviderExpr::Uint(~$2.uval);
+          break;
+      default:
+          error(@2, yyscanner, "argument of non-integer type to \"~\"");
+          YYERROR;
+          break;
+      }
+  }
+| primaryExpr
+;
+
+primaryExpr:
+  '(' expr ')' { $$ = $2; }
+| TOK_FALSE { $$ = unoidl::detail::SourceProviderExpr::Bool(false); }
+| TOK_TRUE { $$ = unoidl::detail::SourceProviderExpr::Bool(true); }
+| TOK_INTEGER { $$ = unoidl::detail::SourceProviderExpr::Uint($1); }
+| TOK_FLOATING { $$ = unoidl::detail::SourceProviderExpr::Float($1); }
+| name
+  {
+      OUString name(convertName($1));
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      unoidl::ConstantValue v(false); // dummy value
+      bool found = false;
+      sal_Int32 i = name.lastIndexOf('.');
+      if (i == -1) {
+          rtl::Reference<unoidl::detail::SourceProviderEntityPad> pad(
+              getCurrentEntity(data)->pad);
+          unoidl::detail::SourceProviderEnumTypeEntityPad * p1 = dynamic_cast<
+              unoidl::detail::SourceProviderEnumTypeEntityPad *>(pad.get());
+          if (p1 != 0) {
+              for (std::vector<unoidl::EnumTypeEntity::Member>::const_iterator
+                       j(p1->members.begin());
+                   j != p1->members.end(); ++j)
+              {
+                  if (j->name == name) {
+                      v = unoidl::ConstantValue(j->value);
+                      found = true;
+                      break;
+                  }
+              }
+          } else {
+              unoidl::detail::SourceProviderConstantGroupEntityPad * p2
+                  = dynamic_cast<
+                      unoidl::detail::SourceProviderConstantGroupEntityPad *>(
+                          pad.get());
+              if (p2 != 0) {
+                  for (std::vector<unoidl::ConstantGroupEntity::Member>::const_iterator
+                           j(p2->members.begin());
+                       j != p2->members.end(); ++j)
+                  {
+                      if (j->name == name) {
+                          v = j->value;
+                          found = true;
+                          break;
+                      }
+                  }
+              }
+          }
+      } else {
+          OUString scope(name.copy(0, i));
+          unoidl::detail::SourceProviderEntity const * ent;
+          if (findEntity(@1, yyscanner, data, false, &scope, &ent, 0)
+              == FOUND_ERROR)
+          {
+              YYERROR;
+          }
+          if (ent != 0) {
+              OUString id(name.copy(i + 1));
+              // No need to check for enum members here, as they cannot be
+              // referenced in expressions by qualified name (TODO: is that true?):
+              if (ent->entity.is()) {
+                  if (ent->entity->getSort()
+                      == unoidl::Entity::SORT_CONSTANT_GROUP)
+                  {
+                      std::vector<unoidl::ConstantGroupEntity::Member> const &
+                          mems(
+                              static_cast<unoidl::ConstantGroupEntity *>(
+                                  ent->entity.get())->
+                              getMembers());
+                      for (std::vector<unoidl::ConstantGroupEntity::Member>::const_iterator j(
+                               mems.begin());
+                           j != mems.end(); ++j)
+                      {
+                          if (j->name == id) {
+                              v = j->value;
+                              found = true;
+                              break;
+                          }
+                      }
+                  }
+              } else if (ent->pad.is()) {
+                  unoidl::detail::SourceProviderConstantGroupEntityPad * pad
+                      = dynamic_cast<
+                          unoidl::detail::SourceProviderConstantGroupEntityPad *>(
+                              ent->pad.get());
+                  if (pad != 0) {
+                      for (std::vector<unoidl::ConstantGroupEntity::Member>::const_iterator j(
+                               pad->members.begin());
+                           j != pad->members.end(); ++j)
+                      {
+                          if (j->name == id) {
+                              v = j->value;
+                              found = true;
+                              break;
+                          }
+                      }
+                  }
+              }
+          }
+      }
+      if (!found) {
+          error(
+              @1, yyscanner,
+              (name
+               + (" does not resolve to neither a constant nor an unqualified"
+                  " enum member")));
+          YYERROR;
+      }
+      switch (v.type) {
+      case unoidl::ConstantValue::TYPE_BOOLEAN:
+          $$ = unoidl::detail::SourceProviderExpr::Bool(v.booleanValue);
+          break;
+      case unoidl::ConstantValue::TYPE_BYTE:
+          $$ = unoidl::detail::SourceProviderExpr::Int(v.byteValue);
+          break;
+      case unoidl::ConstantValue::TYPE_SHORT:
+          $$ = unoidl::detail::SourceProviderExpr::Int(v.shortValue);
+          break;
+      case unoidl::ConstantValue::TYPE_UNSIGNED_SHORT:
+          $$ = unoidl::detail::SourceProviderExpr::Uint(v.unsignedShortValue);
+          break;
+      case unoidl::ConstantValue::TYPE_LONG:
+          $$ = unoidl::detail::SourceProviderExpr::Int(v.longValue);
+          break;
+      case unoidl::ConstantValue::TYPE_UNSIGNED_LONG:
+          $$ = unoidl::detail::SourceProviderExpr::Uint(v.unsignedLongValue);
+          break;
+      case unoidl::ConstantValue::TYPE_HYPER:
+          $$ = unoidl::detail::SourceProviderExpr::Int(v.hyperValue);
+          break;
+      case unoidl::ConstantValue::TYPE_UNSIGNED_HYPER:
+          $$ = unoidl::detail::SourceProviderExpr::Uint(v.unsignedHyperValue);
+          break;
+      case unoidl::ConstantValue::TYPE_FLOAT:
+          $$ = unoidl::detail::SourceProviderExpr::Float(v.floatValue);
+          break;
+      case unoidl::ConstantValue::TYPE_DOUBLE:
+          $$ = unoidl::detail::SourceProviderExpr::Float(v.doubleValue);
+          break;
+      }
+  }
+;
+
+typeArguments:
+  typeArguments ',' type
+  {
+      unoidl::detail::SourceProviderType t(*$3);
+      delete $3;
+      if (!checkTypeArgument(@3, yyscanner, t)) {
+          delete $1; /* see commented-out %destructor above */
+          YYERROR;
+      }
+      $1->push_back(t);
+      $$ = $1;
+  }
+| type
+  {
+      unoidl::detail::SourceProviderType t(*$1);
+      delete $1;
+      if (!checkTypeArgument(@1, yyscanner, t)) {
+          YYERROR;
+      }
+      $$ = new std::vector<unoidl::detail::SourceProviderType>;
+      $$->push_back(t);
+  }
+;
+
+type:
+  TOK_VOID
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_VOID);
+  }
+| TOK_BOOLEAN
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_BOOLEAN);
+  }
+| TOK_BYTE
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_BYTE);
+  }
+| TOK_SHORT
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_SHORT);
+  }
+| TOK_UNSIGNED TOK_SHORT
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_UNSIGNED_SHORT);
+  }
+| TOK_LONG
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_LONG);
+  }
+| TOK_UNSIGNED TOK_LONG
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_UNSIGNED_LONG);
+  }
+| TOK_HYPER
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_HYPER);
+  }
+| TOK_UNSIGNED TOK_HYPER
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_UNSIGNED_HYPER);
+  }
+| TOK_FLOAT
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_FLOAT);
+  }
+| TOK_DOUBLE
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_DOUBLE);
+  }
+| TOK_CHAR
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_CHAR);
+  }
+| TOK_STRING
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_STRING);
+  }
+| TOK_TYPE
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_TYPE);
+  }
+| TOK_ANY
+  {
+      $$ = new unoidl::detail::SourceProviderType(
+          unoidl::detail::SourceProviderType::TYPE_ANY);
+  }
+| TOK_SEQUENCE '<' type '>'
+  {
+      switch ($3->type) {
+      case unoidl::detail::SourceProviderType::TYPE_VOID:
+      case unoidl::detail::SourceProviderType::TYPE_EXCEPTION:
+      case unoidl::detail::SourceProviderType::TYPE_PARAMETER: //TODO?
+          error(@3, yyscanner, "illegal sequence type component type");
+          YYERROR;
+          break;
+      default:
+          break;
+      }
+      $$ = new unoidl::detail::SourceProviderType($3);
+      delete $3;
+  }
+| name
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString name(convertName($1));
+      bool done = false;
+      if (name.indexOf('.') == -1 && !data->currentName.isEmpty()) {
+          unoidl::detail::SourceProviderEntity * ent = getCurrentEntity(data);
+          unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad *
+              pad = dynamic_cast<
+                  unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad *>(
+                      ent->pad.get());
+          if (pad != 0
+              && (std::find(
+                      pad->typeParameters.begin(), pad->typeParameters.end(),
+                      name)
+                  != pad->typeParameters.end()))
+          {
+              $$ = new unoidl::detail::SourceProviderType(name);
+              done = true;
+          }
+      }
+      if (!done) {
+          unoidl::detail::SourceProviderEntity const * ent;
+          unoidl::detail::SourceProviderType t;
+          switch (findEntity(@1, yyscanner, data, false, &name, &ent, &t)) {
+          case FOUND_ERROR:
+              YYERROR;
+              break;
+          case FOUND_TYPE:
+              $$ = new unoidl::detail::SourceProviderType(t);
+              break;
+          case FOUND_ENTITY:
+              if (ent == 0) {
+                  error(@1, yyscanner, "unknown entity " + name);
+                  YYERROR;
+              }
+              bool ok = false;
+              switch (ent->kind) {
+              case unoidl::detail::SourceProviderEntity::KIND_LOCAL:
+                  if (ent->pad.is()) {
+                      if (dynamic_cast<unoidl::detail::SourceProviderEnumTypeEntityPad *>(
+                              ent->pad.get())
+                          != 0)
+                      {
+                          $$ = new unoidl::detail::SourceProviderType(
+                              unoidl::detail::SourceProviderType::TYPE_ENUM,
+                              name, ent);
+                          ok = true;
+                      } else if (dynamic_cast<unoidl::detail::SourceProviderPlainStructTypeEntityPad *>(
+                                     ent->pad.get())
+                                 != 0)
+                      {
+                          $$ = new unoidl::detail::SourceProviderType(
+                              unoidl::detail::SourceProviderType::TYPE_PLAIN_STRUCT,
+                              name, ent);
+                          ok = true;
+                      } else if (dynamic_cast<unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad *>(
+                                     ent->pad.get())
+                                 != 0)
+                      {
+                          error(
+                              @1, yyscanner,
+                              (("recursive reference to polymorphic struct type"
+                                " template ")
+                               + name));
+                          YYERROR;
+                      } else if (dynamic_cast<unoidl::detail::SourceProviderExceptionTypeEntityPad *>(
+                                     ent->pad.get())
+                                 != 0)
+                      {
+                          $$ = new unoidl::detail::SourceProviderType(
+                              unoidl::detail::SourceProviderType::TYPE_EXCEPTION,
+                              name, ent);
+                          ok = true;
+                      } else if (dynamic_cast<unoidl::detail::SourceProviderInterfaceTypeEntityPad *>(
+                                     ent->pad.get())
+                                 != 0)
+                      {
+                          $$ = new unoidl::detail::SourceProviderType(
+                              unoidl::detail::SourceProviderType::TYPE_INTERFACE,
+                              name, ent);
+                          ok = true;
+                      }
+                      break;
+                  }
+                  assert(ent->entity.is());
+                  // fall through
+              case unoidl::detail::SourceProviderEntity::KIND_EXTERNAL:
+                  switch (ent->entity->getSort()) {
+                  case unoidl::Entity::SORT_ENUM_TYPE:
+                      $$ = new unoidl::detail::SourceProviderType(
+                          unoidl::detail::SourceProviderType::TYPE_ENUM, name,
+                          ent);
+                      ok = true;
+                      break;
+                  case unoidl::Entity::SORT_PLAIN_STRUCT_TYPE:
+                      $$ = new unoidl::detail::SourceProviderType(
+                          unoidl::detail::SourceProviderType::TYPE_PLAIN_STRUCT,
+                          name, ent);
+                      ok = true;
+                      break;
+                  case unoidl::Entity::SORT_POLYMORPHIC_STRUCT_TYPE_TEMPLATE:
+                      error(
+                          @1, yyscanner,
+                          ("polymorphic struct type template " + name
+                           + " without type arguments"));
+                      YYERROR;
+                      break;
+                  case unoidl::Entity::SORT_EXCEPTION_TYPE:
+                      $$ = new unoidl::detail::SourceProviderType(
+                          unoidl::detail::SourceProviderType::TYPE_EXCEPTION,
+                          name, ent);
+                      ok = true;
+                      break;
+                  case unoidl::Entity::SORT_INTERFACE_TYPE:
+                      $$ = new unoidl::detail::SourceProviderType(
+                          unoidl::detail::SourceProviderType::TYPE_INTERFACE,
+                          name, ent);
+                      ok = true;
+                      break;
+                  case unoidl::Entity::SORT_TYPEDEF:
+                      assert(false); // this cannot happen
+                      // fall through
+                  default:
+                      break;
+                  }
+                  break;
+              case unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL:
+                  $$ = new unoidl::detail::SourceProviderType(
+                      unoidl::detail::SourceProviderType::TYPE_INTERFACE, name,
+                      ent);
+                  ok = true;
+                  break;
+              }
+              if (!ok) {
+                  error(@1, yyscanner, "non-type entity " + name);
+                  YYERROR;
+              }
+              break;
+          }
+      }
+  }
+| name '<' typeArguments '>'
+  {
+      unoidl::detail::SourceProviderScannerData * data = yyget_extra(yyscanner);
+      OUString name(convertName($1));
+      std::vector<unoidl::detail::SourceProviderType> args(*$3);
+      delete $3;
+      unoidl::detail::SourceProviderEntity const * ent;
+      if (findEntity(@1, yyscanner, data, false, &name, &ent, 0) == FOUND_ERROR)
+      {
+          YYERROR;
+      }
+      if (ent == 0) {
+          error(@1, yyscanner, "unknown entity " + name);
+          YYERROR;
+      }
+      bool ok = false;
+      switch (ent->kind) {
+      case unoidl::detail::SourceProviderEntity::KIND_LOCAL:
+          if (ent->pad.is()) {
+              if (dynamic_cast<unoidl::detail::SourceProviderPolymorphicStructTypeTemplateEntityPad *>(
+                      ent->pad.get())
+                  != 0)
+              {
+                  error(
+                      @1, yyscanner,
+                      (("recursive reference to polymorphic struct type"
+                        " template ")
+                       + name));
+                  YYERROR;
+              }
+              break;
+          }
+          assert(ent->entity.is());
+          // fall through
+      case unoidl::detail::SourceProviderEntity::KIND_EXTERNAL:
+          if (ent->entity->getSort()
+              == unoidl::Entity::SORT_POLYMORPHIC_STRUCT_TYPE_TEMPLATE)
+          {
+              if (args.size()
+                  != (static_cast<
+                          unoidl::PolymorphicStructTypeTemplateEntity *>(
+                              ent->entity.get())->
+                      getTypeParameters().size()))
+              {
+                  error(
+                      @1, yyscanner,
+                      ("bad number of polymorphic struct type template " + name
+                       + " type arguments"));
+                  YYERROR;
+              }
+              $$ = new unoidl::detail::SourceProviderType(name, ent, args);
+              ok = true;
+          }
+          break;
+      case unoidl::detail::SourceProviderEntity::KIND_INTERFACE_DECL:
+          break;
+      }
+      if (!ok) {
+          error(@1, yyscanner, "non-type entity " + name);
+          YYERROR;
+      }
+  }
+;
+
+name:
+  name TOK_COLONS identifier { *$1 += "." + *$3; delete $3; $$ = $1; }
+| TOK_COLONS identifier { *$2 = "." + *$2; $$ = $2; }
+| identifier
+;
+
+identifier:
+  TOK_IDENTIFIER
+| TOK_GET { $$ = new OString("get"); }
+| TOK_PUBLISHED { $$ = new OString("published"); }
+| TOK_SET { $$ = new OString("set"); }
+;
+
+deprecated_opt:
+  TOK_DEPRECATED { $$ = true; }
+| /* empty */ { $$ = false; }
+;
+
+%%
+
+namespace unoidl { namespace detail {
+
+OUString SourceProviderType::getName() const {
+    if (!typedefName.isEmpty()) {
+        return typedefName;
+    }
+    switch (type) {
+    case unoidl::detail::SourceProviderType::TYPE_VOID:
+        return OUString("void");
+    case unoidl::detail::SourceProviderType::TYPE_BOOLEAN:
+        return OUString("boolean");
+    case unoidl::detail::SourceProviderType::TYPE_BYTE:
+        return OUString("byte");
+    case unoidl::detail::SourceProviderType::TYPE_SHORT:
+        return OUString("short");
+    case unoidl::detail::SourceProviderType::TYPE_UNSIGNED_SHORT:
+        return OUString("unsigned short");
+    case unoidl::detail::SourceProviderType::TYPE_LONG:
+        return OUString("long");
+    case unoidl::detail::SourceProviderType::TYPE_UNSIGNED_LONG:
+        return OUString("unsigned long");
+    case unoidl::detail::SourceProviderType::TYPE_HYPER:
+        return OUString("hyper");
+    case unoidl::detail::SourceProviderType::TYPE_UNSIGNED_HYPER:
+        return OUString("unsigned hyper");
+    case unoidl::detail::SourceProviderType::TYPE_FLOAT:
+        return OUString("float");
+    case unoidl::detail::SourceProviderType::TYPE_DOUBLE:
+        return OUString("double");
+    case unoidl::detail::SourceProviderType::TYPE_CHAR:
+        return OUString("char");
+    case unoidl::detail::SourceProviderType::TYPE_STRING:
+        return OUString("string");
+    case unoidl::detail::SourceProviderType::TYPE_TYPE:
+        return OUString("type");
+    case unoidl::detail::SourceProviderType::TYPE_ANY:
+        return OUString("any");
+    case unoidl::detail::SourceProviderType::TYPE_SEQUENCE:
+        assert(subtypes.size() == 1);
+        return "[]" + subtypes.front().getName();
+    case unoidl::detail::SourceProviderType::TYPE_ENUM:
+    case unoidl::detail::SourceProviderType::TYPE_PLAIN_STRUCT:
+    case unoidl::detail::SourceProviderType::TYPE_EXCEPTION:
+    case unoidl::detail::SourceProviderType::TYPE_INTERFACE:
+    case unoidl::detail::SourceProviderType::TYPE_PARAMETER:
+        return name;
+    case unoidl::detail::SourceProviderType::TYPE_INSTANTIATED_POLYMORPHIC_STRUCT:
+        {
+            OUString n(name + "<");
+            for (std::vector<SourceProviderType>::const_iterator i(
+                     subtypes.begin());
+                 i != subtypes.end(); ++i)
+            {
+                if (i != subtypes.begin()) {
+                    n += ",";
+                }
+                n += i->getName();
+            }
+            return n + ">";
+        }
+    default:
+        assert(false); for (;;) { std::abort(); } // this cannot happen
+    }
+}
+
+} }
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/unoidl/source/sourceprovider-scanner.hxx b/unoidl/source/sourceprovider-scanner.hxx
new file mode 100644
index 000000000000..450936152b98
--- /dev/null
+++ b/unoidl/source/sourceprovider-scanner.hxx
@@ -0,0 +1,247 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ */
+
+#ifndef INCLUDED_UNOIDL_SOURCE_SOURCEPROVIDER_SCANNER_HXX
+#define INCLUDED_UNOIDL_SOURCE_SOURCEPROVIDER_SCANNER_HXX
+
+#include "sal/config.h"
+
+#include <cassert>
+#include <map>
+#include <vector>
+
+#include "rtl/ref.hxx"
+#include "rtl/ustring.hxx"
+#include "sal/types.h"
+#include "salhelper/simplereferenceobject.hxx"
+#include "unoidl/unoidl.hxx"
+
+#include "sourceprovider-parser-requires.hxx"
+#include "sourceprovider-parser.hxx"
+
+namespace unoidl { namespace detail {
+
+class SourceProviderEntityPad: public salhelper::SimpleReferenceObject {
+public:
+    bool isPublished() const { return published_; }
+
+protected:
+    explicit SourceProviderEntityPad(bool published): published_(published) {}
+
+    virtual ~SourceProviderEntityPad() {}
+
+private:
+    bool const published_;
+};
+
+class SourceProviderEnumTypeEntityPad: public SourceProviderEntityPad {
+public:
+    explicit SourceProviderEnumTypeEntityPad(bool published):
+        SourceProviderEntityPad(published)
+    {}
+
+    std::vector<unoidl::EnumTypeEntity::Member> members;
+
+private:
+    virtual ~SourceProviderEnumTypeEntityPad() throw () {}
+};
+
+class SourceProviderPlainStructTypeEntityPad: public SourceProviderEntityPad {
+public:
+    SourceProviderPlainStructTypeEntityPad(
+        bool published, OUString theBaseName,
+        rtl::Reference<unoidl::PlainStructTypeEntity> const & theBaseEntity):
+        SourceProviderEntityPad(published), baseName(theBaseName),
+        baseEntity(theBaseEntity)
+    { assert(theBaseName.isEmpty() != theBaseEntity.is()); }
+
+    OUString const baseName;
+    rtl::Reference<unoidl::PlainStructTypeEntity> const baseEntity;
+    std::vector<unoidl::PlainStructTypeEntity::Member> members;
+
+private:
+    virtual ~SourceProviderPlainStructTypeEntityPad() throw () {}
+};
+
+class SourceProviderPolymorphicStructTypeTemplateEntityPad:
+    public SourceProviderEntityPad
+{
+public:
+    SourceProviderPolymorphicStructTypeTemplateEntityPad(bool published):
+        SourceProviderEntityPad(published)
+    {}
+
+    std::vector<OUString> typeParameters;
+    std::vector<unoidl::PolymorphicStructTypeTemplateEntity::Member> members;
+
+private:
+    virtual ~SourceProviderPolymorphicStructTypeTemplateEntityPad() throw () {}
+};
+
+class SourceProviderExceptionTypeEntityPad: public SourceProviderEntityPad {
+public:
+    SourceProviderExceptionTypeEntityPad(
+        bool published, OUString theBaseName,
+        rtl::Reference<unoidl::ExceptionTypeEntity> const & theBaseEntity):
+        SourceProviderEntityPad(published), baseName(theBaseName),
+        baseEntity(theBaseEntity)
+    { assert(theBaseName.isEmpty() != theBaseEntity.is()); }
+
+    OUString const baseName;
+    rtl::Reference<unoidl::ExceptionTypeEntity> const baseEntity;
+    std::vector<unoidl::ExceptionTypeEntity::Member> members;
+
+private:
+    virtual ~SourceProviderExceptionTypeEntityPad() throw () {}
+};
+
+class SourceProviderInterfaceTypeEntityPad: public SourceProviderEntityPad {
+public:
+    struct Base {
+        Base(
+            OUString const & theName,
+            rtl::Reference<unoidl::InterfaceTypeEntity> const & theEntity,
+            std::vector<OUString> const & theAnnotations):
+            name(theName), entity(theEntity), annotations(theAnnotations)
+        {}
+
+        OUString name;
+        rtl::Reference<unoidl::InterfaceTypeEntity> entity;
+        std::vector<OUString> annotations;
+    };
+
+    SourceProviderInterfaceTypeEntityPad(
+        bool published, OUString singleBaseName,
+        rtl::Reference<unoidl::InterfaceTypeEntity> const & singleBaseEntity):
+        SourceProviderEntityPad(published),
+        singleBase(!singleBaseName.isEmpty())
+    {
+        assert(singleBaseName.isEmpty() != singleBaseEntity.is());
+        if (singleBase) {
+            mandatoryBases.push_back(
+                Base(
+                    singleBaseName, singleBaseEntity, std::vector<OUString>()));
+        }
+    }
+
+    bool singleBase;
+    std::vector<Base> mandatoryBases;
+    std::vector<Base> optionalBases;
+    std::vector<unoidl::InterfaceTypeEntity::Attribute> attributes;
+    std::vector<unoidl::InterfaceTypeEntity::Method> methods;
+
+private:
+    virtual ~SourceProviderInterfaceTypeEntityPad() throw () {}
+};
+
+class SourceProviderConstantGroupEntityPad: public SourceProviderEntityPad {
+public:
+    explicit SourceProviderConstantGroupEntityPad(bool published):
+        SourceProviderEntityPad(published)
+    {}
+
+    std::vector<unoidl::ConstantGroupEntity::Member> members;
+
+private:
+    virtual ~SourceProviderConstantGroupEntityPad() throw () {}
+};
+
+class SourceProviderSingleInterfaceBasedServiceEntityPad:
+    public SourceProviderEntityPad
+{
+public:
+    explicit SourceProviderSingleInterfaceBasedServiceEntityPad(
+        bool published, OUString const & theBase):
+        SourceProviderEntityPad(published), base(theBase)
+    {}
+
+    OUString const base;
+    std::vector<unoidl::SingleInterfaceBasedServiceEntity::Constructor>
+        constructors;
+
+private:
+    virtual ~SourceProviderSingleInterfaceBasedServiceEntityPad() throw () {}
+};
+
+class SourceProviderAccumulationBasedServiceEntityPad:
+    public SourceProviderEntityPad
+{
+public:
+    explicit SourceProviderAccumulationBasedServiceEntityPad(bool published):
+        SourceProviderEntityPad(published)
+    {}
+
+    std::vector<unoidl::AnnotatedReference> directMandatoryBaseServices;
+    std::vector<unoidl::AnnotatedReference> directOptionalBaseServices;
+    std::vector<unoidl::AnnotatedReference> directMandatoryBaseInterfaces;
+    std::vector<unoidl::AnnotatedReference> directOptionalBaseInterfaces;
+    std::vector<unoidl::AccumulationBasedServiceEntity::Property>
+        directProperties;
+
+private:
+    virtual ~SourceProviderAccumulationBasedServiceEntityPad() throw () {}
+};
+
+struct SourceProviderEntity {
+    enum Kind { KIND_EXTERNAL, KIND_LOCAL, KIND_INTERFACE_DECL };
+
+    explicit SourceProviderEntity(
+        Kind theKind, rtl::Reference<unoidl::Entity> const & externalEntity):
+        kind(theKind), entity(externalEntity)
+    { assert(theKind != KIND_INTERFACE_DECL); assert(externalEntity.is()); }
+
+    explicit SourceProviderEntity(
+        rtl::Reference<SourceProviderEntityPad> const & localPad):
+        kind(KIND_LOCAL), pad(localPad)
+    { assert(localPad.is()); }
+
+    SourceProviderEntity(): kind(KIND_INTERFACE_DECL) {}
+
+    Kind kind;
+    rtl::Reference<unoidl::Entity> entity;
+    rtl::Reference<SourceProviderEntityPad> pad;
+};
+
+struct SourceProviderScannerData {
+    SourceProviderScannerData(
+        rtl::Reference<unoidl::Manager> const & theManager,
+        void const * sourceAddress, sal_uInt64 sourceSize):
+        manager(theManager),
+        sourcePosition(static_cast<char const *>(sourceAddress)),
+        sourceEnd(sourcePosition + sourceSize), errorLine(0)
+    { assert(manager.is()); }
+
+    rtl::Reference<unoidl::Manager> manager;
+
+    char const * sourcePosition;
+    char const * const sourceEnd;
+    YYLTYPE errorLine;
+    OString parserError;
+    OUString errorMessage;
+
+    std::map<OUString, SourceProviderEntity> entities;
+    std::vector<OUString> modules;
+    OUString currentName;
+};
+
+} }
+
+int yylex_init_extra(
+    unoidl::detail::SourceProviderScannerData * user_defined,
+    yyscan_t * yyscanner);
+
+int yylex_destroy(yyscan_t yyscanner);
+
+int yylex(YYSTYPE * yylval_param, YYLTYPE * yylloc_param, yyscan_t yyscanner);
+
+unoidl::detail::SourceProviderScannerData * yyget_extra(yyscan_t yyscanner);
+
+#endif
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/unoidl/source/sourceprovider-scanner.l b/unoidl/source/sourceprovider-scanner.l
new file mode 100755
index 000000000000..b0e9299b3779
--- /dev/null
+++ b/unoidl/source/sourceprovider-scanner.l
@@ -0,0 +1,253 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ */
+
+%option bison-bridge
+%option bison-locations
+%option extra-type="unoidl::detail::SourceProviderScannerData *"
+%option never-interactive
+%option nounistd
+%option noyywrap
+%option reentrant
+%option warn
+%option yylineno
+
+%top {
+
+#include "sal/config.h"
+
+#include <algorithm>
+#include <cassert>
+#include <cstddef>
+#include <cstring>
+
+}
+
+%{
+
+#include "rtl/math.h"
+#include "rtl/string.hxx"
+#include "rtl/ustring.hxx"
+#include "rtl/textenc.h"
+#include "sal/types.h"
+
+#include "sourceprovider-parser-requires.hxx"
+#include "sourceprovider-parser.hxx"
+#include "sourceprovider-scanner.hxx"
+
+namespace unoidl { namespace detail {
+
+static std::size_t sourceProviderScannerInput(
+    SourceProviderScannerData * data, char * buffer, std::size_t size)
+{
+    assert(data != 0);
+    if (data->sourcePosition == data->sourceEnd) {
+        return YY_NULL;
+    }
+    assert(data->sourcePosition < data->sourceEnd);
+    size = std::min<std::size_t>(size, data->sourceEnd - data->sourcePosition);
+    std::memcpy(buffer, data->sourcePosition, size);
+    data->sourcePosition += size;
+    return size;
+}
+
+} }
+
+#define YY_INPUT(buf, result, max_size) ((result) = \
+    ::unoidl::detail::sourceProviderScannerInput(yyextra, (buf), (max_size)))
+
+namespace {
+
+int nonZeroIntegerLiteral(
+    char const * text, std::size_t length, sal_Int16 radix, sal_uInt64 * value,
+    unoidl::detail::SourceProviderScannerData * data)
+{
+    assert(text != 0);
+    assert(length != 0);
+    assert(value != 0);
+    assert(data != 0);
+    std::size_t n = length;
+    switch (text[length - 1]) {
+    case 'L':
+    case 'U':
+    case 'l':
+    case 'u':
+        --n;
+        break;
+    default:
+        break;
+    }
+    *value = OString(text, n).toUInt64(radix);
+    if (*value == 0) {
+        data->errorMessage = "out-of-range integer literal "
+            + OUString(text, length, RTL_TEXTENCODING_ASCII_US);
+        return TOK_ERROR;
+    }
+    return TOK_INTEGER;
+}
+
+}
+
+%}
+
+%x comment1 comment2 doc docdepr
+
+DIGIT [0-9]
+UPPER [A-Z]
+LOWER [a-z]
+ALPHA {UPPER}|{LOWER}
+ALNUM {DIGIT}|{ALPHA}
+
+%%
+
+[ \t\r]
+\n *yylloc = yylineno;
+
+"//" BEGIN comment1;
+"#" BEGIN comment1; //TODO: only at start of line
+<comment1>.
+<comment1>\n *yylloc = yylineno; BEGIN INITIAL;
+
+"/*" BEGIN comment2;
+"/**" BEGIN doc;
+"/***" BEGIN comment2;
+
+<comment2,doc>"*/" BEGIN INITIAL;
+<docdepr>"*/" BEGIN INITIAL; return TOK_DEPRECATED;
+
+<comment2,docdepr>.
+<comment2,doc,docdepr>\n *yylloc = yylineno;
+<comment2,doc,docdepr><<EOF>> {
+    yyextra->errorMessage = "unterminated comment";
+    return TOK_ERROR;
+}
+
+<doc>[ \t\r]
+<doc>"@deprecated" BEGIN docdepr;
+<doc>"*"
+<doc>[^ \t\r\n*]+
+
+[%&()*+,\-/:;<=>[\]^{|}~] return yytext[0];
+
+"..." return TOK_ELLIPSIS;
+"::" return TOK_COLONS;
+"<<" return TOK_LEFTSHIFT;
+">>" return TOK_RIGHTSHIFT;
+
+"FALSE" return TOK_FALSE;
+"False" return TOK_FALSE;
+"TRUE" return TOK_TRUE;
+"True" return TOK_TRUE;
+"any" return TOK_ANY;
+"attribute" return TOK_ATTRIBUTE;
+"boolean" return TOK_BOOLEAN;
+"bound" return TOK_BOUND;
+"byte" return TOK_BYTE;
+"char" return TOK_CHAR;
+"const" return TOK_CONST;
+"constants" return TOK_CONSTANTS;
+"constrained" return TOK_CONSTRAINED;
+"double" return TOK_DOUBLE;
+"enum" return TOK_ENUM;
+"exception" return TOK_EXCEPTION;
+"float" return TOK_FLOAT;
+"get" return TOK_GET;
+"hyper" return TOK_HYPER;
+"in" return TOK_IN;
+"inout" return TOK_INOUT;
+"interface" return TOK_INTERFACE;
+"long" return TOK_LONG;
+"maybeambiguous" return TOK_MAYBEAMBIGUOUS;
+"maybedefault" return TOK_MAYBEDEFAULT;
+"maybevoid" return TOK_MAYBEVOID;
+"module" return TOK_MODULE;
+"optional" return TOK_OPTIONAL;
+"out" return TOK_OUT;
+"property" return TOK_PROPERTY;
+"published" return TOK_PUBLISHED;
+"raises" return TOK_RAISES;
+"readonly" return TOK_READONLY;
+"removable" return TOK_REMOVABLE;
+"sequence" return TOK_SEQUENCE;
+"service" return TOK_SERVICE;
+"set" return TOK_SET;
+"short" return TOK_SHORT;
+"singleton" return TOK_SINGLETON;
+"string" return TOK_STRING;
+"struct" return TOK_STRUCT;
+"transient" return TOK_TRANSIENT;
+"type" return TOK_TYPE;
+"typedef" return TOK_TYPEDEF;
+"unsigned" return TOK_UNSIGNED;
+"void" return TOK_VOID;
+
+{UPPER}("_"?{ALNUM})*|{LOWER}{ALNUM}* {
+    yylval->sval = new OString(yytext);
+    return TOK_IDENTIFIER;
+}
+
+({ALPHA}|"_")({ALNUM}|"_")* {
+#if 1 //TODO
+    yylval->sval=new OString(yytext);return TOK_IDENTIFIER;
+#else
+    yyextra->errorMessage = "illegal identifier "
+        + OUString(yytext, yyleng, RTL_TEXTENCODING_ASCII_US);
+    return TOK_ERROR;
+#endif
+}
+
+0+[LUlu]? |
+0[Xx]0+[LUlu]? {
+    yylval->ival = 0;
+    return TOK_INTEGER;
+}
+
+0[0-7]+[LUlu]? {
+    return nonZeroIntegerLiteral(yytext, yyleng, 8, &yylval->ival, yyextra);
+}
+
+[1-9]{DIGIT}*[LUlu]? {
+    return nonZeroIntegerLiteral(yytext, yyleng, 10, &yylval->ival, yyextra);
+}
+
+0[Xx][0-9A-Fa-f]+[LUlu]? {
+    return nonZeroIntegerLiteral(
+        yytext + 2, yyleng - 2, 16, &yylval->ival, yyextra);
+}
+
+{DIGIT}+[Ee][+\-]?{DIGIT}+[Ff]? |
+{DIGIT}*"."{DIGIT}+([Ee][+\-]?{DIGIT}+)?[Ff]? {
+    rtl_math_ConversionStatus s;
+    yylval->fval = rtl_math_stringToDouble(
+        yytext, yytext + yyleng, '.', 0, &s, 0);
+    if (s == rtl_math_ConversionStatus_OutOfRange) {
+        yyextra->errorMessage = "out-of-range floating-point literal "
+            + OUString(yytext, yyleng, RTL_TEXTENCODING_ASCII_US);
+        return TOK_ERROR;
+    }
+    return TOK_FLOATING;
+}
+
+{DIGIT}({ALNUM}|"_")* {
+    yyextra->errorMessage = "illegal numeric literal "
+        + OUString(yytext, yyleng, RTL_TEXTENCODING_ASCII_US);
+    return TOK_ERROR;
+}
+
+. {
+    unsigned char c = yytext[0];
+    yyextra->errorMessage = c >= ' ' && c <= '~'
+        ? OUString("invalid character \"" + OUString(sal_Unicode(c)) + "\"")
+        : OUString(
+            "invalid byte x" + OUString::number(c, 16).toAsciiUpperCase());
+    return TOK_ERROR;
+}
+
+%%
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/unoidl/source/sourceprovider.cxx b/unoidl/source/sourceprovider.cxx
new file mode 100755
index 000000000000..ed44e40e79c0
--- /dev/null
+++ b/unoidl/source/sourceprovider.cxx
@@ -0,0 +1,206 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ */
+
+#include "sal/config.h"
+
+#include <cerrno>
+#include <map>
+#include <new>
+
+#include "osl/file.h"
+#include "osl/thread.h"
+#include "rtl/character.hxx"
+#include "rtl/ref.hxx"
+#include "rtl/ustrbuf.hxx"
+#include "rtl/ustring.hxx"
+#include "unoidl/sourceprovider.hxx"
+#include "unoidl/unoidl.hxx"
+
+#include "sourceprovider-parser-requires.hxx"
+#include "sourceprovider-parser.hxx"
+#include "sourceprovider-scanner.hxx"
+
+namespace unoidl {
+
+namespace {
+
+rtl::Reference<Entity> parse(
+    rtl::Reference<Manager> const & manager, OUString const & name,
+    OUString const & uri, void const * address, sal_uInt64 size)
+{
+    detail::SourceProviderScannerData data(manager, address, size);
+    yyscan_t yyscanner;
+    if (yylex_init_extra(&data, &yyscanner) != 0) {
+        // Checking errno for the specific EINVAL, ENOMEM documented for
+        // yylex_init_extra would not work as those values are not defined by
+        // the C++ Standard:
+        int e = errno;
+        throw FileFormatException(
+            uri, "yylex_init_extra failed with errno " + OUString::number(e));
+    }
+    int e = yyparse(yyscanner);
+    yylex_destroy(yyscanner);
+    switch (e) {
+    case 0:
+        {
+            std::map<OUString, detail::SourceProviderEntity>::const_iterator i(
+                data.entities.find(name));
+            return i == data.entities.end()
+                ? rtl::Reference<Entity>() : i->second.entity;
+        }
+    default:
+        assert(false);
+        // fall through
+    case 1:
+        throw FileFormatException(
+            uri,
+            ("cannot parse"
+             + (data.errorLine == 0
+                ? OUString() : " line " + OUString::number(data.errorLine))
+             + (data.parserError.isEmpty()
+                ? OUString()
+                : (", "
+                   + OStringToOUString(
+                       data.parserError, osl_getThreadTextEncoding())))
+             + (data.errorMessage.isEmpty()
+                ? OUString() : ": \"" + data.errorMessage + "\"")));
+    case 2:
+        throw std::bad_alloc();
+    }
+}
+
+class Cursor: public MapCursor {
+public:
+    Cursor() {}
+
+private:
+    virtual ~Cursor() throw () {}
+
+    virtual rtl::Reference<Entity> getNext(OUString *)
+    { return rtl::Reference<Entity>(); } //TODO
+};
+
+}
+
+SourceProvider::SourceProvider(
+    rtl::Reference<Manager> const & manager, OUString const & uri):
+    manager_(manager), uri_(uri.endsWith("/") ? uri : uri + "/")
+{}
+
+rtl::Reference<MapCursor> SourceProvider::createRootCursor() const {
+    return new Cursor;
+}
+
+rtl::Reference<Entity> SourceProvider::findEntity(OUString const & name) const {
+    std::map< OUString, rtl::Reference<Entity> >::iterator ci(
+        cache_.find(name));
+    if (ci != cache_.end()) {
+        return ci->second;
+    }
+    // Match name against
+    //   name ::= identifier ("." identifier)*
+    //   identifier ::= upper-blocks | lower-block
+    //   upper-blocks ::= upper ("_"? alnum)*
+    //   lower-block :== lower alnum*
+    //   alnum ::= digit | upper | lower
+    //   digit ::= "0"--"9"
+    //   upper ::= "A"--"Z"
+    //   lower ::= "a"--"z"
+    OUStringBuffer buf(name);
+    sal_Int32 start = 0;
+    sal_Int32 i = 0;
+    for (; i != name.getLength(); ++i) {
+        sal_Unicode c = name[i];
+        if (c == '.') {
+            assert(i == start || i != 0);
+            if (i == start || name[i - 1] == '_') {
+                throw FileFormatException( //TODO
+                    "", "Illegal UNOIDL identifier \"" + name + "\"");
+            }
+            buf[i] = '/';
+            start = i + 1;
+        } else if (c == '_') {
+            assert(i == start || i != 0);
+            if (i == start || name[i - 1] == '_'
+                || !rtl::isAsciiUpperCase(name[start]))
+            {
+                throw FileFormatException( //TODO
+                    "", "Illegal UNOIDL identifier \"" + name + "\"");
+            }
+        } else if (rtl::isAsciiDigit(c)) {
+            if (i == start) {
+                throw FileFormatException( //TODO
+                    "", "Illegal UNOIDL identifier \"" + name + "\"");
+            }
+        } else if (!rtl::isAsciiAlpha(c)) {
+            throw FileFormatException( //TODO
+                "", "Illegal UNOIDL identifier \"" + name + "\"");
+        }
+    }
+    if (i == start) {
+        throw FileFormatException( //TODO
+            "", "Illegal UNOIDL identifier \"" + name + "\"");
+    }
+    OUString uri(uri_ + buf.makeStringAndClear() + ".idl");
+    oslFileHandle handle;
+    oslFileError e = osl_openFile(uri.pData, &handle, osl_File_OpenFlag_Read);
+    switch (e) {
+    case osl_File_E_None:
+        break;
+    case osl_File_E_NOENT:
+        cache_.insert(
+            std::map< OUString, rtl::Reference<Entity> >::value_type(
+                name, rtl::Reference<Entity>()));
+        return rtl::Reference<Entity>();
+    default:
+        throw FileFormatException(uri, "cannot open: " + OUString::number(e));
+    }
+    sal_uInt64 size;
+    e = osl_getFileSize(handle, &size);
+    if (e != osl_File_E_None) {
+        oslFileError e2 = osl_closeFile(handle);
+        SAL_WARN_IF(
+            e2 != osl_File_E_None, "unoidl",
+            "cannot close " << uri << ": " << +e2);
+        throw FileFormatException(
+            uri, "cannot get size: " + OUString::number(e));
+    }
+    void * address;
+    e = osl_mapFile(handle, &address, size, 0, osl_File_MapFlag_RandomAccess);
+    if (e != osl_File_E_None) {
+        oslFileError e2 = osl_closeFile(handle);
+        SAL_WARN_IF(
+            e2 != osl_File_E_None, "unoidl",
+            "cannot close " << uri << ": " << +e2);
+        throw FileFormatException(uri, "cannot mmap: " + OUString::number(e));
+    }
+    rtl::Reference<Entity> ent;
+    try {
+        ent = parse(manager_, name, uri, address, size);
+    } catch (...) {
+        e = osl_unmapMappedFile(handle, address, size);
+        SAL_WARN_IF(e != osl_File_E_None, "unoidl", "cannot unmap: " << +e);
+        e = osl_closeFile(handle);
+        SAL_WARN_IF(e != osl_File_E_None, "unoidl", "cannot close: " << +e);
+        throw;
+    }
+    e = osl_unmapMappedFile(handle, address, size);
+    SAL_WARN_IF(e != osl_File_E_None, "unoidl", "cannot unmap: " << +e);
+    e = osl_closeFile(handle);
+    SAL_WARN_IF(e != osl_File_E_None, "unoidl", "cannot close: " << +e);
+    cache_.insert(
+        std::map< OUString, rtl::Reference<Entity> >::value_type(name, ent));
+    return ent;
+}
+
+SourceProvider::~SourceProvider() throw () {}
+
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */