//============================================================================
/// <summary>
/// Gets the XML representation of a <see cref="TTypedValue"/> or descendant.
/// </summary>
/// <param name="value">The typed value to be formatted.</param>
/// <param name="startIndent">Formatting indentation space count. -1 = no indentation</param>
/// <param name="tab">Number of spaces in each tab</param>
/// <returns>The string containing the XML text.</returns>
//============================================================================
public override String getText(TTypedValue value, int startIndent, int tab)
{
int nextIndent;
String sIndent;
if (startIndent > -1)
{
nextIndent = startIndent;
sIndent = new String(' ', nextIndent);
}
else
{
nextIndent = -1;
sIndent = "";
}
StringBuilder sbuf = new StringBuilder(sIndent);
sbuf.Append("<type name=\"");
sbuf.Append(value.Name);
sbuf.Append("\"");
sbuf.Append(writeFieldInfo(value, nextIndent, tab));
if (!value.isScalar())
{
sbuf.Append(sIndent);
sbuf.Append("</type>");
}
return(sbuf.ToString());
}
//============================================================================
/// <summary>
///
/// </summary>
/// <param name="baseValue"></param>
/// <param name="Agg"></param>
/// <param name="decplaces"></param>
//============================================================================
public TOutputScalar(TTypedValue baseValue, TGenericReporter.AggregType Agg, int decplaces)
{
// None Sum Mean Max Min
COLUMNTYPES = new TTypedValue.TBaseType[12, 5] {
{ TTypedValue.TBaseType.ITYPE_EMPTY, TTypedValue.TBaseType.ITYPE_EMPTY, TTypedValue.TBaseType.ITYPE_EMPTY, TTypedValue.TBaseType.ITYPE_EMPTY, TTypedValue.TBaseType.ITYPE_EMPTY },
{ TTypedValue.TBaseType.ITYPE_INT1, TTypedValue.TBaseType.ITYPE_INT4, TTypedValue.TBaseType.ITYPE_DOUBLE, TTypedValue.TBaseType.ITYPE_INT1, TTypedValue.TBaseType.ITYPE_INT1 },
{ TTypedValue.TBaseType.ITYPE_INT2, TTypedValue.TBaseType.ITYPE_INT4, TTypedValue.TBaseType.ITYPE_DOUBLE, TTypedValue.TBaseType.ITYPE_INT2, TTypedValue.TBaseType.ITYPE_INT2 },
{ TTypedValue.TBaseType.ITYPE_INT4, TTypedValue.TBaseType.ITYPE_INT4, TTypedValue.TBaseType.ITYPE_DOUBLE, TTypedValue.TBaseType.ITYPE_INT4, TTypedValue.TBaseType.ITYPE_INT4 },
{ TTypedValue.TBaseType.ITYPE_INT8, TTypedValue.TBaseType.ITYPE_INT8, TTypedValue.TBaseType.ITYPE_DOUBLE, TTypedValue.TBaseType.ITYPE_INT8, TTypedValue.TBaseType.ITYPE_INT8 },
{ TTypedValue.TBaseType.ITYPE_SINGLE, TTypedValue.TBaseType.ITYPE_SINGLE, TTypedValue.TBaseType.ITYPE_SINGLE, TTypedValue.TBaseType.ITYPE_SINGLE, TTypedValue.TBaseType.ITYPE_SINGLE },
{ TTypedValue.TBaseType.ITYPE_DOUBLE, TTypedValue.TBaseType.ITYPE_DOUBLE, TTypedValue.TBaseType.ITYPE_DOUBLE, TTypedValue.TBaseType.ITYPE_DOUBLE, TTypedValue.TBaseType.ITYPE_DOUBLE },
{ TTypedValue.TBaseType.ITYPE_CHAR, TTypedValue.TBaseType.ITYPE_CHAR, TTypedValue.TBaseType.ITYPE_CHAR, TTypedValue.TBaseType.ITYPE_CHAR, TTypedValue.TBaseType.ITYPE_CHAR }, //char
{ TTypedValue.TBaseType.ITYPE_BOOL, TTypedValue.TBaseType.ITYPE_INT4, TTypedValue.TBaseType.ITYPE_DOUBLE, TTypedValue.TBaseType.ITYPE_BOOL, TTypedValue.TBaseType.ITYPE_BOOL }, //boolean
{ TTypedValue.TBaseType.ITYPE_CHAR, TTypedValue.TBaseType.ITYPE_CHAR, TTypedValue.TBaseType.ITYPE_CHAR, TTypedValue.TBaseType.ITYPE_CHAR, TTypedValue.TBaseType.ITYPE_CHAR }, //wchar
{ TTypedValue.TBaseType.ITYPE_STR, TTypedValue.TBaseType.ITYPE_STR, TTypedValue.TBaseType.ITYPE_STR, TTypedValue.TBaseType.ITYPE_STR, TTypedValue.TBaseType.ITYPE_STR }, //string
{ TTypedValue.TBaseType.ITYPE_STR, TTypedValue.TBaseType.ITYPE_STR, TTypedValue.TBaseType.ITYPE_STR, TTypedValue.TBaseType.ITYPE_STR, TTypedValue.TBaseType.ITYPE_STR }
}; //wstring
if (!baseValue.isScalar())
{
throw (new ApplicationException("Cannot create non-scalar output columns"));
}
baseType = COLUMNTYPES[(int)baseValue.baseType(), (int)Agg]; //Note that the type of the output can depend on the aggregation
Units = baseValue.units();
Aggreg = Agg;
decPl = decplaces;
Clear(); //init values
}
//=========================================================================
/// <summary>
/// Writes the srcValue to destValue.
/// </summary>
/// <param name="srcValue">The source value.</param>
/// <param name="destValue">The destination item.</param>
//=========================================================================
private void writeData(TTypedValue srcValue, TTypedValue destValue)
{
uint Idx;
if (destValue.isScalar())
{
if (srcValue != null)
{
destValue.setValue(srcValue);
}
else if ((destValue.baseType() >= TTypedValue.TBaseType.ITYPE_INT1) && (destValue.baseType() <= TTypedValue.TBaseType.ITYPE_DOUBLE))
{
destValue.setValue(0);
}
else
{
destValue.setValue("");
}
}
else if (destValue.isArray())
{
if (srcValue == null)
{
destValue.setElementCount(0);
}
else
{
destValue.setElementCount(srcValue.count());
for (Idx = 1; Idx <= srcValue.count(); Idx++)
{
writeData(srcValue.item(Idx), destValue.item(Idx));
}
}
}
else // record
{
for (Idx = 1; Idx <= destValue.count(); Idx++)
{
writeData(srcValue.member(destValue.item(Idx).Name), destValue.item(Idx));
}
}
}
//=====================================================================
/// <summary>
///
/// </summary>
/// <param name="value"></param>
/// <returns></returns>
public string updateValue(string value)
{
string tmp = value.Replace("\n", "");
if (tmp.Equals(""))
{
value = DefaultValue;
}
//when this is a numeric value check it's range
if ((_typedValue.isScalar()) && (!_typedValue.isTextType()) && (_typedValue.baseType() != TTypedValue.TBaseType.ITYPE_BOOL))
{
try
{
double dValue = Convert.ToDouble(value);
if (TypedValue is TInitValue)
{
TInitValue initValue = TypedValue as TInitValue;
if (dValue > initValue.getMax().asDouble())
{
//value = initValue.getMax().asString();
value = DefaultValue;
}
if (dValue < initValue.getMin().asDouble())
{
//value = initValue.getMin().asString();
value = DefaultValue;
}
}
}
catch
{
value = Value;
}
}
_typedValue.setValue(value);
return(value);
}
//============================================================================
/// <summary>
/// Formats the xml text for the 'field' or 'element' description of the typed
/// value stored as a TPropertyInfo or TDriverInfo.
/// </summary>
/// <param name="attrInfo">The TypedValue attribute.</param>
/// <param name="indent">Indentation in chars.</param>
/// <param name="tab">Number of spaces in each tab</param>
/// <returns>XML text for the field</returns>
//============================================================================
protected override String writeFieldInfo(TTypedValue attrInfo, int indent, int tab)
{
uint i;
uint iFirst;
int oneIndent;
int nextIndent;
int startIndent;
String CR = "";
//determine how much to indent this description
oneIndent = 0;
startIndent = 0;
if (indent > -1)
{
oneIndent = tab;
startIndent = indent;
CR = "\r\n";
}
nextIndent = indent;
String sIndent = new String(' ', startIndent + oneIndent);
StringBuilder xml = new StringBuilder("");
xml.Append(" kind=\"" + attrInfo.typeName() + "\"");
if (attrInfo.isArray())
{
xml.Append(" array=\"T\"");
}
if ((attrInfo.units().Length > 0) && (attrInfo.units()[0] != '-'))
{
xml.Append(" unit=\"" + attrInfo.units() + "\"");
}
xml.Append(">" + CR);
//if a scalar or array of scalars then write the defval|minval|maxval elements
if (attrInfo.isScalar() || (attrInfo.isArray() && attrInfo.baseType() == TTypedValue.TBaseType.ITYPE_DEF))
{
TInitValue initInfo = new TInitValue(attrInfo);
if (initInfo != null)
{
if (initInfo.getDefault() != null)
{
xml.Append(sIndent + "<defval>" + initInfo.getDefault().asEscapedString() + "</defval>" + CR);
}
if (initInfo.getMin() != null)
{
xml.Append(sIndent + "<minval>" + initInfo.getMin().asEscapedString() + "</minval>" + CR);
}
if (initInfo.getMax() != null)
{
xml.Append(sIndent + "<maxval>" + initInfo.getMax().asEscapedString() + "</maxval>" + CR);
}
}
}
//now nest into the fields/elements
sIndent = new String(' ', startIndent);
if (!attrInfo.isScalar())
{
// Special handling for non-scalar arrays of length 0, to ensure type definition is output
iFirst = (uint)((attrInfo.isArray() && attrInfo.count() == 0) ? 0 : 1);
for (i = iFirst; i <= attrInfo.count(); i++)
{ //for each child field
if (attrInfo.isArray() && attrInfo.baseType() == TTypedValue.TBaseType.ITYPE_DEF)
{
xml.Append(sIndent + "<element");
xml.Append(writeFieldInfo(attrInfo.item(i), nextIndent, oneIndent));
xml.Append(sIndent + "</element>" + CR);
}
else if (attrInfo.isRecord())
{
xml.Append(sIndent + "<field name=\"" + attrInfo.item(i).Name + "\"");
xml.Append(writeFieldInfo(attrInfo.item(i), nextIndent, oneIndent));
xml.Append(sIndent + "</field>" + CR);
}
}
}
return(xml.ToString());
}
//============================================================================
/// <summary>
/// Formats the xml text for the 'field' or 'element' description of the typed
/// value stored as a TTypedValue.
/// </summary>
/// <param name="attrInfo"></param>
/// <param name="indent"></param>
/// <param name="tab">Number of spaces in each tab</param>
/// <returns>Buffer containing the text</returns>
/// N.Herrmann Apr 2002
//============================================================================
protected override String writeFieldInfo(TTypedValue attrInfo, int indent, int tab)
{
String elementType;
uint i;
int nextIndent;
int oneIndent;
String CR = "";
TTypedValue firstElement;
String sIndent = "";
//determine how much to indent this description
oneIndent = 0;
nextIndent = -1;
if (indent > -1)
{
CR = Environment.NewLine;
oneIndent = tab;
nextIndent = indent + oneIndent;
sIndent = new String(' ', nextIndent); //begin at this level
}
StringBuilder xml = new StringBuilder("");
if (attrInfo.baseType() != TBaseType.ITYPE_DEF)
{
xml.Append(" kind=\"" + attrInfo.typeName() + "\"");
}
if (attrInfo.isArray())
{
xml.Append(" array=\"T\"");
}
if ((attrInfo.units().Length > 0) && (attrInfo.units()[0] != '-'))
{
xml.Append(" unit=\"" + attrInfo.units() + "\"");
}
//now nest into the fields/elements for this DDML type
if (!attrInfo.isScalar())
{
xml.Append(">" + CR);
if (attrInfo.isArray() && (attrInfo.baseType() == TBaseType.ITYPE_DEF)) //an array will only show the first child for DDML
{
if (attrInfo.count() == 0)
{
firstElement = attrInfo.item(0);
}
else
{
firstElement = attrInfo.item(1);
}
elementType = "element";
xml.Append(sIndent + "<" + elementType);
xml.Append(writeFieldInfo(firstElement, nextIndent, oneIndent));
if (!firstElement.isScalar())
{
xml.Append(sIndent + "</" + elementType + ">" + CR);
}
}
else if (attrInfo.isRecord())
{
for (i = 1; i <= attrInfo.count(); i++) //for each child field
{
elementType = "field";
xml.Append(sIndent + "<" + elementType + " name=\"" + attrInfo.item(i).Name + "\"");
xml.Append(writeFieldInfo(attrInfo.item(i), nextIndent, oneIndent));
if (!attrInfo.item(i).isScalar())
{
xml.Append(sIndent + "</" + elementType + ">" + CR);
}
}
}
}
else
{
xml.Append("/>" + CR);
}
return(xml.ToString());
}
//==============================================================================
/// <summary>
/// Recursive logic for the AggregateValues routine
/// For a scalar value, finds the corresponding output column and updates it.
/// For an array or collection, recurses into each element or member.
/// </summary>
/// <param name="aValue"></param>
/// <param name="aTree"></param>
//==============================================================================
private void aggregateValue(TTypedValue aValue, TValTree aTree)
{
int iColNo;
int i;
int oldLen;
int parentId;
if (aTree.varId < 0)
{ // Hasn't been defined yet...
if (aTree.parent != null)
{
parentId = aTree.parent.varId;
}
else
{
parentId = -1;
}
aTree.varId = defineVariable(aTree.FullColumnName(), (TDDMLValue)aValue, parentId, (int)aTree.index, aTree.specifier);
}
if (aValue.isScalar()) // Scalar - we store or summarise the
{ // data
if (aTree.colNo < 0) // Doesn't have a column number yet...
{
aTree.colNo = FColumns.Count;
TOutputScalar aScalar = new TOutputScalar(aValue, aTree.specifier.Aggreg, aTree.specifier.iDecPl);
aScalar.Name = aTree.FullColumnName();
FColumns.Add(aScalar);
}
iColNo = aTree.colNo;
FColumns[iColNo].Update(aValue);
}
else // Array or collection - recurse
{
if (aValue.count() > aTree.subTrees.Count)
{ // Need to add new subTrees
oldLen = aTree.subTrees.Count;
//SetLength(aTree.subTrees, aValue.count());
for (i = oldLen; i < aValue.count(); i++)
//for (i = oldLen; i <= aTree.subTrees.Count - 1; i++)
{
aTree.subTrees.Add(new TValTree(aTree, aTree.specifier));
aTree.subTrees[i].index = (uint)i + 1;
if (aValue.isArray())
{
aTree.subTrees[i].columnName = "[" + aTree.subTrees[i].index.ToString() + "]";
}
else
{
if (aValue.isRecord())
{
aTree.subTrees[i].columnName = ":" + aValue.item((uint)aTree.subTrees[i].index).Name;
}
}
aTree.subTrees[i].varId = defineVariable(aTree.subTrees[i].FullColumnName(),
(TDDMLValue)(aValue.item(aTree.subTrees[i].index)),
aTree.varId, (int)aTree.subTrees[i].index,
aTree.subTrees[i].specifier);
}
}
for (i = 1; i <= aValue.count(); i++)
{
aggregateValue(aValue.item((uint)i), aTree.subTrees[i - 1]);
}
}
}
//============================================================================
/// <summary>
/// Writes the SDML value as XML.
/// </summary>
/// <param name="attrInfo">The typed value to use.</param>
/// <param name="indent">Indent spaces to use. -1 = no indent.</param>
/// <param name="tab">Number of spaces in each tab</param>
/// <returns>The XML for the SDML value.</returns>
//============================================================================
protected override String writeFieldInfo(TTypedValue attrInfo, int indent, int tab)
{
uint i;
int oneIndent;
int nextIndent;
int startIndent;
String CR = "";
//determine how much to indent this description
oneIndent = 0;
startIndent = 0;
if (indent > -1)
{
oneIndent = tab;
startIndent = indent;
CR = "\r\n";
}
String sIndent = new String(' ', startIndent); //begin at this level
nextIndent = indent + oneIndent;
StringBuilder xml = new StringBuilder("");
if (attrInfo.baseType() != TTypedValue.TBaseType.ITYPE_DEF)
{
xml.Append(" kind=\"" + attrInfo.typeName() + "\"");
}
if (attrInfo.isArray())
{
xml.Append(" array=\"T\"");
}
if ((attrInfo.units().Length > 0) && (attrInfo.units()[0] != '-'))
{
xml.Append(" unit=\"" + attrInfo.units() + "\"");
}
xml.Append(">" + CR);
if (attrInfo.isScalar()) // Scalars - use a <val> element
{
xml.Append(sIndent + "<val>" + scalarString(attrInfo) + "</val>" + CR);
}
else
{
//now nest into the fields/elements
for (i = 1; i <= attrInfo.count(); i++)
{
if (attrInfo.isArray() && (attrInfo.baseType() != TTypedValue.TBaseType.ITYPE_DEF))
{
xml.Append(new String(' ', oneIndent) + "<val>" + scalarString(attrInfo.item(i)) + "</val>" + CR); // Scalar array, indented format
}
else if (attrInfo.isArray()) // All other arrays
{
xml.Append(sIndent + "<element"
+ writeFieldInfo(attrInfo.item(i), nextIndent, oneIndent)
+ sIndent + "</element>" + CR);
}
else if (attrInfo.isRecord()) // Records
{
xml.Append(sIndent + "<field name=\"" + attrInfo.item(i).Name + "\""
+ writeFieldInfo(attrInfo.item(i), nextIndent, oneIndent)
+ sIndent + "</field>" + CR);
}
}
}
return(xml.ToString());
}