Copy of aRts for Trinity modifications

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/dependencies/arts@1070145 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

4 files changed, 246 insertions, 0 deletions

diff --git a/x11/Makefile.am b/x11/Makefile.am
new file mode 100644
index 0000000..3a86768
--- /dev/null
+++ b/x11/Makefile.am
@@ -0,0 +1,29 @@
+if include_x11
+
+INCLUDES = -I$(top_srcdir)/mcop -I$(top_builddir)/mcop $(all_includes)
+
+lib_LTLIBRARIES = libx11globalcomm.la
+
+libx11globalcomm_la_SOURCES = x11globalcomm.cc x11globalcomm_impl.cc
+libx11globalcomm_la_LIBADD = $(top_builddir)/mcop/libmcop.la $(LIB_X11)
+libx11globalcomm_la_LDFLAGS = -no-undefined -module -version-info 1:0 $(X_LDFLAGS) $(all_libraries)
+
+DISTCLEANFILES = x11globalcomm.cc x11globalcomm.h \
+                 x11globalcomm.mcoptype x11globalcomm.mcopclass
+
+x11globalcomm.cc x11globalcomm.h: $(srcdir)/x11globalcomm.idl $(MCOPIDL)
+	$(MCOPIDL) -t $(INCLUDES) $(srcdir)/x11globalcomm.idl
+
+x11globalcomm_impl.lo: x11globalcomm.h
+x11globalcomm.mcoptype: x11globalcomm.h
+x11globalcomm.mcopclass: x11globalcomm.h
+
+mcopclassdir = $(libdir)/mcop/Arts
+mcopclass_DATA = X11GlobalComm.mcopclass
+
+######## install idl typeinfo files
+
+mcoptypedir = $(libdir)/mcop
+mcoptype_DATA = x11globalcomm.mcoptype x11globalcomm.mcopclass
+
+endif
diff --git a/x11/X11GlobalComm.mcopclass b/x11/X11GlobalComm.mcopclass
new file mode 100644
index 0000000..501a080
--- /dev/null
+++ b/x11/X11GlobalComm.mcopclass
@@ -0,0 +1,3 @@
+Language=C++
+Library=libx11globalcomm.la
+Interface=Arts::Object,Arts::GlobalComm,Arts::X11GlobalComm
diff --git a/x11/x11globalcomm.idl b/x11/x11globalcomm.idl
new file mode 100644
index 0000000..c799497
--- /dev/null
+++ b/x11/x11globalcomm.idl
@@ -0,0 +1,30 @@
+/*
+    Copyright (C) 1999 Stefan Westerfeld
+                       stefan@space.twc.de
+  
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+  
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+  
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+#include <core.idl>
+
+module Arts {
+
+/**
+ * global communication based on an X11 server property on the root window
+ */
+interface X11GlobalComm : GlobalComm {
+};
+
+};
diff --git a/x11/x11globalcomm_impl.cc b/x11/x11globalcomm_impl.cc
new file mode 100644
index 0000000..66d6c5f
--- /dev/null
+++ b/x11/x11globalcomm_impl.cc
@@ -0,0 +1,184 @@
+/*  
+    Copyright (C) 1997 Mark Donohoe (donohoe@kde.org)
+    Copyright (C) 2000 Stefan Westerfeld (stefan@space.twc.de)
+
+    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., 59 Temple Place - Suite 330,
+    Boston, MA 02111-1307, USA.
+*/
+
+/*
+ * This is based on Mark Donohoe's nice KRootProp class (found in
+ * kdelibs/kdecore/krootprop.cpp). I couldn't use KRootProp directly, since
+ * I wanted aRts (and even it's X11 support) to work without KDE and/or Qt
+ * installed at all.
+ */
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <X11/Xlib.h>
+#include <X11/Xatom.h>
+#include "x11globalcomm.h"
+#include "debug.h"
+#include <iostream>
+
+using namespace std;
+using namespace Arts;
+
+class X11GlobalComm_impl : virtual public X11GlobalComm_skel {
+protected:
+	Display *X11display;
+	Window rootWin;
+	Atom atom;
+	map<string,string> propertyMap;
+	bool init;
+
+	void warn(const char *what)
+	{
+		arts_warning("X11GlobalComm: %s", what);
+	}
+public:
+	X11GlobalComm_impl() :rootWin(0), atom(0)
+	{
+		X11display = XOpenDisplay(NULL);
+		if(!X11display)
+		{
+		  warn("Can't connect to the XServer - Initial references won't work.");
+		  init = false;
+		}
+		else
+		{
+		  rootWin = DefaultRootWindow(X11display);
+  		  atom = XInternAtom( X11display, "MCOPGLOBALS" , False);
+		  init = true;
+		}
+	}
+
+	~X11GlobalComm_impl()
+	{
+		if(X11display)
+			XCloseDisplay(X11display);
+	}
+
+	void read()
+	{
+		if(!init) return;
+
+		Atom type;
+		int format;
+  		unsigned long nitems;
+  		unsigned long bytes_after;
+  		long offset;
+  		unsigned char *buf;
+	
+		propertyMap.clear();
+
+  		// If a property has already been opened write
+  		// the dictionary back to the root window
+
+		string s;
+  		offset = 0; bytes_after = 1;
+  		while (bytes_after != 0)
+  		{
+			XGetWindowProperty( X11display, rootWin, atom, offset, 256,
+                        False, XA_STRING, &type, &format, &nitems, &bytes_after,
+                        &buf);
+
+			if(type == None)	// no property -> no contents
+				return;
+		
+    		s += (char*) buf;
+    		offset += nitems/4;
+    		if (buf)
+      			XFree((char*) buf);
+  		}
+
+  		// Parse through the property string stripping out key value pairs
+  		// and putting them in the dictionary
+		
+  		while(s.length() >0 )
+  		{
+    		// parse the string for first key-value pair separator '\n'
+    		int i = s.find("\n",0);
+		
+    		// extract the key-values pair and remove from string
+			
+    		string keypair = s.substr(0,i);
+    		s = s.substr(i+1,s.size()-(i+1));
+			
+    		// split key and value and add to dictionary
+			
+    		i = keypair.find( "=" );
+    		if( i != -1 )
+    		{
+      			string key = keypair.substr( 0, i );
+      			string value = keypair.substr( i+1, keypair.size()-(i+1) );
+				propertyMap[key] = value;
+    		}
+  		}
+	}
+
+	void write()
+	{
+		if(!init) return;
+
+		// bring map in the variable=value form with \n as seperator
+  		string propString;
+
+    	map<string,string>::iterator i = propertyMap.begin();
+    	for(i = propertyMap.begin(); i != propertyMap.end(); i++)
+      		propString += i->first + "=" + i->second + "\n";
+
+		// send to the X11 server
+  		XChangeProperty( X11display, rootWin, atom,
+                  XA_STRING, 8, PropModeReplace,
+                  (const unsigned char *)propString.c_str(),
+                  propString.size()+1);
+  		XFlush(X11display);
+	}
+
+	bool put(const string& variable, const string& value)
+	{
+		if(!init) return false;
+
+		read();
+		if(propertyMap[variable].empty())
+		{
+			propertyMap[variable] = value;
+			write();
+			return true;
+		}
+		return false;
+	}
+
+	string get(const string& variable)
+	{
+		if(!init) return "";
+
+		read();
+		return propertyMap[variable];
+	}
+
+	void erase(const string& variable)
+	{
+		if(!init) return;
+
+		read();
+		propertyMap.erase(variable);
+		write();
+	}
+};
+
+REGISTER_IMPLEMENTATION(X11GlobalComm_impl);