/* -*- mode: C++; tab-width: 4; c-basic-offset: 4; -*- */

/* AbiWord
 * Copyright (C) 2001 AbiSource, Inc.
 * Copyright (C) 2001 Petr Tomasek <tomasek@etf.cuni.cz>
 * Copyright (C) 2002 Dom Lachowicz <cinamod@hotmail.com>
 * 
 * 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., 51 Franklin Street, Fifth Floor, Boston, MA  
 * 02110-1301 USA.
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "ut_types.h"
#include "ut_assert.h"
#include "ut_debugmsg.h"
#include "pd_Document.h"
#include "ut_string_class.h"
#include "xap_Prefs.h"
#include "ie_imp_T602.h"
#include "xap_App.h"
#include "xap_Module.h"

#ifdef ABI_PLUGIN_BUILTIN
#define abi_plugin_register abipgn_t602_register
#define abi_plugin_unregister abipgn_t602_unregister
#define abi_plugin_supports_version abipgn_t602_supports_version
// dll exports break static linking
#define ABI_BUILTIN_FAR_CALL extern "C"
#else
#define ABI_BUILTIN_FAR_CALL ABI_FAR_CALL
ABI_PLUGIN_DECLARE("T602")
#endif

#define X_CheckDocError(v) if ((!v)) { UT_DEBUGMSG(("X_CheckDocError: ie_imp_T602.cpp:%d\n", __LINE__)); return UT_IE_IMPORTERROR; }
#define X_CheckT602Error(v) if ((v != UT_OK)) { UT_DEBUGMSG(("X_CheckT602Error: ie_imp_T602.cpp:%d\n", __LINE__)); return UT_IE_IMPORTERROR; }

/****************************************************************************/

// completely generic code to allow this to be a plugin

static IE_Imp_T602_Sniffer * m_sniffer = 0;

ABI_BUILTIN_FAR_CALL
int abi_plugin_register (XAP_ModuleInfo * mi)
{

	if (!m_sniffer)
	{
		m_sniffer = new IE_Imp_T602_Sniffer ();
	}

	UT_ASSERT (m_sniffer);

	mi->name    = "T602 Importer";
	mi->desc   = "Imports T602 documents into abiword. T602 was "
		"popular czech and slovak text editor in early nineties "
		"produced by Software602 (http://www.software602.cz/).";
	mi->version = ABI_VERSION_STRING;
	mi->author  = "Petr Tomasek <tomasek@etf.cuni.cz>";
	mi->usage   = "No Usage";

	IE_Imp::registerImporter (m_sniffer);
	return 1;
}

ABI_BUILTIN_FAR_CALL
int abi_plugin_unregister (XAP_ModuleInfo * mi)
{
	mi->name    = 0;
	mi->desc    = 0;
	mi->version = 0;
	mi->author  = 0;
	mi->usage   = 0;

	UT_ASSERT (m_sniffer);

	IE_Imp::unregisterImporter (m_sniffer);
	delete m_sniffer;
	m_sniffer = 0;

	return 1;
}

ABI_BUILTIN_FAR_CALL
int abi_plugin_supports_version (UT_uint32 /*major*/, UT_uint32 /*minor*/, 
				 UT_uint32 /*release*/)
{
  return 1;
}

/****************************************************************************/

IE_Imp_T602_Sniffer::IE_Imp_T602_Sniffer () :
  IE_ImpSniffer("AbiT602::T602")
{
  // 
}

// supported suffixes
static IE_SuffixConfidence IE_Imp_T602_Sniffer__SuffixConfidence[] = {
	{ "602", 	UT_CONFIDENCE_PERFECT 	},
	{ "t602", 	UT_CONFIDENCE_PERFECT 	},
	{ "txt", 	UT_CONFIDENCE_POOR 		},
	{ "", 	UT_CONFIDENCE_ZILCH 	}
};

const IE_SuffixConfidence * IE_Imp_T602_Sniffer::getSuffixConfidence ()
{
	return IE_Imp_T602_Sniffer__SuffixConfidence;
}

