diff options
Diffstat (limited to 'korundum/rubylib/rbkconfig_compiler/rbkconfig_compiler.cpp')
| -rw-r--r-- | korundum/rubylib/rbkconfig_compiler/rbkconfig_compiler.cpp | 1330 |
1 files changed, 0 insertions, 1330 deletions
diff --git a/korundum/rubylib/rbkconfig_compiler/rbkconfig_compiler.cpp b/korundum/rubylib/rbkconfig_compiler/rbkconfig_compiler.cpp deleted file mode 100644 index c29cb838..00000000 --- a/korundum/rubylib/rbkconfig_compiler/rbkconfig_compiler.cpp +++ /dev/null @@ -1,1330 +0,0 @@ -// -*- Mode: C++; c-basic-offset: 2; indent-tabs-mode: nil; -*- -/* - This file is part of KDE. - - Copyright (c) 2003 Cornelius Schumacher <[email protected]> - Copyright (c) 2003 Waldo Bastian <[email protected]> - Copyright (c) 2003 Zack Rusin <[email protected]> - - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Library General Public - License as published by the Free Software Foundation; either - version 2 of the License, or (at your option) any later version. - - This library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Library General Public License for more details. - - You should have received a copy of the GNU Library General Public License - along with this library; see the file COPYING.LIB. If not, write to - the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, - Boston, MA 02110-1301, USA. -*/ - -#include <tqfile.h> -#include <tqtextstream.h> -#include <tqdom.h> -#include <tqregexp.h> - -#include <kaboutdata.h> -#include <kapplication.h> -#include <kdebug.h> -#include <klocale.h> -#include <kcmdlineargs.h> -#include <kglobal.h> -#include <kconfig.h> -#include <ksimpleconfig.h> -#include <kstandarddirs.h> - -#include <iostream> - -static const KCmdLineOptions options[] = -{ - { "d", 0, 0 }, - { "directory <dir>", I18N_NOOP("Directory to generate files in"), "." }, - { "+file.kcfg", I18N_NOOP("Input kcfg XML file"), 0 }, - { "+file.kcfgc", I18N_NOOP("Code generation options file"), 0 }, - KCmdLineLastOption -}; - - -bool globalEnums; -bool itemAccessors; -TQStringList allNames; -TQRegExp *validNameRegexp; - -class CfgEntry -{ - public: - struct Choice - { - TQString name; - TQString label; - TQString whatsThis; - }; - - CfgEntry( const TQString &group, const TQString &type, const TQString &key, - const TQString &name, const TQString &label, - const TQString &whatsThis, const TQString &code, - const TQString &defaultValue, const TQValueList<Choice> &choices, - bool hidden ) - : mGroup( group ), mType( type ), mKey( key ), mName( name ), - mLabel( label ), mWhatsThis( whatsThis ), mCode( code ), - mDefaultValue( defaultValue ), - mChoices( choices ), mHidden( hidden ) - { - } - - void setGroup( const TQString &group ) { mGroup = group; } - TQString group() const { return mGroup; } - - void setType( const TQString &type ) { mType = type; } - TQString type() const { return mType; } - - void setKey( const TQString &key ) { mKey = key; } - TQString key() const { return mKey; } - - void setName( const TQString &name ) { mName = name; } - TQString name() const { return mName; } - - void setLabel( const TQString &label ) { mLabel = label; } - TQString label() const { return mLabel; } - - void setWhatsThis( const TQString &whatsThis ) { mWhatsThis = whatsThis; } - TQString whatsThis() const { return mWhatsThis; } - - void setDefaultValue( const TQString &d ) { mDefaultValue = d; } - TQString defaultValue() const { return mDefaultValue; } - - void setCode( const TQString &d ) { mCode = d; } - TQString code() const { return mCode; } - - void setMinValue( const TQString &d ) { mMin = d; } - TQString minValue() const { return mMin; } - - void setMaxValue( const TQString &d ) { mMax = d; } - TQString maxValue() const { return mMax; } - - void setParam( const TQString &d ) { mParam = d; } - TQString param() const { return mParam; } - - void setParamName( const TQString &d ) { mParamName = d; } - TQString paramName() const { return mParamName; } - - void setParamType( const TQString &d ) { mParamType = d; } - TQString paramType() const { return mParamType; } - - void setChoices( const TQValueList<Choice> &d ) { mChoices = d; } - TQValueList<Choice> choices() const { return mChoices; } - - void setParamValues( const TQStringList &d ) { mParamValues = d; } - TQStringList paramValues() const { return mParamValues; } - - void setParamDefaultValues( const TQStringList &d ) { mParamDefaultValues = d; } - TQString paramDefaultValue(int i) const { return mParamDefaultValues[i]; } - - void setParamMax( int d ) { mParamMax = d; } - int paramMax() const { return mParamMax; } - - bool hidden() const { return mHidden; } - - void dump() const - { - kdDebug() << "<entry>" << endl; - kdDebug() << " group: " << mGroup << endl; - kdDebug() << " type: " << mType << endl; - kdDebug() << " key: " << mKey << endl; - kdDebug() << " name: " << mName << endl; - kdDebug() << " label: " << mLabel << endl; -// whatsthis - kdDebug() << " code: " << mCode << endl; -// kdDebug() << " values: " << mValues.join(":") << endl; - - if (!param().isEmpty()) - { - kdDebug() << " param name: "<< mParamName << endl; - kdDebug() << " param type: "<< mParamType << endl; - kdDebug() << " paramvalues: " << mParamValues.join(":") << endl; - } - kdDebug() << " default: " << mDefaultValue << endl; - kdDebug() << " hidden: " << mHidden << endl; - kdDebug() << " min: " << mMin << endl; - kdDebug() << " max: " << mMax << endl; - kdDebug() << "</entry>" << endl; - } - - private: - TQString mGroup; - TQString mType; - TQString mKey; - TQString mName; - TQString mLabel; - TQString mWhatsThis; - TQString mCode; - TQString mDefaultValue; - TQString mParam; - TQString mParamName; - TQString mParamType; - TQValueList<Choice> mChoices; - TQStringList mParamValues; - TQStringList mParamDefaultValues; - int mParamMax; - bool mHidden; - TQString mMin; - TQString mMax; -}; - - -static TQString varName(const TQString &n) -{ - TQString result = "@"+n; - result[1] = result[1].lower(); - return result; -} - -static TQString enumName(const TQString &n) -{ - TQString result = "Enum"+n; - result[4] = result[4].upper(); - return result; -} - -static TQString enumValue(const TQString &n) -{ - TQString result = n; - result[0] = result[0].upper(); - return result; -} - -static TQString setFunction(const TQString &n) -{ - TQString result = "set"+n; - result[3] = result[3].upper(); - return result; -} - - -static TQString getFunction(const TQString &n) -{ - TQString result = n; - result[0] = result[0].lower(); - return result; -} - - -static void addQuotes( TQString &s ) -{ - if ( s.left( 1 ) != "\"" ) s.prepend( "\"" ); - if ( s.right( 1 ) != "\"" ) s.append( "\"" ); -} - -static TQString quoteString( const TQString &s ) -{ - TQString r = s; - r.replace( "\\", "\\\\" ); - r.replace( "\"", "\\\"" ); - r.replace( "\r", "" ); - r.replace( "\n", "\\n\"\n\"" ); - return "\"" + r + "\""; -} - -static TQString literalString( const TQString &s ) -{ - bool isAscii = true; - for(int i = s.length(); i--;) - if (s[i].unicode() > 127) isAscii = false; - - return quoteString(s); - -// if (isAscii) -// return "TQString::fromLatin1( " + quoteString(s) + " )"; -// else -// return "TQString::fromUtf8( " + quoteString(s) + " )"; -} - -static TQString dumpNode(const TQDomNode &node) -{ - TQString msg; - TQTextStream s(&msg, IO_WriteOnly ); - node.save(s, 0); - - msg = msg.simplifyWhiteSpace(); - if (msg.length() > 40) - return msg.left(37)+"..."; - return msg; -} - -static TQString filenameOnly(TQString path) -{ - int i = path.findRev('/'); - if (i >= 0) - return path.mid(i+1); - return path; -} - -static void preProcessDefault( TQString &defaultValue, const TQString &name, - const TQString &type, - const TQValueList<CfgEntry::Choice> &choices, - TQString &code ) -{ - if ( type == "String" && !defaultValue.isEmpty() ) { - defaultValue = literalString(defaultValue); - - } else if ( type == "Path" && !defaultValue.isEmpty() ) { - defaultValue = literalString( defaultValue ); - - } else if ( type == "StringList" && !defaultValue.isEmpty() ) { - TQTextStream rb( &code, IO_WriteOnly | IO_Append ); - if (!code.isEmpty()) - rb << endl; - -// rb << " TQStringList default" << name << ";" << endl; - rb << " default" << name << " = []" << endl; - TQStringList defaults = TQStringList::split( ",", defaultValue ); - TQStringList::ConstIterator it; - for( it = defaults.begin(); it != defaults.end(); ++it ) { - rb << " default" << name << " << \"" << *it << "\"" - << endl; - } - defaultValue = "default" + name; - - } else if ( type == "Color" && !defaultValue.isEmpty() ) { - TQRegExp colorRe("\\d+,\\s*\\d+,\\s*\\d+"); - if (colorRe.exactMatch(defaultValue)) - { - defaultValue = "TQt::Color.new( " + defaultValue + " )"; - } - else - { - defaultValue = "TQt::Color.new( \"" + defaultValue + "\" )"; - } - - } else if ( type == "Enum" ) { - if ( !globalEnums ) { - TQValueList<CfgEntry::Choice>::ConstIterator it; - for( it = choices.begin(); it != choices.end(); ++it ) { - if ( (*it).name == defaultValue ) { - defaultValue.prepend( enumName(name) + "_"); - break; - } - } - } - - } else if ( type == "IntList" ) { - TQTextStream rb( &code, IO_WriteOnly | IO_Append ); - if (!code.isEmpty()) - rb << endl; - - rb << " default" << name << " = []" << endl; - TQStringList defaults = TQStringList::split( ",", defaultValue ); - TQStringList::ConstIterator it; - for( it = defaults.begin(); it != defaults.end(); ++it ) { - rb << " default" << name << " << " << *it << "" - << endl; - } - defaultValue = "default" + name; - } -} - - -CfgEntry *parseEntry( const TQString &group, const TQDomElement &element ) -{ - bool defaultCode = false; - TQString type = element.attribute( "type" ); - TQString name = element.attribute( "name" ); - TQString key = element.attribute( "key" ); - TQString hidden = element.attribute( "hidden" ); - TQString label; - TQString whatsThis; - TQString defaultValue; - TQString code; - TQString param; - TQString paramName; - TQString paramType; - TQValueList<CfgEntry::Choice> choices; - TQStringList paramValues; - TQStringList paramDefaultValues; - TQString minValue; - TQString maxValue; - int paramMax = 0; - - TQDomNode n; - for ( n = element.firstChild(); !n.isNull(); n = n.nextSibling() ) { - TQDomElement e = n.toElement(); - TQString tag = e.tagName(); - if ( tag == "label" ) label = e.text(); - else if ( tag == "whatsthis" ) whatsThis = e.text(); - else if ( tag == "min" ) minValue = e.text(); - else if ( tag == "max" ) maxValue = e.text(); - else if ( tag == "code" ) code = e.text(); - else if ( tag == "parameter" ) - { - param = e.attribute( "name" ); - paramType = e.attribute( "type" ); - if ( param.isEmpty() ) { - kdError() << "Parameter must have a name: " << dumpNode(e) << endl; - return 0; - } - if ( paramType.isEmpty() ) { - kdError() << "Parameter must have a type: " << dumpNode(e) << endl; - return 0; - } - if ((paramType == "Int") || (paramType == "UInt")) - { - bool ok; - paramMax = e.attribute("max").toInt(&ok); - if (!ok) - { - kdError() << "Integer parameter must have a maximum (e.g. max=\"0\"): " << dumpNode(e) << endl; - return 0; - } - } - else if (paramType == "Enum") - { - TQDomNode n2; - for ( n2 = e.firstChild(); !n2.isNull(); n2 = n2.nextSibling() ) { - TQDomElement e2 = n2.toElement(); - if (e2.tagName() == "values") - { - TQDomNode n3; - for ( n3 = e2.firstChild(); !n3.isNull(); n3 = n3.nextSibling() ) { - TQDomElement e3 = n3.toElement(); - if (e3.tagName() == "value") - { - paramValues.append( e3.text() ); - } - } - break; - } - } - if (paramValues.isEmpty()) - { - kdError() << "No values specified for parameter '" << param << "'." << endl; - return 0; - } - paramMax = paramValues.count()-1; - } - else - { - kdError() << "Parameter '" << param << "' has type " << paramType << " but must be of type int, uint or Enum." << endl; - return 0; - } - } - else if ( tag == "default" ) - { - if (e.attribute("param").isEmpty()) - { - defaultValue = e.text(); - if (e.attribute( "code" ) == "true") - defaultCode = true; - } - } - else if ( tag == "choices" ) { - TQDomNode n2; - for( n2 = e.firstChild(); !n2.isNull(); n2 = n2.nextSibling() ) { - TQDomElement e2 = n2.toElement(); - if ( e2.tagName() == "choice" ) { - TQDomNode n3; - CfgEntry::Choice choice; - choice.name = e2.attribute( "name" ); - if ( choice.name.isEmpty() ) { - kdError() << "Tag <choice> requires attribute 'name'." << endl; - } - for( n3 = e2.firstChild(); !n3.isNull(); n3 = n3.nextSibling() ) { - TQDomElement e3 = n3.toElement(); - if ( e3.tagName() == "label" ) choice.label = e3.text(); - if ( e3.tagName() == "whatsthis" ) choice.whatsThis = e3.text(); - } - choices.append( choice ); - } - } - } - } - - bool nameIsEmpty = name.isEmpty(); - if ( nameIsEmpty && key.isEmpty() ) { - kdError() << "Entry must have a name or a key: " << dumpNode(element) << endl; - return 0; - } - - if ( key.isEmpty() ) { - key = name; - } - - if ( nameIsEmpty ) { - name = key; - name.replace( " ", TQString::null ); - } else if ( name.contains( ' ' ) ) { - kdWarning()<<"Entry '"<<name<<"' contains spaces! <name> elements can't contain speces!"<<endl; - name.remove( ' ' ); - } - - if (name.contains("$(")) - { - if (param.isEmpty()) - { - kdError() << "Name may not be parameterized: " << name << endl; - return 0; - } - } - else - { - if (!param.isEmpty()) - { - kdError() << "Name must contain '$(" << param << ")': " << name << endl; - return 0; - } - } - - if ( label.isEmpty() ) { - label = key; - } - - if ( type.isEmpty() ) type = "String"; // XXX : implicit type might be bad - - if (!param.isEmpty()) - { - // Adjust name - paramName = name; - name.replace("$("+param+")", TQString::null); - // Lookup defaults for indexed entries - for(int i = 0; i <= paramMax; i++) - { - paramDefaultValues.append(TQString::null); - } - - TQDomNode n; - for ( n = element.firstChild(); !n.isNull(); n = n.nextSibling() ) { - TQDomElement e = n.toElement(); - TQString tag = e.tagName(); - if ( tag == "default" ) - { - TQString index = e.attribute("param"); - if (index.isEmpty()) - continue; - - bool ok; - int i = index.toInt(&ok); - if (!ok) - { - i = paramValues.findIndex(index); - if (i == -1) - { - kdError() << "Index '" << index << "' for default value is unknown." << endl; - return 0; - } - } - - if ((i < 0) || (i > paramMax)) - { - kdError() << "Index '" << i << "' for default value is out of range [0, "<< paramMax<<"]." << endl; - return 0; - } - - TQString tmpDefaultValue = e.text(); - - if (e.attribute( "code" ) != "true") - preProcessDefault(tmpDefaultValue, name, type, choices, code); - - paramDefaultValues[i] = tmpDefaultValue; - } - } - } - - if (!validNameRegexp->exactMatch(name)) - { - if (nameIsEmpty) - kdError() << "The key '" << key << "' can not be used as name for the entry because " - "it is not a valid name. You need to specify a valid name for this entry." << endl; - else - kdError() << "The name '" << name << "' is not a valid name for an entry." << endl; - return 0; - } - - if (allNames.contains(name)) - { - if (nameIsEmpty) - kdError() << "The key '" << key << "' can not be used as name for the entry because " - "it does not result in a unique name. You need to specify a unique name for this entry." << endl; - else - kdError() << "The name '" << name << "' is not unique." << endl; - return 0; - } - allNames.append(name); - - if (!defaultCode) - { - preProcessDefault(defaultValue, name, type, choices, code); - } - - CfgEntry *result = new CfgEntry( group, type, key, name, label, whatsThis, - code, defaultValue, choices, - hidden == "true" ); - if (!param.isEmpty()) - { - result->setParam(param); - result->setParamName(paramName); - result->setParamType(paramType); - result->setParamValues(paramValues); - result->setParamDefaultValues(paramDefaultValues); - result->setParamMax(paramMax); - } - result->setMinValue(minValue); - result->setMaxValue(maxValue); - - return result; -} - -/** - Return parameter declaration for given type. -*/ -TQString param( const TQString &type ) -{ - if ( type == "String" ) return "const TQString &"; - else if ( type == "StringList" ) return "const TQStringList &"; - else if ( type == "Font" ) return "const TQFont &"; - else if ( type == "Rect" ) return "const TQRect &"; - else if ( type == "Size" ) return "const TQSize &"; - else if ( type == "Color" ) return "const TQColor &"; - else if ( type == "Point" ) return "const TQPoint &"; - else if ( type == "Int" ) return "int"; - else if ( type == "UInt" ) return "uint"; - else if ( type == "Bool" ) return "bool"; - else if ( type == "Double" ) return "double"; - else if ( type == "DateTime" ) return "const TQDateTime &"; - else if ( type == "Int64" ) return "TQ_INT64"; - else if ( type == "UInt64" ) return "TQ_UINT64"; - else if ( type == "IntList" ) return "const TQValueList<int> &"; - else if ( type == "Enum" ) return "int"; - else if ( type == "Path" ) return "const TQString &"; - else if ( type == "Password" ) return "const TQString &"; - else { - kdError() <<"rbkconfig_compiler does not support type \""<< type <<"\""<<endl; - return "TQString"; //For now, but an assert would be better - } -} - -/** - Actual Ruby initializer value to give a type. -*/ -TQString rbType( const TQString &type ) -{ - if ( type == "String" ) return "\"\""; - else if ( type == "StringList" ) return "[]"; - else if ( type == "Font" ) return "TQt::Font.new"; - else if ( type == "Rect" ) return "TQt::Rect.new"; - else if ( type == "Size" ) return "TQt::Size.new"; - else if ( type == "Color" ) return "TQt::Color.new"; - else if ( type == "Point" ) return "TQt::Point.new"; - else if ( type == "Int" ) return "0"; - else if ( type == "UInt" ) return "0"; - else if ( type == "Bool" ) return "false, 42"; - else if ( type == "Double" ) return "0.0"; - else if ( type == "DateTime" ) return "TQt::DateTime.new"; - else if ( type == "Int64" ) return "0"; - else if ( type == "UInt64" ) return "0"; - else if ( type == "IntList" ) return "[]"; - else if ( type == "Enum" ) return "0"; - else if ( type == "Path" ) return "\"\""; - else if ( type == "Password" ) return "\"\""; - else { - kdError()<<"rbkconfig_compiler does not support type \""<< type <<"\""<<endl; - return "nil"; //For now, but an assert would be better - } -} - -TQString defaultValue( const TQString &type ) -{ - if ( type == "String" ) return "\"\""; // Use empty string, not null string! - else if ( type == "StringList" ) return "[]"; - else if ( type == "Font" ) return "KDE::GlobalSettings.generalFont()"; - else if ( type == "Rect" ) return "TQt::Rect.new()"; - else if ( type == "Size" ) return "TQt::Size.new()"; - else if ( type == "Color" ) return "TQt::Color.new(128, 128, 128)"; - else if ( type == "Point" ) return "TQt::Point.new()"; - else if ( type == "Int" ) return "0"; - else if ( type == "UInt" ) return "0"; - else if ( type == "Bool" ) return "false"; - else if ( type == "Double" ) return "0.0"; - else if ( type == "DateTime" ) return "TQt::DateTime.new()"; - else if ( type == "Int64" ) return "0"; - else if ( type == "UInt64" ) return "0"; - else if ( type == "IntList" ) return "[]"; - else if ( type == "Enum" ) return "0"; - else if ( type == "Path" ) return "\"\""; // Use empty string, not null string! - else if ( type == "Password" ) return "\"\""; // Use empty string, not null string! - else { - kdWarning()<<"Error, rbkconfig_compiler doesn't support the \""<< type <<"\" type!"<<endl; - return "String"; //For now, but an assert would be better - } -} - -TQString itemType( const TQString &type ) -{ - TQString t; - - t = type; - t.replace( 0, 1, t.left( 1 ).upper() ); - return t; -} - -static TQString itemVar(const CfgEntry *e) -{ - if (itemAccessors) - return varName( e->name() ) + "Item"; - - return "item" + e->name(); - -} - -TQString newItem( const TQString &type, const TQString &name, const TQString &key, - const TQString &defaultValue, const TQString ¶m = TQString::null) -{ - TQString t = "Item" + itemType( type ) + - ".new( currentGroup(), " + key + ", " + varName( name ) + param; - if ( type == "Enum" ) { - t += ".toInt"; - t += ", values" + name; - } else if ( type == "Path" ) { - t += ".toString"; - } else if ( type == "Int64" ) { - t += ".toLongLong"; - } else { - t += ".to" + itemType( type ); - } - if ( !defaultValue.isEmpty() ) { - t += ", "; - if ( type == "String" ) t += defaultValue; - else t+= defaultValue; - } - t += " )"; - - return t; -} - -TQString addItem( const TQString &type, const TQString &name, const TQString &key, - const TQString &defaultValue, const TQString ¶m = TQString::null, - const TQString ¶mName = TQString::null ) -{ - TQString t = "addItem" + itemType( type ) + - "( " + key + ", " + varName( name ) + param; - if ( type == "Enum" ) t += ", values" + name; - if ( !defaultValue.isEmpty() ) { - t += ", "; - if ( type == "String" ) t += defaultValue; - else if ( type == "Enum" ) t += enumValue(defaultValue); - else t+= defaultValue; - } - - if (!paramName.isNull()) { - t += ", \"" + paramName + "\""; - } - - t += " )"; - - return t; -} - -TQString paramString(const TQString &s, const CfgEntry *e, int i) -{ - TQString result = s; - TQString needle = "$("+e->param()+")"; - if (result.contains(needle)) - { - TQString tmp; - if (e->paramType() == "Enum") - { - tmp = e->paramValues()[i]; - } - else - { - tmp = TQString::number(i); - } - - result.replace(needle, tmp); - } - return result; -} - -TQString paramString(const TQString &group, const TQStringList ¶meters) -{ - TQString paramString = group; - TQString arguments; - int i = 0; - for( TQStringList::ConstIterator it = parameters.begin(); - it != parameters.end(); ++it) - { - if (paramString.contains("$("+*it+")")) - { - i++; - paramString.replace("$("+*it+")", "%s"); - if (i > 1) { - arguments += ", "; - } - arguments += " @param"+*it; - } - } - if (arguments.isEmpty()) - return "\""+group+"\""; - - if (i == 1) { - return "\""+paramString+"\" % "+arguments; - } else { - return "\""+paramString+"\" % ["+arguments+"]"; - } -} - -/* int i is the value of the parameter */ -TQString userTextsFunctions( CfgEntry *e, TQString itemVarStr=TQString::null, TQString i=TQString::null ) -{ - TQString txt; - if (itemVarStr.isNull()) itemVarStr=itemVar(e); - if ( !e->label().isEmpty() ) { - txt += " " + itemVarStr + ".setLabel( i18n("; - if ( !e->param().isEmpty() ) - txt += quoteString(e->label().replace("$("+e->param()+")", i)); - else - txt+= quoteString(e->label()); - txt+= ") )\n"; - } - if ( !e->whatsThis().isEmpty() ) { - txt += " " + itemVarStr + ".setWhatsThis( i18n("; - if ( !e->param().isEmpty() ) - txt += quoteString(e->whatsThis().replace("$("+e->param()+")", i)); - else - txt+= quoteString(e->whatsThis()); - txt+=") )\n"; - } - return txt; -} - -int main( int argc, char **argv ) -{ - TDEAboutData aboutData( "rbkconfig_compiler", I18N_NOOP("TDE .kcfg compiler"), "0.3", - I18N_NOOP("Ruby TDEConfig Compiler") , TDEAboutData::License_LGPL ); - aboutData.addAuthor( "Cornelius Schumacher", 0, "[email protected]" ); - aboutData.addAuthor( "Waldo Bastian", 0, "[email protected]" ); - aboutData.addAuthor( "Zack Rusin", 0, "[email protected]" ); - aboutData.addCredit( "Reinhold Kainhofer", "Fix for parametrized entries", - "[email protected]", "http://reinhold.kainhofer.com" ); - aboutData.addCredit( "Richard Dale", "Ruby port", - "[email protected]", "" ); - - TDECmdLineArgs::init( argc, argv, &aboutData ); - TDECmdLineArgs::addCmdLineOptions( options ); - - TDEInstance app( &aboutData ); - - TDECmdLineArgs *args = TDECmdLineArgs::parsedArgs(); - - if ( args->count() < 2 ) { - kdError() << "Too few arguments." << endl; - return 1; - } - if ( args->count() > 2 ) { - kdError() << "Too many arguments." << endl; - return 1; - } - - validNameRegexp = new TQRegExp("[a-zA-Z_][a-zA-Z0-9_]*"); - - TQString baseDir = TQFile::decodeName(args->getOption("directory")); - if (!baseDir.endsWith("/")) - baseDir.append("/"); - - TQString inputFilename = args->url( 0 ).path(); - TQString codegenFilename = args->url( 1 ).path(); - - if (!codegenFilename.endsWith(".kcfgc")) - { - kdError() << "Codegen options file must have extension .kcfgc" << endl; - return 1; - } - TQString baseName = args->url( 1 ).fileName(); - baseName = baseName.left(baseName.length() - 6); - - KSimpleConfig codegenConfig( codegenFilename, true ); - - TQString nameSpace = codegenConfig.readEntry("NameSpace"); - TQString className = codegenConfig.readEntry("ClassName"); - TQString inherits = codegenConfig.readEntry("Inherits"); - TQString visibility = codegenConfig.readEntry("Visibility"); - if (!visibility.isEmpty()) visibility+=" "; - bool singleton = codegenConfig.readBoolEntry("Singleton", false); - bool customAddons = codegenConfig.readBoolEntry("CustomAdditions"); - TQString memberVariables = codegenConfig.readEntry("MemberVariables"); - TQStringList headerIncludes = codegenConfig.readListEntry("IncludeFiles"); - TQStringList mutators = codegenConfig.readListEntry("Mutators"); - bool allMutators = false; - if ((mutators.count() == 1) && (mutators[0].lower() == "true")) - allMutators = true; - itemAccessors = codegenConfig.readBoolEntry( "ItemAccessors", false ); - bool setUserTexts = codegenConfig.readBoolEntry( "SetUserTexts", false ); - - globalEnums = codegenConfig.readBoolEntry( "GlobalEnums", false ); - - TQFile input( inputFilename ); - - TQDomDocument doc; - TQString errorMsg; - int errorRow; - int errorCol; - if ( !doc.setContent( &input, &errorMsg, &errorRow, &errorCol ) ) { - kdError() << "Unable to load document." << endl; - kdError() << "Parse error in " << args->url( 0 ).fileName() << ", line " << errorRow << ", col " << errorCol << ": " << errorMsg << endl; - return 1; - } - - TQDomElement cfgElement = doc.documentElement(); - - if ( cfgElement.isNull() ) { - kdError() << "No document in kcfg file" << endl; - return 1; - } - - TQString cfgFileName; - bool cfgFileNameArg = false; - TQStringList parameters; - TQStringList includes; - - TQPtrList<CfgEntry> entries; - entries.setAutoDelete( true ); - - TQDomNode n; - for ( n = cfgElement.firstChild(); !n.isNull(); n = n.nextSibling() ) { - TQDomElement e = n.toElement(); - - TQString tag = e.tagName(); - - if ( tag == "include" ) { - TQString includeFile = e.text(); - if (!includeFile.isEmpty()) - includes.append(includeFile); - - } else if ( tag == "kcfgfile" ) { - cfgFileName = e.attribute( "name" ); - cfgFileNameArg = e.attribute( "arg" ).lower() == "true"; - TQDomNode n2; - for( n2 = e.firstChild(); !n2.isNull(); n2 = n2.nextSibling() ) { - TQDomElement e2 = n2.toElement(); - if ( e2.tagName() == "parameter" ) { - parameters.append( e2.attribute( "name" ) ); - } - } - - } else if ( tag == "group" ) { - TQString group = e.attribute( "name" ); - if ( group.isEmpty() ) { - kdError() << "Group without name" << endl; - return 1; - } - TQDomNode n2; - for( n2 = e.firstChild(); !n2.isNull(); n2 = n2.nextSibling() ) { - TQDomElement e2 = n2.toElement(); - if ( e2.tagName() != "entry" ) continue; - CfgEntry *entry = parseEntry( group, e2 ); - if ( entry ) entries.append( entry ); - else { - kdError() << "Can't parse entry." << endl; - return 1; - } - } - } - } - - if ( inherits.isEmpty() ) inherits = "KDE::ConfigSkeleton"; - - if ( className.isEmpty() ) { - kdError() << "Class name missing" << endl; - return 1; - } - - if ( singleton && !parameters.isEmpty() ) { - kdError() << "Singleton class can not have parameters" << endl; - return 1; - } - - if ( singleton && cfgFileNameArg) - { - kdError() << "Singleton class can not use filename as argument." << endl; - return 1; - } - - if ( !cfgFileName.isEmpty() && cfgFileNameArg) - { - kdError() << "Having both a fixed filename and a filename as argument is not possible." << endl; - return 1; - } - - if ( entries.isEmpty() ) { - kdWarning() << "No entries." << endl; - } - -#if 0 - CfgEntry *cfg; - for( cfg = entries.first(); cfg; cfg = entries.next() ) { - cfg->dump(); - } -#endif - - TQString implementationFileName = baseName + ".rb"; - - TQFile implementation( baseDir + implementationFileName ); - if ( !implementation.open( IO_WriteOnly ) ) { - kdError() << "Can't open '" << implementationFileName << "for writing." << endl; - return 1; - } - - TQTextStream rb( &implementation ); - - rb << "# This file is generated by rbkconfig_compiler from " << args->url(0).fileName() << "." << endl; - rb << "# All changes you do to this file will be lost." << endl; - rb << endl << "require 'Korundum'" << endl; - - if (singleton) { - rb << "require 'singleton'" << endl; - } - - rb << endl; - -// rb << "#ifndef " << ( !nameSpace.isEmpty() ? nameSpace.upper() + "_" : "" ) -// << className.upper() << "_H" << endl; -// rb << "#define " << ( !nameSpace.isEmpty() ? nameSpace.upper() + "_" : "" ) -// << className.upper() << "_H" << endl << endl; - - // Includes -// TQStringList::ConstIterator it; -// for( it = headerIncludes.begin(); it != headerIncludes.end(); ++it ) { -// rb << "#include <" << *it << ">" << endl; -// } - - if ( headerIncludes.count() > 0 ) rb << endl; - -// rb << "#include <kconfigskeleton.h>" << endl << endl; - - if ( !nameSpace.isEmpty() ) - rb << "module " << nameSpace << endl << endl; - - // Class declaration header - rb << "class " << className << " < " << inherits << endl; - - if (singleton) { - rb << " include Singleton" << endl << endl; - } - - // enums - CfgEntry *e; - for( e = entries.first(); e; e = entries.next() ) { - TQValueList<CfgEntry::Choice> choices = e->choices(); - if ( !choices.isEmpty() ) { - TQStringList values; - TQValueList<CfgEntry::Choice>::ConstIterator itChoice; - for( itChoice = choices.begin(); itChoice != choices.end(); ++itChoice ) { - if (globalEnums) { - values.append( enumValue((*itChoice).name) ); - } else { - values.append( enumName(e->name()) + "_" + (*itChoice).name ); - } - } - if (!globalEnums) { - values.append( enumName(e->name()) + "_COUNT" ); - } - int count = 0; - for ( TQStringList::Iterator it = values.begin(); it != values.end(); ++it, count++ ) { - rb << " " << *it << " = " << count << endl; - } - rb << endl; - } - - TQStringList values = e->paramValues(); - if ( !values.isEmpty() ) { - int count = 0; - for ( TQStringList::Iterator it = values.begin(); it != values.end(); ++it, count++ ) { - if (globalEnums) { - rb << " " << enumValue(*it) << " = " << count << endl; - } else { - rb << " " << enumName(e->param()) << "_" << *it << " = " << count << endl; - } - } - if (!globalEnums) { - rb << " " << enumName(e->param()) << "_COUNT = " << count << endl; - } - rb << endl; - - rb << " def " << enumName(e->param()) << "ToString(i)" << endl; - rb << " ["; - count = 0; - for ( TQStringList::Iterator it = values.begin(); it != values.end(); ++it, count++ ) { - if (count > 0) { - rb << ", "; - } - - rb << "\"" << *it << "\""; - } - - rb << "].at(i)" << endl; - rb << " end" << endl; - } - } - - rb << endl; - - for( e = entries.first(); e; e = entries.next() ) { - TQString n = e->name(); - TQString t = e->type(); - - // Manipulator - if (allMutators || mutators.contains(n)) - { - rb << " #" << endl; - rb << " # Set " << e->label() << endl; - rb << " #" << endl; - rb << " def " << setFunction(n) << "( "; - if (!e->param().isEmpty()) - rb << " i, "; - rb << " v )" << endl; - rb << " item = findItem( \""; - if (!e->param().isEmpty()) { - rb << e->paramName().replace("$("+e->param()+")", "%s") << "\" % "; - if ( e->paramType() == "Enum" ) { - rb << " "; - if (globalEnums) - rb << enumName(e->param()) << "ToString(i)"; - else - rb << enumName(e->param()) << "ToString(i)"; - } else { - rb << "i"; - } - } else { - rb << n << "\""; - } - rb << " )" << endl; - rb << " if !item.immutable? " << endl; - rb << " item.property = " << varName(n); - if (!e->param().isEmpty()) - rb << "[i]"; - rb << " = TQt::Variant.new( v )" << endl; - rb << " end" << endl; - rb << " end" << endl << endl; - } - - // Accessor - rb << " #" << endl; - rb << " # Get " << e->label() << endl; - rb << " #" << endl; - rb << " def " << getFunction(n) << "("; - if (!e->param().isEmpty()) - rb << " " <<" i "; - rb << ")" << endl; - rb << " " << varName(n); - if (!e->param().isEmpty()) rb << "[i]"; - rb << " = findItem( \""; - if (!e->param().isEmpty()) { - rb << e->paramName().replace("$("+e->param()+")", "%s") << "\" % "; - if ( e->paramType() == "Enum" ) { - rb << " "; - if (globalEnums) - rb << enumName(e->param()) << "ToString(i)"; - else - rb << enumName(e->param()) << "ToString(i)"; - } else { - rb << "i"; - } - } else { - rb << n << "\""; - } - rb << " ).property" << endl; - rb << " return " << varName(n); - if (!e->param().isEmpty()) rb << "[i]"; - if ( e->type() == "Enum" ) { - rb << ".toInt" << endl; - } else if ( e->type() == "Int64" ) { - rb << ".toLongLong" << endl; - } else if ( e->type() == "Path" ) { - rb << ".toString" << endl; - } else { - rb << ".to" << itemType( e->type() ) << endl; - } - rb << " end" << endl; - - // Item accessor - if ( itemAccessors ) { - rb << endl; - rb << " #" << endl; - rb << " # Get Item object corresponding to " << n << "()" - << endl; - rb << " #" << endl; - rb << " def " - << getFunction( n ) << "Item("; - if (!e->param().isEmpty()) { - rb << " " << " i "; - } - rb << ")" << endl; - rb << " return " << itemVar(e); - if (!e->param().isEmpty()) rb << "[i]"; - rb << endl << " end" << endl; - } - - rb << endl; - } - - - if (customAddons) - { - rb << " # Include custom additions" << endl; - } - - - // Constructor - rb << " def initialize( "; - if (cfgFileNameArg) - rb << " config" << (parameters.isEmpty() ? " " : ", "); - for (TQStringList::ConstIterator it = parameters.begin(); - it != parameters.end(); ++it) - { - if (it != parameters.begin()) - rb << ","; - rb << " " << *it; - } - rb << " )" << endl; - - rb << " super("; - if ( !cfgFileName.isEmpty() ) rb << " \"" << cfgFileName << "\" "; - if ( cfgFileNameArg ) rb << " config "; -// if ( !cfgFileName.isEmpty() ) rb << ") "; - rb << ")" << endl; - - // Store parameters - for (TQStringList::ConstIterator it = parameters.begin(); - it != parameters.end(); ++it) - { - rb << " @param" << *it << " = TQt::Variant.new( " << *it << " )" << endl; - } - - TQString group; - for( e = entries.first(); e; e = entries.next() ) { - if ( e->group() != group ) { - group = e->group(); - rb << endl; - rb << " # " << group << endl; - } - if (e->param().isEmpty()) { - rb << " " << varName(e->name()) << " = TQt::Variant.new( " << rbType(e->type()) << " )"; - } else { - rb << " " << varName(e->name()) << " = [ "; - for (int i = 0; i < e->paramMax()+1; i++) { - if (i > 0) { - rb << ", "; - } - rb << "TQt::Variant.new( " << rbType(e->type()) << " )"; - } - rb << " ]"; - } - rb << endl; - } - - rb << endl; - - - group = TQString::null; - for( e = entries.first(); e; e = entries.next() ) { - if ( e->group() != group ) { - if ( !group.isEmpty() ) rb << endl; - group = e->group(); - rb << " setCurrentGroup( " << paramString(group, parameters) << " )" << endl << endl; - } - - TQString key = paramString(e->key(), parameters); - if ( !e->code().isEmpty()) - { - rb << e->code() << endl; - } - if ( e->type() == "Enum" ) { - rb << " values" - << e->name() << " = []" << endl; - TQValueList<CfgEntry::Choice> choices = e->choices(); - TQValueList<CfgEntry::Choice>::ConstIterator it; - for( it = choices.begin(); it != choices.end(); ++it ) { - rb << " choice = ItemEnum::Choice.new" << endl; - rb << " choice.name = \"" << enumValue((*it).name) << "\" " << endl; - if ( setUserTexts ) { - if ( !(*it).label.isEmpty() ) - rb << " choice.label = i18n(" << quoteString((*it).label) << ")" << endl; - if ( !(*it).whatsThis.isEmpty() ) - rb << " choice.whatsThis = i18n(" << quoteString((*it).whatsThis) << ")" << endl; - } - rb << " values" << e->name() << " << choice" << endl; - } - } - - if (e->param().isEmpty()) - { - // Normal case - rb << " " << itemVar(e) << " = " - << newItem( e->type(), e->name(), key, e->defaultValue() ) << endl; - - rb << " " << itemVar(e) << ".property = " << varName(e->name()) << endl; - - if ( !e->minValue().isEmpty() ) - rb << " " << itemVar(e) << ".setMinValue(" << e->minValue() << ")" << endl; - if ( !e->maxValue().isEmpty() ) - rb << " " << itemVar(e) << ".setMaxValue(" << e->maxValue() << ")" << endl; - - if ( setUserTexts ) - rb << userTextsFunctions( e ); - - rb << " addItem( " << itemVar(e); - TQString quotedName = e->name(); - addQuotes( quotedName ); - if ( quotedName != key ) rb << ", \"" << e->name() << "\""; - rb << " )" << endl; - } - else - { - // Indexed - rb << " " << itemVar(e) << " = Array.new(" << e->paramMax()+1 << ")" << endl; - for(int i = 0; i <= e->paramMax(); i++) - { - TQString defaultStr; - TQString itemVarStr(itemVar(e)+TQString("[%1]").arg(i)); - - if ( !e->paramDefaultValue(i).isEmpty() ) - defaultStr = e->paramDefaultValue(i); - else if ( !e->defaultValue().isEmpty() ) - defaultStr = paramString(e->defaultValue(), e, i); - else - defaultStr = defaultValue( e->type() ); - - rb << " " << itemVarStr << " = " - << newItem( e->type(), e->name(), paramString(key, e, i), defaultStr, TQString("[%1]").arg(i) ) - << endl; - - rb << " " << itemVarStr << ".property = " << varName(e->name())+TQString("[%1]").arg(i) << endl; - - if ( setUserTexts ) - rb << userTextsFunctions( e, itemVarStr, e->paramName() ); - - // Make mutators for enum parameters work by adding them with $(..) replaced by the - // param name. The check for isImmutable in the set* functions doesn't have the param - // name available, just the corresponding enum value (int), so we need to store the - // param names in a separate static list!. - rb << " addItem( " << itemVarStr << ", \""; - if ( e->paramType()=="Enum" ) - rb << e->paramName().replace( "$("+e->param()+")", "%1").arg(e->paramValues()[i] ); - else - rb << e->paramName().replace( "$("+e->param()+")", "%1").arg(i); - rb << "\" )" << endl; - - } - } - } - - rb << " end" << endl << endl; - - rb << "end" << endl << endl; - - if ( !nameSpace.isEmpty() ) rb << "end" << endl << endl; - - implementation.close(); -} |