Renaming of files in preparation for code style tools.

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>

1 files changed, 0 insertions, 1421 deletions

diff --git a/arts/runtime/structures_impl.cc b/arts/runtime/structures_impl.cc
deleted file mode 100644
index 7c5a5e05..00000000
--- a/arts/runtime/structures_impl.cc
+++ /dev/null
@@ -1,1421 +0,0 @@
-#include "artsbuilder.h"
-#include "weakreference.h"
-#include "moduleinfo.h"
-#include "compatibility.h"
-#include "sequenceutils.h"
-#include <stdio.h>
-#include <iostream>
-
-using namespace std;
-using namespace Arts;
-
-typedef WeakReference<PortDesc> PortDesc_wref;
-typedef WeakReference<ModuleDesc> ModuleDesc_wref;
-typedef WeakReference<StructureDesc> StructureDesc_wref;
-
-class PortDesc_impl :virtual public Arts::PortDesc_skel {
-protected:
-	string _name;
-	PortType _type;
-	vector<PortDesc_wref> _connections;
-	ModuleDesc_wref _parent;
-	bool _isConnected;
-	bool _hasValue;
-	Any	 _value;
-	long _ID;
-	long _oldID;
-	list<long> oldConnections;
-
-	void removeNullConnections();
-
-public:
-	~PortDesc_impl();
-
-	inline PortDesc self() { return PortDesc::_from_base(_copy()); }
-	void constructor(ModuleDesc parent, const string& name, const PortType& type);
-
-	void disconnectAll();
-	long ID();
-	ModuleDesc parent();
-	string name();
-	PortType type();
-	bool isConnected();
-	bool hasValue();
-	void hasValue(bool newvalue);
-	vector<PortDesc> *connections();
-	float floatValue();
-	void floatValue( float _new_value );
-
-	string stringValue();
-	void stringValue( const string& _new_value );
-
-	Any value();
-	void value( const Any& _new_value );
-
-	bool connectTo( PortDesc port );
-	void internalConnectInput( PortDesc port );
-	void disconnectFrom( PortDesc port );
-
-	void loadFromList(const vector<string>& list);
-	vector<string> *saveToList();
-
-	void internalReConnect( const vector<PortDesc>& allports );
-	long internalOldID();
-};
-
-class ModuleDesc_impl : virtual public ModuleDesc_skel {
-private:
-	long _ID;
-	StructureDesc_wref _parent;
-	string _name;
-	long _x, _y;
-	vector<PortDesc> _ports;
-	long collectPorts( const Arts::ModuleInfo& info );
-
-	bool _isInterface, _isStructure;
-
-	inline ModuleDesc self() { return ModuleDesc::_from_base(_copy()); }
-
-public:
-	long ID();
-	StructureDesc parent();
-	string name();
-	vector<PortDesc> *ports();
-	long height();
-	long width();
-	long x();
-	long y();
-	bool moveTo( long x, long y );
-	void constructor( StructureDesc parent, const ModuleInfo& info );
-
-	void loadFromList(const vector<string>& list);
-	vector<string> *saveToList();
-
-	~ModuleDesc_impl();
-
-	bool isInterface();
-	bool isStructure();
-	Arts::PortDesc findPort(const string& name);
-};
-
-class StructureDesc_impl : virtual public Arts::StructureDesc_skel {
-protected:
-	bool _valid;
-	vector<ModuleDesc> _modules;
-	vector<StructurePortDesc> _ports;	/* only structure ports which are part of the interface */
-	vector<string> _inheritedInterfaces;
-	long nextID;
-	ModuleInfo _externalInterface;
-
-	inline StructureDesc self() { return StructureDesc::_from_base(_copy()); }
-public:
-	string name();
-	void name(const string& newName);	
-
-	vector<string> *saveToList();
-	void loadFromList(const vector<string>& list);
-	vector<ModuleDesc> *modules();
-	vector<StructurePortDesc> *ports();
-	vector<string> *inheritedInterfaces();
-
-	void clear();
-	long obtainID();
-	long width();
-	long height();
-	bool valid();
-
-	ModuleDesc createModuleDesc( const ModuleInfo& info );
-	ModuleDesc createModuleDesc( const string& name );
-	void freeModuleDesc(ModuleDesc moduledesc);
-
-	// external interface
-	StructurePortDesc createStructurePortDesc(const PortType& type, const string& name);
-	void freeStructurePortDesc(StructurePortDesc portdesc);
-	void moveStructurePortDesc(StructurePortDesc portdesc, long newposition);
-
-	ModuleInfo externalInterface();
-
-	void addInheritedInterface(const string& iface);
-	void removeInheritedInterface(const string& iface);
-
-	StructureDesc_impl();
-	~StructureDesc_impl();
-};
-
-class StructurePortDesc_impl :
-	virtual public PortDesc_impl,
-	virtual public StructurePortDesc_skel
-{
-protected:
-	StructureDesc_wref _parentStructure;
-	long _x, _y, _position;
-	string _inheritedInterface;
-
-	inline StructurePortDesc self() {
-		return StructurePortDesc::_from_base(_copy());
-	}
-public:
-	void constructor(StructureDesc parent, const string& name,
-					const PortType& type);
-	~StructurePortDesc_impl();
-
-	long x();
-	long y();
-	long position();
-	void lowerPosition();
-	void raisePosition();
-	void rename(const string& newname);
-	string inheritedInterface();
-	void inheritedInterface(const string& iface);
-
-	void internalSetPosition(long position);
-	StructureDesc parentStructure();
-	bool moveTo( long X, long Y );
-
-	void loadFromList(const vector<string>& list);
-	vector<string> *saveToList();
-};
-
-REGISTER_IMPLEMENTATION(PortDesc_impl);
-REGISTER_IMPLEMENTATION(ModuleDesc_impl);
-REGISTER_IMPLEMENTATION(StructureDesc_impl);
-REGISTER_IMPLEMENTATION(StructurePortDesc_impl);
-
-/*
-#include "structures.h"
-*/
-#include "debug.h"
-#include <vector>
-#include <algorithm>
-
-#define dname(dir) ((dir)==Arts::input?"input":"output")
-#define pstat \
-	printf("port name %s, direction %s, id %d\n",_Name.c_str(),dname(_Type.direction),_ID);
-
-void PortDesc_impl::constructor(ModuleDesc parent, const string& name,
-													const PortType& type)
-{
-#if 0
-	if(parent)
-	{
-		char * pname = parent->Name();
-		describe("PortDesc."+string(pname)+string(".")+name);
-	}
-	else
-	{
-		describe("PortDesc.Structure."+name);
-	}
-#endif
-	_name = name;
-	_type = type;
-	_parent = parent;
-	_isConnected = false;
-	_hasValue = false;
-	_value.type = _type.dataType;
-
-	if(!parent.isNull())
-	{
-		StructureDesc sd = parent.parent();
-		_ID = sd.obtainID();
-	}
-	// else: assume that some smart object which derives from us will set the ID accordingly
-	//  -> for instance StructurePortDesc_impl does so
-}
-
-#if 0 /* PORT */
-void PortDesc_impl::cleanUp()
-{
-	disconnectAll();
-	delete _Connections;
-}
-#endif
-
-/*
- * This is new and related to weak references, it purges all null references from _connections
- */
-void PortDesc_impl::removeNullConnections()
-{
-	vector<PortDesc_wref>::iterator i = _connections.begin();
-
-	while(i != _connections.end())
-	{
-		PortDesc pd = *i;
-		if(pd.isNull())
-		{
-			_connections.erase(i);
-			i = _connections.begin();
-			printf("removeNullConnections() removed something (shouldn't happen)\n");
-		}
-		else i++;
-	}
-
-	_isConnected = !_connections.empty();
-}
-
-void PortDesc_impl::disconnectAll()
-{
-	// disconnect all connected ports
-	while(!_connections.empty())
-	{
-		PortDesc pd = _connections.front();
-
-		if(pd.isNull())		// weak references can automatically disappear
-			_connections.erase(_connections.begin());
-		else
-			pd.disconnectFrom(self());
-	}
-}
-
-PortDesc_impl::~PortDesc_impl()
-{
-}
-
-// Implementation for interface PortDesc
-long PortDesc_impl::ID()
-{
-	return _ID; 
-}
-
-ModuleDesc PortDesc_impl::parent()
-{
-	return _parent; 
-}
-
-string PortDesc_impl::name()
-{
-	return _name;
-}
-
-PortType PortDesc_impl::type()
-{
-	return _type; 
-}
-
-bool PortDesc_impl::isConnected()
-{
-	if(_isConnected) removeNullConnections();
-	return _isConnected; 
-}
-
-bool PortDesc_impl::hasValue()
-{
-	return _hasValue; 
-}
-
-void PortDesc_impl::hasValue(bool newvalue)
-{
-	if(_hasValue != newvalue)
-	{
-		assert(newvalue == false);
-		_hasValue = newvalue;
-	}
-}
-
-vector<PortDesc> *PortDesc_impl::connections()
-{
-	vector<PortDesc_wref>::iterator i;
-	vector<PortDesc> *result = new vector<PortDesc>;
-
-	for(i = _connections.begin(); i != _connections.end(); i++)
-	{
-		PortDesc pd = *i;
-		if(!pd.isNull()) result->push_back(pd);
-	}
-	return result; 
-}
-
-float PortDesc_impl::floatValue()
-{
-	assert(_hasValue);
-	assert(_type.dataType == "float");
-
-	Buffer b;
-	b.write(_value.value);
-	return b.readFloat();
-}
-
-void PortDesc_impl::floatValue( float _new_value )
-{
-	assert(!_isConnected);
-	assert(_type.direction == Arts::input);
-	assert(_type.dataType == "float");
-	assert(_value.type == "float");
-
-	Buffer b;
-	b.writeFloat(_new_value);
-	b.read(_value.value, b.size());
-	_hasValue = true;
-}
-
-string PortDesc_impl::stringValue()
-{
-	assert(_hasValue);
-	assert(_type.dataType == "string");
-	assert(_value.type == "string");
-
-	string result;
-	Buffer b;
-	b.write(_value.value);
-	b.readString(result);
-	return result;
-}
-
-void PortDesc_impl::stringValue( const string& _new_value )
-{
-	assert(!_isConnected);	// shouldn't happen, but check anyway
-	assert(_type.direction == Arts::input);
-	assert(_type.dataType == "string");
-
-	Buffer b;
-	b.writeString(_new_value);
-	b.read(_value.value, b.size());
-	_hasValue = true;
-}
-
-Any PortDesc_impl::value()
-{
-	assert(_hasValue);
-	return _value;
-}
-
-void PortDesc_impl::value( const Any& _new_value )
-{
-	_value = _new_value;
-	_hasValue = true;
-}
-
-bool PortDesc_impl::connectTo( PortDesc port )
-{
-	removeNullConnections();
-
-	// check if we are already connected to that port:
-
-	unsigned long i;
-	for(i=0;i<_connections.size();i++)
-	{
-		PortDesc pd = _connections[i];
-		if(pd.ID() == port.ID()) return true;
-	}
-
-	const PortType& rType = port.type();
-
-	// only stream or event channels may be connected
-	if( _type.connType != rType.connType )
-		return false;
-
-	// TODO: eventually check conditions when it is legal to connect property
-	// ports, and when it is insane (_Type.connType == Arts::property)
-	//
-	// for incoming structure ports, for instance, it is perfectly allright
-
-	// only same data type connections allowed
-	if( _type.dataType != rType.dataType )
-		return false;
-
-	// only opposite directions
-	if( _type.direction == rType.direction )
-		return false;
-
-	// always first connect the input port to the output port and
-	// then the other direction
-
-	if( _type.direction == Arts::input )
-	{
-		if(!_isConnected || _type.isMultiPort)
-		{
-			assert(_connections.empty() || _type.isMultiPort);
-			_connections.push_back(port);
-
-			port.internalConnectInput(self());
-
-			_isConnected = true;
-			_hasValue = false;
-			return true;
-		}
-	}
-	if( _type.direction == Arts::output )
-		return port.connectTo(self());
-
-	return false;
-}
-
-void PortDesc_impl::internalConnectInput( PortDesc port )
-{
-	_connections.push_back(port);
-	_isConnected = true;
-}
-
-void PortDesc_impl::disconnectFrom( PortDesc port )
-{
-	removeNullConnections();
-
-	unsigned long found = 0;
-
-	artsdebug("port %ld disconnecting from port %ld\n",ID(),port.ID());
-
-	vector<PortDesc_wref>::iterator i = _connections.begin();
-	while(!found && i != _connections.end())
-	{
-		Arts::PortDesc other = *i;
-		if(!other.isNull() && other.ID() == port.ID())
-		{
-			_connections.erase(i);
-			i = _connections.begin();
-			found++;
-		}
-		else i++;
-	}
-
-	_isConnected = !_connections.empty();
-
-	ModuleDesc parent = _parent;
-	if(parent.isNull())
-		artsdebug("_Parent = <some structure>, isConnected = %d\n",_isConnected);
-	else
-		artsdebug("_Parent = %s, isConnected = %d\n",parent.name().c_str(),_isConnected);
-
-	if(found)
-		port.disconnectFrom(self());
-}
-
-// Implementation for interface ModuleDesc
-long ModuleDesc_impl::ID()
-{
-	return _ID; 
-}
-
-StructureDesc ModuleDesc_impl::parent()
-{
-	return _parent; 
-}
-
-string ModuleDesc_impl::name()
-{
-	return _name;
-}
-
-vector<PortDesc> *ModuleDesc_impl::ports()
-{
-	return new vector<PortDesc>(_ports);
-}
-
-long ModuleDesc_impl::x()
-{
-	return _x;
-}
-
-long ModuleDesc_impl::y()
-{
-	return _y;
-}
-
-long ModuleDesc_impl::width()
-{
-	assert(false);
-	return 0; 
-}
-
-long ModuleDesc_impl::height()
-{
-	assert(false);
-	return 0; 
-}
-
-
-bool ModuleDesc_impl::moveTo( long x, long y )
-{
-	// FIXME: collision checking!
-	_x = x;
-	_y = y;
-
-	return(true);
-}
-
-
-// Implementation for interface StructureDesc
-long StructureDesc_impl::width()
-{
-	assert(false);
-	return 0; 
-}
-
-long StructureDesc_impl::height()
-{
-	assert(false);
-	return 0; 
-}
-
-/*
- * Query the module for it's paramenters
- */
-
-void ModuleDesc_impl::constructor( StructureDesc parent,
-								const Arts::ModuleInfo& info )
-{
-	_name = info.name;
-	_x = -1;		// no position assigned
-	_y = -1;
-	_ID = parent.obtainID();
-	_parent = parent;
-	_isInterface = info.isInterface;
-	_isStructure = info.isStructure;
-
-	collectPorts(info);
-}
-
-ModuleDesc_impl::~ModuleDesc_impl()
-{
-}
-
-bool ModuleDesc_impl::isInterface()
-{
-	return _isInterface;
-}
-
-bool ModuleDesc_impl::isStructure()
-{
-	return _isStructure;
-}
-
-
-PortDesc ModuleDesc_impl::findPort(const string& name)
-{
-	vector<PortDesc>::iterator p;
-
-	for(p = _ports.begin(); p != _ports.end(); p++)
-	{
-		if(name == p->name()) return *p;
-	}
-
-	return PortDesc::null();
-}
-
-long ModuleDesc_impl::collectPorts( const Arts::ModuleInfo& info )
-{
-	vector<PortType>::const_iterator i;
-	vector<string>::const_iterator ni = info.portnames.begin();
-	long portcount = 0;
-
-	for(i=info.ports.begin(); i != info.ports.end(); i++)
-	{
-		const PortType& porttype = *i;
-		const string& portname = *ni++;
-
-		artsdebug("#%d: %s\n",portcount,portname.c_str());
-
-		PortDesc pd(self(),portname,porttype);
-		_ports.push_back(pd);
-		portcount++;
-	}
-	return(portcount);
-}
-
-ModuleDesc StructureDesc_impl::createModuleDesc( const ModuleInfo& info )
-{
-	Arts::ModuleDesc result = createModuleDesc(info.name);
-
-	assert(!result.isNull());
-	return result;
-}
-
-ModuleDesc StructureDesc_impl::createModuleDesc( const string& name )
-{
-	/* FIXME: need new comment
-	 * to create a representation of a specified synth module, we
-	 *
-	 * - create an instance of this synth module by contacting the
-	 *   module server and telling him to do so (result is a C++ class)
-	 *
-	 * - create an instance of a ModuleDesc, and tell it to query the
-	 *   module for it's parameters (result is a CORBA object)
-	 *
-	 * - destroy the synth module (C++ class) again and return a reference
-	 *   to the CORBA object
-	 */
-/*
-	ModuleServer<SynthModule> *MS_SynthModule;
-	MS_SynthModule = (ModuleServer<SynthModule> *)SynthModule::get_MS();
-
-	SynthModule *m = (SynthModule *)MS_SynthModule->getModule(name);
-*/
-#if 0
-	Arts::ModuleInfo_var info = ModuleBroker->lookupModule(name);
-	if(!info) return 0;
-#endif
-	const Arts::ModuleInfo& info = makeModuleInfo(name);
-  	Arts::ModuleDesc moduledesc = ModuleDesc(self(),info);
-	_modules.push_back(moduledesc);
-	return moduledesc;
-}
-
-void StructureDesc_impl::freeModuleDesc(ModuleDesc moduledesc)
-{
-	vector<ModuleDesc>::iterator i;
-
-	for(i=_modules.begin();i != _modules.end(); i++)
-	{
-		Arts::ModuleDesc current = *i;
-
-		if(current.ID() == moduledesc.ID())
-		{
-			_modules.erase(i);		// will get freed automagically
-			return;
-		}
-	}
-}
-
-vector<ModuleDesc> *StructureDesc_impl::modules()
-{
-	vector<ModuleDesc> *retval = new vector<ModuleDesc>(_modules);
-	return(retval);
-}
-
-void StructureDesc_impl::addInheritedInterface(const string& iface)
-{
-	_inheritedInterfaces.push_back(iface);
-}
-
-void StructureDesc_impl::removeInheritedInterface(const string& iface)
-{
-	vector<string> newII;
-	vector<string>::iterator ii;
-
-	for(ii = _inheritedInterfaces.begin(); ii != _inheritedInterfaces.end(); ii++)
-		if(*ii != iface)
-			newII.push_back(*ii);
-
-	_inheritedInterfaces = newII;
-}
-
-vector<string> *StructureDesc_impl::inheritedInterfaces()
-{
-	return new vector<string>(_inheritedInterfaces);
-}
-
-StructureDesc_impl::StructureDesc_impl()
-{
-	arts_debug("PORT: created structuredesc_impl");
-	nextID = 0;
-	_valid = true;
-	_externalInterface.name = "unknown";		// FIXME
-	_externalInterface.isStructure = true;
-	_externalInterface.isInterface = false;
-}
-
-StructureDesc_impl::~StructureDesc_impl()
-{
-	artsdebug("StructureDesc released...\n");
-}
-
-long StructureDesc_impl::obtainID()
-{
-	return(nextID++);
-}
-
-bool StructureDesc_impl::valid()
-{
-	return(_valid);
-}
-
-void StructureDesc_impl::clear()
-{
-	_modules.clear();
-	_ports.clear();
-	_inheritedInterfaces.clear();
-	_valid = true;
-}
-
-// "file" management
-
-vector<string> *PortDesc_impl::saveToList()
-{
-	vector<string> *list = new vector<string>;
-
-	sqprintf(list,"id=%ld",_ID);
-	if(_hasValue)
-	{
-		if(_type.dataType == "string")
-		{
-			sqprintf(list,"string_data=%s",stringValue().c_str());
-		}
-		else if(_type.dataType == "float")
-		{
-			sqprintf(list,"audio_data=%2.5f",floatValue());
-		}
-		else
-		{
-			Buffer b;
-			_value.writeType(b);
-			sqprintf(list,"any_data=%s",b.toString("value").c_str());
-		}
-	}
-
-	if(_isConnected)
-	{
-		vector<PortDesc_wref>::iterator i;
-
-		for(i=_connections.begin();i != _connections.end(); i++)
-		{
-			Arts::PortDesc port = *i;
-			if(!port.isNull()) sqprintf(list,"connect_to=%ld",port.ID());
-		}
-	}
-	return list;
-}
-
-vector<string> *ModuleDesc_impl::saveToList()
-{
-	vector<string> *list = new vector<string>;
-	vector<PortDesc>::iterator i;
-
-	sqprintf(list,"id=%ld",_ID);
-	sqprintf(list,"x=%ld",_x);
-	sqprintf(list,"y=%ld",_y);
-	for(i=_ports.begin();i != _ports.end();i++)
-	{
-		PortDesc pd = *i;
-		sqprintf(list,"port=%s",pd.name().c_str());
-
-		vector<string> *portlist = pd.saveToList();
-		addSubStringSeq(list,portlist);
-		delete portlist;
-	}
-	return list;
-}
-
-vector<string> *StructureDesc_impl::saveToList()
-{
-	vector<string> *list = new vector<string>;
-	vector<ModuleDesc>::iterator mi;
-	vector<StructurePortDesc>::iterator pi;
-	vector<string>::iterator ii;
-
-	sqprintf(list,"name=%s",_externalInterface.name.c_str());
-	for(mi=_modules.begin();mi != _modules.end();mi++)
-	{
-		ModuleDesc md = *mi;
-		sqprintf(list,"module=%s",md.name().c_str());
-
-		vector<string> *modulelist = md.saveToList();
-		addSubStringSeq(list,modulelist);
-		delete modulelist;
-	}
-	for(pi=_ports.begin(); pi!=_ports.end(); pi++)
-	{
-		Arts::StructurePortDesc spd = *pi;
-		sqprintf(list,"structureport");
-
-		vector<string> *portlist= spd.saveToList();
-		addSubStringSeq(list,portlist);
-		delete portlist;
-	}
-	for(ii=_inheritedInterfaces.begin(); ii != _inheritedInterfaces.end(); ii++)
-		sqprintf(list,"interface=%s",ii->c_str());
-
-	return list;
-}
-
-void PortDesc_impl::internalReConnect( const vector<PortDesc>& allports )
-{
-	vector<PortDesc>::const_iterator i;
-
-	for(i=allports.begin(); i != allports.end(); i++)
-	{
-		PortDesc pd = (*i);
-		long oid = pd.internalOldID();
-
-		if(find(oldConnections.begin(),oldConnections.end(),oid)
-													!= oldConnections.end())
-		{
-			connectTo(pd);
-		}
-	}
-}
-
-long PortDesc_impl::internalOldID()
-{
-	return _oldID;
-}
-
-void PortDesc_impl::loadFromList(const vector<string>& list)
-{
-	unsigned long i;
-	string cmd,param;
-	for(i=0;i<list.size();i++)
-	{
-		if(parse_line(list[i],cmd,param))	// otherwise: empty or comment
-		{
-			if(cmd == "audio_data") {
-				floatValue(atof(param.c_str()));
-			} else if(cmd == "string_data") {
-				stringValue(param);
-			} else if(cmd == "any_data") {
-				Buffer b;
-				if(b.fromString(param,"value"))
-				{
-					Any any;
-					any.readType(b);
-					if(!b.readError() && !b.remaining())
-						value(any);
-				}
-			} else if(cmd == "id") {
-				_oldID = atol(param.c_str());
-			} else if(cmd == "connect_to") {
-				oldConnections.push_back(atol(param.c_str()));
-			}
-		}
-	}
-}
-
-void ModuleDesc_impl::loadFromList(const vector<string>& list)
-{
-	artsdebug("mlist-----------\n");
-	unsigned long i;
-	string cmd, param;
-	for(i=0;i<list.size();i++)
-	{
-		if(parse_line(list[i],cmd,param))	// otherwise: empty or comment
-		{
-			artsdebug("MD: load-> cmd was %s\n",cmd.c_str());
-			if(cmd == "port")
-			{
-				string portName =
-					OldFormatTranslator::newPortName(_name,param);
-				PortDesc pd = PortDesc::null();
-				vector<PortDesc>::iterator pi;
-
-				for(pi=_ports.begin(); pi != _ports.end(); pi++)
-				{
-					artsdebug("pdi = %s, portName = %s\n",pi->name().c_str(),
-					                                   portName.c_str());
-					if(pi->name() == portName) pd = *pi;
-				}
-				assert(!pd.isNull());
-
-				vector<string> *plist = getSubStringSeq(&list,i);
-				pd.loadFromList(*plist);
-				delete plist;
-			} else if(cmd == "x") {
-				_x = atol(param.c_str());
-				artsdebug("X set to %ld (param was %s)\n",_x,param.c_str());
-			} else if(cmd == "y") {
-				_y = atol(param.c_str());
-				artsdebug("Y set to %ld (param was %s)\n",_y,param.c_str());
-			}
-		}
-	}
-	artsdebug("-----------mlist\n");
-}
-
-void StructureDesc_impl::loadFromList(const vector<string>& list)
-{
-	string cmd,param;
-	unsigned long i;
-	vector<PortDesc> allports;
-
-	clear();
-	_externalInterface.name = (const char *)"unknown";
-
-	artsdebug("loadFromList; listlen = %ld\n",list.size());
-	for(i=0;i<list.size();i++)
-	{
-		if(parse_line(list[i],cmd,param))	// otherwise: empty or comment
-		{
-			artsdebug("SD: load-> cmd was %s\n",cmd.c_str());
-			if(cmd == "module")
-			{
-				string newName = OldFormatTranslator::newModuleName(param);
-				ModuleDesc md = createModuleDesc(newName);
-
-				vector<string> *mlist = getSubStringSeq(&list,i);
-
-				if(!md.isNull())
-				{
-					md.loadFromList(*mlist);
-
-					// PORT: order changed
-					vector<PortDesc> *pd = md.ports();
-					vector<PortDesc>::iterator pi;
-					for(pi = pd->begin(); pi != pd->end();pi++) 
-						allports.push_back(*pi);
-
-					delete pd;
-				}
-				else
-				{
-					// module couldn't be found
-					_valid = false;
-				}
-				delete mlist;
-			}
-			else if(cmd == "name")
-			{
-				_externalInterface.name = param;
-			}
-			else if(cmd == "interface")
-			{
-				_inheritedInterfaces.push_back(param);
-			}
-			else if(cmd == "structureport")
-			{
-				// just to have valid values to pass to the new (to be loaded)
-				// port:
-				PortType type;
-				type.direction = Arts::input;
-				type.dataType = "float";
-				type.connType = Arts::conn_stream;
-				type.isMultiPort = false;
-
-				StructurePortDesc spd =
-					createStructurePortDesc(type,"unknown");
-
-				vector<string> *splist = getSubStringSeq(&list,i);
-				spd.loadFromList(*splist);
-				delete splist;
-
-				// yes; this is a port as well
-				allports.push_back(spd);
-			}
-		}
-	}
-
-	for(i=0;i<allports.size();i++)
-		allports[i].internalReConnect(allports);
-}
-
-void StructureDesc_impl::name(const string& name)
-{
-	_externalInterface.name = name;
-}
-
-string StructureDesc_impl::name()
-{
-	return _externalInterface.name;
-}
-
-long extint_pscore(StructurePortDesc p)
-{
-	long result = p.position(); //p->X()*1000+p->Y();
-	if(p.type().direction == Arts::input) result += 5000000;
-
-	return result;
-}
-
-bool extint_port_compare(StructurePortDesc p1, StructurePortDesc p2)
-{
-	long p1s = extint_pscore(p1);
-	long p2s = extint_pscore(p2);
-
-	artsdebug("compare; [%s] = %d  ;  [%s] = %d\n",	p1.name().c_str(),p1s,
-													p2.name().c_str(),p2s);
-	return (p1s < p2s);
-// return -1;
-	//if(p1s == p2s) return 0;
-	//return 1;
-}
-
-ModuleInfo StructureDesc_impl::externalInterface()
-{
-	ModuleInfo result = _externalInterface;
-	vector<StructurePortDesc> sorted_ports = _ports;
-	vector<StructurePortDesc>::iterator p;
-	unsigned long l;
-/* PORT:
-	for(l=0;l<_Ports->length();l++) sorted_ports.push_back((*_Ports)[l]);
-*/
-	sort(sorted_ports.begin(),sorted_ports.end(),extint_port_compare);
-
-	l = 0;
-	for(p=sorted_ports.begin();p != sorted_ports.end();p++)
-	{
-		string pname = p->name();
-		PortType ptype = p->type();
-
-		if(ptype.direction == Arts::input)
-			ptype.direction = Arts::output;
-		else
-			ptype.direction = Arts::input;
-
-		artsdebug("externalInterface; sorted ports: %d => %s\n",l,pname.c_str());
-		result.ports.push_back(ptype);
-		result.portnames.push_back(pname);
-		l++;
-	}
-	return result;
-}
-
-vector<StructurePortDesc> *StructureDesc_impl::ports()
-{
-	return new vector<StructurePortDesc>(_ports);
-}
-
-StructurePortDesc StructureDesc_impl::createStructurePortDesc(
-		const Arts::PortType& type, const string& name)
-{
-	artsdebug("creating new port %s\n",name.c_str());
-	StructurePortDesc port(self(), name, type);
-	_ports.push_back(port);
-
-	// set the Position (put it at the end of the ports)
-	unsigned long i, count = 0;
-	for(i=0;i<_ports.size();i++)
-	{
-		if(_ports[i].type().direction == type.direction) count++;
-	}
-	assert(count > 0);	// we just inserted one ;)
-	port.internalSetPosition(count-1);
-	return port;
-}
-
-void StructureDesc_impl::freeStructurePortDesc(StructurePortDesc portdesc)
-{
-	vector<StructurePortDesc>::iterator i;
-
-	for(i=_ports.begin(); i != _ports.end(); i++)
-	{
-		if(i->ID() == portdesc.ID())
-		{
-			_ports.erase(i);
-			return;
-		}
-	}
-}
-
-void StructureDesc_impl::moveStructurePortDesc(StructurePortDesc
-											portdesc, long newposition)
-{
-	const Arts::PortType& type = portdesc.type();
-
-	unsigned long i;
-	long count = 0;
-	for(i=0;i<_ports.size();i++)
-	{
-		if(_ports[i].type().direction == type.direction) count++;
-	}
-
-	if(newposition < 0) newposition = 0;
-	if(newposition > count-1) newposition = count-1;
-
-	if(newposition == portdesc.position()) return;
-
-	int delta, lower, upper;
-
-	if(newposition > portdesc.position())
-	{
-		// if the port gets a higher position, move all ports that
-		// are between it's current position and its new position down one
-		lower = portdesc.position();
-		upper = newposition;
-		delta = -1;
-	}
-	else
-	{
-		// if the port gets a lower position, move all ports that
-		// are between it's current position and its new position up one
-		lower = newposition;
-		upper = portdesc.position();
-		delta = 1;
-	}
-
-	for(i=0;i<_ports.size();i++)
-	{
-		StructurePortDesc pd  = _ports[i];
-		
-		if(pd.type().direction == type.direction)
-		{
-			if(pd.ID() != portdesc.ID() &&
-				pd.position() >= lower && pd.position() <= upper)
-			{
-				pd.internalSetPosition(pd.position()+delta);
-			}
-		}
-
-	}
-	portdesc.internalSetPosition(newposition);
-}
-
-void StructurePortDesc_impl::constructor(StructureDesc parent,
-								const string& name, const PortType& type)
-{
-	PortDesc_impl::constructor(ModuleDesc::null(),name,type);
-	_parentStructure = parent;
-	_ID = parent.obtainID();
-	_x = 0;
-	_y = 0;
-	_position = 0;
-}
-
-StructurePortDesc_impl::~StructurePortDesc_impl()
-{
-	// this destructor is required to make some compilers (egcs-1.1.2) compile
-}
-
-long StructurePortDesc_impl::x()
-{	
-	return _x;
-}
-
-long StructurePortDesc_impl::y()
-{
-	return _y;
-}
-
-long StructurePortDesc_impl::position()
-{
-	return _position;
-}
-
-void StructurePortDesc_impl::lowerPosition()
-{
-	StructureDesc parent = _parentStructure;		// weak reference
-
-	if(!parent.isNull())
-		parent.moveStructurePortDesc(self(), _position-1);
-}
-
-void StructurePortDesc_impl::raisePosition()
-{
-	StructureDesc parent = _parentStructure;		// weak reference
-
-	if(!parent.isNull())
-		parent.moveStructurePortDesc(self(), _position+1);
-}
-
-void StructurePortDesc_impl::rename(const string& newname)
-{
-	_name = newname;
-}
-
-void StructurePortDesc_impl::inheritedInterface(const string& iface)
-{
-	_inheritedInterface = iface;
-}
-
-string StructurePortDesc_impl::inheritedInterface()
-{
-	return _inheritedInterface;
-}
-
-// only used by the structure to reorder the ports
-void StructurePortDesc_impl::internalSetPosition(long position)
-{
-	_position = position;
-}
-
-StructureDesc StructurePortDesc_impl::parentStructure()
-{
-	return _parentStructure;
-}
-
-bool StructurePortDesc_impl::moveTo( long X, long Y )
-{
-	// FIXME: check space
-	_x = X;
-	_y = Y;
-
-	return true;
-}
-
-/*
-  override load & save behaviour this kind of port requires that we save the type
-  of the port as well, that means all of the porttype:
-
-	enum PortDirection {input, output};
-	enum PortDataType {audio_data, string_data};
-	enum PortConnType {stream, event, property};
-	struct PortType {
-		PortDirection direction;
-		PortDataType dataType;
-		PortConnType connType;
-	};
-
-  so when saved, it will look like that: 
-
-	{
-      name=fasel
-      x=4
-      y=2
-	  type
-	  {
-	    direction=input/output
-	    datatype=audio/string
-	    conntype=stream/event/property
-	  }
-	  data
-      {
-	    [original port saves here]
-	  }
-	}
-*/
-
-PortType loadTypeFromList(const vector<string>& list)
-{
-	unsigned long i,loadstate = 0;
-	string cmd,param;
-	Arts::PortType result;
-
-	for(i=0;i<list.size();i++)
-	{
-		if(parse_line(list[i],cmd,param))	// otherwise: empty or comment
-		{
-			artsdebug("PortType: load-> cmd was %s\n",cmd.c_str());
-			if(cmd == "direction")
-			{
-				if(param == "input") {
-					result.direction = Arts::input;
-				}
-				else if(param == "output") {
-					result.direction = Arts::output;
-				}
-				else assert(false);
-
-				loadstate += 1;
-			} else if(cmd == "datatype") {
-				if(param == "audio") {
-					result.dataType = "float";
-				}
-				else if(param == "string") {
-					result.dataType = "string";
-				}
-				else assert(false);
-
-				loadstate += 100;
-			} else if(cmd == "conntype") {
-				if(param == "stream") {
-					result.connType = Arts::conn_stream;
-				}
-				else if(param == "event") {
-					result.connType = Arts::conn_event;
-				}
-				else if(param == "property") {
-					result.connType = Arts::conn_property;
-					artsdebug("got property stuff\n");
-				}
-				else assert(false);
-
-				loadstate += 10000;
-			}
-		}
-	}
-	assert(loadstate == 10101); // should see every member exactly once
-	result.isMultiPort = false;
-	return result;
-}
-
-void StructurePortDesc_impl::loadFromList(const vector<string>& list)
-{
-	artsdebug("structureportlist-----------\n");
-	unsigned long i;
-	string cmd,param;
-	vector<string> *typelist = 0, *datalist = 0;
-	bool haveType = false, haveData = false;
-		// need both to do restore, type first
-
-	for(i=0;i<list.size();i++)
-	{
-		if(parse_line(list[i],cmd,param))	// otherwise: empty or comment
-		{
-			artsdebug("StructurePortDesc: load-> cmd was %s\n",cmd.c_str());
-			if(cmd == "type")
-			{
-				assert(!haveType);	// only allowed once
-				haveType = true;
-				typelist = getSubStringSeq(&list,i);
-			} else if(cmd == "data") {
-				assert(!haveData);	// only allowed once
-				haveData = true;
-				datalist = getSubStringSeq(&list,i);
-			} else if(cmd == "x") {
-				_x = atol(param.c_str());
-				artsdebug("X set to %ld (param was %s)\n",_x,param.c_str());
-			} else if(cmd == "y") {
-				_y = atol(param.c_str());
-				artsdebug("Y set to %ld (param was %s)\n",_y,param.c_str());
-			} else if(cmd == "position") {
-				_position = atol(param.c_str());
-				artsdebug("Position set to %ld (param was %s)\n",_position,
-						param.c_str());
-			} else if(cmd == "name") {
-				_name = param;
-				artsdebug("Name set to %s\n",_name.c_str());
-			} else if(cmd == "interface") {
-				_inheritedInterface = param;
-				artsdebug("Interface set to %s\n",_inheritedInterface.c_str());
-			}
-		}
-	}
-	assert(haveType && haveData);
-
-	_type = loadTypeFromList(*typelist);
-
-	if(_type.connType == Arts::conn_property) artsdebug("have property here\n");
-	PortDesc_impl::loadFromList(*datalist);	
-
-	delete typelist;
-	delete datalist;
-	artsdebug("-----------structureportlist\n");
-}
-
-vector<string> *saveTypeToList(const PortType& type)
-{
-	vector<string> *list = new vector<string>;
-
-	switch(type.direction)
-	{
-		case Arts::input: sqprintf(list,"direction=input");
-					break;
-		case Arts::output: sqprintf(list,"direction=output");
-					break;
-		default: assert(false);		// should never happen!
-	}
-	if(type.dataType == "float")
-	{
-		sqprintf(list,"datatype=audio");
-	}
-	else if(type.dataType == "string")
-	{
-		sqprintf(list,"datatype=string");
-	}
-	else
-	{
-		assert(false);				// should never happen!
-	}
-	switch(type.connType)
-	{
-		case Arts::conn_stream: sqprintf(list,"conntype=stream");
-					break;
-		case Arts::conn_event: sqprintf(list,"conntype=event");
-					break;
-		case Arts::conn_property: sqprintf(list,"conntype=property");
-					break;
-		default: assert(false);		// should never happen!
-	}
-	
-	return list;
-}
-
-vector<string> *StructurePortDesc_impl::saveToList()
-{
-	vector<string> *list = new vector<string>;
-	sqprintf(list,"name=%s",_name.c_str());
-	sqprintf(list,"x=%ld",_x);
-	sqprintf(list,"y=%ld",_y);
-	sqprintf(list,"position=%ld",_position);
-
-	if(!_inheritedInterface.empty())
-		sqprintf(list, "interface=%s",_inheritedInterface.c_str());
-
-	sqprintf(list,"type");
-
-	vector<string> *typelist = saveTypeToList(_type);
-	addSubStringSeq(list,typelist);
-	delete typelist;
-
-	sqprintf(list,"data");
-
-	vector<string> *portlist = PortDesc_impl::saveToList();
-	addSubStringSeq(list,portlist);
-	delete portlist;
-
-	return list;
-}