/// <summary>
/// Maps ErlRow to CLR row supplied by schema, either Dynamic or TypedRow
/// </summary>
public Row ErlTupleToRow(string schemaName, ErlTuple tuple, Schema schema)
{
var singleKey = schema.ExtraData[SCHEMA_KEY_COUNT].AsInt(0) < 2;
var row = Row.MakeRow(schema, schema.TypedRowType);
var i = -1;
foreach (var elm in enumErlResponseTuple(tuple, singleKey))
{
i++;
if (i == 0)
{
var thisname = tuple[0].ValueAsString;
if (!schemaName.EqualsOrdSenseCase(thisname))
{
throw new ErlDataAccessException(StringConsts.ERL_DS_CRUD_RESPONSE_SCHEMA_MISMATCH_ERROR.Args(thisname, schemaName));
}
continue;
}
//map fields now
if (i - 1 >= schema.FieldCount)
{
throw new ErlDataAccessException(StringConsts.ERL_DS_CRUD_RESPONSE_SCHEMA_FLD_COUNT_MISMATCH_ERROR.Args(schemaName, schema.Name));
}
var fdef = schema[i - 1];
var atr = fdef[m_Store.TargetName];
var erlType = atr.BackendType;
if (erlType.IsNullOrWhiteSpace())
{
throw new ErlDataAccessException(StringConsts.ERL_DS_INTERNAL_MAPPING_ERROR + "fielddef('{0}') has no backend type".Args(fdef.Name));
}
if (elm.IsNull())
{
row.SetFieldValue(fdef, null);
continue;
}
Tuple <Type, Func <IErlObject, object> > mapping;
if (ERL_TO_CLR_TYPEMAP.TryGetValue(erlType, out mapping))
{
object clrValue = null;
try
{
clrValue = mapping.Item2(elm);
}
catch (Exception error)
{
var err = "Schema '{0}' field '{1}' ({2}) cannot be converted from '{3}' to '{4}' format in record:\n {5}"
.Args(schemaName, fdef.Name, elm.ToString(), elm.GetType(), erlType, tuple.ToString());
App.Log.Write(new Log.Message
{
Type = Log.MessageType.TraceErl,
Topic = CoreConsts.ERLANG_TOPIC,
From = "SchemaMap.ErlTupleToRow({0})".Args(schemaName),
Text = err + error.ToMessageWithType(),
Exception = error
});
throw new ErlDataAccessException(err, inner: error);
}
row.SetFieldValue(fdef, clrValue);
}
else
{
var err = StringConsts.ERL_DS_INTERNAL_MAPPING_ERROR +
"erltype'{0}' not matched in the dict".Args(erlType);
throw new ErlDataAccessException(err);
}
}
return(row);
}
