/// <summary>
/// Convert the value of a string into a capability...
/// </summary>
/// <param name="a_twon">Container type</param>
/// <param name="a_twty">Data type</param>
/// <param name="a_intptr">Point to the data</param>
/// <param name="a_iIndex">Index for item in the data</param>
/// <param name="a_szValue">CSV value to be used to set the data</param>
/// <returns>Empty string or an error string</returns>
public string SetIndexedItem(TWON a_twon, TWTY a_twty, IntPtr a_intptr, int a_iIndex, string a_szValue)
{
IntPtr intptr;
// Index by type...
switch (a_twty)
{
default:
return ("Set Capability: (unrecognized item type)..." + a_twty);
case TWTY.INT8:
{
// We do this to make sure the entire Item value is overwritten...
if (a_twon == TWON.ONEVALUE)
{
int i32Value = sbyte.Parse(a_szValue);
Marshal.StructureToPtr(i32Value, a_intptr, true);
return ("");
}
// These items have to be packed on the type sizes...
else
{
sbyte i8Value = sbyte.Parse(a_szValue);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(1 * a_iIndex));
Marshal.StructureToPtr(i8Value, intptr, true);
return ("");
}
}
case TWTY.INT16:
{
// We do this to make sure the entire Item value is overwritten...
if (a_twon == TWON.ONEVALUE)
{
int i32Value = short.Parse(a_szValue);
Marshal.StructureToPtr(i32Value, a_intptr, true);
return ("");
}
// These items have to be packed on the type sizes...
else
{
short i16Value = short.Parse(a_szValue);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(2 * a_iIndex));
Marshal.StructureToPtr(i16Value, intptr, true);
return ("");
}
}
case TWTY.INT32:
{
int i32Value = int.Parse(a_szValue);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(4 * a_iIndex));
Marshal.StructureToPtr(i32Value, intptr, true);
return ("");
}
case TWTY.UINT8:
{
// We do this to make sure the entire Item value is overwritten...
if (a_twon == TWON.ONEVALUE)
{
uint u32Value = byte.Parse(a_szValue);
Marshal.StructureToPtr(u32Value, a_intptr, true);
return ("");
}
// These items have to be packed on the type sizes...
else
{
byte u8Value = byte.Parse(a_szValue);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(1 * a_iIndex));
Marshal.StructureToPtr(u8Value, intptr, true);
return ("");
}
}
case TWTY.BOOL:
case TWTY.UINT16:
{
// We do this to make sure the entire Item value is overwritten...
if (a_twon == TWON.ONEVALUE)
{
uint u32Value = ushort.Parse(a_szValue);
Marshal.StructureToPtr(u32Value, a_intptr, true);
return ("");
}
else
{
ushort u16Value = ushort.Parse(a_szValue);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(2 * a_iIndex));
Marshal.StructureToPtr(u16Value, intptr, true);
return ("");
}
}
case TWTY.UINT32:
{
uint u32Value = uint.Parse(a_szValue);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(4 * a_iIndex));
Marshal.StructureToPtr(u32Value, intptr, true);
return ("");
}
case TWTY.FIX32:
{
TW_FIX32 twfix32 = default(TW_FIX32);
twfix32.Whole = (short)Convert.ToDouble(a_szValue);
twfix32.Frac = (ushort)((Convert.ToDouble(a_szValue) - (double)twfix32.Whole) * 65536.0);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(4 * a_iIndex));
Marshal.StructureToPtr(twfix32, intptr, true);
return ("");
}
case TWTY.FRAME:
{
TW_FRAME twframe = default(TW_FRAME);
string[] asz = CSV.Parse(a_szValue);
twframe.Left.Whole = (short)Convert.ToDouble(asz[0]);
twframe.Left.Frac = (ushort)((Convert.ToDouble(asz[0]) - (double)twframe.Left.Whole) * 65536.0);
twframe.Top.Whole = (short)Convert.ToDouble(asz[1]);
twframe.Top.Frac = (ushort)((Convert.ToDouble(asz[1]) - (double)twframe.Top.Whole) * 65536.0);
twframe.Right.Whole = (short)Convert.ToDouble(asz[2]);
twframe.Right.Frac = (ushort)((Convert.ToDouble(asz[2]) - (double)twframe.Right.Whole) * 65536.0);
twframe.Bottom.Whole = (short)Convert.ToDouble(asz[3]);
twframe.Bottom.Frac = (ushort)((Convert.ToDouble(asz[3]) - (double)twframe.Bottom.Whole) * 65536.0);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(16 * a_iIndex));
Marshal.StructureToPtr(twframe, intptr, true);
return ("");
}
case TWTY.STR32:
{
TW_STR32 twstr32 = default(TW_STR32);
twstr32.Set(a_szValue);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(34 * a_iIndex));
Marshal.StructureToPtr(twstr32, intptr, true);
return ("");
}
case TWTY.STR64:
{
TW_STR64 twstr64 = default(TW_STR64);
twstr64.Set(a_szValue);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(66 * a_iIndex));
Marshal.StructureToPtr(twstr64, intptr, true);
return ("");
}
case TWTY.STR128:
{
TW_STR128 twstr128 = default(TW_STR128);
twstr128.Set(a_szValue);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(130 * a_iIndex));
Marshal.StructureToPtr(twstr128, intptr, true);
return ("");
}
case TWTY.STR255:
{
TW_STR255 twstr255 = default(TW_STR255);
twstr255.Set(a_szValue);
intptr = (IntPtr)((ulong)a_intptr + (ulong)(256 * a_iIndex));
Marshal.StructureToPtr(twstr255, intptr, true);
return ("");
}
}
}
/// <summary>
/// The common start to every capability csv...
/// </summary>
/// <param name="a_cap">Capability number</param>
/// <param name="a_twon">Container</param>
/// <param name="a_twty">Data type</param>
/// <returns></returns>
private CSV Common(CAP a_cap, TWON a_twon, TWTY a_twty)
{
CSV csv = new CSV();
// Add the capability...
string szCap = a_cap.ToString();
if (!szCap.Contains("_"))
{
szCap = "0x" + ((ushort)a_cap).ToString("X");
}
// Build the CSV...
csv.Add(szCap);
csv.Add("TWON_" + a_twon);
csv.Add("TWTY_" + a_twty);
// And return it...
return (csv);
}