UT_Confidence_t IE_Imp_T602_Sniffer::recognizeContents (const char * szBuf, 
						     UT_uint32 iNumbytes)
{
  if ((iNumbytes>3) && (!strncmp (szBuf,"@CT ",4)))
    return UT_CONFIDENCE_PERFECT;
  return UT_CONFIDENCE_ZILCH;   
}

UT_Error IE_Imp_T602_Sniffer::constructImporter (PD_Document * pDocument,
													  IE_Imp ** ppie)
{
	IE_Imp_T602 * p = new IE_Imp_T602(pDocument);
	*ppie = p;
	return UT_OK;
}

bool	IE_Imp_T602_Sniffer::getDlgLabels (const char ** pszDesc,
											const char ** pszSuffixList,
												IEFileType * ft)
{
	*pszDesc = "T602 (.602,.txt)";
	*pszSuffixList = "*.602; *.txt";
	*ft = getFileType();
	return true;
}

/****************************************************************************/

IE_Imp_T602::IE_Imp_T602(PD_Document * pDocument)
  : IE_Imp (pDocument), m_importFile(NULL), m_charset(1), m_family("Courier"),
    m_basefamily("Courier"), m_softcr(1), m_basesize( 10 ), 
    m_size(10), m_lmargin ( "1.0000in" ), m_rmargin ( "1.0000in" ), 
    m_bold(0), m_italic(0), m_underline(0),
    m_tpos(0), m_big(0), m_color("000000"), m_sfont(0), m_eol(true),
    m_lheight(1), m_footer(0), m_header(0), m_fhc(1), m_writeheader(true)
{
}

IE_Imp_T602::~IE_Imp_T602() 
{
}

/****************************************************************************/

/* This is ugly hack. Since iconv doesn't know the
 * keybcs2 and koi8cs encodings, we have to provide them ourselves :-(
 * (The tables were done using 'recode' and some scripting)
 */ 

// charset table keybcs2 -> ucs2
static const UT_uint16 keybcs22ucs[]= {
0x0000, 0x0001, 0x0002, 0x0003, 0x0004, 0x0005, 0x0006, 0x0007,
0x0008, 0x0009, 0x000a, 0x000b, 0x000c, 0x000d, 0x000e, 0x000f,
0x0010, 0x0011, 0x0012, 0x0013, 0x0014, 0x0015, 0x0016, 0x0017,
0x0018, 0x0019, 0x001a, 0x001b, 0x001c, 0x001d, 0x001e, 0x001f,
0x0020, 0x0021, 0x0022, 0x0023, 0x0024, 0x0025, 0x0026, 0x0027,
0x0028, 0x0029, 0x002a, 0x002b, 0x002c, 0x002d, 0x002e, 0x002f,
0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035, 0x0036, 0x0037,
0x0038, 0x0039, 0x003a, 0x003b, 0x003c, 0x003d, 0x003e, 0x003f,
0x0040, 0x0041, 0x0042, 0x0043, 0x0044, 0x0045, 0x0046, 0x0047,
0x0048, 0x0049, 0x004a, 0x004b, 0x004c, 0x004d, 0x004e, 0x004f,
0x0050, 0x0051, 0x0052, 0x0053, 0x0054, 0x0055, 0x0056, 0x0057,
0x0058, 0x0059, 0x005a, 0x005b, 0x005c, 0x005d, 0x005e, 0x005f,
0x0060, 0x0061, 0x0062, 0x0063, 0x0064, 0x0065, 0x0066, 0x0067,
0x0068, 0x0069, 0x006a, 0x006b, 0x006c, 0x006d, 0x006e, 0x006f,
0x0070, 0x0071, 0x0072, 0x0073, 0x0074, 0x0075, 0x0076, 0x0077,
0x0078, 0x0079, 0x007a, 0x007b, 0x007c, 0x007d, 0x007e, 0x007f,
0x010c, 0x00fc, 0x00e9, 0x010f, 0x00e4, 0x010e, 0x0164, 0x010d,
0x011b, 0x011a, 0x0139, 0x00cd, 0x013e, 0x013a, 0x00c4, 0x00c1,
0x00c9, 0x017e, 0x017d, 0x00f4, 0x00f6, 0x00d3, 0x016f, 0x00da,
0x00fd, 0x00d6, 0x00dc, 0x0160, 0x013d, 0x00dd, 0x0158, 0x0165,
0x00e1, 0x00ed, 0x00f3, 0x00fa, 0x0148, 0x0147, 0x016e, 0x00d4,
0x0161, 0x0159, 0x0155, 0x0154, 0x00bc, 0x00a7, 0x00ab, 0x00bb,
0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x2561, 0x2562, 0x2556,
0x2555, 0x2563, 0x2551, 0x2557, 0x255d, 0x255c, 0x255b, 0x2510,
0x2514, 0x2534, 0x252c, 0x251c, 0x2500, 0x253c, 0x255e, 0x255f,
0x255a, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256c, 0x2567,
0x2568, 0x2564, 0x2565, 0x2559, 0x2558, 0x2552, 0x2553, 0x256b,
0x256a, 0x2518, 0x250c, 0x2588, 0x2584, 0x258c, 0x2590, 0x2580,
0x03b1, 0x03b2, 0x0393, 0x03c0, 0x03a3, 0x03c3, 0x03bc, 0x03c4,
0x03a6, 0x0398, 0x03a9, 0x03b4, 0x221e, 0x2205, 0x03b5, 0x2229,
0x2261, 0x00b1, 0x2265, 0x2264, 0x2320, 0x2321, 0x00f7, 0x2248,
0x2218, 0x00b7, 0x2219, 0x221a, 0x207f, 0x00b2, 0x25a0, 0x00a0
};

