/* -*- Mode: C++; c-default-style: "k&r"; indent-tabs-mode: nil; tab-width: 2; c-basic-offset: 2 -*- */

/* libmwaw
* Version: MPL 2.0 / LGPLv2+
*
* The contents of this file are subject to the Mozilla Public License Version
* 2.0 (the "License"); you may not use this file except in compliance with
* the License or as specified alternatively below. You may obtain a copy of
* the License at http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* Major Contributor(s):
* Copyright (C) 2002 William Lachance (wrlach@gmail.com)
* Copyright (C) 2002,2004 Marc Maurer (uwog@uwog.net)
* Copyright (C) 2004-2006 Fridrich Strba (fridrich.strba@bluewin.ch)
* Copyright (C) 2006, 2007 Andrew Ziem
* Copyright (C) 2011, 2012 Alonso Laurent (alonso@loria.fr)
*
*
* All Rights Reserved.
*
* For minor contributions see the git repository.
*
* Alternatively, the contents of this file may be used under the terms of
* the GNU Lesser General Public License Version 2 or later (the "LGPLv2+"),
* in which case the provisions of the LGPLv2+ are applicable
* instead of those above.
*/

#include <cstring>
#include <iomanip>
#include <iostream>
#include <limits>
#include <map>
#include <sstream>

#include <librevenge/librevenge.h>

#include "MWAWTextListener.hxx"
#include "MWAWDebug.hxx"
#include "MWAWFont.hxx"
#include "MWAWFontConverter.hxx"
#include "MWAWPageSpan.hxx"
#include "MWAWParagraph.hxx"
#include "MWAWPosition.hxx"
#include "MWAWRSRCParser.hxx"
#include "MWAWSubDocument.hxx"

#include "ZWrtParser.hxx"

#include "ZWrtText.hxx"

/** Internal: the structures of a ZWrtText */
namespace ZWrtTextInternal
{
////////////////////////////////////////
//! Internal: struct used to store the font of a ZWrtText
struct Font {
  //! constructor
  Font()
    : m_font()
    , m_height(0)
    , m_extra("")
  {
  }
  //! operator<<
  friend std::ostream &operator<<(std::ostream &o, Font const &font);

  //! the font
  MWAWFont m_font;
  //! the line height
  int m_height;
  //! extra data
  std::string m_extra;
};

std::ostream &operator<<(std::ostream &o, Font const &font)
{
  if (font.m_height)
    o << "h=" << font.m_height << ",";
  o << font.m_extra;
  return o;
}

////////////////////////////////////////
//! Internal: struct used to store a header/footer of a ZWrtText
struct HFZone {
  //! constructor
  HFZone()
    : m_pos()
    , m_font()
    , m_extra("")
  {
    m_font.m_font = MWAWFont(3,12);
  }
  //! returns true if the zone is not empty
  bool ok() const
  {
    return m_pos.valid();
  }
  //! operator<<
  std::string getDebugString(MWAWFontConverterPtr &convert) const
  {
    std::stringstream s;
    if (!m_pos.valid()) return s.str();
    if (convert)
      s << m_font.m_font.getDebugString(convert) << m_font << ",";
    else
      s << m_font << ",";
    s << m_extra;
    return s.str();
  }
  //! the text position
  MWAWEntry m_pos;
  //! the font
  Font m_font;
  //! extra data
  std::string m_extra;
};

////////////////////////////////////////
//! Internal: struct used to store a section of a ZWrtText
struct Section {
  //! constructor
  Section()
    : m_id()
    , m_pos()
    , m_name("")
    , m_idFontMap()
    , m_parsed(false)
  {
  }
  //! the section id
  int m_id;
  //! the text position
  MWAWEntry m_pos;
  //! the section name
  std::string m_name;
  //! a map pos -> font
  std::map<long,Font> m_idFontMap;
  //! true if the section is parsed
  mutable bool m_parsed;
};

////////////////////////////////////////
//! Internal: the state of a ZWrtText
struct State {
  //! constructor
  State()
    : m_version(-1)
    , m_numPages(-1)
    , m_actualPage(1)
    , m_idSectionMap()
    , m_header()
    , m_footer()
  {
  }
  //! return a section for an id ( if it does not exists, create id )
  Section &getSection(int id)
  {
    auto it = m_idSectionMap.find(id);
    if (it != m_idSectionMap.end())
      return it->second;
    it = m_idSectionMap.insert
         (std::map<int,Section>::value_type(id,Section())).first;
    it->second.m_id = id;
    return it->second;
  }

