1 files changed, 81 insertions, 0 deletions
diff --git a/filters/kword/wordperfect/export/wpexport.cpp b/filters/kword/wordperfect/export/wpexport.cpp
new file mode 100644
index 000000000..619d5d476
--- /dev/null
+++ b/filters/kword/wordperfect/export/wpexport.cpp
@@ -0,0 +1,81 @@
+/* This file is part of the KDE project
+   Copyright (C) 2002 Ariya Hidayat <ariya@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 <config.h>
+
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+
+#include <tqtextcodec.h>
+#include <tqfile.h>
+#include <tqfileinfo.h>
+#include <tqtextstream.h>
+
+#include <kdebug.h>
+#include <KoFilterChain.h>
+#include <kgenericfactory.h>
+
+#include <KWEFBaseWorker.h>
+#include <KWEFKWordLeader.h>
+
+#include <wpexport.h>
+#include <wp5.h>
+#include <wp6.h>
+
+typedef KGenericFactory<WPExport, KoFilter> WPExportFactory;
+K_EXPORT_COMPONENT_FACTORY( libwpexport, WPExportFactory( "kofficefilters" ) )
+
+WPExport::WPExport( KoFilter *, const char *, const TQStringList& ):
+                     KoFilter()
+{
+}
+
+KoFilter::ConversionStatus 
+WPExport::convert( const TQCString& from, 
+  const TQCString& to )
+{
+  // check for proper conversion
+  if( to!= "application/wordperfect" || from != "application/x-kword" )
+     return KoFilter::NotImplemented;
+
+  // document version is determined using file extension, 
+  // "WP" is for WP 5.x, "WPD" or else is for WP 6/7
+  // e.g /home/ariya/test.wp is a WP 5 document
+  // TODO ask user with a dialog box
+  TQString outfile = m_chain->outputFile();
+  TQString extension = TQFileInfo( outfile ).extension().lower();
+  int version = ( extension == "wp" ) ? 5 : 6 ;
+
+  KWEFBaseWorker* worker;
+  if( version == 5 ) worker = new WPFiveWorker();
+  else worker = new WPSixWorker();
+
+  KWEFKWordLeader* leader = new KWEFKWordLeader( worker );
+
+  KoFilter::ConversionStatus result;
+  result = leader->convert( m_chain, from, to );
+
+  delete worker;
+  delete leader;
+
+  return result; 
+}
+
+#include "wpexport.moc"