// charset table cp852 -> ucs2
static const UT_uint16 cp8522ucs[]= {
0x0000, 0x0001, 0x0002, 0x0003, 0x0004, 0x0005, 0x0006, 0x0007,
0x0008, 0x0009, 0x000a, 0x000b, 0x000c, 0x000d, 0x000e, 0x000f,
0x0010, 0x0011, 0x0012, 0x0013, 0x0014, 0x0015, 0x0016, 0x0017,
0x0018, 0x0019, 0x001a, 0x001b, 0x001c, 0x001d, 0x001e, 0x001f,
0x0020, 0x0021, 0x0022, 0x0023, 0x0024, 0x0025, 0x0026, 0x0027,
0x0028, 0x0029, 0x002a, 0x002b, 0x002c, 0x002d, 0x002e, 0x002f,
0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035, 0x0036, 0x0037,
0x0038, 0x0039, 0x003a, 0x003b, 0x003c, 0x003d, 0x003e, 0x003f,
0x0040, 0x0041, 0x0042, 0x0043, 0x0044, 0x0045, 0x0046, 0x0047,
0x0048, 0x0049, 0x004a, 0x004b, 0x004c, 0x004d, 0x004e, 0x004f,
0x0050, 0x0051, 0x0052, 0x0053, 0x0054, 0x0055, 0x0056, 0x0057,
0x0058, 0x0059, 0x005a, 0x005b, 0x005c, 0x005d, 0x005e, 0x005f,
0x0060, 0x0061, 0x0062, 0x0063, 0x0064, 0x0065, 0x0066, 0x0067,
0x0068, 0x0069, 0x006a, 0x006b, 0x006c, 0x006d, 0x006e, 0x006f,
0x0070, 0x0071, 0x0072, 0x0073, 0x0074, 0x0075, 0x0076, 0x0077,
0x0078, 0x0079, 0x007a, 0x007b, 0x007c, 0x007d, 0x007e, 0x007f,
0x00c7, 0x00fc, 0x00e9, 0x00e2, 0x00e4, 0x016f, 0x0107, 0x00e7,
0x0142, 0x00eb, 0x0150, 0x0151, 0x00ee, 0x0179, 0x00c4, 0x0106,
0x00c9, 0x0139, 0x013a, 0x00f4, 0x00f6, 0x013d, 0x013e, 0x015a,
0x015b, 0x00d6, 0x00dc, 0x0164, 0x0165, 0x0141, 0x00d7, 0x010d,
0x00e1, 0x00ed, 0x00f3, 0x00fa, 0x0104, 0x0105, 0x017d, 0x017e,
0x0118, 0x0119, 0x00ac, 0x017a, 0x010c, 0x015f, 0x00ab, 0x00bb,
0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x00c1, 0x00c2, 0x011a,
0x015e, 0x2563, 0x2551, 0x2557, 0x255d, 0x017b, 0x017c, 0x2510,
0x2514, 0x2534, 0x252c, 0x251c, 0x2500, 0x253c, 0x0102, 0x0103,
0x255a, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256c, 0x00a4,
0x0111, 0x0110, 0x010e, 0x00cb, 0x010f, 0x0147, 0x00cd, 0x00ce,
0x011b, 0x2518, 0x250c, 0x2588, 0x2584, 0x0162, 0x016e, 0x2580,
0x00d3, 0x00df, 0x00d4, 0x0143, 0x0144, 0x0148, 0x0160, 0x0161,
0x0154, 0x00da, 0x0155, 0x0170, 0x00fd, 0x00dd, 0x0163, 0x00b4,
0x00ad, 0x02dd, 0x02db, 0x02c7, 0x02d8, 0x00a7, 0x00f7, 0x00b8,
0x00b0, 0x00a8, 0x02d9, 0x0171, 0x0158, 0x0159, 0x25a0, 0x00a0
};

