Michael Schimmel
58c44079f7
- **Architecture:** Split `IScopeDescriptor` into `IScopeLayout` (Binder/Structure) and immutable `IScopeDescriptor` (Runtime/Types). - **Binder:** Now produces `IScopeLayout` via `IScopeBuilder`. Restored Upvalue tracking and Lambda nesting detection. - **TypeChecker:** Introduced `TTypeContext` to track types during traversal. Now produces the final `IScopeDescriptor`. - **Evaluator:** Adapted to new `ILambdaExpressionNode` structure. - **Fixes:** Resolved `Scope depth mismatch` in TypeChecker and `AccessViolation` in Evaluator due to lost parent scopes.
38 lines
1.6 KiB
ObjectPascal
38 lines
1.6 KiB
ObjectPascal
program ASTPlayground;
|
|
|
|
uses
|
|
FastMM5,
|
|
System.StartUpCopy,
|
|
FMX.Forms,
|
|
MainForm in 'MainForm.pas' {Form1},
|
|
Myc.Ast.Nodes in '..\Src\AST\Myc.Ast.Nodes.pas',
|
|
Myc.Ast.Scope in '..\Src\AST\Myc.Ast.Scope.pas',
|
|
Myc.Data.Value in 'Myc.Data.Value.pas',
|
|
Myc.Ast.Visitor in '..\Src\AST\Myc.Ast.Visitor.pas',
|
|
Myc.Ast.RTL in '..\Src\AST\Myc.Ast.RTL.pas',
|
|
Myc.Ast.Dumper in '..\Src\AST\Myc.Ast.Dumper.pas',
|
|
Myc.Ast.RTL.Core in '..\Src\AST\Myc.Ast.RTL.Core.pas',
|
|
Myc.Fmx.AstEditor.Node in 'Myc.Fmx.AstEditor.Node.pas',
|
|
Myc.Fmx.AstEditor.Workspace in 'Myc.Fmx.AstEditor.Workspace.pas',
|
|
Myc.Fmx.AstEditor.Text in 'Myc.Fmx.AstEditor.Text.pas',
|
|
Myc.Utils in '..\Src\Myc.Utils.pas',
|
|
Myc.Ast.Script in '..\Src\AST\Myc.Ast.Script.pas',
|
|
Myc.Ast.Types in '..\Src\AST\Myc.Ast.Types.pas',
|
|
Myc.Data.Keyword in '..\Src\Data\Myc.Data.Keyword.pas',
|
|
Myc.Ast.Compiler.TCO in '..\Src\AST\Myc.Ast.Compiler.TCO.pas',
|
|
Myc.Ast.Compiler.Binder in '..\Src\AST\Myc.Ast.Compiler.Binder.pas',
|
|
Myc.Ast.Compiler.Lowering in '..\Src\AST\Myc.Ast.Compiler.Lowering.pas',
|
|
Myc.Ast.Compiler.TypeChecker in '..\Src\AST\Myc.Ast.Compiler.TypeChecker.pas',
|
|
Myc.Ast.Compiler.Macros in '..\Src\AST\Myc.Ast.Compiler.Macros.pas',
|
|
Myc.Ast.Compiler.Specializer in '..\Src\AST\Myc.Ast.Compiler.Specializer.pas',
|
|
Myc.Ast.Environment in '..\Src\AST\Myc.Ast.Environment.pas',
|
|
Myc.Ast.Debugger in '..\Src\AST\Myc.Ast.Debugger.pas';
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(TForm1, Form1);
|
|
Application.Run;
|
|
end.
|