  //! the file version
  mutable int m_version;
  int m_numPages /* the number of pages */, m_actualPage /* the actual page */;

  //! a map id -> section
  std::map<int, Section> m_idSectionMap;
  //! the header zone
  HFZone m_header;
  //! the footer zone
  HFZone m_footer;
};

////////////////////////////////////////
//! Internal: the subdocument of a ZWrtText
class SubDocument final : public MWAWSubDocument
{
public:
  SubDocument(ZWrtText &pars, MWAWInputStreamPtr const &input, int id, MWAWEntry const &entry, ZWrtText::TextCode type)
    : MWAWSubDocument(pars.m_mainParser, input, MWAWEntry())
    , m_textParser(&pars)
    , m_id(id)
    , m_type(type)
    , m_pos(entry)
  {
  }

  //! destructor
  ~SubDocument() final {}

  //! operator!=
  bool operator!=(MWAWSubDocument const &doc) const final;

  //! the parser function
  void parse(MWAWListenerPtr &listener, libmwaw::SubDocumentType type) final;

protected:
  /** the text parser */
  ZWrtText *m_textParser;
  //! the section id
  int m_id;
  //! the type of document
  ZWrtText::TextCode m_type;
  //! the file pos
  MWAWEntry m_pos;
private:
  SubDocument(SubDocument const &orig) = delete;
  SubDocument &operator=(SubDocument const &orig) = delete;
};

bool SubDocument::operator!=(MWAWSubDocument const &doc) const
{
  if (MWAWSubDocument::operator!=(doc)) return true;
  auto const *sDoc = dynamic_cast<SubDocument const *>(&doc);
  if (!sDoc) return true;
  if (m_textParser != sDoc->m_textParser) return true;
  if (m_id != sDoc->m_id) return true;
  if (m_type != sDoc->m_type) return true;
  if (m_pos != sDoc->m_pos) return true;
  return false;
}

void SubDocument::parse(MWAWListenerPtr &listener, libmwaw::SubDocumentType /*type*/)
{
  if (!listener.get()) {
    MWAW_DEBUG_MSG(("ZWrtTextInternal::SubDocument::parse: no listener\n"));
    return;
  }
  if (!m_textParser)  {
    MWAW_DEBUG_MSG(("ZWrtTextInternal::SubDocument::parse: no parser\n"));
    return;
  }

  long pos = m_input->tell();
  if (m_type==ZWrtText::Link)
    listener->insertUnicodeString(librevenge::RVNGString("link to "));
  else if (m_type==ZWrtText::Tag)
    listener->insertUnicodeString(librevenge::RVNGString("ref: "));
  m_textParser->sendText(m_id, m_pos);
  m_input->seek(pos, librevenge::RVNG_SEEK_SET);
}
}

////////////////////////////////////////////////////////////
// constructor/destructor, ...
////////////////////////////////////////////////////////////
ZWrtText::ZWrtText(ZWrtParser &parser)
  : m_parserState(parser.getParserState())
  , m_state(new ZWrtTextInternal::State)
  , m_mainParser(&parser)
{
}

ZWrtText::~ZWrtText()
{
}

int ZWrtText::version() const
{
  if (m_state->m_version < 0)
    m_state->m_version = m_parserState->m_version;
  return m_state->m_version;
}

int ZWrtText::numPages() const
{
  if (m_state->m_numPages >= 0)
    return m_state->m_numPages;
  const_cast<ZWrtText *>(this)->computePositions();
  return m_state->m_numPages;
}

bool ZWrtText::hasHeaderFooter(bool header) const
{
  if (header) return m_state->m_header.ok();
  return m_state->m_footer.ok();
}

