summaryrefslogtreecommitdiffstats
path: root/tdecore/kdcoppropertyproxy.cpp
diff options
context:
space:
mode:
authorTimothy Pearson <kb9vqf@pearsoncomputing.net>2011-11-06 15:56:40 -0600
committerTimothy Pearson <kb9vqf@pearsoncomputing.net>2011-11-06 15:56:40 -0600
commite16866e072f94410321d70daedbcb855ea878cac (patch)
treeee3f52eabde7da1a0e6ca845fb9c2813cf1558cf /tdecore/kdcoppropertyproxy.cpp
parenta58c20c1a7593631a1b50213c805507ebc16adaf (diff)
downloadtdelibs-e16866e072f94410321d70daedbcb855ea878cac.tar.gz
tdelibs-e16866e072f94410321d70daedbcb855ea878cac.zip
Actually move the kde files that were renamed in the last commit
Diffstat (limited to 'tdecore/kdcoppropertyproxy.cpp')
-rw-r--r--tdecore/kdcoppropertyproxy.cpp335
1 files changed, 335 insertions, 0 deletions
diff --git a/tdecore/kdcoppropertyproxy.cpp b/tdecore/kdcoppropertyproxy.cpp
new file mode 100644
index 000000000..3742c509c
--- /dev/null
+++ b/tdecore/kdcoppropertyproxy.cpp
@@ -0,0 +1,335 @@
+/* This file is part of the KDE project
+ Copyright (C) 1999 Simon Hausmann <hausmann@kde.org>
+
+ 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 "kdcoppropertyproxy.h"
+
+#include <tqstrlist.h>
+#include <tqmetaobject.h>
+#include <tqvariant.h>
+#include <tqcursor.h>
+#include <tqbitmap.h>
+#include <tqregion.h>
+#include <tqpointarray.h>
+#include <tqiconset.h>
+#include <tqfont.h>
+#include <tqimage.h>
+#include <tqbrush.h>
+#include <tqpalette.h>
+
+#include <ctype.h>
+#include <assert.h>
+
+class KDCOPPropertyProxyPrivate
+{
+public:
+ KDCOPPropertyProxyPrivate()
+ {
+ }
+ ~KDCOPPropertyProxyPrivate()
+ {
+ }
+
+ TQObject *m_object;
+};
+
+KDCOPPropertyProxy::KDCOPPropertyProxy( TQObject *object )
+{
+ d = new KDCOPPropertyProxyPrivate;
+ d->m_object = object;
+}
+
+KDCOPPropertyProxy::~KDCOPPropertyProxy()
+{
+ delete d;
+}
+
+bool KDCOPPropertyProxy::isPropertyRequest( const TQCString &fun )
+{
+ return isPropertyRequest( fun, d->m_object );
+}
+
+bool KDCOPPropertyProxy::processPropertyRequest( const TQCString &fun, const TQByteArray &data,
+ TQCString &replyType, TQByteArray &replyData )
+{
+ return processPropertyRequest( fun, data, replyType, replyData, d->m_object );
+}
+
+TQValueList<TQCString> KDCOPPropertyProxy::functions()
+{
+ return functions( d->m_object );
+}
+
+bool KDCOPPropertyProxy::isPropertyRequest( const TQCString &fun, TQObject *object )
+{
+ if ( fun == "property(TQCString)" ||
+ fun == "setProperty(TQCString,TQVariant)" ||
+ fun == "propertyNames(bool)" )
+ return true;
+
+ bool set;
+ TQCString propName, arg;
+ return decodePropertyRequestInternal( fun, object, set, propName, arg );
+}
+
+TQValueList<TQCString> KDCOPPropertyProxy::functions( TQObject *object )
+{
+ TQValueList<TQCString> res;
+ res << "TQVariant property(TQCString property)";
+ res << "bool setProperty(TQCString name,TQVariant property)";
+ res << "TQValueList<TQCString> propertyNames(bool super)";
+
+ TQMetaObject *metaObj = object->tqmetaObject();
+ TQStrList properties = metaObj->propertyNames( true );
+ TQStrListIterator it( properties );
+ for (; it.current(); ++it )
+ {
+ const TQMetaProperty *metaProp = metaObj->property( metaObj->findProperty( it.current(), true ), true );
+
+ assert( metaProp );
+
+ TQCString name = it.current();
+ name.prepend( " " );
+ name.prepend( metaProp->type() );
+ name.append( "()" );
+ res << name;
+
+ if ( metaProp->writable() )
+ {
+ TQCString setName = it.current();
+ setName[ 0 ] = toupper( setName[ 0 ] );
+ setName = "void set" + setName + "(" + metaProp->type() + " " + it.current() + ")";
+ res << setName;
+ }
+ }
+
+ return res;
+}
+
+bool KDCOPPropertyProxy::processPropertyRequest( const TQCString &fun, const TQByteArray &data,
+ TQCString &replyType, TQByteArray &replyData,
+ TQObject *object )
+{
+ if ( fun == "property(TQCString)" )
+ {
+ TQCString propName;
+ TQDataStream stream( data, IO_ReadOnly );
+ stream >> propName;
+
+ replyType = "TQVariant";
+ TQDataStream reply( replyData, IO_WriteOnly );
+ reply << object->property( propName );
+ return true;
+ }
+
+ if ( fun == "setProperty(TQCString,TQVariant)" )
+ {
+ TQCString propName;
+ TQVariant propValue;
+ TQDataStream stream( data, IO_ReadOnly );
+ stream >> propName >> propValue;
+
+ replyType = "bool";
+ TQDataStream reply( replyData, IO_WriteOnly );
+ reply << (TQ_INT8)object->setProperty( propName, propValue );
+ return true;
+ }
+
+ if ( fun == "propertyNames(bool)" )
+ {
+ TQ_INT8 b;
+ TQDataStream stream( data, IO_ReadOnly );
+ stream >> b;
+
+ TQValueList<TQCString> res;
+ TQStrList props = object->tqmetaObject()->propertyNames( static_cast<bool>( b ) );
+ TQStrListIterator it( props );
+ for (; it.current(); ++it )
+ res.append( it.current() );
+
+ replyType = "TQValueList<TQCString>";
+ TQDataStream reply( replyData, IO_WriteOnly );
+ reply << res;
+ return true;
+ }
+
+ bool set;
+ TQCString propName, arg;
+
+ bool res = decodePropertyRequestInternal( fun, object, set, propName, arg );
+ if ( !res )
+ return false;
+
+ if ( set )
+ {
+ TQVariant prop;
+ TQDataStream stream( data, IO_ReadOnly );
+
+ TQVariant::Type type = TQVariant::nameToType( arg );
+ if ( type == TQVariant::Invalid )
+ return false;
+
+#define DEMARSHAL( type, val ) \
+ case TQVariant::type: \
+ { \
+ val v; \
+ stream >> v; \
+ prop = TQVariant( v ); \
+ } \
+ break;
+
+ typedef TQValueList<TQVariant> ListType;
+ typedef TQMap<TQString,TQVariant> MapType;
+
+ switch ( type )
+ {
+ DEMARSHAL( Cursor, TQCursor )
+ DEMARSHAL( Bitmap, TQBitmap )
+ DEMARSHAL( PointArray, TQPointArray )
+ DEMARSHAL( Region, TQRegion )
+ DEMARSHAL( List, ListType )
+ DEMARSHAL( Map, MapType )
+ DEMARSHAL( String, TQString )
+ DEMARSHAL( CString, TQCString )
+ DEMARSHAL( StringList, TQStringList )
+ DEMARSHAL( Font, TQFont )
+ DEMARSHAL( Pixmap, TQPixmap )
+ DEMARSHAL( Image, TQImage )
+ DEMARSHAL( Brush, TQBrush )
+ DEMARSHAL( Point, TQPoint )
+ DEMARSHAL( Rect, TQRect )
+ DEMARSHAL( Size, TQSize )
+ DEMARSHAL( Color, TQColor )
+ DEMARSHAL( Palette, TQPalette )
+ DEMARSHAL( ColorGroup, TQColorGroup )
+ case TQVariant::IconSet:
+ {
+ TQPixmap val;
+ stream >> val;
+ prop = TQVariant( TQIconSet( val ) );
+ }
+ break;
+ DEMARSHAL( Int, int )
+ DEMARSHAL( UInt, uint )
+ case TQVariant::Bool:
+ {
+ TQ_INT8 v;
+ stream >> v;
+ prop = TQVariant( static_cast<bool>( v ), 1 );
+ }
+ break;
+ DEMARSHAL( Double, double )
+ default:
+ return false;
+ }
+
+ replyType = "void";
+ return object->setProperty( propName, prop );
+ }
+ else
+ {
+ TQVariant prop = object->property( propName );
+
+ if ( prop.type() == TQVariant::Invalid )
+ return false;
+
+ replyType = prop.typeName();
+ TQDataStream reply( replyData, IO_WriteOnly );
+
+#define MARSHAL( type ) \
+ case TQVariant::type: \
+ reply << prop.to##type(); \
+ break;
+
+ switch ( prop.type() )
+ {
+ MARSHAL( Cursor )
+ MARSHAL( Bitmap )
+ MARSHAL( PointArray )
+ MARSHAL( Region )
+ MARSHAL( List )
+ MARSHAL( Map )
+ MARSHAL( String )
+ MARSHAL( CString )
+ MARSHAL( StringList )
+ MARSHAL( Font )
+ MARSHAL( Pixmap )
+ MARSHAL( Image )
+ MARSHAL( Brush )
+ MARSHAL( Point )
+ MARSHAL( Rect )
+ MARSHAL( Size )
+ MARSHAL( Color )
+ MARSHAL( Palette )
+ MARSHAL( ColorGroup )
+ case TQVariant::IconSet:
+ reply << prop.toIconSet().pixmap();
+ break;
+ MARSHAL( Int )
+ MARSHAL( UInt )
+ case TQVariant::Bool:
+ reply << (TQ_INT8)prop.toBool();
+ break;
+ MARSHAL( Double )
+ default:
+ return false;
+ }
+
+#undef MARSHAL
+#undef DEMARSHAL
+
+ return true;
+ }
+
+ return false;
+}
+
+bool KDCOPPropertyProxy::decodePropertyRequestInternal( const TQCString &fun, TQObject *object, bool &set,
+ TQCString &propName, TQCString &arg )
+{
+ if ( fun.length() < 3 )
+ return false;
+
+ set = false;
+
+ propName = fun;
+
+ if ( propName.left( 3 ) == "set" )
+ {
+ propName.detach();
+ set = true;
+ propName = propName.mid( 3 );
+ int p1 = propName.find( '(' );
+
+ uint len = propName.length();
+
+ if ( propName[ len - 1 ] != ')' )
+ return false;
+
+ arg = propName.mid( p1+1, len - p1 - 2 );
+ propName.truncate( p1 );
+ propName[ 0 ] = tolower( propName[ 0 ] );
+ }
+ else
+ propName.truncate( propName.length() - 2 );
+
+ if ( !object->tqmetaObject()->propertyNames( true ).contains( propName ) )
+ return false;
+
+ return true;
+}