71 lines
1.3 KiB
C#
71 lines
1.3 KiB
C#
using System.CodeDom.Compiler;
|
|
using System.Collections.Generic;
|
|
|
|
namespace Finn.AST;
|
|
|
|
public record Name(string Value, bool Quoted)
|
|
{
|
|
public override string ToString()
|
|
{
|
|
if (this.Quoted) return $"@\"{this.Value}\"";
|
|
return this.Value;
|
|
}
|
|
};
|
|
|
|
public record Field(Name Name, Expr? Value);
|
|
|
|
public record BaseRecord(Expr Value, Field[] Updates);
|
|
|
|
public partial record Identifier
|
|
{
|
|
public override string ToString()
|
|
{
|
|
return this.Value.ToString();
|
|
}
|
|
}
|
|
|
|
public partial record Binary
|
|
{
|
|
public override string ToString()
|
|
{
|
|
return $"Binary {{ Left = {this.Left}, Op = {this.Op.lexeme}, Right = {this.Right} }}";
|
|
}
|
|
}
|
|
|
|
public partial record Literal
|
|
{
|
|
public override string ToString()
|
|
{
|
|
return this.Value.ToString()!;
|
|
}
|
|
}
|
|
|
|
public record Binding(Pattern Pattern, Expr Value);
|
|
|
|
public partial record SimplePattern
|
|
{
|
|
public override string ToString()
|
|
{
|
|
if (this.Identifier == null)
|
|
{
|
|
return "_";
|
|
}
|
|
return this.Identifier.ToString();
|
|
}
|
|
}
|
|
|
|
public partial record Let
|
|
{
|
|
public override string ToString()
|
|
{
|
|
return $"Let {{ Bindings = {string.Join(", ", (IEnumerable<object?>)(this.Bindings))}, Body = {this.Body} }}";
|
|
}
|
|
}
|
|
|
|
public partial record RecordPattern
|
|
{
|
|
public override string ToString()
|
|
{
|
|
return $"Let {{ Bindings = {string.Join(", ", (IEnumerable<object?>)(this.Fields))}, Rest = {this.Rest} }}";
|
|
}
|
|
} |