void ZWrtText::computePositions()
{
  m_state->m_actualPage = 1;

  MWAWInputStreamPtr input = m_mainParser->rsrcInput();
  int nPages = 0;
  for (auto it : m_state->m_idSectionMap) {
    nPages++;
    auto const &section=it.second;
    if (!section.m_pos.valid())
      continue;
    long endPos = section.m_pos.end();
    input->seek(section.m_pos.begin(), librevenge::RVNG_SEEK_SET);
    while (!input->isEnd()) {
      if (input->tell()+3 >= endPos)
        break;
      if (char(input->readLong(1))!='<')
        continue;
      if (char(input->readLong(1))!='N')
        continue;
      if (char(input->readLong(1))!='>')
        continue;
      nPages++;
    }
  }
  m_state->m_numPages = nPages;
}

////////////////////////////////////////////////////////////
// Intermediate level
////////////////////////////////////////////////////////////

// find the different zones
bool ZWrtText::createZones()
{
  MWAWRSRCParserPtr rsrcParser = m_mainParser->getRSRCParser();
  if (!rsrcParser) {
    MWAW_DEBUG_MSG(("ZWrtText::createZones: can not find the entry map\n"));
    return false;
  }
  auto &entryMap = rsrcParser->getEntriesMap();
  // the 128 zones
  char const *(zNames[]) = {"HEAD", "FOOT", "STLS"};
  for (int z = 0; z < 3; z++) {
    auto it = entryMap.lower_bound(zNames[z]);
    while (it != entryMap.end()) {
      if (it->first != zNames[z])
        break;
      MWAWEntry const &entry = it++->second;
      switch (z) {
      case 0:
      case 1:
        readHFZone(entry);
        break;
      case 2: // 128 and following
        readStyles(entry);
        break;
      default:
        break;
      }
    }
  }

  // 1001 and following
  char const *(sNames[]) = {"styl","TEXT"};
  for (int z = 0; z < 2; z++) {
    auto it = entryMap.lower_bound(sNames[z]);
    while (it != entryMap.end()) {
      if (it->first != sNames[z])
        break;
      MWAWEntry const &entry = it++->second;
      switch (z) {
      case 0:
        readSectionFonts(entry);
        break;
      case 1: {
        auto &sec=m_state->getSection(entry.id());
        sec.m_pos = entry;
        break;
      }
      default:
        break;
      }
    }
  }

  // now update the different data
  computePositions();
  return true;
}

ZWrtText::TextCode ZWrtText::isTextCode
(MWAWInputStreamPtr &input, long endPos, MWAWEntry &dPos) const
{
  dPos=MWAWEntry();
  long pos = input->tell();
  if (pos+2 > endPos)
    return None;
  auto c=char(input->readLong(1));
  if (c=='C' || c=='N') {
    if (char(input->readLong(1))!='>') {
      input->seek(pos, librevenge::RVNG_SEEK_SET);
      return None;
    }
    return c=='C' ? Center : NewPage;
  }
  std::string expectedString("");
  auto res = None;
  switch (c) {
  case 'b':
    expectedString="bookmark";
    res = BookMark;
    break;
  case 'i':
    expectedString="insert";
    res = Tag;
    break;
  case 'l':
    expectedString="link";
    res = Link;
    break;
  default:
    input->seek(pos, librevenge::RVNG_SEEK_SET);
    return None;
  }
  expectedString += ' ';
  for (size_t s=1; s < expectedString.size(); s++) {
    if (input->isEnd() || input->tell()  >= endPos ||
        char(input->readLong(1)) != expectedString[s]) {
      input->seek(pos, librevenge::RVNG_SEEK_SET);
      return None;
    }
  }
  dPos.setBegin(input->tell());
  while (1) {
    if (input->isEnd() || input->tell() >= endPos) {
      input->seek(pos, librevenge::RVNG_SEEK_SET);
      break;
    }
    c=char(input->readLong(1));
    if (c==0 || c==0xa || c==0xd) {
      input->seek(pos, librevenge::RVNG_SEEK_SET);
      return None;
    }
    if (c=='>') {
      dPos.setEnd(input->tell()-1);
      return res;
    }
  }
  return None;
}

