diff options
Diffstat (limited to 'experimental/tqtinterface/qt4/src/tqmoc/tqmoc.y')
| -rw-r--r-- | experimental/tqtinterface/qt4/src/tqmoc/tqmoc.y | 3636 |
1 files changed, 3636 insertions, 0 deletions
diff --git a/experimental/tqtinterface/qt4/src/tqmoc/tqmoc.y b/experimental/tqtinterface/qt4/src/tqmoc/tqmoc.y new file mode 100644 index 000000000..69ac26965 --- /dev/null +++ b/experimental/tqtinterface/qt4/src/tqmoc/tqmoc.y @@ -0,0 +1,3636 @@ +/**************************************************************************** +** +** Parser and code generator for meta object compiler +** +** Created : 930417 +** +** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA. +** +** This file is part of the TQt GUI Toolkit. +** +** This file may be used under the terms of the GNU General +** Public License versions 2.0 or 3.0 as published by the Free +** Software Foundation and appearing in the files LICENSE.GPL2 +** and LICENSE.GPL3 included in the packaging of this file. +** Alternatively you may (at your option) use any later version +** of the GNU General Public License if such license has been +** publicly approved by Trolltech ASA (or its successors, if any) +** and the KDE Free TQt Foundation. +** +** Please review the following information to ensure GNU General +** Public Licensing requirements will be met: +** http://trolltech.com/products/qt/licenses/licensing/opensource/. +** If you are unsure which license is appropriate for your use, please +** review the following information: +** http://trolltech.com/products/qt/licenses/licensing/licensingoverview +** or contact the sales department at sales@trolltech.com. +** +** This file may be used under the terms of the TQ Public License as +** defined by Trolltech ASA and appearing in the file LICENSE.TQPL +** included in the packaging of this file. Licensees holding valid TQt +** Commercial licenses may use this file in accordance with the TQt +** Commercial License Agreement provided with the Software. +** +** This file is provided "AS IS" with NO WARRANTY OF ANY KIND, +** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR +** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted +** herein. +** +** -------------------------------------------------------------------------- +** +** This compiler reads a C++ header file with class definitions and ouputs +** C++ code to build a meta class. The meta data includes public methods +** (not constructors, destructors or operator functions), tqsignals and slot +** definitions. The output file should be compiled and linked into the +** target application. +** +** C++ header files are assumed to have correct syntax, and we are therefore +** doing less strict checking than C++ compilers. +** +** The C++ grammar has been adopted from the "The Annotated C++ Reference +** Manual" (ARM), by Ellis and Stroustrup (Addison Wesley, 1992). +** +** Notice that this code is not possible to compile with GNU bison, instead +** use standard AT&T yacc or Berkeley yacc. +*****************************************************************************/ + +%{ +#define TQMOC_YACC_CODE +void yyerror( const char *msg ); + +#include "tqplatformdefs.h" +#include "tqasciidict.h" +#include "tqdatetime.h" +#include "tqdict.h" +#include "tqfile.h" +#include "tqdir.h" +#include "tqptrlist.h" +#include "tqregexp.h" +#include "tqstrlist.h" +#ifdef TQMOC_MWERKS_PLUGIN +# ifdef TQ_OS_MACX +# undef OLD_DEBUG +# ifdef DEBUG +# define OLD_DEBUG DEBUG +# undef DEBUG +# endif +# define DEBUG 0 +# ifndef __IMAGECAPTURE__ +# define __IMAGECAPTURE__ +# endif +# include <Carbon/Carbon.h> +# endif +# include "mwerks_mac.h" +#endif + +#include <ctype.h> +#include <stdio.h> +#include <stdlib.h> + +#if defined CONST +#undef CONST +#endif +#if defined VOID +#undef VOID +#endif + +bool isEnumType( const char* type ); +int enumIndex( const char* type ); +bool isVariantType( const char* type ); +int qvariant_nameToType( const char* name ); +static void init(); // initialize +static void initClass(); // prepare for new class +static void generateClass(); // generate C++ code for class +static void initExpression(); // prepare for new expression +static void enterNameSpace( const char *name = 0 ); +static void leaveNameSpace(); +static void selectOutsideClassState(); +static void registerClassInNamespace(); +static bool suppress_func_warn = FALSE; +static void func_warn( const char *msg ); +static void tqmoc_warn( const char *msg ); +static void tqmoc_err( const char *s ); +static void tqmoc_err( const char *s1, const char *s2 ); +static void operatorError(); +static void checkPropertyName( const char* ident ); + +static const char* const utype_map[] = +{ + "bool", + "int", + "double", + "TQString", + "TQVariant", + 0 +}; + +inline bool isIdentChar( char x ) +{ // Avoid bug in isalnum + return x == '_' || (x >= '0' && x <= '9') || + (x >= 'a' && x <= 'z') || (x >= 'A' && x <= 'Z'); +} + +bool validUType( TQCString ctype ) +{ + if ( ctype.left(6) == "const " ) + ctype = ctype.mid( 6, ctype.length() - 6 ); + if ( ctype.right(1) == "&" ) + ctype = ctype.left( ctype.length() - 1 ); + else if ( ctype.right(1) == "*" ) + return TRUE; + + int i = -1; + while ( utype_map[++i] ) + if ( ctype == utype_map[i] ) + return TRUE; + + return isEnumType( ctype ); +} + +TQCString castToUType( TQCString ctype ) +{ + if ( ctype.right(1) == "&" ) + ctype = ctype.left( ctype.length() - 1 ); + if( ctype.right(1) == "]") { + int lb = ctype.tqfindRev('['); + if(lb != -1) + ctype = ctype.left(lb) + "*"; + } + return ctype; +} + +TQCString rawUType( TQCString ctype ) +{ + ctype = castToUType( ctype ); + if ( ctype.left(6) == "const " ) + ctype = ctype.mid( 6, ctype.length() - 6 ); + return ctype; +} + +TQCString uType( TQCString ctype ) +{ + if ( !validUType( ctype ) ) { + if ( isVariantType( rawUType(ctype) ) ) + return "varptr"; + else + return "ptr"; + } + if ( ctype.left(6) == "const " ) + ctype = ctype.mid( 6, ctype.length() - 6 ); + if ( ctype.right(1) == "&" ) { + ctype = ctype.left( ctype.length() - 1 ); + } else if ( ctype.right(1) == "*" ) { + TQCString raw = ctype.left( ctype.length() - 1 ); + ctype = "ptr"; + if ( raw == "char" ) + ctype = "charstar"; + else if ( raw == "TQUnknownInterface" ) + ctype = "iface"; + else if ( raw == "TQDispatchInterface" ) + ctype = "idisp"; + else if ( isVariantType( raw ) ) + ctype = "varptr"; + } + if ( isEnumType( ctype ) ) + ctype = "enum"; + return ctype; +} + +bool isInOut( TQCString ctype ) +{ + if ( ctype.left(6) == "const " ) + return FALSE; + if ( ctype.right(1) == "&" ) + return TRUE; + if ( ctype.right(2) == "**" ) + return TRUE; + return FALSE; +} + +TQCString uTypeExtra( TQCString ctype ) +{ + TQCString typeExtra = "0"; + if ( !validUType( ctype ) ) { + if ( isVariantType( rawUType(ctype) ) ) + typeExtra.sprintf("\"\\x%02x\"", qvariant_nameToType( rawUType(ctype) ) ); + else + typeExtra.sprintf( "\"%s\"", rawUType(ctype).data() ); + return typeExtra; + } + if ( ctype.left(6) == "const " ) + ctype = ctype.mid( 6, ctype.length() - 6 ); + if ( ctype.right(1) == "&" ) + ctype = ctype.left( ctype.length() - 1 ); + if ( ctype.right(1) == "*" ) { + TQCString raw = ctype.left( ctype.length() - 1 ); + ctype = "ptr"; + if ( raw == "char" ) + ; + else if ( isVariantType( raw ) ) + typeExtra.sprintf("\"\\x%02x\"", qvariant_nameToType( raw ) ); + else + typeExtra.sprintf( "\"%s\"", raw.stripWhiteSpace().data() ); + + } else if ( isEnumType( ctype ) ) { + int idx = enumIndex( ctype ); + if ( idx >= 0 ) { + typeExtra.sprintf( "&enum_tbl[%d]", enumIndex( ctype ) ); + } else { + typeExtra.sprintf( "parentObject->enumerator(\"%s\", TRUE )", ctype.data() ); + } + typeExtra = + "\n#ifndef TQT_NO_PROPERTIES\n\t " + typeExtra + + "\n#else" + "\n\t 0" + "\n#endif // TQT_NO_PROPERTIES\n\t "; + } + return typeExtra; +} + +/* + Attention! + This table is copied from qvariant.cpp. If you change + one, change both. +*/ +static const int ntypes = 35; +static const char* const type_map[ntypes] = +{ + 0, + "TQMap<TQString,TQVariant>", + "TQValueList<TQVariant>", + "TQString", + "TQStringList", + "TQFont", + "TQPixmap", + "TQBrush", + "TQRect", + "TQSize", + "TQColor", + "TQPalette", + "TQColorGroup", + "TQIconSet", + "TQPoint", + "TQImage", + "int", + "uint", + "bool", + "double", + "TQCString", + "TQPointArray", + "TQRegion", + "TQBitmap", + "TQCursor", + "TQSizePolicy", + "TQDate", + "TQTime", + "TQDateTime", + "TQByteArray", + "TQBitArray", + "TQKeySequence", + "TQPen", + "TQ_LLONG", + "TQ_ULLONG" +}; + +int qvariant_nameToType( const char* name ) +{ + for ( int i = 0; i < ntypes; i++ ) { + if ( !qstrcmp( type_map[i], name ) ) + return i; + } + return 0; +} + +/* + Returns TRUE if the type is a TQVariant types. +*/ +bool isVariantType( const char* type ) +{ + return qvariant_nameToType( type ) != 0; +} + +/* + Replaces '>>' with '> >' (as in 'TQValueList<TQValueList<double> >'). + This function must be called to produce valid C++ code. However, + the string representation still uses '>>'. +*/ +void fixRightAngles( TQCString *str ) +{ + str->tqreplace( TQRegExp(">>"), "> >" ); +} + +static TQCString rmWS( const char * ); + +enum Access { Private, Protected, Public }; + + +class Argument // single arg meta data +{ +public: + Argument( const char *left, const char *right, const char* argName = 0, bool isDefaultArgument = FALSE ) + { + leftType = rmWS( left ); + rightType = rmWS( right ); + if ( leftType == "void" && rightType.isEmpty() ) + leftType = ""; + + int len = leftType.length(); + + /* + Convert 'char const *' into 'const char *'. Start at index 1, + not 0, because 'const char *' is already OK. + */ + for ( int i = 1; i < len; i++ ) { + if ( leftType[i] == 'c' && + strncmp(leftType.data() + i + 1, "onst", 4) == 0 + && (i + 5 >= len || !isIdentChar(leftType[i + 5])) + && !isIdentChar(i-1) + ) { + leftType.remove( i, 5 ); + if ( leftType[i - 1] == ' ' ) + leftType.remove( i - 1, 1 ); + leftType.prepend( "const " ); + break; + } + + /* + We musn't convert 'char * const *' into 'const char **' + and we must beware of 'Bar<const Bla>'. + */ + if ( leftType[i] == '&' || leftType[i] == '*' || + leftType[i] == '<' ) + break; + } + + name = argName; + isDefault = isDefaultArgument; + } + + TQCString leftType; + TQCString rightType; + TQCString name; + bool isDefault; +}; + +class ArgList : public TQPtrList<Argument> { // member function arg list +public: + ArgList() { setAutoDelete( TRUE ); } + ~ArgList() { clear(); } + + /* the clone has one default argument less, the orignal has all default arguments removed */ + ArgList* magicClone() { + ArgList* l = new ArgList; + bool firstDefault = FALSE; + for ( first(); current(); next() ) { + bool isDefault = current()->isDefault; + if ( !firstDefault && isDefault ) { + isDefault = FALSE; + firstDefault = TRUE; + } + l->append( new Argument( current()->leftType, current()->rightType, current()->name, isDefault ) ); + } + for ( first(); current(); ) { + if ( current()->isDefault ) + remove(); + else + next(); + } + return l; + } + + bool hasDefaultArguments() { + for ( Argument* a = first(); a; a = next() ) { + if ( a->isDefault ) + return TRUE; + } + return FALSE; + } + +}; + + +struct Function // member function meta data +{ + Access access; + TQCString qualifier; // const or volatile + TQCString name; + TQCString type; + TQCString signature; + int lineNo; + ArgList *args; + Function() { args=0;} + ~Function() { delete args; } + const char* accessAsString() { + switch ( access ) { + case Private: return "Private"; + case Protected: return "Protected"; + default: return "Public"; + } + } +}; + +class FuncList : public TQPtrList<Function> { // list of member functions +public: + FuncList( bool autoDelete = FALSE ) { setAutoDelete( autoDelete ); } + + FuncList tqfind( const char* name ) + { + FuncList result; + for ( TQPtrListIterator<Function> it(*this); it.current(); ++it ) { + if ( it.current()->name == name ) + result.append( it.current() ); + } + return result; + } +}; + +class Enum : public TQStrList +{ +public: + TQCString name; + bool set; +}; + +class EnumList : public TQPtrList<Enum> { // list of property enums +public: + EnumList() { setAutoDelete(TRUE); } +}; + + +struct Property +{ + Property( int l, const char* t, const char* n, const char* s, const char* g, const char* r, + const TQCString& st, const TQCString& d, const TQCString& sc, bool ov ) + : lineNo(l), type(t), name(n), set(s), get(g), reset(r), setfunc(0), getfunc(0), + sspec(Unspecified), gspec(Unspecified), stored( st ), + designable( d ), scriptable( sc ), override( ov ), oredEnum( -1 ) + { + /* + The Q_PROPERTY construct cannot contain any commas, since + commas separate macro arguments. We therefore expect users + to type "TQMap" instead of "TQMap<TQString, TQVariant>". For + coherence, we also expect the same for + TQValueList<TQVariant>, the other template class supported by + TQVariant. + */ + if ( type == "TQMap" ) { + type = "TQMap<TQString,TQVariant>"; + } else if ( type == "TQValueList" ) { + type = "TQValueList<TQVariant>"; + } else if ( type == "LongLong" ) { + type = "TQ_LLONG"; + } else if ( type == "ULongLong" ) { + type = "TQ_ULLONG"; + } + } + + int lineNo; + TQCString type; + TQCString name; + TQCString set; + TQCString get; + TQCString reset; + TQCString stored; + TQCString designable; + TQCString scriptable; + bool override; + + Function* setfunc; + Function* getfunc; + + int oredEnum; // If the enums item may be ored. That means the data type is int. + // Allowed values are 1 (True), 0 (False), and -1 (Unset) + TQCString enumsettype; // tqcontains the set function type in case of oredEnum + TQCString enumgettype; // tqcontains the get function type in case of oredEnum + + enum Specification { Unspecified, Class, Reference, Pointer, ConstCharStar }; + Specification sspec; + Specification gspec; + + bool stdSet() { + TQCString s = "set"; + s += toupper( name[0] ); + s += name.mid( 1 ); + return s == set; + } + + static const char* specToString( Specification s ) + { + switch ( s ) { + case Class: + return "Class"; + case Reference: + return "Reference"; + case Pointer: + return "Pointer"; + case ConstCharStar: + return "ConstCharStar"; + default: + return "Unspecified"; + } + } +}; + +class PropList : public TQPtrList<Property> { // list of properties +public: + PropList() { setAutoDelete( TRUE ); } +}; + + +struct ClassInfo +{ + ClassInfo( const char* n, const char* v ) + : name(n), value(v) + {} + TQCString name; + TQCString value; +}; + +class ClassInfoList : public TQPtrList<ClassInfo> { // list of class infos +public: + ClassInfoList() { setAutoDelete( TRUE ); } +}; + +class parser_reg { + public: + parser_reg(); + ~parser_reg(); + + // some temporary values + TQCString tmpExpression; // Used to store the characters the lexer + // is currently skipping (see addExpressionChar and friends) + TQCString fileName; // file name + TQCString outputFile; // output file name + TQCString pchFile; // name of PCH file (used on Windows) + TQStrList includeFiles; // name of #include files + TQCString includePath; // #include file path + TQCString qtPath; // #include qt file path + int gen_count; //number of classes generated + bool noInclude; // no #include <filename> + bool generatedCode; // no code generated + bool tqmocError; // tqmoc parsing error occurred + bool hasVariantIncluded; //whether or not qvariant.h was included yet + TQCString className; // name of parsed class + TQCString superClassName; // name of first super class + TQStrList multipleSuperClasses; // other superclasses + FuncList tqsignals; // signal interface + FuncList tqslots; // tqslots interface + FuncList propfuncs; // all possible property access functions + FuncList funcs; // all parsed functions, including tqsignals + EnumList enums; // enums used in properties + PropList props; // list of all properties + ClassInfoList infos; // list of all class infos + +// Used to store the values in the Q_PROPERTY macro + TQCString propWrite; // set function + TQCString propRead; // get function + TQCString propReset; // reset function + TQCString propStored; // + TQCString propDesignable; // "true", "false" or function or empty if not specified + TQCString propScriptable; // "true", "false" or function or empty if not specified + bool propOverride; // Wether OVERRIDE was detected + + TQStrList qtEnums; // Used to store the contents of TQ_ENUMS + TQStrList qtSets; // Used to store the contents of TQ_SETS + +}; + +static parser_reg *g = 0; + +ArgList *addArg( Argument * ); // add arg to tmpArgList + +enum Member { SignalMember, + SlotMember, + PropertyCandidateMember + }; + +void addMember( Member ); // add tmpFunc to current class +void addEnum(); // add tmpEnum to current class + +char *stradd( const char *, const char * ); // add two strings +char *stradd( const char *, const char *, // add three strings + const char * ); +char *stradd( const char *, const char *, // adds 4 strings + const char *, const char * ); + +char *straddSpc( const char *, const char * ); +char *straddSpc( const char *, const char *, + const char * ); +char *straddSpc( const char *, const char *, + const char *, const char * ); + +extern int yydebug; +bool lexDebug = FALSE; +int lineNo; // current line number +bool errorControl = FALSE; // controled errors +bool displayWarnings = TRUE; +bool skipClass; // don't generate for class +bool skipFunc; // don't generate for func +bool templateClass; // class is a template +bool templateClassOld; // previous class is a template + +ArgList *tmpArgList; // current argument list +Function *tmpFunc; // current member function +Enum *tmpEnum; // current enum +Access tmpAccess; // current access permission +Access subClassPerm; // current access permission + +bool TQ_OBJECTdetected; // TRUE if current class + // tqcontains the TQ_OBJECT macro +bool Q_PROPERTYdetected; // TRUE if current class + // tqcontains at least one Q_PROPERTY, + // TQ_OVERRIDE, TQ_SETS or TQ_ENUMS macro +bool tmpPropOverride; // current property override setting + +int tmpYYStart; // Used to store the lexers current mode +int tmpYYStart2; // Used to store the lexers current mode + // (if tmpYYStart is already used) + +// if the format revision changes, you MUST change it in qmetaobject.h too +const int formatRevision = 26; // tqmoc output format revision + +// if the flags change, you HAVE to change it in qmetaobject.h too +enum Flags { + Invalid = 0x00000000, + Readable = 0x00000001, + Writable = 0x00000002, + EnumOrSet = 0x00000004, + UnresolvedEnum = 0x00000008, + StdSet = 0x00000100, + Override = 0x00000200, + NotDesignable = 0x00001000, + DesignableOverride = 0x00002000, + NotScriptable = 0x00004000, + ScriptableOverride = 0x00008000, + NotStored = 0x00010000, + StoredOverride = 0x00020000 +}; + + +#ifdef YYBISON +# if defined(TQ_OS_WIN32) +# include <io.h> +# undef isatty +extern "C" int hack_isatty( int ) + { + return 0; + } +# define isatty hack_isatty +# else +# include <unistd.h> +# endif + +# define YYDEBUG 1 +# include "tqmoc_yacc.h" +# include "tqmoc_lex.cpp" +#endif //YYBISON +%} + + + + +%union { + char char_val; + int int_val; + double double_val; + char *string; + Access access; + Function *function; + ArgList *arg_list; + Argument *arg; +} + +%start declaration_seq + +%token <char_val> CHAR_VAL /* value types */ +%token <int_val> INT_VAL +%token <double_val> DOUBLE_VAL +%token <string> STRING +%token <string> IDENTIFIER /* identifier string */ + +%token FRIEND /* declaration keywords */ +%token TYPEDEF +%token AUTO +%token REGISTER +%token STATIC +%token EXTERN +%token INLINE +%token VIRTUAL +%token CONST +%token VOLATILE +%token CHAR +%token SHORT +%token INT +%token LONG +%token SIGNED +%token UNSIGNED +%token FLOAT +%token DOUBLE +%token VOID +%token ENUM +%token CLASS +%token STRUCT +%token UNION +%token ASM +%token PRIVATE +%token PROTECTED +%token PUBLIC +%token OPERATOR +%token DBL_COLON +%token TRIPLE_DOT +%token TEMPLATE +%token NAMESPACE +%token USING +%token MUTABLE +%token THROW + +%token SIGNALS +%token SLOTS +%token TQ_OBJECT +%token Q_PROPERTY +%token TQ_OVERRIDE +%token TQ_CLASSINFO +%token TQ_ENUMS +%token TQ_SETS + +%token READ +%token WRITE +%token STORED +%token DESIGNABLE +%token SCRIPTABLE +%token RESET + +%type <string> class_name +%type <string> template_class_name +%type <string> template_spec +%type <string> opt_base_spec + +%type <string> base_spec +%type <string> base_list +%type <string> qt_macro_name +%type <string> base_specifier +%type <access> access_specifier +%type <string> fct_name +%type <string> type_name +%type <string> simple_type_names +%type <string> simple_type_name +%type <string> class_key +%type <string> complete_class_name +%type <string> qualified_class_name +%type <string> elaborated_type_specifier +%type <string> whatever + +%type <arg_list> argument_declaration_list +%type <arg_list> arg_declaration_list +%type <arg_list> arg_declaration_list_opt +%type <string> abstract_decl_opt +%type <string> abstract_decl +%type <arg> argument_declaration +%type <arg> opt_exception_argument +%type <string> cv_qualifier_list_opt +%type <string> cv_qualifier_list +%type <string> cv_qualifier +%type <string> decl_specifiers +%type <string> decl_specifier +%type <string> decl_specs_opt +%type <string> decl_specs +%type <string> type_specifier +%type <string> fct_specifier +%type <string> declarator +%type <string> ptr_operator +%type <string> ptr_operators +%type <string> ptr_operators_opt + +%type <string> dname + +%% +declaration_seq: /* empty */ + | declaration_seq declaration + ; + +declaration: class_def +/* | template_declaration */ + | namespace_def + | namespace_alias_def + | using_declaration + | using_directive + ; + +namespace_def: named_namespace_def + | unnamed_namespace_def + ; + +named_namespace_def: NAMESPACE + IDENTIFIER { enterNameSpace($2); } + '{' { BEGIN IN_NAMESPACE; } + namespace_body + '}' { leaveNameSpace(); + selectOutsideClassState(); + } + ; + +unnamed_namespace_def: NAMESPACE { enterNameSpace(); } + '{' { BEGIN IN_NAMESPACE; } + namespace_body + '}' { leaveNameSpace(); + selectOutsideClassState(); + } + ; + +namespace_body: declaration_seq + ; + +namespace_alias_def: NAMESPACE IDENTIFIER '=' complete_class_name ';' + { selectOutsideClassState(); } + ; + + +using_directive: USING NAMESPACE { selectOutsideClassState(); } /* Skip namespace */ + ; + +using_declaration: USING IDENTIFIER { selectOutsideClassState(); } + | USING DBL_COLON { selectOutsideClassState(); } + ; + +class_def: { initClass(); } + class_specifier ';' { generateClass(); + registerClassInNamespace(); + selectOutsideClassState(); } + ; + + +/***** r.17.1 (ARM p.387 ): Keywords *****/ + +class_name: IDENTIFIER { $$ = $1; } + | template_class_name { $$ = $1; } + ; + +template_class_name: IDENTIFIER '<' template_args '>' + { g->tmpExpression = rmWS( g->tmpExpression ); + $$ = stradd( $1, "<", + g->tmpExpression, ">" ); } + ; + +/* + template_args skips all characters until it encounters a ">" (it + handles and discards sublevels of parentheses). Since the rule is + empty it must be used with care! +*/ + +template_args: /* empty */ { initExpression(); + templLevel = 1; + BEGIN IN_TEMPL_ARGS; } + ; + +/***** r.17.2 (ARM p.388): Expressions *****/ + + +/* const_expression skips all characters until it encounters either one + of "]", ")" or "," (it handles and discards sublevels of parentheses). + Since the rule is empty it must be used with care! +*/ + +const_expression: /* empty */ { initExpression(); + BEGIN IN_EXPR; } + ; + +/* def_argument is just like const expression but handles the "," + slightly differently. It was added for 3.0 as quick solution. TODO: + merge with const_expression. + */ + +def_argument: /* empty */ { BEGIN IN_DEF_ARG; } + ; + +enumerator_expression: /* empty */ { initExpression(); + BEGIN IN_ENUM; } + ; + +/***** r.17.3 (ARM p.391): Declarations *****/ + +decl_specifier: storage_class_specifier { $$ = ""; } + | type_specifier { $$ = $1; } + | fct_specifier { $$ = ""; } + | FRIEND { skipFunc = TRUE; $$ = ""; } + | TYPEDEF { skipFunc = TRUE; $$ = ""; } + ; + +decl_specifiers: decl_specs_opt type_name decl_specs_opt + { $$ = straddSpc($1,$2,$3); } + ; +decl_specs_opt: /* empty */ { $$ = ""; } + | decl_specs { $$ = $1; } + ; + +decl_specs: decl_specifier { $$ = $1; } + | decl_specs decl_specifier { $$ = straddSpc($1,$2); } + ; + +storage_class_specifier: AUTO + | REGISTER + | STATIC { skipFunc = TRUE; } + | EXTERN + ; + +fct_specifier: INLINE { } + | VIRTUAL { } + ; + +type_specifier: CONST { $$ = "const"; } + | VOLATILE { $$ = "volatile"; } + ; + +type_name: elaborated_type_specifier { $$ = $1; } + | complete_class_name { $$ = $1; } + | simple_type_names { $$ = $1; } + ; + +simple_type_names: simple_type_names simple_type_name + { $$ = straddSpc($1,$2); } + | simple_type_name { $$ = $1; } + ; + +simple_type_name: CHAR { $$ = "char"; } + | SHORT { $$ = "short"; } + | INT { $$ = "int"; } + | LONG { $$ = "long"; } + | SIGNED { $$ = "signed"; } + | UNSIGNED { $$ = "unsigned"; } + | FLOAT { $$ = "float"; } + | DOUBLE { $$ = "double"; } + | VOID { $$ = "void"; } + ; + +template_spec: TEMPLATE '<' template_args '>' + { g->tmpExpression = rmWS( g->tmpExpression ); + $$ = stradd( "template<", + g->tmpExpression, ">" ); } + ; + +opt_template_spec: /* empty */ + | template_spec { templateClassOld = templateClass; + templateClass = TRUE; + } + ; + + +class_key: opt_template_spec CLASS { $$ = "class"; } + | opt_template_spec STRUCT { $$ = "struct"; } + ; + +complete_class_name: qualified_class_name { $$ = $1; } + | DBL_COLON qualified_class_name + { $$ = stradd( "::", $2 ); } + ; + +qualified_class_name: qualified_class_name DBL_COLON class_name + { $$ = stradd( $1, "::", $3 );} + | class_name { $$ = $1; } + ; + +elaborated_type_specifier: + class_key IDENTIFIER { $$ = straddSpc($1,$2); } + | ENUM IDENTIFIER { $$ = stradd("enum ",$2); } + | UNION IDENTIFIER { $$ = stradd("union ",$2); } + ; + +/***** r.17.4 (ARM p.393): Declarators *****/ + +argument_declaration_list: arg_declaration_list_opt triple_dot_opt { $$ = $1;} + | arg_declaration_list ',' TRIPLE_DOT { $$ = $1; + func_warn("Ellipsis not supported" + " in tqsignals and tqslots.\n" + "Ellipsis argument ignored."); } + ; + +arg_declaration_list_opt: /* empty */ { $$ = tmpArgList; } + | arg_declaration_list { $$ = $1; } + ; + +opt_exception_argument: /* empty */ { $$ = 0; } + | argument_declaration + ; + +triple_dot_opt: /* empty */ + | TRIPLE_DOT { func_warn("Ellipsis not supported" + " in tqsignals and tqslots.\n" + "Ellipsis argument ignored."); } + + ; + +arg_declaration_list: arg_declaration_list + ',' + argument_declaration { $$ = addArg($3); } + | argument_declaration { $$ = addArg($1); } + ; + +argument_declaration: decl_specifiers abstract_decl_opt + { $$ = new Argument(straddSpc($1,$2),""); } + | decl_specifiers abstract_decl_opt + '=' { expLevel = 1; } + def_argument + { $$ = new Argument(straddSpc($1,$2),"", 0, TRUE ); } + | decl_specifiers abstract_decl_opt dname + abstract_decl_opt + { $$ = new Argument(straddSpc($1,$2),$4, $3); } + | decl_specifiers abstract_decl_opt dname + abstract_decl_opt + '=' { expLevel = 1; } + def_argument + { $$ = new Argument(straddSpc($1,$2),$4, $3, TRUE); } + ; + + +abstract_decl_opt: /* empty */ { $$ = ""; } + | abstract_decl { $$ = $1; } + ; + +abstract_decl: abstract_decl ptr_operator + { $$ = straddSpc($1,$2); } + | '[' { expLevel = 1; } + const_expression ']' + { $$ = stradd( "[", + g->tmpExpression = + g->tmpExpression.stripWhiteSpace(), "]" ); } + | abstract_decl '[' { expLevel = 1; } + const_expression ']' + { $$ = stradd( $1,"[", + g->tmpExpression = + g->tmpExpression.stripWhiteSpace(),"]" ); } + | ptr_operator { $$ = $1; } + | '(' abstract_decl ')' { $$ = $2; } + ; + +declarator: dname { $$ = ""; } + | declarator ptr_operator + { $$ = straddSpc($1,$2);} + | declarator '[' { expLevel = 1; } + const_expression ']' + { $$ = stradd( $1,"[", + g->tmpExpression = + g->tmpExpression.stripWhiteSpace(),"]" ); } + | '(' declarator ')' { $$ = $2; } + ; + +dname: IDENTIFIER + ; + +fct_decl: '(' + argument_declaration_list + ')' + cv_qualifier_list_opt + ctor_initializer_opt + exception_spec_opt + opt_identifier + fct_body_or_semicolon + { tmpFunc->args = $2; + tmpFunc->qualifier = $4; } + ; + +fct_name: IDENTIFIER /* NOTE: simplified! */ + | IDENTIFIER array_decls + { func_warn("Variable as signal or slot."); } + | IDENTIFIER '=' { expLevel=0; } + const_expression /* probably const member */ + { skipFunc = TRUE; } + | IDENTIFIER array_decls '=' { expLevel=0; } + const_expression /* probably const member */ + { skipFunc = TRUE; } + ; + + +array_decls: '[' { expLevel = 1; } + const_expression ']' + | array_decls '[' { expLevel = 1; } + const_expression ']' + + ; + +ptr_operators_opt: /* empty */ { $$ = ""; } + | ptr_operators { $$ = $1; } + ; + +ptr_operators: ptr_operator { $$ = $1; } + | ptr_operators ptr_operator { $$ = straddSpc($1,$2);} + ; + +ptr_operator: '*' cv_qualifier_list_opt { $$ = straddSpc("*",$2);} + | '&' cv_qualifier_list_opt { $$ = stradd("&",$2);} +/*! | complete_class_name + DBL_COLON + '*' + cv_qualifier_list_opt { $$ = stradd($1,"::*",$4); }*/ + ; + +cv_qualifier_list_opt: /* empty */ { $$ = ""; } + | cv_qualifier_list { $$ = $1; } + ; + +cv_qualifier_list: cv_qualifier { $$ = $1; } + | cv_qualifier_list cv_qualifier + { $$ = straddSpc($1,$2); } + ; + +cv_qualifier: CONST { $$ = "const"; } + | VOLATILE { $$ = "volatile"; } + ; + +fct_body_or_semicolon: ';' + | fct_body + | '=' INT_VAL ';' /* abstract func, INT_VAL = 0 */ + ; + +fct_body: '{' { BEGIN IN_FCT; fctLevel = 1;} + '}' { BEGIN TQT_DEF; } + ; + + +/***** r.17.5 (ARM p.395): Class Declarations *****/ + +class_specifier: full_class_head + '{' { BEGIN IN_CLASS; + classPLevel = 1; + } + opt_obj_member_list + '}' { BEGIN TQT_DEF; } /*catch ';'*/ + | class_head { BEGIN TQT_DEF; /* -- " -- */ + skipClass = TRUE; } + | class_head '*' IDENTIFIER { BEGIN TQT_DEF; /* -- " -- */ + skipClass = TRUE; } + | class_head '&' IDENTIFIER { BEGIN TQT_DEF; /* -- " -- */ + skipClass = TRUE; } + | class_head + '(' IDENTIFIER ')' /* TQt macro name */ + { BEGIN TQT_DEF; /* catch ';' */ + skipClass = TRUE; } + | template_spec whatever { skipClass = TRUE; + BEGIN GIMME_SEMICOLON; } + ; + +whatever: IDENTIFIER + | simple_type_name + | type_specifier + | storage_class_specifier { $$ = ""; } + | fct_specifier + ; + + +class_head: class_key + qualified_class_name { g->className = $2; + fprintf( stderr, "FOUND CLASS [1]: %s\n", (const char*)g->className ); + if ( g->className == "TQObject" ) + TQ_OBJECTdetected = TRUE; + } + | class_key + IDENTIFIER /* possible DLL EXPORT macro */ + class_name { g->className = $3; + fprintf( stderr, "FOUND CLASS [2]: %s\n", (const char*)g->className ); + if ( g->className == "TQObject" ) + TQ_OBJECTdetected = TRUE; + } + ; + +full_class_head: class_head + opt_base_spec { g->superClassName = $2; } + ; + +nested_class_head: class_key + qualified_class_name + opt_base_spec { templateClass = templateClassOld; } + ; + +exception_spec_opt: /* empty */ + | exception_spec + ; + +/* looser than the real thing */ +exception_spec: THROW '(' opt_exception_argument ')' + ; + +ctor_initializer_opt: /* empty */ + | ctor_initializer + ; + +ctor_initializer: ':' mem_initializer_list + ; + +mem_initializer_list: mem_initializer + | mem_initializer ',' mem_initializer_list + ; + +/* complete_class_name also represents IDENTIFIER */ +mem_initializer: complete_class_name '(' { expLevel = 1; } + const_expression ')' + ; + + +opt_base_spec: /* empty */ { $$ = 0; } + | base_spec { $$ = $1; } + ; + +opt_obj_member_list: /* empty */ + | obj_member_list + ; + +obj_member_list: obj_member_list obj_member_area + | obj_member_area + ; + + +qt_access_specifier: access_specifier { tmpAccess = $1; } + | SLOTS { tqmoc_err( "Missing access specifier" + " before \"tqslots:\"." ); } + ; + +obj_member_area: qt_access_specifier { BEGIN TQT_DEF; } + slot_area + | SIGNALS { BEGIN TQT_DEF; } + ':' opt_signal_declarations + | TQ_OBJECT { + if ( tmpAccess ) + tqmoc_warn("TQ_OBJECT is not in the private" + " section of the class.\n" + "TQ_OBJECT is a macro that resets" + " access permission to \"private\"."); + TQ_OBJECTdetected = TRUE; + } + | Q_PROPERTY { tmpYYStart = YY_START; + tmpPropOverride = FALSE; + BEGIN IN_PROPERTY; } + '(' property ')' { + BEGIN tmpYYStart; + } + opt_property_candidates + | TQ_OVERRIDE { tmpYYStart = YY_START; + tmpPropOverride = TRUE; + BEGIN IN_PROPERTY; } + '(' property ')' { + BEGIN tmpYYStart; + } + opt_property_candidates + | TQ_CLASSINFO { tmpYYStart = YY_START; BEGIN IN_CLASSINFO; } + '(' STRING ',' STRING ')' + { + g->infos.append( new ClassInfo( $4, $6 ) ); + BEGIN tmpYYStart; + } + opt_property_candidates + | TQ_ENUMS { tmpYYStart = YY_START; BEGIN IN_PROPERTY; } + '(' qt_enums ')' { + Q_PROPERTYdetected = TRUE; + BEGIN tmpYYStart; + } + opt_property_candidates + | TQ_SETS { tmpYYStart = YY_START; BEGIN IN_PROPERTY; } + '(' qt_sets ')' { + Q_PROPERTYdetected = TRUE; + BEGIN tmpYYStart; + } + opt_property_candidates + ; + +slot_area: SIGNALS ':' { tqmoc_err( "Signals cannot " + "have access specifiers" ); } + | SLOTS ':' opt_slot_declarations + | ':' { if ( tmpAccess == Public && Q_PROPERTYdetected ) + BEGIN TQT_DEF; + else + BEGIN IN_CLASS; + suppress_func_warn = TRUE; + } + opt_property_candidates + { + suppress_func_warn = FALSE; + } + | IDENTIFIER { BEGIN IN_CLASS; + if ( classPLevel != 1 ) + tqmoc_warn( "unexpected access" + "specifier" ); + } + ; + +opt_property_candidates: /*empty*/ + | property_candidate_declarations + ; + +property_candidate_declarations: property_candidate_declarations property_candidate_declaration + | property_candidate_declaration + ; + +property_candidate_declaration: signal_or_slot { addMember( PropertyCandidateMember ); } + ; + +opt_signal_declarations: /* empty */ + | signal_declarations + ; + +signal_declarations: signal_declarations signal_declaration + | signal_declaration + ; + + +signal_declaration: signal_or_slot { addMember( SignalMember ); } + ; + +opt_slot_declarations: /* empty */ + | slot_declarations + ; + +slot_declarations: slot_declarations slot_declaration + | slot_declaration + ; + +slot_declaration: signal_or_slot { addMember( SlotMember ); } + ; + +opt_semicolons: /* empty */ + | opt_semicolons ';' + ; + +base_spec: ':' base_list { $$=$2; } + ; + +base_list : base_list ',' base_specifier { g->multipleSuperClasses.append( $3 ); } + | base_specifier + ; + +qt_macro_name: IDENTIFIER '(' IDENTIFIER ')' + { $$ = stradd( $1, "(", $3, ")" ); } + | IDENTIFIER '(' simple_type_name ')' + { $$ = stradd( $1, "(", $3, ")" ); } + ; + +base_specifier: complete_class_name {$$=$1;} + | VIRTUAL access_specifier complete_class_name {$$=$3;} + | VIRTUAL complete_class_name {$$=$2;} + | access_specifier VIRTUAL complete_class_name {$$=$3;} + | access_specifier complete_class_name {$$=$2;} + | qt_macro_name {$$=$1;} + | VIRTUAL access_specifier qt_macro_name {$$=$3;} + | VIRTUAL qt_macro_name {$$=$2;} + | access_specifier VIRTUAL qt_macro_name {$$=$3;} + | access_specifier qt_macro_name {$$=$2;} + ; + +access_specifier: PRIVATE { $$=Private; } + | PROTECTED { $$=Protected; } + | PUBLIC { $$=Public; } + ; + +operator_name: decl_specs_opt IDENTIFIER ptr_operators_opt { } + | decl_specs_opt simple_type_name ptr_operators_opt { } + | '+' + | '-' + | '*' + | '/' + | '%' + | '^' + | '&' + | '|' + | '~' + | '!' + | '=' + | '<' + | '>' + | '+' '=' + | '-' '=' + | '*' '=' + | '/' '=' + | '%' '=' + | '^' '=' + | '&' '=' + | '|' '=' + | '~' '=' + | '!' '=' + | '=' '=' + | '<' '=' + | '>' '=' + | '<' '<' + | '>' '>' + | '<' '<' '=' + | '>' '>' '=' + | '&' '&' + | '|' '|' + | '+' '+' + | '-' '-' + | ',' + | '-' '>' '*' + | '-' '>' + | '(' ')' + | '[' ']' + ; + + +opt_virtual: /* empty */ + | VIRTUAL + ; + +type_and_name: type_name fct_name + { tmpFunc->type = $1; + tmpFunc->name = $2; } + | fct_name + { tmpFunc->type = "int"; + tmpFunc->name = $1; + if ( tmpFunc->name == g->className ) + func_warn( "Constructors cannot be" + " tqsignals or tqslots."); + } + | opt_virtual '~' fct_name + { tmpFunc->type = "void"; + tmpFunc->name = "~"; + tmpFunc->name += $3; + func_warn( "Destructors cannot be" + " tqsignals or tqslots."); + } + | decl_specs type_name decl_specs_opt + ptr_operators_opt fct_name + { + char *tmp = + straddSpc($1,$2,$3,$4); + tmpFunc->type = rmWS(tmp); + delete [] tmp; + tmpFunc->name = $5; } + | decl_specs type_name /* probably friend decl */ + { skipFunc = TRUE; } + | type_name ptr_operators fct_name + { tmpFunc->type = + straddSpc($1,$2); + tmpFunc->name = $3; } + | type_name decl_specs ptr_operators_opt + fct_name + { tmpFunc->type = + straddSpc($1,$2,$3); + tmpFunc->name = $4; } + | type_name OPERATOR operator_name + { operatorError(); } + | OPERATOR operator_name + { operatorError(); } + | decl_specs type_name decl_specs_opt + ptr_operators_opt OPERATOR operator_name + { operatorError(); } + | type_name ptr_operators OPERATOR operator_name + { operatorError(); } + | type_name decl_specs ptr_operators_opt + OPERATOR operator_name + { operatorError(); } + ; + + +signal_or_slot: type_and_name fct_decl opt_semicolons + | type_and_name opt_bitfield ';' opt_semicolons + { func_warn("Unexpected variable declaration."); } + | type_and_name opt_bitfield ','member_declarator_list + ';' opt_semicolons + { func_warn("Unexpected variable declaration."); } + | enum_specifier opt_identifier ';' opt_semicolons + { func_warn("Unexpected enum declaration."); } + | USING complete_class_name ';' opt_semicolons + { func_warn("Unexpected using declaration."); } + | USING NAMESPACE complete_class_name ';' opt_semicolons + { func_warn("Unexpected using declaration."); } + | NAMESPACE IDENTIFIER '{' + { classPLevel++; + tqmoc_err("Unexpected namespace declaration."); } + | nested_class_head ';' opt_semicolons + { func_warn("Unexpected class declaration.");} + | nested_class_head + '{' { func_warn("Unexpected class declaration."); + BEGIN IN_FCT; fctLevel=1; + } + '}' { BEGIN TQT_DEF; } + ';' opt_semicolons + ; + + +member_declarator_list: member_declarator + | member_declarator_list ',' member_declarator + ; + +member_declarator: declarator { } + | IDENTIFIER ':' { expLevel = 0; } + const_expression + | ':' { expLevel = 0; } + const_expression + ; + +opt_bitfield: /* empty */ + | ':' { expLevel = 0; } + const_expression + ; + + +enum_specifier: ENUM enum_tail + ; + +/* optional final comma at the end of an enum list. Not really C++ but +some people still use it */ +opt_komma: /*empty*/ + | ',' + ; + +enum_tail: IDENTIFIER '{' enum_list opt_komma + '}' { BEGIN TQT_DEF; + if ( tmpAccess == Public) { + tmpEnum->name = $1; + addEnum(); + } + } + | '{' enum_list opt_komma + '}' { tmpEnum->clear();} + ; + +opt_identifier: /* empty */ + | IDENTIFIER { } + ; + +enum_list: /* empty */ + | enumerator + | enum_list ',' enumerator + ; + +enumerator: IDENTIFIER { if ( tmpAccess == Public) tmpEnum->append( $1 ); } + | IDENTIFIER '=' { enumLevel=0; } + enumerator_expression { if ( tmpAccess == Public) tmpEnum->append( $1 ); } + ; + +property: IDENTIFIER IDENTIFIER + { + g->propWrite = ""; + g->propRead = ""; + g->propOverride = tmpPropOverride; + g->propReset = ""; + if ( g->propOverride ) { + g->propStored = ""; + g->propDesignable = ""; + g->propScriptable = ""; + } else { + g->propStored = "true"; + g->propDesignable = "true"; + g->propScriptable = "true"; + } + } + prop_statements + { + if ( g->propRead.isEmpty() && !g->propOverride ) + tqmoc_err( "A property must at least feature a read method." ); + checkPropertyName( $2 ); + Q_PROPERTYdetected = TRUE; + // Avoid duplicates + for( TQPtrListIterator<Property> lit( g->props ); lit.current(); ++lit ) { + if ( lit.current()->name == $2 ) { + if ( displayWarnings ) + tqmoc_err( "Property '%s' defined twice.", + (const char*)lit.current()->name ); + } + } + g->props.append( new Property( lineNo, $1, $2, + g->propWrite, g->propRead, g->propReset, + g->propStored, g->propDesignable, + g->propScriptable, g->propOverride ) ); + } + ; + +prop_statements: /* empty */ + | READ IDENTIFIER prop_statements { g->propRead = $2; } + | WRITE IDENTIFIER prop_statements { g->propWrite = $2; } + | RESET IDENTIFIER prop_statements { g->propReset = $2; } + | STORED IDENTIFIER prop_statements { g->propStored = $2; } + | DESIGNABLE IDENTIFIER prop_statements { g->propDesignable = $2; } + | SCRIPTABLE IDENTIFIER prop_statements { g->propScriptable = $2; } + ; + +qt_enums: /* empty */ { } + | IDENTIFIER qt_enums { g->qtEnums.append( $1 ); } + ; + +qt_sets: /* empty */ { } + | IDENTIFIER qt_sets { g->qtSets.append( $1 ); } + ; + +%% + +#ifndef YYBISON +# if defined(TQ_OS_WIN32) +# include <io.h> +# undef isatty +extern "C" int hack_isatty( int ) +{ + return 0; +} +# define isatty hack_isatty +# else +# include <unistd.h> +# endif +# include "tqmoc_lex.cpp" +#endif //YYBISON + +void cleanup(); +TQCString combinePath( const char *, const char * ); + +FILE *out; // output file + +parser_reg::parser_reg() : funcs(TRUE) +{ + gen_count = 0; + noInclude = FALSE; // no #include <filename> + generatedCode = FALSE; // no code generated + tqmocError = FALSE; // tqmoc parsing error occurred + hasVariantIncluded = FALSE; +} + + +parser_reg::~parser_reg() +{ + tqslots.clear(); + tqsignals.clear(); + propfuncs.clear(); + funcs.clear(); + infos.clear(); + props.clear(); + infos.clear(); +} + +int yyparse(); + +void tqreplace( char *s, char c1, char c2 ); + +void setDefaultIncludeFile() +{ + if ( g->includeFiles.isEmpty() ) { + if ( g->includePath.isEmpty() ) { + if ( !g->fileName.isEmpty() && !g->outputFile.isEmpty() ) { + g->includeFiles.append( combinePath(g->fileName, g->outputFile) ); + } else { + g->includeFiles.append( g->fileName ); + } + } else { + g->includeFiles.append( combinePath(g->fileName, g->fileName) ); + } + } +} + +#ifdef TQ_CC_MSVC +#define ErrorFormatString "%s(%d):" +#else +#define ErrorFormatString "%s:%d:" +#endif + +#ifndef TQMOC_MWERKS_PLUGIN +int main( int argc, char **argv ) +{ + init(); + + bool autoInclude = TRUE; + const char *error = 0; + g->qtPath = ""; + for ( int n=1; n<argc && error==0; n++ ) { + TQCString arg = argv[n]; + if ( arg[0] == '-' ) { // option + TQCString opt = arg.tqstringFromPos(1); + if ( opt[0] == 'o' ) { // output redirection + if ( opt[1] == '\0' ) { + if ( !(n < argc-1) ) { + error = "Missing output file name"; + break; + } + g->outputFile = argv[++n]; + } else + g->outputFile = opt.tqstringFromPos(1); + } else if ( opt == "i" ) { // no #include statement + g->noInclude = TRUE; + autoInclude = FALSE; + } else if ( opt[0] == 'f' ) { // produce #include statement + g->noInclude = FALSE; + autoInclude = FALSE; + if ( opt[1] ) // -fsomething.h + g->includeFiles.append( opt.tqstringFromPos(1) ); + } else if ( opt == "pch" ) { // produce #include statement for PCH + if ( !(n < argc-1) ) { + error = "Missing name of PCH file"; + break; + } + g->pchFile = argv[++n]; + } else if ( opt[0] == 'p' ) { // include file path + if ( opt[1] == '\0' ) { + if ( !(n < argc-1) ) { + error = "Missing path name for the -p option."; + break; + } + g->includePath = argv[++n]; + } else { + g->includePath = opt.tqstringFromPos(1); + } + } else if ( opt[0] == 'q' ) { // qt include file path + if ( opt[1] == '\0' ) { + if ( !(n < argc-1) ) { + error = "Missing path name for the -q option."; + break; + } + g->qtPath = argv[++n]; + } else { + g->qtPath = opt.tqstringFromPos(1); + } + tqreplace(g->qtPath.data(),'\\','/'); + if ( g->qtPath.right(1) != "/" ) + g->qtPath += '/'; + } else if ( opt == "v" ) { // version number + fprintf( stderr, "TQt Meta Object Compiler version %d" + " (TQt %s)\n", formatRevision, + TQT_VERSION_STR ); + cleanup(); + return 1; + } else if ( opt == "k" ) { // stop on errors + errorControl = TRUE; + } else if ( opt == "nw" ) { // don't display warnings + displayWarnings = FALSE; + } else if ( opt == "ldbg" ) { // lex debug output + lexDebug = TRUE; + } else if ( opt == "ydbg" ) { // yacc debug output + yydebug = TRUE; + } else { + error = "Invalid argument"; + } + } else { + if ( !g->fileName.isNull() ) // can handle only one file + error = "Too many input files specified"; + else + g->fileName = arg.copy(); + } + } + + if ( autoInclude ) { + int ppos = g->fileName.tqfindRev('.'); + if ( ppos != -1 && tolower( g->fileName[ppos + 1] ) == 'h' ) + g->noInclude = FALSE; + else + g->noInclude = TRUE; + } + setDefaultIncludeFile(); + + if ( g->fileName.isNull() && !error ) { + g->fileName = "standard input"; + yyin = stdin; + } else if ( argc < 2 || error ) { // incomplete/wrong args + fprintf( stderr, "TQt meta object compiler\n" ); + if ( error ) + fprintf( stderr, "tqmoc: %s\n", error ); + fprintf( stderr, "Usage: tqmoc [options] <header-file>\n" + "\t-o file Write output to file rather than stdout\n" + "\t-f[file] Force #include, optional file name\n" + "\t-p path Path prefix for included file\n" + "\t-i Do not generate an #include statement\n" + "\t-k Do not stop on errors\n" + "\t-nw Do not display warnings\n" + "\t-v Display version of tqmoc\n" ); + cleanup(); + return 1; + } else { + yyin = fopen( (const char *)g->fileName, "r" ); + if ( !yyin ) { + fprintf( stderr, "tqmoc: %s: No such file\n", (const char*)g->fileName); + cleanup(); + return 1; + } + } + if ( !g->outputFile.isEmpty() ) { // output file specified + out = fopen( (const char *)g->outputFile, "w" ); // create output file + if ( !out ) { + fprintf( stderr, "tqmoc: Cannot create %s\n", + (const char*)g->outputFile ); + cleanup(); + return 1; + } + } else { // use stdout + out = stdout; + } + yyparse(); + fclose( yyin ); + if ( !g->outputFile.isNull() ) + fclose( out ); + + if ( !g->generatedCode && displayWarnings && !g->tqmocError ) { + fprintf( stderr, ErrorFormatString" Warning: %s\n", g->fileName.data(), 0, + "No relevant classes found. No output generated." ); + } + + int ret = g->tqmocError ? 1 : 0; + cleanup(); + return ret; +} +#else +bool qt_is_gui_used = FALSE; +#include <ctype.h> +#include <stdio.h> +#include <string.h> +#ifdef TQ_OS_MAC9 +# include <Files.h> +# include <Strings.h> +# include <Errors.h> +# include "Aliases.h" +#endif +#include "CWPluginErrors.h" +#include <CWPlugins.h> +#include "DropInCompilerLinker.h" +#include <stat.h> + +const unsigned char *p_str(const char *, int =-1); + +CWPluginContext g_ctx; + +tqmoc_status do_tqmoc( CWPluginContext ctx, const TQCString &fin, const TQCString &fout, CWFileSpec *dspec, bool i) +{ + init(); + + g_ctx = ctx; + g->noInclude = i; + g->fileName = fin; + g->outputFile = fout; + + setDefaultIncludeFile(); + + CWFileInfo fi; + memset(&fi, 0, sizeof(fi)); + fi.fullsearch = TRUE; + fi.dependencyType = cwNormalDependency; + fi.isdependentoffile = kCurrentCompiledFile; + if(CWFindAndLoadFile( ctx, fin.data(), &fi) != cwNoErr) { + cleanup(); + return tqmoc_no_source; + } + + if(dspec) { + memcpy(dspec, &fi.filespec, sizeof(fi.filespec)); + const unsigned char *f = p_str(fout.data()); + memcpy(dspec->name, f, f[0]+1); + free(f); + } + buf_size_total = fi.filedatalength; + buf_buffer = fi.filedata; + + TQCString path(""); + AliasHandle alias; + Str63 str; + AliasInfoType x = 1; + char tmp[sizeof(Str63)+2]; + if(NewAlias( NULL, &fi.filespec, &alias) != noErr) { + cleanup(); + return tqmoc_general_error; + } + for(;;) { + GetAliasInfo(alias, x++, str); + if(!str[0]) + break; + strncpy((char *)tmp, (const char *)str+1, str[0]); + tmp[str[0]] = '\0'; + path.prepend(":"); + path.prepend((char *)tmp); + } + path.prepend("MacOS 9:"); //FIXME + + TQString inpath = path + fin, outpath = path + fout; + struct stat istat, ostat; + if(stat(inpath, &istat) == -1) { + cleanup(); + return tqmoc_no_source; + } + if(stat(outpath, &ostat) == 0 && istat.st_mtime < ostat.st_mtime) { + cleanup(); + return tqmoc_not_time; + } + + unlink(outpath.data()); + out = fopen(outpath.data(), "w+"); + if(!out) { + cleanup(); + return tqmoc_general_error; + } + + yyparse(); + if(out != stdout) + fclose(out); + + if(g->tqmocError || !g->generatedCode) { + unlink(outpath.data()); + tqmoc_status ret = !g->generatedCode ? tqmoc_no_qobject : tqmoc_parse_error; + cleanup(); + return ret; + } + + cleanup(); + return tqmoc_success; +} +#endif +void tqreplace( char *s, char c1, char c2 ) +{ + if ( !s ) + return; + while ( *s ) { + if ( *s == c1 ) + *s = c2; + s++; + } +} + +/* + This function looks at two file names and returns the name of the + infile with a path relative to outfile. + + Examples: + + /tmp/abc, /tmp/bcd -> abc + xyz/a/bc, xyz/b/ac -> ../a/bc + /tmp/abc, xyz/klm -> /tmp/abc + */ + +TQCString combinePath( const char *infile, const char *outfile ) +{ + TQFileInfo inFileInfo( TQDir::current(), TQFile::decodeName(infile) ); + TQFileInfo outFileInfo( TQDir::current(), TQFile::decodeName(outfile) ); + int numCommonComponents = 0; + + TQStringList inSplitted = + TQStringList::split( '/', inFileInfo.dir().canonicalPath(), TRUE ); + TQStringList outSplitted = + TQStringList::split( '/', outFileInfo.dir().canonicalPath(), TRUE ); + + while ( !inSplitted.isEmpty() && !outSplitted.isEmpty() && + inSplitted.first() == outSplitted.first() ) { + inSplitted.remove( inSplitted.begin() ); + outSplitted.remove( outSplitted.begin() ); + numCommonComponents++; + } + + if ( numCommonComponents < 2 ) { + /* + The paths don't have the same drive, or they don't have the + same root directory. Use an absolute path. + */ + return TQFile::encodeName( inFileInfo.absFilePath() ); + } else { + /* + The paths have something in common. Use a path relative to + the output file. + */ + while ( !outSplitted.isEmpty() ) { + outSplitted.remove( outSplitted.begin() ); + inSplitted.prepend( ".." ); + } + inSplitted.append( inFileInfo.fileName() ); + return TQFile::encodeName( inSplitted.join("/") ); + } +} + + +#define getenv hack_getenv // workaround for byacc +char *getenv() { return 0; } +char *getenv( const char * ) { return 0; } + +void init() // initialize +{ + BEGIN OUTSIDE; + if(g) + delete g; + g = new parser_reg; + lineNo = 1; + skipClass = FALSE; + skipFunc = FALSE; + tmpArgList = new ArgList; + tmpFunc = new Function; + tmpEnum = new Enum; + +#ifdef TQMOC_MWERKS_PLUGIN + buf_buffer = NULL; + buf_index = 0; + buf_size_total = 0; +#endif +} + +void cleanup() +{ + delete g; + g = NULL; + +#ifdef TQMOC_MWERKS_PLUGIN + if(buf_buffer && g_ctx) + CWReleaseFileText(g_ctx, buf_buffer); +#endif +} + +void initClass() // prepare for new class +{ + tmpAccess = Private; + subClassPerm = Private; + TQ_OBJECTdetected = FALSE; + Q_PROPERTYdetected = FALSE; + skipClass = FALSE; + templateClass = FALSE; + g->tqslots.clear(); + g->tqsignals.clear(); + g->propfuncs.clear(); + g->enums.clear(); + g->funcs.clear(); + g->props.clear(); + g->infos.clear(); + g->qtSets.clear(); + g->qtEnums.clear(); + g->multipleSuperClasses.clear(); +} + +struct NamespaceInfo +{ + TQCString name; + int pLevelOnEntering; // Parenthesis level on entering the namespace + TQDict<char> definedClasses; // Classes defined in the namespace +}; + +TQPtrList<NamespaceInfo> namespaces; + +void enterNameSpace( const char *name ) // prepare for new class +{ + static bool first = TRUE; + if ( first ) { + namespaces.setAutoDelete( TRUE ); + first = FALSE; + } + + NamespaceInfo *tmp = new NamespaceInfo; + if ( name ) + tmp->name = name; + tmp->pLevelOnEntering = namespacePLevel; + namespaces.append( tmp ); +} + +void leaveNameSpace() // prepare for new class +{ + NamespaceInfo *tmp = namespaces.last(); + namespacePLevel = tmp->pLevelOnEntering; + namespaces.remove(); +} + +TQCString nameTQualifier() +{ + TQPtrListIterator<NamespaceInfo> iter( namespaces ); + NamespaceInfo *tmp; + TQCString qualifier = ""; + for( ; (tmp = iter.current()) ; ++iter ) { + if ( !tmp->name.isNull() ) { // If not unnamed namespace + qualifier += tmp->name; + qualifier += "::"; + } + } + return qualifier; +} + +int openNameSpaceForMetaObject( FILE *out ) +{ + int levels = 0; + TQPtrListIterator<NamespaceInfo> iter( namespaces ); + NamespaceInfo *tmp; + TQCString indent = ""; + for( ; (tmp = iter.current()) ; ++iter ) { + if ( !tmp->name.isNull() ) { // If not unnamed namespace + fprintf( out, "%snamespace %s {\n", (const char *)indent, + (const char *) tmp->name ); + indent += " "; + levels++; + } + } + TQCString nm = g->className; + int pos; + while( (pos = nm.tqfind( "::" )) != -1 ) { + TQCString spaceName = nm.left( pos ); + nm = nm.right( nm.length() - pos - 2 ); + if ( !spaceName.isEmpty() ) { + fprintf( out, "%snamespace %s {\n", (const char *)indent, + (const char *) spaceName ); + indent += " "; + levels++; + } + } + return levels; +} + +void closeNameSpaceForMetaObject( FILE *out, int levels ) +{ + int i; + for( i = 0 ; i < levels ; i++ ) + fprintf( out, "}" ); + if ( levels ) + fprintf( out, "\n" ); + +} + +void selectOutsideClassState() +{ + if ( namespaces.count() == 0 ) + BEGIN OUTSIDE; + else + BEGIN IN_NAMESPACE; +} + +void registerClassInNamespace() +{ + if ( namespaces.count() == 0 ) + return; + namespaces.last()->definedClasses.insert((const char *)g->className,(char*)1); +} + +// +// Remove white space from SIGNAL and SLOT names. +// This function has been copied from qobject.cpp. +// + +inline bool isSpace( char x ) +{ +#if defined(TQ_CC_BOR) + /* + Borland C++ 4.5 has a weird isspace() bug. + isspace() usually works, but not here. + This implementation is sufficient for our internal use: rmWS() + */ + return (uchar) x <= 32; +#else + return isspace( (uchar) x ); +#endif +} + +static TQCString rmWS( const char *src ) +{ + TQCString result( tqstrlen(src)+1 ); + char *d = result.data(); + char *s = (char *)src; + char last = 0; + while( *s && isSpace(*s) ) // skip leading space + s++; + while ( *s ) { + while ( *s && !isSpace(*s) ) + last = *d++ = *s++; + while ( *s && isSpace(*s) ) + s++; + if ( *s && isIdentChar(*s) && isIdentChar(last) ) + last = *d++ = ' '; + } + result.truncate( (int)(d - result.data()) ); + return result; +} + + +void initExpression() +{ + g->tmpExpression = ""; +} + +void addExpressionString( const char *s ) +{ + g->tmpExpression += s; +} + +void addExpressionChar( const char c ) +{ + g->tmpExpression += c; +} + +void yyerror( const char *msg ) // print yacc error message +{ + g->tqmocError = TRUE; +#ifndef TQMOC_MWERKS_PLUGIN + fprintf( stderr, ErrorFormatString" Error: %s\n", g->fileName.data(), lineNo, msg ); +#else + char msg2[200]; + sprintf(msg2, ErrorFormatString" Error: %s", g->fileName.data(), lineNo, msg); + CWReportMessage(g_ctx, NULL, msg2, NULL, messagetypeError, 0); +#endif + if ( errorControl ) { + if ( !g->outputFile.isEmpty() && yyin && fclose(yyin) == 0 ) + remove( g->outputFile ); + exit( -1 ); + } +} + +void tqmoc_err( const char *s ) +{ + yyerror( s ); +} + +void tqmoc_err( const char *s1, const char *s2 ) +{ + static char tmp[1024]; + sprintf( tmp, s1, s2 ); + yyerror( tmp ); +} + +void tqmoc_warn( const char *msg ) +{ + if ( displayWarnings ) + fprintf( stderr, ErrorFormatString" Warning: %s\n", g->fileName.data(), lineNo, msg); +} + +void tqmoc_warn( char *s1, char *s2 ) +{ + static char tmp[1024]; + sprintf( tmp, s1, s2 ); + if ( displayWarnings ) + fprintf( stderr, ErrorFormatString" Warning: %s\n", g->fileName.data(), lineNo, tmp); +} + +void func_warn( const char *msg ) +{ + if ( !suppress_func_warn ) + tqmoc_warn( msg ); + skipFunc = TRUE; +} + +void operatorError() +{ + if ( !suppress_func_warn ) + tqmoc_warn("Operator functions cannot be tqsignals or tqslots."); + skipFunc = TRUE; +} + +#ifndef yywrap +int yywrap() // more files? +{ + return 1; // end of file +} +#endif + +char *stradd( const char *s1, const char *s2 ) // adds two strings +{ + char *n = new char[tqstrlen(s1)+tqstrlen(s2)+1]; + qstrcpy( n, s1 ); + strcat( n, s2 ); + return n; +} + +char *stradd( const char *s1, const char *s2, const char *s3 )// adds 3 strings +{ + char *n = new char[tqstrlen(s1)+tqstrlen(s2)+tqstrlen(s3)+1]; + qstrcpy( n, s1 ); + strcat( n, s2 ); + strcat( n, s3 ); + return n; +} + +char *stradd( const char *s1, const char *s2, + const char *s3, const char *s4 )// adds 4 strings +{ + char *n = new char[tqstrlen(s1)+tqstrlen(s2)+tqstrlen(s3)+tqstrlen(s4)+1]; + qstrcpy( n, s1 ); + strcat( n, s2 ); + strcat( n, s3 ); + strcat( n, s4 ); + return n; +} + + +char *straddSpc( const char *s1, const char *s2 ) +{ + char *n = new char[tqstrlen(s1)+tqstrlen(s2)+2]; + qstrcpy( n, s1 ); + strcat( n, " " ); + strcat( n, s2 ); + return n; +} + +char *straddSpc( const char *s1, const char *s2, const char *s3 ) +{ + char *n = new char[tqstrlen(s1)+tqstrlen(s2)+tqstrlen(s3)+3]; + qstrcpy( n, s1 ); + strcat( n, " " ); + strcat( n, s2 ); + strcat( n, " " ); + strcat( n, s3 ); + return n; +} + +char *straddSpc( const char *s1, const char *s2, + const char *s3, const char *s4 ) +{ + char *n = new char[tqstrlen(s1)+tqstrlen(s2)+tqstrlen(s3)+tqstrlen(s4)+4]; + qstrcpy( n, s1 ); + strcat( n, " " ); + strcat( n, s2 ); + strcat( n, " " ); + strcat( n, s3 ); + strcat( n, " " ); + strcat( n, s4 ); + return n; +} + +// Generate C++ code for building member function table + + +/* + We call B::qt_invoke() rather than A::B::qt_invoke() to + work around a bug in MSVC 6. The bug occurs if the + super-class is in a namespace and the sub-class isn't. + + Exception: If the superclass has the same name as the subclass, we + want non-MSVC users to have a working generated files. +*/ +TQCString purestSuperClassName() +{ + TQCString sc = g->superClassName; + TQCString c = g->className; + /* + Make sure qualified template arguments (e.g., foo<bar::baz>) + don't interfere. + */ + int pos = sc.tqfindRev( "::", sc.tqfind( '<' ) ); + if ( pos != -1 ) { + sc = sc.right( sc.length() - pos - 2 ); + pos = c.tqfindRev( "::" ); + if ( pos != -1 ) + c = c.right( c.length() - pos - 2 ); + if ( sc == c ) + sc = g->superClassName; + } + return sc; +} + +TQCString callablePurestSuperClassName() +{ + TQCString sc = purestSuperClassName(); +// if (sc.tqfind("TQ") != 0) { + return TQCString("static_cast<TQObject*>(static_cast<TQT_BASE_OBJECT_NAME*>(this))->"); +// } +// else { +// return TQCString(sc + "::"); +// } +} + +TQCString qualifiedClassName() +{ + return nameTQualifier() + g->className; +} + +TQCString callableQualifiedClassName() +{ + TQCString sc = qualifiedClassName(); +// if (sc.tqfind("TQ") != 0) { + return TQCString("static_cast<TQObject*>(static_cast<TQT_BASE_OBJECT_NAME*>(this))->"); +// } +// else { +// return TQCString(sc + "::"); +// } +} + +const int Slot_Num = 1; +const int Signal_Num = 2; +const int Prop_Num = 3; + +void generateFuncs( FuncList *list, const char *functype, int num ) +{ + Function *f; + for ( f=list->first(); f; f=list->next() ) { + bool hasReturnValue = f->type != "void" && (validUType( f->type ) || isVariantType( f->type) ); + + if ( hasReturnValue || !f->args->isEmpty() ) { + fprintf( out, " static const TQUParameter param_%s_%d[] = {\n", functype, list->at() ); + if ( hasReturnValue ) { + if ( validUType( f->type ) ) + fprintf( out, "\t{ 0, &static_TQUType_%s, %s, TQUParameter::Out }", uType(f->type).data(), uTypeExtra(f->type).data() ); + else + fprintf( out, "\t{ 0, &static_TQUType_TQVariant, %s, TQUParameter::Out }", uTypeExtra(f->type).data() ); + if ( !f->args->isEmpty() ) + fprintf( out, ",\n" ); + } + Argument* a = f->args->first(); + while ( a ) { + TQCString type = a->leftType + ' ' + a->rightType; + type = type.simplifyWhiteSpace(); + if( a->name.isEmpty() ) + fprintf( out, "\t{ 0, &static_TQUType_%s, %s, TQUParameter::%s }", + uType( type ).data(), uTypeExtra( type ).data(), + isInOut( type ) ? "InOut" : "In" ); + else + fprintf( out, "\t{ \"%s\", &static_TQUType_%s, %s, TQUParameter::%s }", + a->name.data(), uType( type ).data(), uTypeExtra( type ).data(), + isInOut( type ) ? "InOut" : "In" ); + a = f->args->next(); + if ( a ) + fprintf( out, ",\n" ); + } + fprintf( out, "\n };\n"); + } + + fprintf( out, " static const TQUMethod %s_%d = {", functype, list->at() ); + int n = f->args->count(); + if ( hasReturnValue ) + n++; + fprintf( out, "\"%s\", %d,", f->name.data(), n ); + if ( n ) + fprintf( out, " param_%s_%d };\n", functype, list->at() ); + else + fprintf( out, " 0 };\n" ); + + TQCString typstr = ""; + int count = 0; + Argument *a = f->args->first(); + while ( a ) { + if ( !a->leftType.isEmpty() || ! a->rightType.isEmpty() ) { + if ( count++ ) + typstr += ","; + typstr += a->leftType; + typstr += a->rightType; + } + a = f->args->next(); + } + f->signature = f->name; + f->signature += "("; + f->signature += typstr; + f->signature += ")"; + } + if ( list->count() ) { + fprintf(out," static const TQMetaData %s_tbl[] = {\n", functype ); + f = list->first(); + while ( f ) { + fprintf( out, "\t{ \"%s\",", f->signature.data() ); + fprintf( out, " &%s_%d,", functype, list->at() ); + fprintf( out, " TQMetaData::%s }", f->accessAsString() ); + f = list->next(); + if ( f ) + fprintf( out, ",\n"); + } + fprintf( out, "\n };\n" ); + } +} + + +int enumIndex( const char* type ) +{ + int index = 0; + for( TQPtrListIterator<Enum> lit( g->enums ); lit.current(); ++lit ) { + if ( lit.current()->name == type ) + return index; + index++; + } + return -1; +} + +bool isEnumType( const char* type ) +{ + return enumIndex( type ) >= 0 || ( g->qtEnums.tqcontains( type ) || g->qtSets.tqcontains( type ) ); +} + +bool isPropertyType( const char* type ) +{ + if ( isVariantType( type ) ) + return TRUE; + + return isEnumType( type ); +} + +int generateEnums() +{ + if ( g->enums.count() == 0 ) + return 0; + + fprintf( out, "#ifndef TQT_NO_PROPERTIES\n" ); + int i = 0; + for ( TQPtrListIterator<Enum> it( g->enums ); it.current(); ++it, ++i ) { + fprintf( out, " static const TQMetaEnum::Item enum_%i[] = {\n", i ); + int k = 0; + for( TQStrListIterator eit( *it.current() ); eit.current(); ++eit, ++k ) { + if ( k ) + fprintf( out, ",\n" ); + fprintf( out, "\t{ \"%s\", (int) %s::%s }", eit.current(), (const char*) g->className, eit.current() ); + } + fprintf( out, "\n };\n" ); + } + fprintf( out, " static const TQMetaEnum enum_tbl[] = {\n" ); + i = 0; + for ( TQPtrListIterator<Enum> it2( g->enums ); it2.current(); ++it2, ++i ) { + if ( i ) + fprintf( out, ",\n" ); + fprintf( out, "\t{ \"%s\", %u, enum_%i, %s }", + (const char*)it2.current()->name, + it2.current()->count(), + i, + it2.current()->set ? "TRUE" : "FALSE" ); + } + fprintf( out, "\n };\n" ); + fprintf( out, "#endif // TQT_NO_PROPERTIES\n" ); + + return g->enums.count(); +} + +int generateProps() +{ + // + // Resolve and verify property access functions + // + for( TQPtrListIterator<Property> it( g->props ); it.current(); ) { + Property* p = it.current(); + ++it; + + // verify get function + if ( !p->get.isEmpty() ) { + FuncList candidates = g->propfuncs.tqfind( p->get ); + for ( Function* f = candidates.first(); f; f = candidates.next() ) { + if ( f->qualifier != "const" ) // get functions must be const + continue; + if ( f->args && !f->args->isEmpty() ) // and must not take any arguments + continue; + TQCString tmp = f->type; + Property::Specification spec = Property::Unspecified; + if ( p->type == "TQCString" && (tmp == "const char*" || tmp == "const char *" ) ) { + tmp = "TQCString"; + spec = Property::ConstCharStar; + } else if ( tmp.right(1) == "&" ) { + tmp = tmp.left( tmp.length() - 1 ); + spec = Property::Reference; + } else if ( tmp.right(1) == "*" ) { + tmp = tmp.left( tmp.length() - 1 ); + spec = Property::Pointer; + } else { + spec = Property::Class; + } + if ( tmp.left(6) == "const " ) + tmp = tmp.mid( 6, tmp.length() - 6 ); + tmp = tmp.simplifyWhiteSpace(); + if ( p->type == tmp ) { + // If it is an enum then it may not be a set + bool ok = TRUE; + for( TQPtrListIterator<Enum> lit( g->enums ); lit.current(); ++lit ) + if ( lit.current()->name == p->type && lit.current()->set ) + ok = FALSE; + if ( !ok ) continue; + p->gspec = spec; + p->getfunc = f; + p->oredEnum = 0; + break; + } + else if ( !isVariantType( p->type ) ) { + if ( tmp == "int" || tmp == "uint" || tmp == "unsigned int" ) { + // Test whether the enum is really a set (unfortunately we don't know enums of super classes) + bool ok = TRUE; + for( TQPtrListIterator<Enum> lit( g->enums ); lit.current(); ++lit ) + if ( lit.current()->name == p->type && !lit.current()->set ) + ok = FALSE; + if ( !ok ) continue; + p->gspec = spec; + p->getfunc = f; + p->oredEnum = 1; + p->enumgettype = tmp; + } + } + } + if ( p->getfunc == 0 ) { + if ( displayWarnings ) { + + // Is the type a set, that means, mentioned in TQ_SETS? + bool set = FALSE; + for( TQPtrListIterator<Enum> lit( g->enums ); lit.current(); ++lit ) + if ( lit.current()->name == p->type && lit.current()->set ) + set = TRUE; + + fprintf( stderr, ErrorFormatString" Warning: Property '%s' not available.\n", + g->fileName.data(), p->lineNo, (const char*) p->name ); + fprintf( stderr, " Have been looking for public get functions \n"); + if ( !set ) { + fprintf( stderr, + " %s %s() const\n" + " %s& %s() const\n" + " const %s& %s() const\n" + " %s* %s() const\n", + (const char*) p->type, (const char*) p->get, + (const char*) p->type, (const char*) p->get, + (const char*) p->type, (const char*) p->get, + (const char*) p->type, (const char*) p->get ); + } + if ( set || !isPropertyType( p->type ) ) { + fprintf( stderr, + " int %s() const\n" + " uint %s() const\n" + " unsigned int %s() const\n", + (const char*) p->get, + (const char*) p->get, + (const char*) p->get ); + } + if ( p->type == "TQCString" ) + fprintf( stderr, " const char* %s() const\n", + (const char*)p->get ); + + if ( candidates.isEmpty() ) { + fprintf( stderr, " but found nothing.\n"); + } else { + fprintf( stderr, " but only found the mismatching candidate(s)\n"); + for ( Function* f = candidates.first(); f; f = candidates.next() ) { + TQCString typstr = ""; + Argument *a = f->args->first(); + int count = 0; + while ( a ) { + if ( !a->leftType.isEmpty() || ! a->rightType.isEmpty() ) { + if ( count++ ) + typstr += ","; + typstr += a->leftType; + typstr += a->rightType; + } + a = f->args->next(); + } + fprintf( stderr, " %s:%d: %s %s(%s) %s\n", g->fileName.data(), f->lineNo, + (const char*) f->type,(const char*) f->name, (const char*) typstr, + f->qualifier.isNull()?"":(const char*) f->qualifier ); + } + } + } + } + } + + // verify set function + if ( !p->set.isEmpty() ) { + FuncList candidates = g->propfuncs.tqfind( p->set ); + for ( Function* f = candidates.first(); f; f = candidates.next() ) { + if ( !f->args || f->args->isEmpty() ) + continue; + TQCString tmp = f->args->first()->leftType; + tmp = tmp.simplifyWhiteSpace(); + Property::Specification spec = Property::Unspecified; + if ( tmp.right(1) == "&" ) { + tmp = tmp.left( tmp.length() - 1 ); + spec = Property::Reference; + } + else { + spec = Property::Class; + } + if ( p->type == "TQCString" && (tmp == "const char*" || tmp == "const char *" ) ) { + tmp = "TQCString"; + spec = Property::ConstCharStar; + } + if ( tmp.left(6) == "const " ) + tmp = tmp.mid( 6, tmp.length() - 6 ); + tmp = tmp.simplifyWhiteSpace(); + + if ( p->type == tmp && f->args->count() == 1 ) { + // If it is an enum then it may not be a set + if ( p->oredEnum == 1 ) + continue; + bool ok = TRUE; + for( TQPtrListIterator<Enum> lit( g->enums ); lit.current(); ++lit ) + if ( lit.current()->name == p->type && lit.current()->set ) + ok = FALSE; + if ( !ok ) continue; + p->sspec = spec; + p->setfunc = f; + p->oredEnum = 0; + break; + } else if ( !isVariantType( p->type ) && f->args->count() == 1 ) { + if ( tmp == "int" || tmp == "uint" || tmp == "unsigned int" ) { + if ( p->oredEnum == 0 ) + continue; + // Test wether the enum is really a set (unfortunately we don't know enums of super classes) + bool ok = TRUE; + for( TQPtrListIterator<Enum> lit( g->enums ); lit.current(); ++lit ) + if ( lit.current()->name == p->type && !lit.current()->set ) + ok = FALSE; + if ( !ok ) continue; + p->sspec = spec; + p->setfunc = f; + p->oredEnum = 1; + p->enumsettype = tmp; + } + } + } + if ( p->setfunc == 0 ) { + if ( displayWarnings ) { + + // Is the type a set, that means, mentioned in TQ_SETS ? + bool set = FALSE; + for( TQPtrListIterator<Enum> lit( g->enums ); lit.current(); ++lit ) + if ( lit.current()->name == p->type && lit.current()->set ) + set = TRUE; + + fprintf( stderr, ErrorFormatString" Warning: Property '%s' not writable.\n", + g->fileName.data(), p->lineNo, (const char*) p->name ); + fprintf( stderr, " Have been looking for public set functions \n"); + if ( !set && p->oredEnum != 1 ) { + fprintf( stderr, + " void %s( %s )\n" + " void %s( %s& )\n" + " void %s( const %s& )\n", + (const char*) p->set, (const char*) p->type, + (const char*) p->set, (const char*) p->type, + (const char*) p->set, (const char*) p->type ); + } + if ( set || ( !isPropertyType( p->type ) && p->oredEnum != 0 ) ) { + fprintf( stderr, + " void %s( int )\n" + " void %s( uint )\n" + " void %s( unsigned int )\n", + (const char*) p->set, + (const char*) p->set, + (const char*) p->set ); + } + + if ( p->type == "TQCString" ) + fprintf( stderr, " void %s( const char* ) const\n", + (const char*) p->set ); + + if ( !candidates.isEmpty() ) { + fprintf( stderr, " but only found the mismatching candidate(s)\n"); + for ( Function* f = candidates.first(); f; f = candidates.next() ) { + TQCString typstr = ""; + Argument *a = f->args->first(); + int count = 0; + while ( a ) { + if ( !a->leftType.isEmpty() || ! a->rightType.isEmpty() ) { + if ( count++ ) + typstr += ","; + typstr += a->leftType; + typstr += a->rightType; + } + a = f->args->next(); + } + fprintf( stderr, " %s:%d: %s %s(%s)\n", g->fileName.data(), f->lineNo, + (const char*) f->type,(const char*) f->name, (const char*) typstr ); + } + } + } + } + } + } + + // + // Create meta data + // + if ( g->props.count() ) { + if ( displayWarnings && !TQ_OBJECTdetected ) + tqmoc_err("The declaration of the class \"%s\" tqcontains properties" + " but no TQ_OBJECT macro.", g->className.data()); + + fprintf( out, "#ifndef TQT_NO_PROPERTIES\n" ); + + fprintf( out, " static const TQMetaProperty props_tbl[%d] = {\n ", g->props.count() ); + for( TQPtrListIterator<Property> it( g->props ); it.current(); ++it ) { + + fprintf( out, "\t{ \"%s\",\"%s\", ", it.current()->type.data(), it.current()->name.data() ); + int flags = Invalid; + if ( !isVariantType( it.current()->type ) ) { + flags |= EnumOrSet; + if ( !isEnumType( it.current()->type ) ) + flags |= UnresolvedEnum; + } else { + flags |= qvariant_nameToType( it.current()->type ) << 24; + } + if ( it.current()->getfunc ) + flags |= Readable; + if ( it.current()->setfunc ) { + flags |= Writable; + if ( it.current()->stdSet() ) + flags |= StdSet; + } + if ( it.current()->override ) + flags |= Override; + + if ( it.current()->designable.isEmpty() ) + flags |= DesignableOverride; + else if ( it.current()->designable == "false" ) + flags |= NotDesignable; + + if ( it.current()->scriptable.isEmpty() ) + flags |= ScriptableOverride; + else if ( it.current()->scriptable == "false" ) + flags |= NotScriptable; + + if ( it.current()->stored.isEmpty() ) + flags |= StoredOverride; + else if ( it.current()->stored == "false" ) + flags |= NotStored; + + + fprintf( out, "0x%.4x, ", flags ); + fprintf( out, "&%s::metaObj, ", (const char*) qualifiedClassName() ); + if ( !isVariantType( it.current()->type ) ) { + int enumpos = -1; + int k = 0; + for( TQPtrListIterator<Enum> eit( g->enums ); eit.current(); ++eit, ++k ) { + if ( eit.current()->name == it.current()->type ) + enumpos = k; + } + + // Is it an enum of this class ? + if ( enumpos != -1 ) + fprintf( out, "&enum_tbl[%i], ", enumpos ); + else + fprintf( out, "0, "); + } else { + fprintf( out, "0, "); + } + fprintf( out, "-1 }" ); + if ( !it.atLast() ) + fprintf( out, ",\n" ); + else + fprintf( out, "\n" ); + } + fprintf( out, " };\n" ); + fprintf( out, "#endif // TQT_NO_PROPERTIES\n" ); + } + + return g->props.count(); +} + + + +int generateClassInfos() +{ + if ( g->infos.isEmpty() ) + return 0; + + if ( displayWarnings && !TQ_OBJECTdetected ) + tqmoc_err("The declaration of the class \"%s\" tqcontains class infos" + " but no TQ_OBJECT macro.", g->className.data()); + + fprintf( out, " static const TQClassInfo classinfo_tbl[] = {\n" ); + int i = 0; + for( TQPtrListIterator<ClassInfo> it( g->infos ); it.current(); ++it, ++i ) { + if ( i ) + fprintf( out, ",\n" ); + fprintf( out, "\t{ \"%s\", \"%s\" }", it.current()->name.data(),it.current()->value.data() ); + } + fprintf( out, "\n };\n" ); + return i; +} + + +void generateClass() // generate C++ source code for a class +{ + const char *hdr1 = "/****************************************************************************\n" + "** %s meta object code from reading C++ file '%s'\n**\n"; + const char *hdr2 = "** Created: %s\n"; + const char *hdr3 = "** WARNING! All changes made in this file will be lost!\n"; + const char *hdr4 = "*****************************************************************************/\n\n"; + int i; + + if ( skipClass ) // don't generate for class + return; + + if ( !TQ_OBJECTdetected ) { + if ( g->tqsignals.count() == 0 && g->tqslots.count() == 0 && g->props.count() == 0 && g->infos.count() == 0 ) + return; + if ( displayWarnings && (g->tqsignals.count() + g->tqslots.count()) != 0 ) + tqmoc_err("The declaration of the class \"%s\" tqcontains tqsignals " + "or tqslots\n\t but no TQ_OBJECT macro.", g->className.data()); + } else { + if ( g->superClassName.isEmpty() ) + tqmoc_err("The declaration of the class \"%s\" tqcontains the\n" + "\tTQ_OBJECT macro but does not inherit from any class!\n" + "\tInherit from TQObject or one of its descendants" + " or remove TQ_OBJECT.", g->className.data() ); + } + if ( templateClass ) { // don't generate for class + tqmoc_err( "Sorry, TQt does not support templates that contain\n" + "\ttqsignals, tqslots or TQ_OBJECT." ); + return; + } + g->generatedCode = TRUE; + g->gen_count++; + + if ( g->gen_count == 1 ) { // first class to be generated + TQDateTime dt = TQDateTime::tqcurrentDateTime(); + TQCString dstr = dt.toString().ascii(); + TQCString fn = g->fileName; + i = g->fileName.length()-1; + while ( i>0 && g->fileName[i-1] != '/' && g->fileName[i-1] != '\\' ) + i--; // skip path + if ( i >= 0 ) + fn = g->fileName.tqstringFromPos(i); + fprintf( out, hdr1, (const char*)qualifiedClassName(),(const char*)fn); + fprintf( out, hdr2, (const char*)dstr ); + fprintf( out, hdr3 ); + fprintf( out, hdr4 ); + + if ( !g->noInclude ) { + /* + The header file might be a TQt header file with + TQT_NO_COMPAT macros around tqsignals, tqslots or + properties. Without the #undef, we cannot compile the + TQt library with TQT_NO_COMPAT defined. + + Header files of libraries build around TQt can also use + TQT_NO_COMPAT, so this #undef might be beneficial to + users of TQt, and not only to developers of TQt. + */ + fprintf( out, "#undef TQT_NO_COMPAT\n" ); + + if ( !g->pchFile.isEmpty() ) + fprintf( out, "#include \"%s\" // PCH include\n", (const char*)g->pchFile ); + if ( !g->includePath.isEmpty() && g->includePath.right(1) != "/" ) + g->includePath += "/"; + + g->includeFiles.first(); + while ( g->includeFiles.current() ) { + TQCString inc = g->includeFiles.current(); + if ( inc[0] != '<' && inc[0] != '"' ) { + if ( !g->includePath.isEmpty() && g->includePath != "./" ) + inc.prepend( g->includePath ); + inc = "\"" + inc + "\""; + } + fprintf( out, "#include %s\n", (const char *)inc ); + g->includeFiles.next(); + } + } + fprintf( out, "#include <%stqmetaobject.h>\n", (const char*)g->qtPath ); + fprintf( out, "#include <%stqapplication.h>\n\n", (const char*)g->qtPath ); + fprintf( out, "#include <%sprivate/tqucomextra_p.h>\n", (const char*)g->qtPath ); + fprintf( out, "#if !defined(TQ_TQMOC_OUTPUT_REVISION) || (TQ_TQMOC_OUTPUT_REVISION != %d)\n", formatRevision ); + fprintf( out, "#error \"This file was generated using the tqmoc from %s." + " It\"\n#error \"cannot be used with the include files from" + " this version of TQt.\"\n#error \"(The tqmoc has changed too" + " much.)\"\n", TQT_VERSION_STR ); + fprintf( out, "#endif\n\n" ); + } else { + fprintf( out, "\n\n" ); + } + + if ( !g->hasVariantIncluded ) { + bool needToIncludeVariant = !g->props.isEmpty(); + for ( Function* f =g->tqslots.first(); f && !needToIncludeVariant; f=g->tqslots.next() ) + needToIncludeVariant = ( f->type != "void" && !validUType( f->type ) && isVariantType( f->type) ); + + if ( needToIncludeVariant ) { + fprintf( out, "#include <%stqvariant.h>\n", (const char*)g->qtPath ); + g->hasVariantIncluded = TRUE; + } + } + + bool isTQObject = g->className == "TQObject" ; + + +// +// Generate virtual function className() +// + fprintf( out, "const char *%s::className() const\n{\n ", + (const char*)qualifiedClassName() ); + fprintf( out, "return \"%s\";\n}\n\n", (const char*)qualifiedClassName() ); + +// +// Generate static metaObj variable +// + fprintf( out, "TQMetaObject *%s::metaObj = 0;\n", (const char*)qualifiedClassName()); + +// +// Generate static cleanup object variable +// + TQCString cleanup = qualifiedClassName().copy(); + for ( int cnpos = 0; cnpos < cleanup.length(); cnpos++ ) { + if ( cleanup[cnpos] == ':' ) + cleanup[cnpos] = '_'; + } + + fprintf( out, "static TQMetaObjectCleanUp cleanUp_%s( \"%s\", &%s::staticMetaObject );\n\n", (const char*)cleanup, (const char*)qualifiedClassName(), (const char*)qualifiedClassName() ); + +// +// Generate tr and trUtf8 member functions +// + fprintf( out, "#ifndef TQT_NO_TRANSLATION\n" ); + fprintf( out, "TQString %s::tr( const char *s, const char *c )\n{\n", + (const char*)qualifiedClassName() ); + fprintf( out, " if ( tqApp )\n" ); + fprintf( out, "\treturn tqApp->translate( \"%s\", s, c," + " TQApplication::DefaultCodec );\n", + (const char*)qualifiedClassName() ); + fprintf( out, " else\n" ); + fprintf( out, "\treturn TQString::tqfromLatin1( s );\n"); + fprintf( out, "}\n" ); + fprintf( out, "#ifndef TQT_NO_TRANSLATION_UTF8\n" ); + fprintf( out, "TQString %s::trUtf8( const char *s, const char *c )\n{\n", + (const char*)qualifiedClassName() ); + fprintf( out, " if ( tqApp )\n" ); + fprintf( out, "\treturn tqApp->translate( \"%s\", s, c," + " TQApplication::UnicodeUTF8 );\n", + (const char*)qualifiedClassName() ); + fprintf( out, " else\n" ); + fprintf( out, "\treturn TQString::fromUtf8( s );\n" ); + fprintf( out, "}\n" ); + fprintf( out, "#endif // TQT_NO_TRANSLATION_UTF8\n\n" ); + fprintf( out, "#endif // TQT_NO_TRANSLATION\n\n" ); + +// +// Generate staticMetaObject member function +// + fprintf( out, "TQMetaObject* %s::staticMetaObject()\n{\n", (const char*)qualifiedClassName() ); + fprintf( out, " if ( metaObj )\n\treturn metaObj;\n" ); + if ( isTQObject ) + fprintf( out, " TQMetaObject* parentObject = staticTQtMetaObject();\n" ); + else if ( !g->superClassName.isEmpty() ) + if (g->superClassName.tqfind("TQ") == 0) { // [FIXME] Verify that this will always be able to detect a TQt base class, even if intermediate classes do not start with TQ + fprintf( out, " TQMetaObject* parentObject = %s::staticMetaObject();\n", (const char*)g->superClassName ); + } + else { + fprintf( out, " TQMetaObject* parentObject = 0;\n" ); + } + else + fprintf( out, " TQMetaObject* parentObject = 0;\n" ); + +// +// Build the classinfo array +// + int n_infos = generateClassInfos(); + +// Build the enums array +// Enums HAVE to be generated BEFORE the properties and tqslots +// + int n_enums = generateEnums(); + +// +// Build tqslots array in staticMetaObject() +// + generateFuncs( &g->tqslots, "slot", Slot_Num ); + +// +// Build tqsignals array in staticMetaObject() +// + generateFuncs( &g->tqsignals, "signal", Signal_Num ); + +// +// Build property array in staticMetaObject() +// + int n_props = generateProps(); + +// +// Finally code to create and return meta object +// + fprintf( out, " metaObj = TQMetaObject::new_metaobject(\n" + "\t\"%s\", parentObject,\n", (const char*)qualifiedClassName() ); + + if ( g->tqslots.count() ) + fprintf( out, "\tslot_tbl, %d,\n", g->tqslots.count() ); + else + fprintf( out, "\t0, 0,\n" ); + + if ( g->tqsignals.count() ) + fprintf( out, "\tsignal_tbl, %d,\n", g->tqsignals.count() ); + else + fprintf( out, "\t0, 0,\n" ); + + fprintf( out, "#ifndef TQT_NO_PROPERTIES\n" ); + if ( n_props ) + fprintf( out, "\tprops_tbl, %d,\n", n_props ); + else + fprintf( out, "\t0, 0,\n" ); + if ( n_enums ) + fprintf( out, "\tenum_tbl, %d,\n", n_enums ); + else + fprintf( out, "\t0, 0,\n" ); + fprintf( out, "#endif // TQT_NO_PROPERTIES\n" ); + + if ( n_infos ) + fprintf( out, "\tclassinfo_tbl, %d );\n", n_infos ); + else + fprintf( out, "\t0, 0 );\n" ); + + +// +// Setup cleanup handler and return meta object +// + fprintf( out, " cleanUp_%s.setMetaObject( metaObj );\n", cleanup.data() ); + fprintf( out, " return metaObj;\n}\n" ); + +// +// End of function staticMetaObject() +// + +// +// Generate smart cast function +// + fprintf( out, "\nvoid* %s::qt_cast( const char* clname )\n{\n", + (const char*)qualifiedClassName() ); + fprintf( out, " if ( !qstrcmp( clname, \"%s\" ) )\n" + "\treturn this;\n", + (const char*)qualifiedClassName() ); + for ( const char* cname = g->multipleSuperClasses.first(); cname; cname = g->multipleSuperClasses.next() ) { + fprintf( out, " if ( !qstrcmp( clname, \"%s\" ) )\n", cname); + TQCString fixed(cname); + while (fixed.tqfind(">>") != -1) + fixed = fixed.tqreplace(">>", "> >"); + fprintf( out, "\treturn (%s*)this;\n", fixed.data()); + } + if ( !g->superClassName.isEmpty() && !isTQObject ) + fprintf( out, " return %sqt_cast( clname );\n", + (const char*)callablePurestSuperClassName() ); + else + fprintf( out, " return 0;\n" ); + fprintf( out, "}\n" ); + +// +// Generate internal signal functions +// + Function *f; + f = g->tqsignals.first(); // make internal signal methods + static bool included_list_headers = FALSE; + int sigindex = 0; + while ( f ) { + TQCString argstr; + char buf[12]; + Argument *a = f->args->first(); + int offset = 0; + const char *predef_call_func = 0; + bool hasReturnValue = f->type != "void" && (validUType( f->type ) || isVariantType( f->type) ); + if ( hasReturnValue ) { + ; // no predefined function available + } else if ( !a ) { + predef_call_func = "activate_signal"; + } else if ( f->args->count() == 1 ) { + TQCString ctype = (a->leftType + ' ' + a->rightType).simplifyWhiteSpace(); + if ( !isInOut( ctype ) ) { + TQCString utype = uType( ctype ); + if ( utype == "bool" ) + predef_call_func = "activate_signal_bool"; + else if ( utype == "TQString" || utype == "int" || utype == "double" ) + predef_call_func = "activate_signal"; + } + } + + if ( !predef_call_func && !included_list_headers ) { + // yes we need it, because otherwise TQT_VERSION may not be defined + fprintf( out, "\n#include <%stqobjectdefs.h>\n", (const char*)g->qtPath ); + fprintf( out, "#include <%stqsignalslotimp.h>\n", (const char*)g->qtPath ); + included_list_headers = TRUE; + } + + while ( a ) { // argument list + if ( !a->leftType.isEmpty() || !a->rightType.isEmpty() ) { + argstr += a->leftType; + argstr += " "; + sprintf( buf, "t%d", offset++ ); + argstr += buf; + argstr += a->rightType; + a = f->args->next(); + if ( a ) + argstr += ", "; + } else { + a = f->args->next(); + } + } + + fixRightAngles( &argstr ); + + fprintf( out, "\n// SIGNAL %s\n", (const char*)f->name ); + fprintf( out, "%s %s::%s(", (const char*) f->type, + (const char*)qualifiedClassName(), + (const char*)f->name ); + + if ( argstr.isEmpty() ) + fprintf( out, ")\n{\n" ); + else + fprintf( out, " %s )\n{\n", (const char*)argstr ); + + if ( predef_call_func ) { + fprintf( out, " %s%s( staticMetaObject()->signalOffset() + %d", (const char *) callablePurestSuperClassName(), predef_call_func, sigindex ); + if ( !argstr.isEmpty() ) + fprintf( out, ", t0" ); + fprintf( out, " );\n}\n" ); + } else { + if ( hasReturnValue ) + fprintf( out, " %s something;\n", f->type.data() ); + int nargs = f->args->count(); + fprintf( out, " if ( tqsignalsBlocked() )\n\treturn%s;\n", hasReturnValue ? " something" : "" ); + fprintf( out, " TQConnectionList *clist = tqreceivers( staticMetaObject()->signalOffset() + %d );\n", + sigindex ); + fprintf( out, " if ( !clist )\n\treturn%s;\n", hasReturnValue ? " something" : "" ); + fprintf( out, " TQUObject o[%d];\n", f->args->count() + 1 ); + + // initialize return value to something + if ( hasReturnValue ) { + if ( validUType( f->type ) ) { + TQCString utype = uType( f->type ); + fprintf( out, " static_TQUType_%s.set(o,something);\n", utype.data() ); + } else if ( uType( f->type ) == "varptr" ) { + fprintf( out, " static_TQUType_varptr.set(o,&something);\n" ); + } else { + fprintf( out, " static_TQUType_ptr.set(o,&something);\n" ); + } + } + + // initialize arguments + if ( !f->args->isEmpty() ) { + offset = 0; + Argument* a = f->args->first(); + while ( a ) { + TQCString type = a->leftType + ' ' + a->rightType; + type = type.simplifyWhiteSpace(); + if ( validUType( type ) ) { + TQCString utype = uType( type ); + fprintf( out, " static_TQUType_%s.set(o+%d,t%d);\n", utype.data(), offset+1, offset ); + } else if ( uType( type ) == "varptr" ) { + fprintf( out, " static_TQUType_varptr.set(o+%d,&t%d);\n", offset+1, offset ); + } else { + fprintf( out, " static_TQUType_ptr.set(o+%d,&t%d);\n", offset+1, offset ); + } + a = f->args->next(); + offset++; + } + } + fprintf( out, " activate_signal( clist, o );\n" ); + + // get return values from inOut parameters + if ( !f->args->isEmpty() ) { + offset = 0; + Argument* a = f->args->first(); + while ( a ) { + TQCString type = a->leftType + ' ' + a->rightType; + type = type.simplifyWhiteSpace(); + if ( validUType( type ) && isInOut( type ) ) { + TQCString utype = uType( type ); + if ( utype == "enum" ) + fprintf( out, " t%d = (%s)static_TQUType_%s.get(o+%d);\n", offset, type.data(), utype.data(), offset+1 ); + else if ( utype == "ptr" && type.right(2) == "**" ) + fprintf( out, " if (t%d) *t%d = *(%s)static_TQUType_ptr.get(o+%d);\n", offset, offset, type.data(), offset+1 ); + else + fprintf( out, " t%d = static_TQUType_%s.get(o+%d);\n", offset, utype.data(), offset+1 ); + } + a = f->args->next(); + offset++; + } + } + + // get and return return value + if ( hasReturnValue ) { + TQCString utype = uType( f->type ); + if ( utype == "enum" || utype == "ptr" || utype == "varptr" ) // need cast + fprintf( out, " return (%s)static_TQUType_%s.get(o);\n", f->type.data(), utype.data() ); + else + fprintf( out, " return static_TQUType_%s.get(o);\n", utype.data() ); + } + + fprintf( out, "}\n" ); + } + + f = g->tqsignals.next(); + sigindex++; + } + + +// +// Generate internal qt_invoke() function +// + fprintf( out, "\nbool %s::qt_invoke( int _id, TQUObject* _o )\n{\n", qualifiedClassName().data() ); + + if( !g->tqslots.isEmpty() ) { + fprintf( out, " switch ( _id - staticMetaObject()->slotOffset() ) {\n" ); + int slotindex = -1; + for ( f = g->tqslots.first(); f; f = g->tqslots.next() ) { + slotindex ++; + if ( f->type == "void" && f->args->isEmpty() ) { + fprintf( out, " case %d: %s(); break;\n", slotindex, f->name.data() ); + continue; + } + + fprintf( out, " case %d: ", slotindex ); + bool hasReturnValue = FALSE; + bool hasVariantReturn = FALSE; + if ( f->type != "void" ) { + if ( validUType( f->type )) { + hasReturnValue = TRUE; + fprintf( out, "static_TQUType_%s.set(_o,", uType(f->type).data() ); + } else if ( isVariantType( f->type ) ) { + hasReturnValue = hasVariantReturn = TRUE; + // do not need special handling for bool since this is handled as utype + fprintf( out, "static_TQUType_TQVariant.set(_o,TQVariant(" ); + } + } + int offset = 0; + fprintf( out, "%s(", f->name.data() ); + Argument* a = f->args->first(); + while ( a ) { + TQCString type = a->leftType + ' ' + a->rightType; + type = type.simplifyWhiteSpace(); + fixRightAngles( &type ); + if ( validUType( type ) ) { + TQCString utype = uType( type ); + if ( utype == "ptr" || utype == "varptr" || utype == "enum" ) + fprintf( out, "(%s)static_TQUType_%s.get(_o+%d)", type.data(), utype.data(), offset+1 ); + else + fprintf( out, "(%s)static_TQUType_%s.get(_o+%d)", type.data(), utype.data(), offset+1 ); + } else { + TQCString castType = castToUType( type ); + if(castType == type) + fprintf( out, "(%s)(*((%s*)static_TQUType_ptr.get(_o+%d)))", type.data(), + castType.data(), offset+1 ); + else + fprintf( out, "(%s)*((%s*)static_TQUType_ptr.get(_o+%d))", type.data(), + castType.data(), offset+1 ); + } + a = f->args->next(); + if ( a ) + fprintf( out, "," ); + offset++; + } + fprintf( out, ")" ); + if ( hasReturnValue ) + fprintf( out, ")" ); + if ( hasVariantReturn ) + fprintf( out, ")" ); + fprintf( out, "; break;\n" ); + } + fprintf( out, " default:\n" ); + + if ( !g->superClassName.isEmpty() && !isTQObject ) { + fprintf( out, "\treturn %sqt_invoke( _id, _o );\n", + (const char *) callablePurestSuperClassName() ); + } else { + fprintf( out, "\treturn FALSE;\n" ); + } + fprintf( out, " }\n" ); + fprintf( out, " return TRUE;\n}\n" ); + } else { + if ( !g->superClassName.isEmpty() && !isTQObject ) + fprintf( out, " return %sqt_invoke(_id,_o);\n}\n", + (const char *) callablePurestSuperClassName() ); + else + fprintf( out, " return FALSE;\n}\n" ); + } + + +// +// Generate internal qt_emit() function +// + fprintf( out, "\nbool %s::qt_emit( int _id, TQUObject* _o )\n{\n", qualifiedClassName().data() ); + + if ( !g->tqsignals.isEmpty() ) { + fprintf( out, " switch ( _id - staticMetaObject()->signalOffset() ) {\n" ); + int signalindex = -1; + for ( f = g->tqsignals.first(); f; f = g->tqsignals.next() ) { + signalindex++; + if ( f->type == "void" && f->args->isEmpty() ) { + fprintf( out, " case %d: %s(); break;\n", signalindex, f->name.data() ); + continue; + } + + fprintf( out, " case %d: ", signalindex ); + bool hasReturnValue = FALSE; + if ( f->type != "void" && validUType( f->type )) { + hasReturnValue = TRUE; + fprintf( out, "static_TQUType_%s.set(_o,", uType(f->type).data() ); + } + int offset = 0; + fprintf( out, "%s(", f->name.data() ); + Argument* a = f->args->first(); + while ( a ) { + TQCString type = a->leftType + ' ' + a->rightType; + type = type.simplifyWhiteSpace(); + fixRightAngles( &type ); + if ( validUType( type ) ) { + TQCString utype = uType( type ); + if ( utype == "ptr" || utype == "varptr" || utype == "enum" ) + fprintf( out, "(%s)static_TQUType_%s.get(_o+%d)", type.data(), utype.data(), offset+1 ); + else + fprintf( out, "(%s)static_TQUType_%s.get(_o+%d)", type.data(), utype.data(), offset+1 ); + } else { + TQCString castType = castToUType( type ); + if(castType == type) + fprintf( out, "(%s)(*((%s*)static_TQUType_ptr.get(_o+%d)))", type.data(), + castType.data(), offset+1 ); + else + fprintf( out, "(%s)*((%s*)static_TQUType_ptr.get(_o+%d))", type.data(), + castType.data(), offset+1 ); + } + a = f->args->next(); + if ( a ) + fprintf( out, "," ); + offset++; + } + fprintf( out, ")" ); + if ( hasReturnValue ) + fprintf( out, ")" ); + fprintf( out, "; break;\n" ); + } + fprintf( out, " default:\n" ); + if ( !g->superClassName.isEmpty() && !isTQObject ) + fprintf( out, "\treturn %sqt_emit(_id,_o);\n", + (const char *) callablePurestSuperClassName() ); + else + fprintf( out, "\treturn FALSE;\n" ); + fprintf( out, " }\n" ); + fprintf( out, " return TRUE;\n}\n" ); + } else { + if ( !g->superClassName.isEmpty() && !isTQObject ) + fprintf( out, " return %sqt_emit(_id,_o);\n}\n", + (const char *) callablePurestSuperClassName() ); + else + fprintf( out, " return FALSE;\n}\n" ); + } + + + fprintf( out, "#ifndef TQT_NO_PROPERTIES\n" ); +// +// Generate internal qt_property() functions +// + + fprintf( out, "\nbool %s::qt_property( int id, int f, TQVariant* v)\n{\n", qualifiedClassName().data() ); + + if ( !g->props.isEmpty() ) { + fprintf( out, " switch ( id - staticMetaObject()->propertyOffset() ) {\n" ); + int propindex = -1; + bool need_resolve = FALSE; + + for( TQPtrListIterator<Property> it( g->props ); it.current(); ++it ){ + propindex ++; + fprintf( out, " case %d: ", propindex ); + fprintf( out, "switch( f ) {\n" ); + + uint flag_break = 0; + uint flag_propagate = 0; + + if ( it.current()->setfunc ) { + fprintf( out, "\tcase 0: %s(", it.current()->setfunc->name.data() ); + TQCString type = it.current()->type.copy(); // detach on purpose + if ( it.current()->oredEnum ) + type = it.current()->enumsettype; + if ( type == "uint" ) + fprintf( out, "v->asUInt()" ); + else if ( type == "unsigned int" ) + fprintf( out, "(uint)v->asUInt()" ); + else if ( type == "TQMap<TQString,TQVariant>" ) + fprintf( out, "v->asMap()" ); + else if ( type == "TQValueList<TQVariant>" ) + fprintf( out, "v->asList()" ); + else if ( type == "TQ_LLONG" ) + fprintf( out, "v->asLongLong()" ); + else if ( type == "TQ_ULLONG" ) + fprintf( out, "v->asULongLong()" ); + else if ( isVariantType( type ) ) { + if (( type[0] == 'T' ) && ( type[1] == 'Q' )) + type = type.mid(2); + else + type[0] = toupper( type[0] ); + fprintf( out, "v->as%s()", type.data() ); + } else { + fprintf( out, "(%s&)v->asInt()", type.data() ); + } + fprintf( out, "); break;\n" ); + + } else if ( it.current()->override ) { + flag_propagate |= 1 << (0+1); + } + if ( it.current()->getfunc ) { + if ( it.current()->gspec == Property::Pointer ) + fprintf( out, "\tcase 1: if ( this->%s() ) *v = TQVariant( %s*%s()%s ); break;\n", + it.current()->getfunc->name.data(), + !isVariantType( it.current()->type ) ? "(int)" : "", + it.current()->getfunc->name.data(), + it.current()->type == "bool" ? ", 0" : "" ); + else + fprintf( out, "\tcase 1: *v = TQVariant( %sthis->%s()%s ); break;\n", + !isVariantType( it.current()->type ) ? "(int)" : "", + it.current()->getfunc->name.data(), + it.current()->type == "bool" ? ", 0" : "" ); + } else if ( it.current()->override ) { + flag_propagate |= 1<< (1+1); + } + + if ( !it.current()->reset.isEmpty() ) + fprintf( out, "\tcase 2: this->%s(); break;\n", it.current()->reset.data() ); + + if ( it.current()->designable.isEmpty() ) + flag_propagate |= 1 << (3+1); + else if ( it.current()->designable == "true" ) + flag_break |= 1 << (3+1); + else if ( it.current()->designable != "false" ) + fprintf( out, "\tcase 3: return this->%s();\n", it.current()->designable.data() ); + + if ( it.current()->scriptable.isEmpty() ) + flag_propagate |= 1 << (4+1); + else if ( it.current()->scriptable == "true" ) + flag_break |= 1 << (4+1); + else if ( it.current()->scriptable != "false" ) + fprintf( out, "\tcase 4: return this->%s();\n", it.current()->scriptable.data() ); + + if ( it.current()->stored.isEmpty() ) + flag_propagate |= 1 << (5+1); + else if ( it.current()->stored == "true" ) + flag_break |= 1 << (5+1); + else if ( it.current()->stored != "false" ) + fprintf( out, "\tcase 5: return this->%s();\n", it.current()->stored.data() ); + + int i = 0; + if ( flag_propagate != 0 ) { + fprintf( out, "\t" ); + for ( i = 0; i <= 5; i++ ) { + if ( flag_propagate & (1 << (i+1) ) ) + fprintf( out, "case %d: ", i ); + } + if (!g->superClassName.isEmpty() && !isTQObject ) { + fprintf( out, "goto resolve;\n" ); + need_resolve = TRUE; + } else { + fprintf( out, " return FALSE;\n" ); + } + } + if ( flag_break != 0 ) { + fprintf( out, "\t" ); + for ( i = 0; i <= 5; i++ ) { + if ( flag_break & (1 << (i+1) ) ) + fprintf( out, "case %d: ", i ); + } + fprintf( out, "break;\n"); + } + + fprintf( out, "\tdefault: return FALSE;\n } break;\n" ); + } + fprintf( out, " default:\n" ); + if ( !g->superClassName.isEmpty() && !isTQObject ) + fprintf( out, "\treturn %sqt_property( id, f, v );\n", + (const char *) callablePurestSuperClassName() ); + else + fprintf( out, "\treturn FALSE;\n" ); + fprintf( out, " }\n" ); + fprintf( out, " return TRUE;\n" ); + + if ( need_resolve ) + fprintf( out, "resolve:\n return %sqt_property( staticMetaObject()->resolveProperty(id), f, v );\n", + (const char *) callablePurestSuperClassName() ); + fprintf( out, "}\n" ); + } else { + if ( !g->superClassName.isEmpty() && !isTQObject ) + fprintf( out, " return %sqt_property( id, f, v);\n}\n", + (const char *) callablePurestSuperClassName() ); + else + fprintf( out, " return FALSE;\n}\n" ); + } + + fprintf( out, "\nbool %s::qt_static_property( TQObject* , int , int , TQVariant* ){ return FALSE; }\n", qualifiedClassName().data() ); + fprintf( out, "#endif // TQT_NO_PROPERTIES\n" ); +} + + +ArgList *addArg( Argument *a ) // add argument to list +{ + if ( (!a->leftType.isEmpty() || !a->rightType.isEmpty() ) ) //filter out truely void arguments + tmpArgList->append( a ); + return tmpArgList; +} + +void addEnum() +{ + // Avoid duplicates + for( TQPtrListIterator<Enum> lit( g->enums ); lit.current(); ++lit ) { + if ( lit.current()->name == tmpEnum->name ) + { + if ( displayWarnings ) + tqmoc_err( "Enum %s defined twice.", (const char*)tmpEnum->name ); + } + } + + // Only look at types mentioned in TQ_ENUMS and TQ_SETS + if ( g->qtEnums.tqcontains( tmpEnum->name ) || g->qtSets.tqcontains( tmpEnum->name ) ) + { + g->enums.append( tmpEnum ); + if ( g->qtSets.tqcontains( tmpEnum->name ) ) + tmpEnum->set = TRUE; + else + tmpEnum->set = FALSE; + } + else + delete tmpEnum; + tmpEnum = new Enum; +} + +void addMember( Member m ) +{ + if ( skipFunc ) { + tmpFunc->args = tmpArgList; // just to be sure + delete tmpFunc; + tmpArgList = new ArgList; // ugly but works + tmpFunc = new Function; + skipFunc = FALSE; + return; + } + + tmpFunc->type = tmpFunc->type.simplifyWhiteSpace(); + tmpFunc->access = tmpAccess; + tmpFunc->args = tmpArgList; + tmpFunc->lineNo = lineNo; + + for ( ;; ) { + g->funcs.append( tmpFunc ); + + if ( m == SignalMember ) { + g->tqsignals.append( tmpFunc ); + break; + } else { + if ( m == SlotMember ) + g->tqslots.append( tmpFunc ); + // PropertyCandidateMember or SlotMember + if ( !tmpFunc->name.isEmpty() && tmpFunc->access == Public ) + g->propfuncs.append( tmpFunc ); + if ( !tmpFunc->args || !tmpFunc->args->hasDefaultArguments() ) + break; + tmpFunc = new Function( *tmpFunc ); + tmpFunc->args = tmpFunc->args->magicClone(); + } + } + + skipFunc = FALSE; + tmpFunc = new Function; + tmpArgList = new ArgList; +} + +void checkPropertyName( const char* ident ) +{ + if ( ident[0] == '_' ) { + tqmoc_err( "Invalid property name '%s'.", ident ); + return; + } +} |