// charset table koi8cs -> ucs2
static const UT_uint16 koi8cs2ucs[]= {
0x0000, 0x0001, 0x0002, 0x0003, 0x0004, 0x0005, 0x0006, 0x0007,
0x0008, 0x0009, 0x000a, 0x000b, 0x000c, 0x000d, 0x000e, 0x000f,
0x0010, 0x0011, 0x0012, 0x0013, 0x0014, 0x0015, 0x0016, 0x0017,
0x0018, 0x0019, 0x001a, 0x001b, 0x001c, 0x001d, 0x001e, 0x001f,
0x0020, 0x0021, 0x0022, 0x0023, 0x00a4, 0x0025, 0x0026, 0x0027,
0x0028, 0x0029, 0x002a, 0x002b, 0x002c, 0x002d, 0x002e, 0x002f,
0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035, 0x0036, 0x0037,
0x0038, 0x0039, 0x003a, 0x003b, 0x003c, 0x003d, 0x003e, 0x003f,
0x0040, 0x0041, 0x0042, 0x0043, 0x0044, 0x0045, 0x0046, 0x0047,
0x0048, 0x0049, 0x004a, 0x004b, 0x004c, 0x004d, 0x004e, 0x004f,
0x0050, 0x0051, 0x0052, 0x0053, 0x0054, 0x0055, 0x0056, 0x0057,
0x0058, 0x0059, 0x005a, 0x005b, 0x005c, 0x005d, 0x005e, 0x005f,
0x0060, 0x0061, 0x0062, 0x0063, 0x0064, 0x0065, 0x0066, 0x0067,
0x0068, 0x0069, 0x006a, 0x006b, 0x006c, 0x006d, 0x006e, 0x006f,
0x0070, 0x0071, 0x0072, 0x0073, 0x0074, 0x0075, 0x0076, 0x0077,
0x0078, 0x0079, 0x007a, 0x007b, 0x007c, 0x007d, 0x007e, 0x007f,
0x0080, 0x0081, 0x0082, 0x0083, 0x0084, 0x0085, 0x0086, 0x0087,
0x0088, 0x0089, 0x008a, 0x008b, 0x008c, 0x008d, 0x008e, 0x008f,
0x0090, 0x0091, 0x0092, 0x0093, 0x0094, 0x0095, 0x0096, 0x0097,
0x0098, 0x0099, 0x009a, 0x009b, 0x009c, 0x009d, 0x009e, 0x009f,
0x00a0, 0x0104, 0x02d8, 0x0141, 0x0024, 0x013d, 0x015a, 0x00a7,
0x00a8, 0x0160, 0x015e, 0x0164, 0x0179, 0x00ad, 0x017d, 0x017b,
0x00b0, 0x0105, 0x02db, 0x0142, 0x00b4, 0x013e, 0x015b, 0x02c7,
0x00b8, 0x0161, 0x015f, 0x0165, 0x017a, 0x02dd, 0x017e, 0x017c,
0x0154, 0x00c1, 0x00c2, 0x0102, 0x00c4, 0x0139, 0x0106, 0x00c7,
0x010c, 0x00c9, 0x0118, 0x00cb, 0x011a, 0x00cd, 0x00ce, 0x010e,
0x0110, 0x0143, 0x0147, 0x00d3, 0x00d4, 0x0150, 0x00d6, 0x00d7,
0x0158, 0x016e, 0x00da, 0x0170, 0x00dc, 0x00dd, 0x0162, 0x00df,
0x0155, 0x00e1, 0x00e2, 0x0103, 0x00e4, 0x013a, 0x0107, 0x00e7,
0x010d, 0x00e9, 0x0119, 0x00eb, 0x011b, 0x00ed, 0x00ee, 0x010f,
0x0111, 0x0144, 0x0148, 0x00f3, 0x00f4, 0x0151, 0x00f6, 0x00f7,
0x0159, 0x016f, 0x00fa, 0x0171, 0x00fc, 0x00fd, 0x0163, 0x02d9
};

