| | | 1 | | using NanoCLang.Environemnts; |
| | | 2 | | using System; |
| | | 3 | | using System.Collections.Generic; |
| | | 4 | | using System.Linq; |
| | | 5 | | |
| | | 6 | | namespace NanoCLang.Entities { |
| | | 7 | | /// <summary> |
| | | 8 | | /// Provides a class for binding expressions. |
| | | 9 | | /// </summary> |
| | | 10 | | public class ConcatenationExpression : Expression, IEquatable<ConcatenationExpression?> { |
| | | 11 | | /// <summary> |
| | | 12 | | /// Creates a new instance of a concatenation expression that evaluates the <paramref name="expression"/> and th |
| | | 13 | | /// </summary> |
| | | 14 | | /// <param name="expression">Expression that is evaluated first.</param> |
| | | 15 | | /// <param name="next">Expression that is evaluated second.</param> |
| | 138 | 16 | | public ConcatenationExpression(Expression expression, Expression next) { |
| | 69 | 17 | | Expression = expression; |
| | 69 | 18 | | Next = next; |
| | 69 | 19 | | } |
| | | 20 | | /// <summary> |
| | | 21 | | /// Expression that is evaluated first. |
| | | 22 | | /// </summary> |
| | 171 | 23 | | public Expression Expression { get; } |
| | | 24 | | /// <summary> |
| | | 25 | | /// Expression that is evaluated with the binding. |
| | | 26 | | /// </summary> |
| | 171 | 27 | | public Expression Next { get; } |
| | | 28 | | /// <inheritdoc/> |
| | 32 | 29 | | protected override World DoInferWorld(GlobalEnvironment phi, LocalEnvironment gamma, Heap heap) { |
| | 32 | 30 | | VerbConsole.WriteLine(VerbosityLevel.Default, "T-Concat"); |
| | 32 | 31 | | var expressionWorld = Expression.InferWorld(phi, gamma, heap); |
| | 32 | 32 | | return Next.InferWorld(phi, gamma, expressionWorld.Heap); |
| | 32 | 33 | | } |
| | | 34 | | /// <inheritdoc/> |
| | 31 | 35 | | public override IEnumerable<StringFormatterToken> Tokens(NanoCSourceFormat args) { |
| | 31 | 36 | | yield return "let"; |
| | 31 | 37 | | yield return " "; |
| | 1017 | 38 | | foreach (var tk in Expression.Tokens(args)) yield return tk; |
| | 31 | 39 | | yield return " "; |
| | 31 | 40 | | yield return "in"; |
| | 31 | 41 | | if (args.NewlinesAfterBindingExpression <= 0) yield return " "; |
| | 155 | 42 | | else for (int i = 0; i < args.NewlinesAfterBindingExpression; i++) yield return new NewLineToken(); |
| | 1977 | 43 | | foreach (var tk in Next.Tokens(args)) yield return tk; |
| | 31 | 44 | | } |
| | | 45 | | /// <inheritdoc/> |
| | 9 | 46 | | public override IEnumerable<string> RequiredFunctions() => Expression.RequiredFunctions().Concat(Next.RequiredFu |
| | | 47 | | /// <inheritdoc/> |
| | 37 | 48 | | public override IEnumerable<StringFormatterToken> Tokens(CSourceFormat args) { |
| | 37 | 49 | | args.PureRequiresReturn = false; |
| | 1539 | 50 | | foreach (var tk in Expression.Tokens(args)) yield return tk; |
| | 37 | 51 | | yield return ";"; |
| | 37 | 52 | | yield return new NewLineToken(); |
| | 37 | 53 | | args.PureRequiresReturn = true; |
| | 2598 | 54 | | foreach (var tk in Next.Tokens(args)) yield return tk; |
| | 37 | 55 | | yield return ";"; |
| | 37 | 56 | | } |
| | | 57 | | #region Equality checks |
| | | 58 | | /// <inheritdoc/> |
| | 31 | 59 | | public override bool Equals(object? obj) => Equals(obj as ConcatenationExpression); |
| | | 60 | | /// <inheritdoc/> |
| | 31 | 61 | | public bool Equals(ConcatenationExpression? other) => !(other is null) && EqualityComparer<Expression>.Default.E |
| | | 62 | | /// <inheritdoc/> |
| | 0 | 63 | | public override int GetHashCode() => HashCode.Combine(Expression, Next); |
| | | 64 | | /// <inheritdoc/> |
| | 0 | 65 | | public static bool operator ==(ConcatenationExpression? left, ConcatenationExpression? right) => EqualityCompare |
| | | 66 | | /// <inheritdoc/> |
| | 0 | 67 | | public static bool operator !=(ConcatenationExpression? left, ConcatenationExpression? right) => !(left == right |
| | | 68 | | #endregion |
| | | 69 | | } |
| | | 70 | | } |