bool ZWrtText::sendText(ZWrtTextInternal::Section const &zone, MWAWEntry const &entry)
{
  MWAWTextListenerPtr listener=m_parserState->m_textListener;
  if (!listener) {
    MWAW_DEBUG_MSG(("ZWrtText::sendText: can not find a listener\n"));
    return false;
  }
  bool main = entry.begin()==zone.m_pos.begin();
  if (main)
    m_mainParser->newPage(m_state->m_actualPage++);
  if (!entry.valid())
    return true;
  MWAWInputStreamPtr input = m_mainParser->rsrcInput();
  libmwaw::DebugFile &ascFile = m_mainParser->rsrcAscii();
  libmwaw::DebugStream f;
  f << "Entries(TextContent)[" << zone.m_name << "]:";
  zone.m_parsed=true;
  long pos = entry.begin(), endPos = entry.end();
  input->seek(pos, librevenge::RVNG_SEEK_SET);

  ZWrtTextInternal::Font actFont;
  actFont.m_font=MWAWFont(3,12);
  long cPos = pos-zone.m_pos.begin();
  auto fIt= zone.m_idFontMap.begin();
  while (fIt != zone.m_idFontMap.end() && fIt->first<cPos)
    actFont = fIt++->second;
  listener->setFont(actFont.m_font);
  int fId=0;
  bool isCenter = false;
  MWAWParagraph para;
  while (1) {
    long actPos = input->tell();
    bool done = input->isEnd() || actPos==endPos;

    char c = done ? char(0) : char(input->readULong(1));
    if (c==0xd || done) {
      ascFile.addPos(pos);
      ascFile.addNote(f.str().c_str());
      f.str("");
      f << "TextContent:";
      pos = actPos+1;
    }
    if (done) break;
    while (fIt != zone.m_idFontMap.end() && fIt->first<=cPos) {
      actFont = fIt++->second;
      listener->setFont(actFont.m_font);
      f << "[F" << fId++ << "]";
    }

    cPos++;
    TextCode textCode;
    MWAWEntry textData;
    if (c=='<' && (textCode=isTextCode(input, endPos, textData))!=None) {
      long newPos = input->tell();
      switch (textCode) {
      case Center:
        isCenter=true;
        para.m_justify=MWAWParagraph::JustificationCenter;
        listener->setParagraph(para);
        break;
      case NewPage:
        if (main)
          m_mainParser->newPage(m_state->m_actualPage++);
        break;
      case Link:
      case Tag:
      case BookMark: {
        if (textCode==Link) {
          MWAW_DEBUG_MSG(("ZWrtText::sendText: find a link, uses bookmark\n"));
        }
        else if (textCode==Tag) {
          MWAW_DEBUG_MSG(("ZWrtText::sendText: find a tag, uses bookmark\n"));
        }
        MWAWSubDocumentPtr subdoc(new ZWrtTextInternal::SubDocument(*this, input, zone.m_id, textData, textCode));
        listener->insertComment(subdoc);
        break;
      }
      // coverity[dead_error_line : FALSE]: intentional ( needed to remove warning in other compiler )
      case None:
#if !defined(__clang__)
      default:
#endif
        break;
      }
      input->seek(newPos, librevenge::RVNG_SEEK_SET);
      cPos=newPos-zone.m_pos.begin();
      continue;
    }
    switch (c) {
    case 0x9:
      listener->insertTab();
      break;
    case 0xd:
      listener->insertEOL();
      if (isCenter) {
        isCenter=false;
        para.m_justify=MWAWParagraph::JustificationLeft;
        listener->setParagraph(para);
      }
      break;
    default:
      listener->insertCharacter(static_cast<unsigned char>(c), input, endPos);
      break;
    }
    f << c;
  }
  return true;
}

bool ZWrtText::sendText(int sectionId, MWAWEntry const &entry)
{
  if (!m_parserState->m_textListener) {
    MWAW_DEBUG_MSG(("ZWrtText::sendText: can not find a listener\n"));
    return false;
  }
  auto it = m_state->m_idSectionMap.find(sectionId);
  if (it==m_state->m_idSectionMap.end()) {
    MWAW_DEBUG_MSG(("ZWrtText::sendText: can not find the section\n"));
    return false;
  }
  sendText(it->second, entry);
  return true;
}