UT_uint16 IE_Imp_T602::_conv(unsigned char c)
{

  switch (m_charset)
    {
    case 0:
      return keybcs22ucs[c];
      break;
    case 1:
      return cp8522ucs[c];
      break;
    case 2:
      return koi8cs2ucs[c];
      break;
    }
  return 0;
}

bool IE_Imp_T602::_getbyte(unsigned char &c)
{
	UT_ASSERT(m_importFile);
	return (gsf_input_read (m_importFile, 1, &c) != NULL);
}

UT_Error IE_Imp_T602::_writeheader()
{
	X_CheckT602Error(_writeSP())
	X_CheckT602Error(_writePP())
	X_CheckT602Error(_writeTP())
	m_writeheader=false;
	return UT_OK;
}

UT_Error IE_Imp_T602::_writeTP()
{
  UT_DEBUGMSG(("T602: Append text properties\n"));
  UT_String buff;
  const gchar* pps[3];
  UT_String_sprintf(buff,"font-family: %s; font-size: %dpt; color:%s; font-weight: %s; "
		    "font-style: %s; text-decoration: %s; text-position: %s",
		    m_family.c_str(), m_size, m_color.c_str(),
		    m_bold ? "bold" : "normal",
		    m_italic ? "italic" : "normal",
		    m_underline ? "underline" : "none",
		    (m_tpos==1) ? "subscript": 
		    (m_tpos==2 ? "superscript" : "none"));
  
  UT_DEBUGMSG(("T602: text-prop:\"%s\"]\n",buff.c_str()));
  pps[0]="props";
  pps[1]=buff.c_str();
  pps[2]=NULL;
  X_CheckDocError(appendFmt(pps))
  return UT_OK;
}

UT_Error IE_Imp_T602::_writePP()
{
  UT_DEBUGMSG(("T602: Append paragraph properties\n"));
  UT_String buff;
  const gchar* pps[3];

  // Don't put %1.1f here!! Locales could fuck it...
  UT_String_sprintf(buff,"line-height: %d.%d",
		    (m_lheight+1)/2,((m_lheight+1)%2)*5); 
		  
UT_DEBUGMSG(("T602: par-prop:\"%s\"]\n",buff.c_str()));
  pps[0]="props";
  pps[1]=buff.c_str();
  pps[2]=NULL;
  X_CheckDocError(appendStrux(PTX_Block,pps))
  return UT_OK;
}

