internal TCodeNameRecord(string aName) : base((int)xlr.CODENAME, new byte[0])
{
TExcelString Xs = new TExcelString(TStrLenLength.is16bits, aName, null, false);
Data = new byte[Xs.TotalSize()];
Xs.CopyToPtr(Data, 0);
}
internal TFileSharingRecord(bool aRecommendReadOnly, string aPassword, string aUser, bool PassIsHash) : base((int)xlr.FILESHARING, new byte[0])
{
if (aUser == null)
{
aUser = String.Empty;
}
TExcelString Xs = new TExcelString(TStrLenLength.is16bits, aUser, null, false);
Data = new byte[4 + Xs.TotalSize()];
RecommendReadOnly = aRecommendReadOnly;
if (PassIsHash)
{
if (aPassword == null || aPassword.Length == 0)
{
SetWord(2, 0);
}
else
{
if (aPassword.Length <= 4) //we will only use standard pass, which is what Excel 2010 uses.
{
SetWord(2, TCompactFramework.HexToNumber(aPassword));
}
}
}
else
{
SetPassword(aPassword);
}
Xs.CopyToPtr(Data, 4);
}
private byte[] Biff8Author()
{
TExcelString Xs = new TExcelString(TStrLenLength.is16bits, GetAuthor(), null, false);
byte[] bAuthor = new byte[Xs.TotalSize() + 1];
Xs.CopyToPtr(bAuthor, 0);
return(bAuthor);
}
internal override object GetValue(ICellList Cells)
{
TxBaseRecord MySelf = new TxBaseRecord(Id, Data);
int MyOfs = 6;
TExcelString XS = new TExcelString(TStrLenLength.is16bits, ref MySelf, ref MyOfs);
return(XS.Data);
}
internal TBoundSheetRecord(int aOptionFlags, string aName) : base((int)xlr.BOUNDSHEET, new byte[0])
{
TExcelString Xs = new TExcelString(TStrLenLength.is8bits, aName, null, false);
Data = new byte[6 + Xs.TotalSize()];
SetCardinal(0, 0);
SetWord(4, aOptionFlags);
Xs.CopyToPtr(Data, 6);
}
public override bool Equals(object o)
{
TExcelString x = o as TExcelString;
if (x == null)
{
return(false);
}
return((x.OptionFlags == OptionFlags) && (x.Data == Data) && (BitOps.CompareMem(x.RichTextFormats, RichTextFormats)) && (BitOps.CompareMem(x.FarEastData, x.FarEastData)));
}
internal override void SaveToXlsx(TOpenXmlWriter DataStream, int Row, TCellList CellList, bool Dates1904)
{
TxBaseRecord MySelf = new TxBaseRecord(Id, Data);
int MyOfs = 6;
TExcelString XS = new TExcelString(TStrLenLength.is16bits, ref MySelf, ref MyOfs);
DataStream.WriteAtt("t", "inlineStr");
DataStream.WriteStartElement("is");
DataStream.WriteRichText(XS, CellList.Workbook);
DataStream.WriteEndElement();
}
private byte[] GetFontData(byte[] Data)
{
string FontName = ReadString(Data[Data.Length - 1]);
TExcelString Xs = new TExcelString(TStrLenLength.is8bits, FontName, null, true);
byte[] Result = new byte[Data.Length + Xs.TotalSize() - 1]; //doesn't include len.
Array.Copy(Data, 0, Result, 0, Data.Length);
BitOps.SetWord(Result, 4, GetColor(Data[4]));
Xs.CopyToPtr(Result, Data.Length, false);
return(Result);
}
private static void WriteArrayObject(Stream ArrayData, object o)
{
if (o == null)
{
ArrayData.Write(new byte[9], 0, 9);
return;
}
if (o is double)
{
ArrayData.WriteByte(0x01);
byte[] b = BitConverter.GetBytes((double)o);
ArrayData.Write(b, 0, b.Length);
return;
}
string s = o as string;
if (s != null)
{
if (s.Length > 255)
{
s = s.Substring(0, 255);
}
TExcelString Xs = new TExcelString(TStrLenLength.is16bits, s, null, false);
ArrayData.WriteByte(0x02);
byte[] b = new byte[Xs.TotalSize()];
Xs.CopyToPtr(b, 0);
ArrayData.Write(b, 0, b.Length);
return;
}
if (o is bool)
{
ArrayData.WriteByte(0x04);
byte e = ((bool)o) ? (byte)1 : (byte)0;
ArrayData.WriteByte(e);
byte[] b = new byte[7];
ArrayData.Write(b, 0, b.Length);
return;
}
if (o is TFlxFormulaErrorValue)
{
ArrayData.WriteByte(0x10);
ArrayData.WriteByte((byte)((TFlxFormulaErrorValue)o));
byte[] b = new byte[7];
ArrayData.Write(b, 0, b.Length);
return;
}
XlsMessages.ThrowException(XlsErr.ErrBadToken, Convert.ToString(o.GetType()));
}
internal override object GetValue(ICellList Cells)
{
TxBaseRecord MySelf = new TxBaseRecord(Id, Data);
int MyOfs = 6;
TExcelString XS = new TExcelString(TStrLenLength.is16bits, ref MySelf, ref MyOfs);
byte[] b = new byte[2];
BitOps.ReadMem(ref MySelf, ref MyOfs, b);
TRTFRun[] RTFRuns = new TRTFRun[BitOps.GetWord(b, 0)];
for (int i = 0; i < RTFRuns.Length; i++)
{
BitOps.ReadMem(ref MySelf, ref MyOfs, b);
RTFRuns[i].FirstChar = BitOps.GetWord(b, 0);
BitOps.ReadMem(ref MySelf, ref MyOfs, b);
RTFRuns[i].FontIndex = BitOps.GetWord(b, 0);
}
return(new TRichString(XS.Data, RTFRuns, Cells.Workbook));
}
private static void Add(Stream Data, Stream ArrayData, TBaseParsedToken Token, ptg BaseToken, TParsedTokenList Tokens, TTokenOffset StreamPos, TFormulaType FmlaType, Int32List FuturePos)
{
if (IsError(BaseToken, FmlaType))
{
Data.WriteByte(0x1C); //PtgErr
Data.WriteByte(0x2A);
return;
}
Data.WriteByte((byte)Token.GetId);
switch (BaseToken)
{
case ptg.Exp:
TExp_Token exp = (TExp_Token)Token;
Biff8Utils.CheckRow(exp.Row);
Biff8Utils.CheckCol(exp.Col);
WriteWord(Data, exp.Row);
WriteWord(Data, exp.Col);
break;
case ptg.Tbl:
TTableObjToken tblo = Token as TTableObjToken;
if (tblo != null)
{
//no biff8 checks here. This numbers might be anything.
WriteWord(Data, tblo.Row);
WriteWord(Data, tblo.Col);
}
else
{
TTableToken tbl = (TTableToken)Token;
Biff8Utils.CheckRow(tbl.Row);
Biff8Utils.CheckCol(tbl.Col);
WriteWord(Data, tbl.Row);
WriteWord(Data, tbl.Col);
}
break;
case ptg.Add:
case ptg.Sub:
case ptg.Mul:
case ptg.Div:
case ptg.Power:
case ptg.Concat:
case ptg.LT:
case ptg.LE:
case ptg.EQ:
case ptg.GE:
case ptg.GT:
case ptg.NE:
case ptg.Isect:
case ptg.Union:
case ptg.Range:
case ptg.Uplus:
case ptg.Uminus:
case ptg.Percent:
case ptg.Paren:
case ptg.MissArg:
break;
case ptg.Str:
{
TStrDataToken tkd = Token as TStrDataToken;
string s = tkd.GetData();
if (s.Length > FlxConsts.Max_FormulaStringConstant)
{
FlxMessages.ThrowException(FlxErr.ErrStringConstantInFormulaTooLong, s, String.Empty);
}
TExcelString Xs = new TExcelString(TStrLenLength.is8bits, s, null, false);
byte[] b = new byte[Xs.TotalSize()];
Xs.CopyToPtr(b, 0);
Data.Write(b, 0, b.Length);
break;
}
case ptg.Attr:
WriteAttr(Data, Token, StreamPos, Tokens.SavePosition());
break;
/*
* case ptg.Sheet: //Can't happen, ConvertBiff8ToInternal skips them.
* case ptg.EndSheet: //Can't happen, ConvertBiff8ToInternal skips them.
* break;*/
case ptg.Err:
{
Data.WriteByte((byte)((TErrDataToken)Token).GetData());
break;
}
case ptg.Bool:
{
if (((TBoolDataToken)Token).GetData())
{
Data.WriteByte(1);
}
else
{
Data.WriteByte(0);
}
break;
}
case ptg.Int:
{
UInt16 a = (UInt16)((TIntDataToken)Token).GetData();
WriteWord(Data, a);
break;
}
case ptg.Num:
{
double d = ((TNumDataToken)Token).GetData();
Data.Write(BitConverter.GetBytes(d), 0, 8);
break;
}
case ptg.Array:
{
Data.Write(new byte[7], 0, 7);
TArrayDataToken tk = (TArrayDataToken)Token;
object[,] Arr = tk.GetData;
int ColCount = Arr.GetLength(1) - 1;
if (ColCount < 0 || ColCount > FlxConsts.Max_Columns97_2003)
{
FlxMessages.ThrowException(FlxErr.ErrInvalidCols, ColCount, FlxConsts.Max_Columns97_2003 + 1);
}
ArrayData.WriteByte((byte)(ColCount));
int RowCount = Arr.GetLength(0) - 1;
if (RowCount < 0 || RowCount > FlxConsts.Max_Rows)
{
FlxMessages.ThrowException(FlxErr.ErrInvalidRows, RowCount, FlxConsts.Max_Rows + 1);
}
WriteWord(ArrayData, RowCount);
for (int r = 0; r <= RowCount; r++)
{
for (int c = 0; c <= ColCount; c++)
{
WriteArrayObject(ArrayData, Arr[r, c]);
}
}
break;
}
case ptg.Func:
{
TBaseFunctionToken ft = (TBaseFunctionToken)Token;
TCellFunctionData fd = ft.GetFunctionData();
WriteWord(Data, fd.Index);
break;
}
case ptg.FuncVar:
{
TBaseFunctionToken ft = (TBaseFunctionToken)Token;
TCellFunctionData fd = ft.GetFunctionData();
if (!BackFromFutureToUserDef(Data, Tokens, FuturePos, ft, fd))
{
Data.WriteByte((byte)ft.ArgumentCount);
WriteWord(Data, fd.Index);
}
break;
}
case ptg.Name:
WriteWord(Data, ((TNameToken)Token).NameIndex);
WriteWord(Data, 0);
break;
case ptg.Ref:
case ptg.RefN:
case ptg.RefErr:
{
TRefToken reft = (TRefToken)Token;
WriteRef(Data, reft.CanHaveRelativeOffsets, reft.Row, reft.RowAbs, reft.Col, reft.ColAbs);
break;
}
case ptg.Area:
case ptg.AreaN:
case ptg.AreaErr:
{
TAreaToken areat = (TAreaToken)Token;
WriteArea(Data, areat.CanHaveRelativeOffsets, areat.Row1, areat.RowAbs1, areat.Col1, areat.ColAbs1, areat.Row2, areat.RowAbs2, areat.Col2, areat.ColAbs2);
break;
}
case ptg.MemArea:
{
WriteWord(Data, 0);
WriteWord(Data, 0);
StreamPos.Add((int)Data.Position, Tokens.SavePosition());
WriteWord(Data, 0);
TRefRange[] Range = ((TMemAreaToken)Token).Data;
WriteWord(ArrayData, Range.Length);
foreach (TRefRange OneRef in Range)
{
int r1 = Biff8Utils.CheckAndContractBiff8Row(OneRef.FirstRow);
int r2 = Biff8Utils.CheckAndContractBiff8Row(OneRef.LastRow);
int c1 = Biff8Utils.CheckAndContractBiff8Col(OneRef.FirstCol);
int c2 = Biff8Utils.CheckAndContractBiff8Col(OneRef.LastCol);
WriteWord(ArrayData, r1);
WriteWord(ArrayData, r2);
WriteWord(ArrayData, c1);
WriteWord(ArrayData, c2);
}
break;
}
case ptg.MemErr:
case ptg.MemNoMem:
WriteWord(Data, 0);
WriteWord(Data, 0);
StreamPos.Add((int)Data.Position, Tokens.SavePosition());
WriteWord(Data, 0);
break;
case ptg.MemFunc:
case ptg.MemAreaN:
case ptg.MemNoMemN:
StreamPos.Add((int)Data.Position, Tokens.SavePosition());
WriteWord(Data, 0);
break;
case ptg.NameX:
TNameXToken NameX = (TNameXToken)Token;
WriteWord(Data, NameX.FExternSheet);
WriteWord(Data, NameX.NameIndex);
WriteWord(Data, 0);
break;
case ptg.Ref3dErr:
case ptg.Ref3d:
TRef3dToken reft3d = (TRef3dToken)Token;
WriteWord(Data, reft3d.FExternSheet);
WriteRef(Data, reft3d.CanHaveRelativeOffsets, reft3d.Row, reft3d.RowAbs, reft3d.Col, reft3d.ColAbs);
break;
case ptg.Area3d:
case ptg.Area3dErr:
TArea3dToken areat3d = (TArea3dToken)Token;
WriteWord(Data, areat3d.FExternSheet);
WriteArea(Data, areat3d.CanHaveRelativeOffsets, areat3d.Row1, areat3d.RowAbs1, areat3d.Col1, areat3d.ColAbs1, areat3d.Row2, areat3d.RowAbs2, areat3d.Col2, areat3d.ColAbs2);
break;
default:
XlsMessages.ThrowException(XlsErr.ErrInternal); //All tokens here should exist
break;
}
}
