1 files changed, 665 insertions, 0 deletions
diff --git a/filters/kspread/qpro/libqpro/src/record.cpp b/filters/kspread/qpro/libqpro/src/record.cpp
new file mode 100644
index 000000000..461b65d34
--- /dev/null
+++ b/filters/kspread/qpro/libqpro/src/record.cpp
@@ -0,0 +1,665 @@
+#include <qpro/common.h>
+
+#include <string.h>
+
+#include <iostream>
+
+#include <qpro/record.h>
+#include <qpro/formula.h>
+
+// -----------------------------------------------------------------------
+
+#include <iomanip>
+#include <sstream>
+
+void
+Charout(ostream& pOut, unsigned char pChar)
+{
+   pOut << ( (pChar<32) || (pChar>126) ? '.' : (char)pChar);
+}
+
+void
+Hexout(ostream& pOut, unsigned char pChar)
+{
+   pOut << setiosflags(ios::uppercase)
+        << setfill('0')
+        << setw(2)
+        << hex
+        << (int)pChar
+        << dec;
+}
+
+int
+Hexout(char* pChar, int pLen)
+{
+   std::ostringstream*   lOStr = new std::ostringstream;
+
+   while( pLen )
+   {
+      int lIdx = 0;
+
+      for( lIdx=0; lIdx < 16; ++lIdx )
+      {
+         if( pLen )
+         {
+            Hexout(cerr, *pChar);
+            cerr << (lIdx==8 ? "-" : " ");
+            Charout(*lOStr, (unsigned char)*pChar);
+            ++pChar;
+            --pLen;
+         }
+         else
+         {
+            cerr << "   ";
+         }
+      }
+
+      cerr << lOStr->rdbuf() << endl;
+
+      delete lOStr;
+      lOStr = new std::ostringstream;
+   }
+
+   delete lOStr;
+   lOStr = 0;
+
+   return 0;
+}
+
+// -----------------------------------------------------------------------
+
+QpRec::QpRec(QpRecType pType)
+   : cType( pType )
+{
+}
+
+QpRec::~QpRec()
+{
+}
+
+TQP_INT16
+QpRec::type()
+{
+   return cType;
+}
+
+// -----------------------------------------------------------------------
+//
+//
+//QpCellRef::QpCellRef(QpIStream& pIn)
+//{
+//   pIn >> cNoteBook >> cColumn >> cPage >> cRow;
+//
+//TQP_DEBUG("CellRef: NoteBook" << cNoteBook << ", col "
+//         << cColumn << ", Page " << (int)cPage << ", Row "
+//         << cRow << endl
+//        );
+//}
+//
+//QpCellRef::~QpCellRef()
+//{
+//}
+//
+//TQP_UINT8
+//QpCellRef::column()
+//{
+//   return cColumn;
+//}
+//
+//TQP_INT16
+//QpCellRef::row()
+//{
+//   return cRow;
+//}
+//
+// -----------------------------------------------------------------------
+
+QpRecCell::QpRecCell(QpRecType pType)
+   : QpRec(pType)
+   , cAttributes(0)
+   , cColumn(0)
+   , cPage(0)
+   , cRow(0)
+   , cCellRef(0)
+{
+}
+
+QpRecCell::~QpRecCell()
+{
+   delete [] cCellRef;
+   cCellRef = 0;
+}
+
+
+void
+QpRecCell::attributes(TQP_INT16 pAttributes)
+{
+   cAttributes = pAttributes;
+}
+
+TQP_INT16
+QpRecCell::attributes()
+{
+   return cAttributes;
+}
+
+void
+QpRecCell::column(TQP_UINT8 pColumn)
+{
+   cColumn = pColumn;
+}
+
+TQP_UINT8
+QpRecCell::column()
+{
+   return cColumn;
+}
+
+void
+QpRecCell::row(TQP_INT16 pRow)
+{
+   cRow = pRow;
+}
+
+TQP_INT16
+QpRecCell::row()
+{
+   return cRow;
+}
+
+int
+QpRecCell::loadCellInfo(QpIStream& pIn)
+{
+   pIn >> cColumn >> cPage >> cRow >> cAttributes;
+
+   TQP_DEBUG(" col " << (unsigned)cColumn << ", Page " << (unsigned)cPage
+            << ", Row " << cRow << ", Ref "
+            << /*???cellRef()
+            <<*/ ", Attr " << cAttributes
+           );
+
+   return 6;  // number of bytes consumed
+}
+
+//const char*
+//QpRecCell::cellRef()
+//{
+//  if( cCellRef == 0 )
+//  {
+//     cCellRef = new char[20]; // hardcoded len???
+//
+/// ??? what value should notebook param be?
+//     cellRef( cCellRef, 0, 0, cColumn, cRow ); //hardcoded page no. ?????
+//  }
+//
+//  return cCellRef;
+//
+
+void
+QpRecCell::cellRef(char* pText, QpTableNames& pTable, TQP_INT16 /*pNoteBook*/, TQP_UINT8 pPage, TQP_UINT8 pColumn, TQP_INT16 pRow)
+{
+//??? cope with relative/absolute references
+
+   std::stringstream lOut(pText, ios::out);
+   int       lPageRelative = pRow & 0x8000;
+   int       lColRelative  = pRow & 0x4000;
+   int       lRowRelative  = pRow & 0x2000;
+   TQP_UINT8  lCol          = (lColRelative ? cColumn + pColumn : pColumn);
+
+   // Sign bit for row is in bit 0x1000, so either set all top bits or lose all top bits
+   TQP_INT16  lRow = (lRowRelative ? cRow + (pRow & 0x1000 ? pRow | 0xE000 : pRow & 0x1FFF)
+                                  : pRow & 0x1FFF
+                    );
+
+   // Are we referencing a different page ?
+
+   if( lPageRelative && (pPage == 0) )
+   {
+      // no - page is zero relative to this one
+   }
+   else
+   if( pPage != cPage )
+   {
+      // yes - not relative & page is a different one
+
+      TQP_UINT8 lPage = ( lPageRelative ? pPage + cPage : pPage );
+
+      TQP_DEBUG("pTable.name((unsigned)lPage) = " <<  pTable.name((unsigned)lPage) << endl);
+
+      lOut << pTable.name((unsigned)lPage) << '!'; // is '!' compat with TQPRO???
+   }
+
+   if( !lColRelative )
+   {
+      lOut << '$';
+   }
+   if( lCol < 26 )
+   {
+      lOut << (char)('A' + lCol);
+   }
+   else
+   {
+      lOut << (char)('A' -1 + lCol / 26)
+           << (char)('A' + lCol % 26);
+   }
+
+   if( !lRowRelative )
+   {
+      lOut << '$';
+   }
+
+   lOut << (lRow & 0x1FFF) +1 << ends;
+}
+
+void
+QpRecCell::cellRef(char* pText, QpTableNames& pTable, QpIStream& pFormulaRef)
+{
+   TQP_INT16 lNoteBook;
+   pFormulaRef >> lNoteBook;
+
+   // block references (eg. A1..A9) have bit 0x1000 set
+
+   if( lNoteBook & 0x1000 )
+   {
+      TQP_UINT8 lFirstColumn;
+      TQP_UINT8 lFirstPage;
+      TQP_INT16 lFirstRow;
+      TQP_UINT8 lLastColumn;
+      TQP_UINT8 lLastPage;
+      TQP_INT16 lLastRow;
+
+      pFormulaRef >> lFirstColumn
+                  >> lFirstPage
+                  >> lFirstRow
+                  >> lLastColumn
+                  >> lLastPage
+                  >> lLastRow;
+
+      TQP_DEBUG("BlockRef: NoteBook " << lNoteBook
+               << ", 1st col " << lFirstColumn
+               << ", 1st page " << (unsigned)lFirstPage
+               << ", 1st row " << lFirstRow
+               << ", last col " << lLastColumn
+               << ", last page " << (unsigned)lLastPage
+               << ", last row " << lLastRow
+               << endl
+              );
+// ??? next few lines shouldn't just add rows together
+      cellRef( pText, pTable, lNoteBook, lFirstPage, lFirstColumn, lFirstRow );
+// ?? temp next line      strcat( pText, ".." );
+      strcat( pText, ":" );
+      cellRef( &pText[strlen(pText)], pTable, lNoteBook, lLastPage, lLastColumn, lLastRow );
+   }
+   else
+   {
+      TQP_UINT8 lColumn;
+      TQP_UINT8 lPage;
+      TQP_INT16 lRow;
+
+      pFormulaRef >> lColumn >> lPage >> lRow;
+
+      TQP_DEBUG("FormulaRef: NoteBook " << lNoteBook << ", Col " << (unsigned)lColumn
+               << ", Page " << (unsigned)lPage << ", Row " << lRow << endl
+              );
+
+// ??? sort out what to do about lNotebook
+// ??? next few lines shouldn't just add rows together
+      cellRef( pText, pTable, lNoteBook, lPage, lColumn, lRow );
+   }
+}
+
+// -----------------------------------------------------------------------
+
+QpRecBof::QpRecBof(TQP_INT16, QpIStream& pIn)
+   : QpRec( QpBof )
+{
+   pIn >> cFileFormat;
+
+   TQP_DEBUG("BOF fileformat=" << cFileFormat << endl);
+}
+
+QpRecBof::~QpRecBof()
+{
+}
+
+// -----------------------------------------------------------------------
+
+QpRecEof::QpRecEof(TQP_INT16, QpIStream&)
+   : QpRec( QpEof )
+{
+   TQP_DEBUG("EOF" << endl);
+}
+
+QpRecEof::~QpRecEof()
+{
+}
+
+
+// -----------------------------------------------------------------------
+
+QpRecRecalcMode::QpRecRecalcMode(TQP_INT16, QpIStream& pIn)
+   : QpRec( QpRecalcMode )
+{
+   TQP_INT8 lMode;
+
+   pIn >> lMode;
+
+   cMode = (MODE)(unsigned char) lMode;
+
+   TQP_DEBUG("Recalc Mode = "
+            << (int)lMode << ( cMode == Manual ? " (Manual)"
+                             : cMode == Background ? " (Background)"
+                             : cMode == Automatic  ? " (Automatic)"
+                             : " (Unknown)"
+                             )
+            << endl
+           );
+}
+
+QpRecRecalcMode::~QpRecRecalcMode()
+{
+}
+
+
+void
+QpRecRecalcMode::mode(MODE pMode)
+{
+   cMode = pMode;
+}
+
+QpRecRecalcMode::MODE
+QpRecRecalcMode::mode()
+{
+   return cMode;
+}
+
+
+// -----------------------------------------------------------------------
+
+QpRecRecalcOrder::QpRecRecalcOrder(TQP_INT16, QpIStream& pIn)
+   : QpRec( QpRecalcOrder )
+{
+   TQP_INT8 lOrder;
+
+   pIn >> lOrder;
+
+   cOrder = (ORDER)(unsigned char) lOrder;
+
+   TQP_DEBUG("Recalc Order = "
+            << (int)lOrder << ( cOrder == Natural ? " (Natural)"
+                              : cOrder == Column ? " (Column)"
+                              : cOrder == Row  ? " (Row)"
+                              : " (Unknown)"
+                              )
+            << endl
+           );
+}
+
+QpRecRecalcOrder::~QpRecRecalcOrder()
+{
+}
+
+
+void
+QpRecRecalcOrder::order(ORDER pOrder)
+{
+   cOrder = pOrder;
+}
+
+QpRecRecalcOrder::ORDER
+QpRecRecalcOrder::order()
+{
+   return cOrder;
+}
+
+
+// -----------------------------------------------------------------------
+
+QpRecEmptyCell::QpRecEmptyCell(TQP_INT16, QpIStream& pIn)
+   : QpRecCell( QpEmptyCell )
+{
+   TQP_DEBUG("Empty Cell - ");
+
+   loadCellInfo(pIn);
+
+   TQP_DEBUG(endl);
+}
+
+QpRecEmptyCell::~QpRecEmptyCell()
+{
+}
+
+
+// -----------------------------------------------------------------------
+
+QpRecIntegerCell::QpRecIntegerCell(TQP_INT16, QpIStream& pIn)
+   : QpRecCell( QpIntegerCell )
+{
+   TQP_DEBUG("Integer Cell - ");
+
+   loadCellInfo(pIn);
+
+   pIn >> cInt;
+
+   TQP_DEBUG(", Int " << cInt << endl);
+}
+
+QpRecIntegerCell::~QpRecIntegerCell()
+{
+}
+
+TQP_INT16
+QpRecIntegerCell::integer()
+{
+   return cInt;
+}
+
+// -----------------------------------------------------------------------
+
+QpRecFloatingPointCell::QpRecFloatingPointCell(TQP_INT16, QpIStream& pIn)
+   : QpRecCell( QpFloatingPointCell )
+{
+   TQP_DEBUG("Float Cell - ");
+
+   loadCellInfo(pIn);
+
+   pIn >> cValue;
+
+   TQP_DEBUG(", Value " << cValue << endl);
+}
+
+QpRecFloatingPointCell::~QpRecFloatingPointCell()
+{
+}
+
+TQP_INT64
+QpRecFloatingPointCell::value()
+{
+   return cValue;
+}
+
+// -----------------------------------------------------------------------
+
+QpRecLabelCell::QpRecLabelCell(TQP_INT16 pLen, QpIStream& pIn)
+   : QpRecCell( QpLabelCell )
+{
+   TQP_DEBUG("Label Cell - ");
+   int lLabelLen = pLen - loadCellInfo(pIn) - 1;
+
+   pIn >> cLabelPrefix;
+
+   cLabel = new char[lLabelLen];
+
+   pIn.read( cLabel, lLabelLen );
+
+   TQP_DEBUG(", Prefix " << cLabelPrefix << ", Label " << cLabel << endl);
+}
+
+QpRecLabelCell::~QpRecLabelCell()
+{
+   delete [] cLabel;
+   cLabel =  0;
+}
+
+char
+QpRecLabelCell::labelPrefix()
+{
+   return cLabelPrefix;
+}
+
+const char*
+QpRecLabelCell::label()
+{
+   return cLabel;
+}
+
+// -----------------------------------------------------------------------
+
+QpRecFormulaCell::QpRecFormulaCell(TQP_INT16 pLen, QpIStream& pIn)
+   : QpRecCell( QpFormulaCell )
+   , cFormula(0)
+{
+   TQP_DEBUG("Formula Cell - ");
+
+   int lFormulaLen = pLen - loadCellInfo(pIn);
+
+   pIn >> cLastValue;
+   lFormulaLen -= 8;
+
+   pIn >> cState;
+   lFormulaLen -= 2;
+
+   pIn >> cLen;
+   lFormulaLen -= 2;
+
+   pIn >> cCellRef;
+   lFormulaLen -= 2;
+
+   cFormula = new char[lFormulaLen];
+
+   pIn.read( cFormula, lFormulaLen );
+
+   TQP_DEBUG(", LastValue " << cLastValue << ", State " << cState << endl);
+   TQP_DEBUG("   FormulaLen " << cLen << ", CellRef " << cCellRef << ", Formula" << endl);
+#ifdef TQP_TRACE
+   Hexout( cFormula, lFormulaLen );
+#endif
+   TQP_DEBUG(endl);
+}
+
+QpRecFormulaCell::~QpRecFormulaCell()
+{
+   delete [] cFormula;
+   cFormula = 0;
+}
+
+const char*
+QpRecFormulaCell::formula()
+{
+   return cFormula;
+}
+
+TQP_INT16
+QpRecFormulaCell::formulaLen()
+{
+   return cLen;
+}
+
+TQP_INT16
+QpRecFormulaCell::formulaReferences()
+{
+   return cCellRef;
+}
+
+// -----------------------------------------------------------------------
+
+QpRecUnknown::QpRecUnknown(TQP_INT16 /*pType*/, TQP_INT16 pLen, QpIStream& pIn)
+   : QpRec( QpUnknown )
+{
+   TQP_DEBUG("Unknown Type " << pType << ", len " << pLen << endl);
+
+   if( pLen > 0 )
+   {
+      char* lBuf = new char[pLen];
+
+      pIn.read(lBuf, pLen);
+
+      delete [] lBuf;
+      lBuf = 0;
+   }
+}
+
+QpRecUnknown::~QpRecUnknown()
+{
+}
+
+// -----------------------------------------------------------------------
+
+QpRecBop::QpRecBop(TQP_INT16, QpIStream& pIn)
+   : QpRec( QpBop )
+{
+   pIn >> cPageIndex;
+   TQP_DEBUG("BOP: " << (unsigned)cPageIndex << endl);
+}
+
+QpRecBop::~QpRecBop()
+{
+}
+
+
+TQP_UINT8
+QpRecBop::pageIndex()
+{
+   return cPageIndex;
+}
+
+
+// -----------------------------------------------------------------------
+
+QpRecPageName::QpRecPageName(TQP_INT16, QpIStream& pIn)
+   : QpRec( QpPageName )
+{
+   pIn >> cPageName;
+
+   TQP_DEBUG("Page Name: " << cPageName << endl);
+}
+
+QpRecPageName::~QpRecPageName()
+{
+}
+
+const char*
+QpRecPageName::pageName()
+{
+   return cPageName;
+}
+// -----------------------------------------------------------------------
+
+QpRecPassword::QpRecPassword(TQP_INT16 pLen, QpIStream& pIn)
+   : QpRec( QpPassword )
+{
+   TQP_DEBUG("Password len = " << pLen << endl);
+
+   cPassword = new TQP_UINT8[pLen];
+
+   pIn.read( (char*)cPassword, pLen );
+
+   TQP_DEBUG("Password(Hex) = ");
+#ifdef TQP_TRACE
+   Hexout( (char*)cPassword, pLen );
+#endif
+   TQP_DEBUG(endl);
+}
+
+QpRecPassword::~QpRecPassword()
+{
+   delete [] cPassword;
+   cPassword = 0;
+}
+
+const TQP_UINT8*
+QpRecPassword::password()
+{
+   return cPassword;
+}
+