public void VisitDereference(DMASTDereference dereference)
{
var expr = DMExpression.Create(_dmObject, _proc, dereference.Expression, _inferredPath);
if (dereference.Type == DMASTDereference.DereferenceType.Direct && !Dereference.DirectConvertable(expr, dereference))
{
if (expr.Path == null)
{
throw new CompileErrorException(dereference.Location, $"Invalid property \"{dereference.Property}\"");
}
DMObject dmObject = DMObjectTree.GetDMObject(expr.Path.Value, false);
if (dmObject == null)
{
throw new CompileErrorException(dereference.Location, $"Type {expr.Path.Value} does not exist");
}
var property = dmObject.GetVariable(dereference.Property);
if (property != null)
{
Result = new Expressions.Dereference(dereference.Location, property.Type, expr, dereference.Conditional, dereference.Property);
}
else
{
var globalId = dmObject.GetGlobalVariableId(dereference.Property);
if (globalId != null)
{
property = DMObjectTree.Globals[globalId.Value];
Result = new Expressions.GlobalField(dereference.Location, property.Type, globalId.Value);
}
}
if (property == null)
{
throw new CompileErrorException(dereference.Location, $"Invalid property \"{dereference.Property}\" on type {dmObject.Path}");
}
if ((property.Value?.ValType & DMValueType.Unimplemented) == DMValueType.Unimplemented && !DMCompiler.Settings.SuppressUnimplementedWarnings)
{
DMCompiler.Warning(new CompilerWarning(dereference.Location, $"{dmObject.Path}.{dereference.Property} is not implemented and will have unexpected behavior"));
}
}
else
{
Result = new Expressions.Dereference(dereference.Location, null, expr, dereference.Conditional, dereference.Property);
}
}
private void EmitInitializationAssign(DMVariable variable, DMExpression expression)
{
if (variable.IsGlobal)
{
int?globalId = _currentObject.GetGlobalVariableId(variable.Name);
if (globalId == null)
{
throw new Exception($"Invalid global {_currentObject.Path}.{variable.Name}");
}
DMObjectTree.AddGlobalInitAssign(_currentObject, globalId.Value, expression);
}
else
{
Expressions.Field field = new Expressions.Field(Location.Unknown, variable);
Expressions.Assignment assign = new Expressions.Assignment(Location.Unknown, field, expression);
_currentObject.InitializationProcExpressions.Add(assign);
}
}
public override void EmitPushValue(DMObject dmObject, DMProc proc)
{
_path.EmitPushValue(dmObject, proc);
if (_container != null)
{
_container.EmitPushValue(dmObject, proc);
}
else
{
if (DMCompiler.Settings.NoStandard)
{
throw new CompileErrorException(Location, "Implicit locate() container is not available with --no-standard");
}
DMReference world = DMReference.CreateGlobal(dmObject.GetGlobalVariableId("world").Value);
proc.PushReferenceValue(world);
}
proc.Locate();
}