finn-lang/AST.cs

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} }}";
	}
}