1 files changed, 109 insertions, 0 deletions
diff --git a/filters/kword/abiword/ImportHelpers.cpp b/filters/kword/abiword/ImportHelpers.cpp
new file mode 100644
index 000000000..c3cad308a
--- /dev/null
+++ b/filters/kword/abiword/ImportHelpers.cpp
@@ -0,0 +1,109 @@
+/* This file is part of the KDE project
+   Copyright (C) 2001 Nicolas GOUTTE <goutte@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 <tqstringlist.h>
+#include <tqregexp.h>
+
+#include <kdebug.h>
+
+#include "ImportHelpers.h"
+
+bool AbiPropsMap::setProperty(const TQString& newName, const TQString& newValue)
+{
+    replace(newName,AbiProps(newValue));
+    return true;
+}
+
+// Treat the "props" attribute of AbiWord's tags and split it in separates names and values
+void AbiPropsMap::splitAndAddAbiProps(const TQString& strProps)
+{
+    if (strProps.isEmpty())
+        return;
+    // Split the properties (we do not want empty ones)
+    TQStringList list=TQStringList::split(';',strProps,false);
+    TQString name,value;
+
+    TQStringList::ConstIterator it;
+	TQStringList::ConstIterator end(list.end());
+    for (it=list.begin();it!=end;++it)
+    {
+        const int result=(*it).find(':');
+        if (result==-1)
+        {
+            name=(*it);
+            value=TQString();
+            kdWarning(30506) << "Property without value: " << name << endl;
+        }
+        else
+        {
+            name=(*it).left(result);
+            value=(*it).mid(result+1);
+        }
+        // kdDebug(30506) << "========== (Property :" << name.stripWhiteSpace()<< "=" << value.stripWhiteSpace() <<":)"<<endl;
+        // Now set the property
+        setProperty(name.stripWhiteSpace(),value.stripWhiteSpace());
+    }
+}
+
+double ValueWithLengthUnit( const TQString& _str, bool* atleast )
+{
+    if ( atleast )
+        *atleast = false;
+    
+    double result;
+    // We search an unit (defined by a sequence of lower case characters), with possibly a + sign after it
+    TQRegExp unitExp("([a-z]+)\\s*(\\+?)");
+    const int pos=unitExp.search(_str);
+    if (pos==-1)
+    {
+        bool flag=false;
+        result=_str.toDouble(&flag);
+        if (!flag)
+            kdWarning(30506) << "Unknown value: " << _str << " (ValueWithLengthUnit)" << endl;
+    }
+    else
+    {
+        const double rawValue=_str.left(pos).toDouble();
+        const TQString strUnit ( unitExp.cap(1) );
+        if (strUnit=="cm")
+            result=CentimetresToPoints(rawValue);
+        else if (strUnit=="in")
+            result=InchesToPoints(rawValue);
+        else if (strUnit=="mm")
+            result=MillimetresToPoints(rawValue);
+        else if (strUnit=="pt")
+            result=rawValue;
+        else if(strUnit=="pi")
+            result=PicaToPoints(rawValue);
+        else
+        {
+            kdWarning(30506) << "Value " << _str << " has non-supported unit: "
+                << strUnit << " (ValueWithLengthUnit)" << endl;
+            result=rawValue;
+        }
+        
+        if ( atleast )
+        {
+            *atleast = ( unitExp.cap(2) == "+" );
+        }
+
+        // kdDebug(30506) << "Value: " << _str << " Unit: " << strUnit << " Result: " << result << endl;
+    }
+    return result;
+}