bool ZWrtText::sendMainText()
{
  if (!m_parserState->m_textListener) {
    MWAW_DEBUG_MSG(("ZWrtText::sendMainText: can not find a listener\n"));
    return false;
  }
  for (auto it : m_state->m_idSectionMap) {
    auto &section=it.second;
    sendText(section, section.m_pos);
  }
  return true;
}

//////////////////////////////////////////////
// Fonts
//////////////////////////////////////////////
bool ZWrtText::readSectionFonts(MWAWEntry const &entry)
{
  if (!entry.valid() || entry.length() < 2) {
    MWAW_DEBUG_MSG(("ZWrtText::readSectionFonts: the entry is bad\n"));
    return false;
  }

  MWAWInputStreamPtr input = m_mainParser->rsrcInput();
  libmwaw::DebugFile &ascFile = m_mainParser->rsrcAscii();
  libmwaw::DebugStream f;
  f << "Entries(" << entry.type() << ")[" << entry << "]:";
  entry.setParsed(true);
  auto &section = m_state->getSection(entry.id());
  section.m_name = entry.name();

  long pos = entry.begin();
  input->seek(pos, librevenge::RVNG_SEEK_SET);
  auto N=static_cast<int>(input->readLong(2));
  f << "N=" << N << ",";
  if (2+N*20 != int(entry.length())) {
    MWAW_DEBUG_MSG(("ZWrtText::readSectionFonts: the number N seems bad\n"));
    f << "###";
    ascFile.addPos(pos-4);
    ascFile.addNote(f.str().c_str());
    return false;
  }
  ascFile.addPos(pos-4);
  ascFile.addNote(f.str().c_str());

  for (int i = 0; i < N; i++) {
    pos = input->tell();
    ZWrtTextInternal::Font font;
    f.str("");
    auto cPos=long(input->readULong(4));
    font.m_height = static_cast<int>(input->readLong(2));
    auto sz = float(input->readLong(2));
    font.m_font.setId(static_cast<int>(input->readULong(2)));
    auto flag = static_cast<int>(input->readULong(1));
    uint32_t flags = 0;
    if (flag&0x1) flags |= MWAWFont::boldBit;
    if (flag&0x2) flags |= MWAWFont::italicBit;
    if (flag&0x4) font.m_font.setUnderlineStyle(MWAWFont::Line::Simple);
    if (flag&0xF8) f << "fl0=" << std::hex << (flag&0xF8) << std::dec << ",";

    flag = static_cast<int>(input->readULong(1)); // alway 0
    if (flag) f << "#fl1=" << std::hex << flag << std::dec << ",";
    font.m_font.setSize(float(input->readLong(2)));
    if (sz < font.m_font.size() || sz > font.m_font.size())
      f << "#sz=" << sz << ",";
    unsigned char col[3];
    for (auto &c : col) c = static_cast<unsigned char>(input->readULong(2)>>8);
    if (col[0] || col[1] || col[2])
      font.m_font.setColor(MWAWColor(col[0],col[1],col[2]));
    font.m_font.setFlags(flags);
    font.m_extra = f.str();
    section.m_idFontMap.insert(std::map<long, ZWrtTextInternal::Font>::value_type(cPos, font));

    f.str("");
    f << entry.type() << "-F" << i << ":cPos=" << std::hex << cPos << std::dec << ","
      << font.m_font.getDebugString(m_parserState->m_fontConverter) << font;
    ascFile.addPos(pos);
    ascFile.addNote(f.str().c_str());
    input->seek(pos+20, librevenge::RVNG_SEEK_SET);
  }
  return true;
}