UT_Error IE_Imp_T602::_writeSP()
{
  UT_DEBUGMSG(("T602: Append section\n"));
  const gchar* sps[7];
  UT_String bf1, bf2, buff;
  int i=2;

  sps[0]="props";
  UT_String_sprintf(buff,"page-margin-left: %s; page-margin-right: %s",
		  m_lmargin.c_str(),
		  m_rmargin.c_str());
  sps[1]=buff.c_str();
  sps[i]=NULL;
  
  if (!m_footer && !m_header) 
    {
      X_CheckDocError(appendStrux(PTX_Section,sps))
    }
  else
    {
  if (m_header)
  {
    sps[i]="header";
   UT_String_sprintf(bf1,"%d",m_header);
   sps[i+1]=static_cast<const gchar *>(bf1.c_str());
   i=2;
  }
  if (m_footer)
  {
   sps[i]="footer";
   UT_String_sprintf(bf2,"%d",m_footer);
   sps[i+1]=static_cast<const gchar *>(bf2.c_str());
   i+=2;
  }
  sps[i]=NULL;
  X_CheckDocError(appendStrux(PTX_Section,sps))
    }
  return UT_OK;
}

UT_Error IE_Imp_T602::_write_fh(UT_String & fh, UT_uint32 id, bool hea)
{
  UT_DEBUGMSG(("T602: Append footer/header section\n"));
  const gchar* fhps[5];
  const gchar* fps[5];
  UT_String bf1;
  UT_String buff;
  int i = 0;
  bool slash=false;

  UT_String_sprintf(bf1,"%d",id);
  fhps[0]="id";
  fhps[1]=static_cast<const gchar *>(bf1.c_str());
  fhps[2]="type";
  fhps[3]=(hea?"header":"footer");
  fhps[4]=NULL;
  X_CheckDocError(appendStrux(PTX_Section,fhps))
  X_CheckT602Error(_writePP())
  X_CheckT602Error(_writeTP())
    
    // Page-numbers: prepare text properties...
  UT_String_sprintf(buff,"font-family: %s; font-size: %dpt; color:%s; font-weight: %s; "
		    "font-style: %s; text-decoration: %s; text-position: %s",
		    m_family.c_str(), m_size, m_color.c_str(),
		    m_bold ? "bold" : "normal",
		    m_italic ? "italic" : "normal",
		    m_underline ? "underline" : "none",
		    (m_tpos==1) ? "subscript": 
		    (m_tpos==2 ? "superscript" : "none"));
  
  UT_DEBUGMSG(("T602: page-numbers: text-prop:\"%s\"\n",buff.c_str()));

  fps[0]="type";
  fps[1]="page_number";
  fps[2]="props";
  fps[3]=buff.c_str();
  fps[4]=NULL;
  
  for (i=0; fh[i]!='\0'; i++)
  {
     if ((fh[i]=='\\') && (!slash)) 
       {
	 slash=true;
       }
     else if ((fh[i]=='#') && (!slash))
        {
	  X_CheckDocError(appendObject(PTO_Field,fps))
          slash=false;
	}
     else
	{
        X_CheckT602Error(_inschar(fh[i], false))
	slash=false;
	}
  }
  return UT_OK;
}

UT_Error IE_Imp_T602::_ins(UT_uint16 c)
{
  UT_UCSChar ch = static_cast<UT_UCSChar >(c);
  X_CheckDocError(appendSpan(&ch,1))
  return UT_OK;
}


