internal static IErlObject ClrToErlValue(string dataType, object clrValue)
{
Func <object, IErlObject> fconv;
if (!CLR_TO_ERL_TYPEMAP.TryGetValue(dataType, out fconv))
{
throw new ErlDataAccessException(StringConsts.ERL_DS_INTERNAL_MAPPING_ERROR +
"ErlType '{0}' not found in the type dictionary".Args(dataType));
}
return(fconv(clrValue));
}
/// <summary>
/// Converts CLR row data into ErlTuple
/// </summary>
public ErlTuple RowToErlTuple(Row row, bool keysOnly = false)
{
var result = new ErlTuple();
result.Add(new ErlAtom(row.Schema.Name));
var keys = new List <IErlObject>();
foreach (var def in row.Schema)
{
var atr = def[m_Store.TargetName];
if (keysOnly && !atr.Key)
{
break;
}
if (keys != null && !atr.Key)
{
if (keys.Count > 1)
{
result.Add(new ErlTuple(keys, false));
}
else
{
foreach (var key in keys)
{
result.Add(key);
}
}
keys = null;
}
IErlObject erlValue = ErlAtom.Undefined;
var clrValue = row.GetFieldValue(def);
if (clrValue != null)
{
Func <object, IErlObject> fconv;
if (!CLR_TO_ERL_TYPEMAP.TryGetValue(atr.BackendType, out fconv))
{
throw new ErlDataAccessException(StringConsts.ERL_DS_INTERNAL_MAPPING_ERROR + "erltype'{0}' not matched in the dict".Args(atr.BackendType));
}
erlValue = fconv(clrValue);
}
if (keys != null)
{
keys.Add(erlValue);
}
else
{
result.Add(erlValue);
}
}
if (keys != null)
{
if (keys.Count > 1)
{
result.Add(new ErlTuple(keys, false));
}
else
{
foreach (var key in keys)
{
result.Add(key);
}
}
}
return(result);
}