//////////////////////////////////////////////
// Styles
//////////////////////////////////////////////
bool ZWrtText::readStyles(MWAWEntry const &entry)
{
  if (!entry.valid()) {
    MWAW_DEBUG_MSG(("ZWrtText::readStyles: the entry is bad\n"));
    return false;
  }

  long pos = entry.begin();
  MWAWInputStreamPtr input = m_mainParser->rsrcInput();
  libmwaw::DebugFile &ascFile = m_mainParser->rsrcAscii();
  libmwaw::DebugStream f;
  f << "Entries(" << entry.type() << ")[" << entry << "]:";
  entry.setParsed(true);

  std::vector<ZWField> fields;
  if (!m_mainParser->getFieldList(entry, fields)) {
    MWAW_DEBUG_MSG(("ZWrtText::readStyles: can not get fields list\n"));
    f << "###";
    ascFile.addPos(pos-4);
    ascFile.addNote(f.str().c_str());
    return false;
  }

  size_t numFields = fields.size();
  if (numFields < 9) {
    MWAW_DEBUG_MSG(("ZWrtText::readStyles: the fields list seems very short\n"));
  }
  std::string strVal;
  int intVal;
  bool boolVal;
  for (size_t ff = 0; ff < numFields; ff++) {
    ZWField const &field = fields[ff];
    bool done = false;
    unsigned char color[3];
    switch (ff) {
    case 0:
      done = field.getString(input, strVal);
      if (!done||!strVal.length())
        break;
      f << "font=" << strVal << ",";
      break;
    case 1:
      done = field.getInt(input, intVal);
      if (!done||!intVal)
        break;
      f << "fSz=" << intVal << ",";
      break;
    case 2:
    case 3:
    case 4: {
      color[0]=color[1]=color[2]=0;
      done = field.getInt(input, intVal);
      if (!done)
        break;
      color[ff-2]=static_cast<unsigned char>(intVal);
      while (ff < 4 && ff + 1 < numFields) {
        if (fields[++ff].getInt(input, intVal))
          color[ff-2]=static_cast<unsigned char>(intVal);
      }
      if (color[0]||color[1]||color[2])
        f << "col=" << MWAWColor(color[0],color[1],color[2]) << ",";
      break;
    }
    case 5:
    case 6: // italic?
    case 7: // always false ?
      done = field.getBool(input, boolVal);
      if (!done)
        break;
      if (boolVal)
        f << "f" << ff << "Set,";
      break;
    case 8: // 0|1|2
      done = field.getInt(input, intVal);
      if (!done||!intVal)
        break;
      f << "id?=" << intVal << ",";
      break;
    default:
      break;
    }
    if (done)
      continue;
    if (fields[ff].getDebugString(input, strVal))
      f << "#f" << ff << "=\"" << strVal << "\",";
    else
      f << "#f" << ff << ",";
  }

  ascFile.addPos(pos-4);
  ascFile.addNote(f.str().c_str());
  return true;
}

////////////////////////////////////////////////////////////
// read the header/footer zone
////////////////////////////////////////////////////////////
bool ZWrtText::sendHeaderFooter(bool header)
{
  MWAWTextListenerPtr listener=m_parserState->m_textListener;
  if (!listener) {
    MWAW_DEBUG_MSG(("ZWrtText::sendHeaderFooter: can not find a listener\n"));
    return false;
  }
  auto const &zone = header ? m_state->m_header : m_state->m_footer;
  if (!zone.ok()) {
    MWAW_DEBUG_MSG(("ZWrtText::sendHeaderFooter: zone is not valid\n"));
    return false;
  }
  MWAWInputStreamPtr input = m_mainParser->rsrcInput();
  input->seek(zone.m_pos.begin(), librevenge::RVNG_SEEK_SET);
  listener->setFont(zone.m_font.m_font);
  long endPos = zone.m_pos.end();
  while (!input->isEnd()) {
    long actPos = input->tell();
    if (actPos >= endPos)
      break;
    auto c = char(input->readULong(1));
    switch (c) {
    case 0xa:
      listener->insertTab();
      break;
    case 0xd:
      listener->insertEOL();
      break;
    case '#':
      if (actPos+1 < endPos) {
        auto nextC = char(input->readULong(1));
        bool done = true;
        switch (nextC) {
        case 'd':
          listener->insertField(MWAWField(MWAWField::Date));
          break;
        case 'p':
          listener->insertField(MWAWField(MWAWField::PageNumber));
          break;
        case 's':
          listener->insertUnicodeString(librevenge::RVNGString("#section#"));
          break;
        case 't':
          listener->insertField(MWAWField(MWAWField::Time));
          break;
        case '#':
          listener->insertField(MWAWField(MWAWField::PageCount));
          break;
        default:
          done=false;
          break;
        }
        if (done)
          break;
      }
      input->seek(actPos+1, librevenge::RVNG_SEEK_SET);
      MWAW_FALLTHROUGH;
    default:
      listener->insertCharacter(static_cast<unsigned char>(c), input, endPos);
      break;
    }
  }
  return true;
}

