public void ProcessStatementSet(DMASTProcStatementSet statementSet) { //TODO: Proc attributes switch (statementSet.Attribute.ToLower()) { case "waitfor": { if (!DMExpression.TryConstant(_dmObject, _proc, statementSet.Value, out var constant)) { throw new CompileErrorException(statementSet.Location, $"waitfor attribute should be a constant"); } _proc.WaitFor(constant.IsTruthy()); break; } case "opendream_unimplemented": { if (!DMExpression.TryConstant(_dmObject, _proc, statementSet.Value, out var constant)) { throw new CompileErrorException(statementSet.Location, $"opendream_unimplemented attribute should be a constant"); } _proc.Unimplemented = constant.IsTruthy(); break; } } }
public void ProcessStatementSet(DMASTProcStatementSet statementSet) { var attribute = statementSet.Attribute.ToLower(); if (!DMExpression.TryConstant(_dmObject, _proc, statementSet.Value, out var constant)) { throw new CompileErrorException(statementSet.Location, $"{attribute} attribute should be a constant"); } switch (statementSet.Attribute.ToLower()) { case "waitfor": { _proc.WaitFor(constant.IsTruthy()); break; } case "opendream_unimplemented": { if (constant.IsTruthy()) { _proc.Attributes |= ProcAttributes.Unimplemented; } else { _proc.Attributes &= ~ProcAttributes.Unimplemented; } break; } case "hidden": if (constant.IsTruthy()) { _proc.Attributes |= ProcAttributes.Hidden; } else { _proc.Attributes &= ~ProcAttributes.Hidden; } if (!DMCompiler.Settings.SuppressUnimplementedWarnings) { DMCompiler.Warning(new CompilerWarning(statementSet.Location, "set hidden is not implemented")); } break; case "popup_menu": if (constant.IsTruthy()) // The default is to show it so we flag it if it's hidden { _proc.Attributes &= ~ProcAttributes.HidePopupMenu; } else { _proc.Attributes |= ProcAttributes.HidePopupMenu; } if (!DMCompiler.Settings.SuppressUnimplementedWarnings) { DMCompiler.Warning(new CompilerWarning(statementSet.Location, "set popup_menu is not implemented")); } break; case "instant": if (constant.IsTruthy()) { _proc.Attributes |= ProcAttributes.Instant; } else { _proc.Attributes &= ~ProcAttributes.Instant; } if (!DMCompiler.Settings.SuppressUnimplementedWarnings) { DMCompiler.Warning(new CompilerWarning(statementSet.Location, "set instant is not implemented")); } break; case "background": if (constant.IsTruthy()) { _proc.Attributes |= ProcAttributes.Background; } else { _proc.Attributes &= ~ProcAttributes.Background; } if (!DMCompiler.Settings.SuppressUnimplementedWarnings) { DMCompiler.Warning(new CompilerWarning(statementSet.Location, "set background is not implemented")); } break; case "name": DMASTConstantString name = statementSet.Value as DMASTConstantString; if (name is null) { throw new CompileErrorException(statementSet.Location, "bad text"); } _proc.VerbName = name.Value; if (!DMCompiler.Settings.SuppressUnimplementedWarnings) { DMCompiler.Warning(new CompilerWarning(statementSet.Location, "set name is not implemented")); } break; case "category": DMASTConstantString category = statementSet.Value as DMASTConstantString; if (category is null) { throw new CompileErrorException(statementSet.Location, "bad text"); } _proc.VerbCategory = category.Value; if (!DMCompiler.Settings.SuppressUnimplementedWarnings) { DMCompiler.Warning(new CompilerWarning(statementSet.Location, "set category is not implemented")); } break; case "desc": DMASTConstantString desc = statementSet.Value as DMASTConstantString; if (desc is null) { throw new CompileErrorException(statementSet.Location, "bad text"); } _proc.VerbDesc = desc.Value; if (!DMCompiler.Settings.SuppressUnimplementedWarnings) { DMCompiler.Warning(new CompilerWarning(statementSet.Location, "set desc is not implemented")); } break; case "invisibility": // The ref says 0-101 for atoms and 0-100 for verbs // BYOND doesn't clamp the actual var value but it does seem to treat out-of-range values as their extreme DMASTConstantFloat invisFloat = statementSet.Value as DMASTConstantFloat; if (invisFloat is null) { DMASTConstantInteger invisInt = statementSet.Value as DMASTConstantInteger; if (invisInt is null) { throw new CompileErrorException(statementSet.Location, "bad num"); } _proc.Invisibility = Convert.ToSByte(Math.Clamp(invisInt.Value, 0, 100)); } else { _proc.Invisibility = Convert.ToSByte(Math.Clamp(Math.Floor(invisFloat.Value), 0, 100)); } if (!DMCompiler.Settings.SuppressUnimplementedWarnings) { DMCompiler.Warning(new CompilerWarning(statementSet.Location, "set invisibility is not implemented")); } break; case "src": if (!DMCompiler.Settings.SuppressUnimplementedWarnings) { DMCompiler.Warning(new CompilerWarning(statementSet.Location, "set src is not implemented")); } break; } }
public void ProcessStatementSet(DMASTProcStatementSet statementSet) { var attribute = statementSet.Attribute.ToLower(); // TODO deal with "src" if (!DMExpression.TryConstant(_dmObject, _proc, statementSet.Value, out var constant) && attribute != "src") { throw new CompileErrorException(statementSet.Location, $"{attribute} attribute should be a constant"); } switch (statementSet.Attribute.ToLower()) { case "waitfor": { _proc.WaitFor(constant.IsTruthy()); break; } case "opendream_unimplemented": { if (constant.IsTruthy()) { _proc.Attributes |= ProcAttributes.Unimplemented; } else { _proc.Attributes &= ~ProcAttributes.Unimplemented; } break; } case "hidden": if (constant.IsTruthy()) { _proc.Attributes |= ProcAttributes.Hidden; } else { _proc.Attributes &= ~ProcAttributes.Hidden; } break; case "popup_menu": if (constant.IsTruthy()) // The default is to show it so we flag it if it's hidden { _proc.Attributes &= ~ProcAttributes.HidePopupMenu; } else { _proc.Attributes |= ProcAttributes.HidePopupMenu; } DMCompiler.UnimplementedWarning(statementSet.Location, "set popup_menu is not implemented"); break; case "instant": if (constant.IsTruthy()) { _proc.Attributes |= ProcAttributes.Instant; } else { _proc.Attributes &= ~ProcAttributes.Instant; } DMCompiler.UnimplementedWarning(statementSet.Location, "set instant is not implemented"); break; case "background": if (constant.IsTruthy()) { _proc.Attributes |= ProcAttributes.Background; } else { _proc.Attributes &= ~ProcAttributes.Background; } break; case "name": if (constant is not Expressions.String nameStr) { throw new CompileErrorException(statementSet.Location, "name attribute must be a string"); } _proc.VerbName = nameStr.Value; break; case "category": _proc.VerbCategory = constant switch { Expressions.String str => str.Value, Expressions.Null => null, _ => throw new CompileErrorException(statementSet.Location, "category attribute must be a string or null") }; break; case "desc": if (constant is not Expressions.String descStr) { throw new CompileErrorException(statementSet.Location, "desc attribute must be a string"); } _proc.VerbDesc = descStr.Value; DMCompiler.UnimplementedWarning(statementSet.Location, "set desc is not implemented"); break; case "invisibility": // The ref says 0-101 for atoms and 0-100 for verbs // BYOND doesn't clamp the actual var value but it does seem to treat out-of-range values as their extreme if (constant is not Expressions.Number invisNum) { throw new CompileErrorException(statementSet.Location, "invisibility attribute must be an int"); } _proc.Invisibility = Convert.ToSByte(Math.Clamp(Math.Floor(invisNum.Value), 0, 100)); DMCompiler.UnimplementedWarning(statementSet.Location, "set invisibility is not implemented"); break; case "src": DMCompiler.UnimplementedWarning(statementSet.Location, "set src is not implemented"); break; } }
public void VisitProcStatementSet(DMASTProcStatementSet statementSet) { }