UT_Error IE_Imp_T602::_dotcom(unsigned char ch)
{
  unsigned char c;
  char buff[1024];
  int i;
  int x;

  i=0;
  while (_getbyte(c) && (c!=0x0d) && (c!=0x8d) && (i<1023))
  {
	 if ((c!=0x0a) && (c!=0x1a)) buff[i]=c;
	 i++;
  }

// buffer too small, throw it out !
  if ((c!=0x0d) && (c!=0x8d) && (c!=0x1a))
  {
          if (m_writeheader) X_CheckT602Error(_writeheader())
	  if (ch=='.') X_CheckT602Error(_inschar('.', false))
	  while (_getbyte(c) && (c!=0x0d) && (c!=0x8d))
		  if ((ch=='.') && (c!=0x0a) && (c!=0x1a))
			  X_CheckT602Error(_inschar(c, false))
  }
  else
  { // O.K. let's parse the .dot command...
    buff[i]='\0';
    UT_DEBUGMSG(("Dot command: \"%s\"\n",static_cast<char *>(buff)));
    if (!strncmp(buff,"CT ",3))
    {
      m_charset=atoi(buff+3);
      UT_DEBUGMSG(("-->Charset %d\n",m_charset));
    }
    else if (!strncmp(buff,"PA",2))
    {
      UT_DEBUGMSG(("-->Page break\n"));
      if (m_writeheader) X_CheckT602Error(_writeheader())
      X_CheckT602Error(_ins(UCS_FF))
    }
    else if (!strncmp(buff,"LH ",3))
    {
      x=atoi(buff+3);
      if (x==6) m_lheight=1;
      else m_lheight=6-x;
      UT_DEBUGMSG(("-->Line height %1.1f\n",static_cast<float>(m_lheight+1)/2));
      m_writeheader=true; // FIXME m_writePP ???? 
    }
    else if (!strncmp(buff,"PI ",3))
    {
      UT_DEBUGMSG(("T602: Images not supported!! [%s]\n",buff+3));
    }
    else if (!strncmp(buff,"IX ",3))
    {
      UT_DEBUGMSG(("T602: Indexes not supported!! [%s]\n",buff+3));
    }
    else if (!strncmp(buff,"KA ",3))
    {
      UT_DEBUGMSG(("T602: Chapters not supported!!\n"));
    }
    else if (!strncmp(buff,"HE ",3))
    {
      UT_DEBUGMSG(("-->Header: \"%s\"\n",buff+3));
      if (buff[3]=='0')
       {
        m_header=0;
	m_writeheader= true;
       }
      else
       {
        m_fhc++;
	m_header=m_fhc;
	m_hbuff = buff+3;
	m_writeheader= true;
       }
    }
     else if (!strncmp(buff,"FO ",3))
    {
      UT_DEBUGMSG(("-->Footer: \"%s\"\n",buff+3));
      if (buff[3]=='0')
       {
        m_footer=0;
        m_writeheader= true;
       }
      else
       {
        m_fhc++;
	m_footer=m_fhc;
	m_fbuff = buff+3;
	m_writeheader= true;
       }
    }

  }
  m_eol=true;
  return UT_OK;
}


