/// <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); }