Update: This is a maintained fork of Roman Yankovsky's original, intended to collect useful fixes from open upstream pull requests and active forks while upstream review is quiet. New pull requests are welcome here.

Integrated upstream and fork work

This branch has merged and validated these open pull requests from RomanYankovsky/DelphiAST:

• PR #341, "Fix parsing expression after record align", from UweRaabe:Fix_RecordAlign_with_value_expression by UweRaabe.
• PR #337, "Fix Multiline parsing error #336", from UweRaabe:Fix_Multiline_parsing_error_#336 by UweRaabe.
• PR #313, "Log encoding errors as problems", from luebbe:master by luebbe.
• PR #268, "Helper method calls on literals don't cause parser errors anymore", from Wosi:LiteralHelpers by Wosi.
• PR #231, "Suggested fixes for most of the issues I reported", from JBontes:master by JBontes.

Abstract Syntax Tree (AST) Builder for Object Pascal

With DelphiAST you can take real Delphi code and get an abstract syntax tree. One unit at time and without a symbol table though.

Compatible with Delphi, FreePascal, & Lazarus.

Tests

The headless suite runs the same shared tests with separate Delphi and FPC console projects. It parses every file in Test/Snippets and performs focused assertions against parser behavior, AST structure, error handling, source positions, and XML output.

With FPC installed, compile and run the suite from the repository root:

mkdir -p build/fpc-tests/units
fpc -B -Mdelphi \
  -FuSource -FuSource/SimpleParser -FiSource/SimpleParser \
  -FuSource/FreePascalSupport \
  -FuSource/FreePascalSupport/FPC_StringBuilder/Src \
  -FuTest/UnitTests -FUbuild/fpc-tests/units -FEbuild/fpc-tests \
  Test/UnitTests/DelphiASTTests.lpr
build/fpc-tests/DelphiASTTests Test/Snippets

For Delphi, build Test/UnitTests/DelphiASTTests.dproj and pass the path to Test/Snippets as the executable's first argument. The original interactive test application remains available under Test/GUI.

Sample input

unit Unit1;

interface

uses
  Unit2;

function Sum(A, B: Integer): Integer;

implementation

function Sum(A, B: Integer): Integer;
begin
  Result := A + B;
end;

end.

Sample outcome

<UNIT line="1" col="1" name="Unit1">
  <INTERFACE begin_line="3" begin_col="1" end_line="10" end_col="1">
    <USES begin_line="5" begin_col="1" end_line="8" end_col="1">
      <UNIT line="6" col="3" name="Unit2"/>
    </USES>
    <METHOD begin_line="8" begin_col="1" end_line="10" end_col="1" kind="function" name="Sum">
      <PARAMETERS line="8" col="13">
        <PARAMETER line="8" col="14">
          <NAME line="8" col="14" value="A"/>
          <TYPE line="8" col="20" name="Integer"/>
        </PARAMETER>
        <PARAMETER line="8" col="17">
          <NAME line="8" col="17" value="B"/>
          <TYPE line="8" col="20" name="Integer"/>
        </PARAMETER>
      </PARAMETERS>
      <RETURNTYPE line="8" col="30">
        <TYPE line="8" col="30" name="Integer"/>
      </RETURNTYPE>
    </METHOD>
  </INTERFACE>
  <IMPLEMENTATION begin_line="10" begin_col="1" end_line="17" end_col="1">
    <METHOD begin_line="12" begin_col="1" end_line="17" end_col="1" kind="function" name="Sum">
      <PARAMETERS line="12" col="13">
        <PARAMETER line="12" col="14">
          <NAME line="12" col="14" value="A"/>
          <TYPE line="12" col="20" name="Integer"/>
        </PARAMETER>
        <PARAMETER line="12" col="17">
          <NAME line="12" col="17" value="B"/>
          <TYPE line="12" col="20" name="Integer"/>
        </PARAMETER>
      </PARAMETERS>
      <RETURNTYPE line="12" col="30">
        <TYPE line="12" col="30" name="Integer"/>
      </RETURNTYPE>
      <STATEMENTS begin_line="13" begin_col="1" end_line="15" end_col="4">
        <ASSIGN line="14" col="3">
          <LHS line="14" col="3">
            <IDENTIFIER line="14" col="3" name="Result"/>
          </LHS>
          <RHS line="14" col="13">
            <EXPRESSION line="14" col="13">
              <ADD line="14" col="15">
                <IDENTIFIER line="14" col="13" name="A"/>
                <IDENTIFIER line="14" col="17" name="B"/>
              </ADD>
            </EXPRESSION>
          </RHS>
        </ASSIGN>
      </STATEMENTS>
    </METHOD>
  </IMPLEMENTATION>
</UNIT>

Copyright

Copyright (c) 2014-2020 Roman Yankovsky (roman@yankovsky.me) et al

DelphiAST is released under the Mozilla Public License, v. 2.0

See LICENSE for details.