bool ZWrtText::readHFZone(MWAWEntry const &entry)
{
  if (!entry.valid()) {
    MWAW_DEBUG_MSG(("ZWrtText::readHFZone: the entry is bad\n"));
    return false;
  }

  if (entry.id()!=128) {
    MWAW_DEBUG_MSG(("ZWrtText::readHFZone: the entry id is odd\n"));
  }
  long pos = entry.begin();
  MWAWInputStreamPtr input = m_mainParser->rsrcInput();
  libmwaw::DebugFile &ascFile = m_mainParser->rsrcAscii();
  libmwaw::DebugStream f;
  entry.setParsed(true);

  std::vector<ZWField> fields;
  if (!m_mainParser->getFieldList(entry, fields)) {
    MWAW_DEBUG_MSG(("ZWrtText::readHFZone: can not get fields list\n"));
    f << "Entries(" << entry.type() << ")[" << entry << "]:";
    f << "###";
    ascFile.addPos(pos-4);
    ascFile.addNote(f.str().c_str());
    return false;
  }

  size_t numFields = fields.size();
  if (numFields < 9) {
    MWAW_DEBUG_MSG(("ZWrtText::readHFZone: the fields list seems very short\n"));
  }
  std::string strVal;
  int intVal;
  bool boolVal;
  std::vector<int> intList;
  auto &zone = entry.type()=="HEAD" ? m_state->m_header : m_state->m_footer;
  auto &font = zone.m_font;
  uint32_t flags=0;
  for (size_t ff = 0; ff < numFields; ff++) {
    ZWField const &field = fields[ff];
    bool done = false;
    switch (ff) {
    case 0:
    case 2:
    case 5:
    case 7:
      done = field.getBool(input, boolVal);
      if (!done)
        break;
      if (!boolVal)
        continue;
      switch (ff) {
      case 0:
        flags |= MWAWFont::boldBit;
        break;
      case 2:
        flags |= MWAWFont::italicBit;
        break;
      case 5:
        font.m_font.setUnderlineStyle(MWAWFont::Line::Simple);
        break;
      case 7:
        f << "addDelimiter,";
        break;
      default:
        f << "f" << ff << "Set,";
        break;
      }
      break;
    case 4:
    case 8:
      done = field.getInt(input, intVal);
      if (!done||!intVal)
        break;
      if (ff==4)
        font.m_font.setSize(float(intVal));
      else
        f << "delimiterSize=" << intVal << ",";
      break;
    case 3:
      done = field.getString(input, strVal);
      if (!done||!strVal.length())
        break;
      font.m_font.setId(m_parserState->m_fontConverter->getId(strVal));
      break;
    case 6:
      done = field.getDebugString(input, strVal);
      if (!done||!strVal.length())
        break;
      zone.m_pos = field.m_pos;
      f << "text=\"" << strVal << "\",";
      break;
    case 1: {
      done = field.getIntList(input, intList);
      if (!done|| intList.size() != 3)
        break;
      auto col = uint32_t((intList[0]<<16)|(intList[1]<<8)|intList[2]);
      if (col)
        font.m_font.setColor(MWAWColor(col));
      break;
    }
    default:
      break;
    }
    if (done)
      continue;
    if (fields[ff].getDebugString(input, strVal))
      f << "#f" << ff << "=\"" << strVal << "\",";
    else
      f << "#f" << ff << ",";
  }
  font.m_font.setFlags(flags);

  zone.m_extra=f.str();
  f.str("");
  f << "Entries(" << entry.type() << ")[" << entry << "]:"
    << zone.getDebugString(m_parserState->m_fontConverter);

  ascFile.addPos(pos-4);
  ascFile.addNote(f.str().c_str());
  return true;
}

////////////////////////////////////////////////////////////
//
// Low level
//
////////////////////////////////////////////////////////////

void ZWrtText::flushExtra()
{
}

// vim: set filetype=cpp tabstop=2 shiftwidth=2 cindent autoindent smartindent noexpandtab:
