public void VisitProcDefinition(DMASTProcDefinition procDefinition)
{
foreach (DMASTDefinitionParameter parameter in procDefinition.Parameters)
{
SimplifyExpression(ref parameter.Value);
}
procDefinition.Body?.Visit(this);
}
public void ProcessProcDefinition(DMASTProcDefinition procDefinition)
{
if (procDefinition.Body == null)
{
return;
}
foreach (DMASTDefinitionParameter parameter in procDefinition.Parameters)
{
string parameterName = parameter.Name;
if (!_proc.TryAddLocalVariable(parameterName, parameter.ObjectType))
{
DMCompiler.Error(new CompilerError(procDefinition.Location, $"Duplicate argument \"{parameterName}\" on {procDefinition.ObjectPath}/proc/{procDefinition.Name}()"));
continue;
}
if (parameter.Value != null) //Parameter has a default value
{
string afterDefaultValueCheck = _proc.NewLabelName();
DMReference parameterRef = _proc.GetLocalVariableReference(parameterName);
//Don't set parameter to default if not null
_proc.PushReferenceValue(parameterRef);
_proc.IsNull();
_proc.JumpIfFalse(afterDefaultValueCheck);
//Set default
try {
DMExpression.Emit(_dmObject, _proc, parameter.Value, parameter.ObjectType);
} catch (CompileErrorException e) {
DMCompiler.Error(e.Error);
}
_proc.Assign(parameterRef);
_proc.Pop();
_proc.AddLabel(afterDefaultValueCheck);
}
}
ProcessBlockInner(procDefinition.Body);
_proc.ResolveLabels();
}
public void ProcessProcDefinition(DMASTProcDefinition procDefinition)
{
string procName = procDefinition.Name;
DMObject dmObject = _currentObject;
try {
if (procDefinition.ObjectPath.HasValue)
{
dmObject = DMObjectTree.GetDMObject(_currentObject.Path.Combine(procDefinition.ObjectPath.Value));
}
if (!procDefinition.IsOverride && dmObject.HasProc(procName))
{
throw new CompileErrorException(procDefinition.Location, $"Type {dmObject.Path} already has a proc named \"{procName}\"");
}
DMProc proc;
if (procDefinition.ObjectPath == null)
{
if (DMObjectTree.TryGetGlobalProc(procDefinition.Name, out _))
{
throw new CompileErrorException(new CompilerError(procDefinition.Location, $"proc {procDefinition.Name} is already defined in global scope"));
}
proc = DMObjectTree.CreateDMProc(dmObject, procDefinition);
DMObjectTree.AddGlobalProc(proc.Name, proc.Id);
}
else
{
proc = DMObjectTree.CreateDMProc(dmObject, procDefinition);
dmObject.AddProc(procName, proc);
}
if (procDefinition.Body != null)
{
foreach (var stmt in GetStatements(procDefinition.Body))
{
// TODO multiple var definitions.
if (stmt is DMASTProcStatementVarDeclaration varDeclaration && varDeclaration.IsGlobal)
{
DMVariable variable = proc.CreateGlobalVariable(varDeclaration.Type, varDeclaration.Name, varDeclaration.IsConst);
variable.Value = new Expressions.Null(varDeclaration.Location);
if (varDeclaration.Value != null)
{
DMVisitorExpression._scopeMode = "static";
DMExpression expression = DMExpression.Create(dmObject, proc, varDeclaration.Value, varDeclaration.Type);
DMVisitorExpression._scopeMode = "normal";
DMObjectTree.AddGlobalInitAssign(dmObject, proc.GetGlobalVariableId(varDeclaration.Name).Value, expression);
}
}
}
}
if (procDefinition.IsVerb && (dmObject.IsSubtypeOf(DreamPath.Atom) || dmObject.IsSubtypeOf(DreamPath.Client)) && !DMCompiler.Settings.NoStandard)
{
Expressions.Field field = new Expressions.Field(Location.Unknown, dmObject.GetVariable("verbs"));
DreamPath procPath = new DreamPath(".proc/" + procName);
Expressions.Append append = new Expressions.Append(Location.Unknown, field, new Expressions.Path(Location.Unknown, procPath));
dmObject.InitializationProcExpressions.Add(append);
}
} catch (CompileErrorException e) {
DMCompiler.Error(e.Error);
}
}
public string Hash(DMASTProcDefinition procdef)
{
return($"PD-{procdef.ObjectPath}-{procdef.IsOverride}-{procdef.Name}");
}
public void Travel(DMASTProcDefinition procdef)
{
VisitDefine(procdef);
}