UT_Error IE_Imp_T602::_inschar(unsigned char c, bool eol)
{
switch (c)
    {
//- Text Properties:
//Bold
     case 0x02:
	m_bold ^=1;
	X_CheckT602Error(_writeTP())
	break;
//Italic
     case 0x04:
	m_italic ^=1;
	X_CheckT602Error(_writeTP())
	break;
//Underline
     case 0x13:
	m_underline ^=1;
	X_CheckT602Error(_writeTP())
	break;
//Subscript
     case 0x16:
	m_tpos ^=1;
	X_CheckT602Error(_writeTP())
	break;
//Superscript
     case 0x14:
	m_tpos ^=2;
	X_CheckT602Error(_writeTP())
	break;
//Wide
     case 0x0f:
	m_big ^=1;
	if (m_big & 1)
	  m_size=static_cast<int>(1.5*m_basesize);
	else
	  m_size=m_basesize;
	X_CheckT602Error(_writeTP())
	break;
//Tall
     case 0x10:
	m_big ^=2;
	if (m_big & 2)
	  m_size=static_cast<int>(1.2*m_basesize);
	else
	  m_size=m_basesize;
	X_CheckT602Error(_writeTP())
	break;
//Big
     case 0x1d:
	m_big ^=4;
	if (m_big & 4)
	  { m_size=2*m_basesize; m_bold=1; }
	else
	  { m_size=m_basesize; m_bold=0; }
	X_CheckT602Error(_writeTP())
	break;

//- Extra text Properties:
//Elite
     case 0x01:
	m_sfont ^=1;
	if (m_sfont & 1)
	  { m_size=static_cast<int>(0.8*m_basesize); m_family="Arial"; 
		  /* FIXME? -> .profile?*/ }
	else
	  { m_size=m_basesize; m_family=m_basefamily; }
	X_CheckT602Error(_writeTP())
	break;
//Condens
     case 0x03:
	m_sfont ^=2;
	if (m_sfont & 2)
	  m_size=static_cast<int>(.7*m_basesize);
	else
	  m_size=m_basesize;
	X_CheckT602Error(_writeTP())
	break;
//User 1
     case 0x11:
	m_sfont ^=4;
	if (m_sfont & 4)
	  m_color="ff0000";
	else
	  m_color="000000";
	X_CheckT602Error(_writeTP())
	break;
//User 2
     case 0x12:
	m_sfont ^=8;
	if (m_sfont & 8)
	  m_color="ee00ff";
	else
	  m_color="000000";
	X_CheckT602Error(_writeTP())
	break;
//User 3
     case 0x15:
	m_sfont ^=16;
	if (m_sfont & 16)
	  m_color="ffaa00";
	else
	  m_color="000000";
	X_CheckT602Error(_writeTP())
	break;
//User 4
     case 0x17:
	m_sfont ^=32;
	if (m_sfont & 32)
	  m_color="1100ff";
	else
	  m_color="000000";
	X_CheckT602Error(_writeTP())
	break;
//User 5
     case 0x18:
	m_sfont ^=64;
	if (m_sfont & 64)
	  m_color="bbbb00";
	else
	  m_color="000000";
	X_CheckT602Error(_writeTP())
	break;
//User 6
     case 0x19:
	m_sfont ^=128;
	if (m_sfont & 128)
	  m_color="00bb00";
	else
	  m_color="000000";
	X_CheckT602Error(_writeTP())
	break;

//-- Hacks
//Soft hyphen. FIXME: We're putting there simple '-'...
     case 0xad:
	X_CheckT602Error(_ins(_conv('-')))
    	m_eol=false;
	break;
//Non breaking space. FIXME: how to do this in abiword?
     case 0xfe:
	X_CheckT602Error(_ins(_conv(' ')))
    	m_eol=false;
	break;

//-- Ignore
     case 0x0a:
//	m_eol=true;
     case 0x1a:
	break;

//Line breaks (cr/soft-cr)
     case 0x0d:
	m_eol=true;
	X_CheckDocError(appendStrux(PTX_Block,NULL))
	break;
    case 0x8d:  // FIXME dat moznost volby ?
      if (m_softcr)
	{
	  m_eol=true;
	  X_CheckDocError(appendStrux(PTX_Block,NULL))
	    }
      else
	X_CheckT602Error(_ins(_conv(' ')))
      break;
//Line commands
     case '.':
     case '@':
	if (!eol)
	  {
	  X_CheckT602Error(_ins(_conv(c)))
	  }
	else
	  {	
	  X_CheckT602Error(_dotcom(c))
	  }
	break;
//Normal character
     default:
    	m_eol=false;
	X_CheckT602Error(_ins(_conv(c)))
	break;
    }
return UT_OK;
}


UT_Error IE_Imp_T602::_loadFile(GsfInput * input)
{
   UT_Error error;  
   unsigned char c;
   
   m_importFile = (GsfInput *)g_object_ref (G_OBJECT (input));
   
   error=UT_OK;
	   
   while (_getbyte(c))
    {
    if (m_eol && m_writeheader && (c!='.') && (c!='@') && 
	(c!=0x0a) && (c!=0x1a))
   		X_CheckT602Error(_writeheader())
    X_CheckT602Error(_inschar(c, m_eol))
    }
   
// Abiword handles footer/header only once for the whole file(?) :-(
// FIXME: can we do something with it?

   if (m_footer)
     {
       X_CheckT602Error(_write_fh(m_fbuff, m_footer, false));
     }
   if (m_header)
     {
       X_CheckT602Error(_write_fh(m_hbuff, m_header, true));
     }

   g_object_unref(G_OBJECT(m_importFile));
   return error;
}
