Skip to content
BranchesTags

Repository files navigation

Total linesLines of codeSource filesTests: 41Test Workflow

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;
interfaceuses
Unit2;
functionSum(A, B: Integer): Integer;
implementationfunctionSum(A, B: Integer): Integer;
begin
Result := A + B;
end;
end.

Sample outcome

<UNITline="1"col="1"name="Unit1">
<INTERFACEbegin_line="3"begin_col="1"end_line="10"end_col="1">
<USESbegin_line="5"begin_col="1"end_line="8"end_col="1">
<UNITline="6"col="3"name="Unit2"/>
</USES>
<METHODbegin_line="8"begin_col="1"end_line="10"end_col="1"kind="function"name="Sum">
<PARAMETERSline="8"col="13">
<PARAMETERline="8"col="14">
<NAMEline="8"col="14"value="A"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="8"col="17">
<NAMEline="8"col="17"value="B"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="8"col="30">
<TYPEline="8"col="30"name="Integer"/>
</RETURNTYPE>
</METHOD>
</INTERFACE>
<IMPLEMENTATIONbegin_line="10"begin_col="1"end_line="17"end_col="1">
<METHODbegin_line="12"begin_col="1"end_line="17"end_col="1"kind="function"name="Sum">
<PARAMETERSline="12"col="13">
<PARAMETERline="12"col="14">
<NAMEline="12"col="14"value="A"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="12"col="17">
<NAMEline="12"col="17"value="B"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="12"col="30">
<TYPEline="12"col="30"name="Integer"/>
</RETURNTYPE>
<STATEMENTSbegin_line="13"begin_col="1"end_line="15"end_col="4">
<ASSIGNline="14"col="3">
<LHSline="14"col="3">
<IDENTIFIERline="14"col="3"name="Result"/>
</LHS>
<RHSline="14"col="13">
<EXPRESSIONline="14"col="13">
<ADDline="14"col="15">
<IDENTIFIERline="14"col="13"name="A"/>
<IDENTIFIERline="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.

About

Object Pascal abstract syntax tree builder for Delphi and Free Pascal

Topics

astdelphifreepascalgrammarobject-pascal

Resources

Readme
MPL-2.0 license
Activity

Stars

4 stars

Watchers

3 watching

Forks

2 forks
Report repository

Releases

Packages

Contributors

Languages

, 'i'); if (__m === '*' || __re.test(location.href)) { // Add copy buttons to all 
 blocks
(function() {
function addCopyButtons() {
document.querySelectorAll('pre code').forEach(function(codeBlock) {
if (codeBlock.parentElement.hasAttribute('data-copy-added')) return;
codeBlock.parentElement.setAttribute('data-copy-added', 'true');
var btn = document.createElement('button');
btn.textContent = 'Copy';
btn.style.cssText = 'position:absolute;top:4px;right:4px;padding:2px 8px;font-size:11px;background:#4ecdc4;border:none;border-radius:4px;color:#1a1a2e;cursor:pointer;opacity:0.7;transition:opacity 0.2s;';
btn.onmouseover = function() { this.style.opacity = '1'; };
btn.onmouseout = function() { this.style.opacity = '0.7'; };
btn.onclick = function() {
navigator.clipboard.writeText(codeBlock.textContent).then(function() {
btn.textContent = 'Copied!';
setTimeout(function() { btn.textContent = 'Copy'; }, 1500);
});
};
codeBlock.parentElement.style.position = 'relative';
codeBlock.parentElement.appendChild(btn);
});
}
addCopyButtons();
// Re-run on dynamic content
var observer = new MutationObserver(addCopyButtons);
observer.observe(document.body, { childList: true, subtree: true });
})();
}
} catch(__e) { console.warn('[Userscript:Add Copy Buttons to Code Blocks]', __e); }
})();
(function(){
try {
var __m = "github.com";
var __re = new RegExp('^' + "github\\.com" + '
GitHub - jimmckeeth/DelphiAST: Object Pascal abstract syntax tree builder for Delphi and Free Pascal · GitHub
Skip to content
BranchesTags
Repository files navigation
Total linesLines of codeSource filesTests: 41Test Workflow
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;
interfaceuses
Unit2;
functionSum(A, B: Integer): Integer;
implementationfunctionSum(A, B: Integer): Integer;
begin
Result := A + B;
end;
end.
Sample outcome
<UNITline="1"col="1"name="Unit1">
<INTERFACEbegin_line="3"begin_col="1"end_line="10"end_col="1">
<USESbegin_line="5"begin_col="1"end_line="8"end_col="1">
<UNITline="6"col="3"name="Unit2"/>
</USES>
<METHODbegin_line="8"begin_col="1"end_line="10"end_col="1"kind="function"name="Sum">
<PARAMETERSline="8"col="13">
<PARAMETERline="8"col="14">
<NAMEline="8"col="14"value="A"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="8"col="17">
<NAMEline="8"col="17"value="B"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="8"col="30">
<TYPEline="8"col="30"name="Integer"/>
</RETURNTYPE>
</METHOD>
</INTERFACE>
<IMPLEMENTATIONbegin_line="10"begin_col="1"end_line="17"end_col="1">
<METHODbegin_line="12"begin_col="1"end_line="17"end_col="1"kind="function"name="Sum">
<PARAMETERSline="12"col="13">
<PARAMETERline="12"col="14">
<NAMEline="12"col="14"value="A"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="12"col="17">
<NAMEline="12"col="17"value="B"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="12"col="30">
<TYPEline="12"col="30"name="Integer"/>
</RETURNTYPE>
<STATEMENTSbegin_line="13"begin_col="1"end_line="15"end_col="4">
<ASSIGNline="14"col="3">
<LHSline="14"col="3">
<IDENTIFIERline="14"col="3"name="Result"/>
</LHS>
<RHSline="14"col="13">
<EXPRESSIONline="14"col="13">
<ADDline="14"col="15">
<IDENTIFIERline="14"col="13"name="A"/>
<IDENTIFIERline="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.
About
Object Pascal abstract syntax tree builder for Delphi and Free Pascal
Topics
astdelphifreepascalgrammarobject-pascal
Resources
Readme
MPL-2.0 license
Activity
Stars
4 stars
Watchers
3 watching
Forks
2 forks
Report repository
Releases
Packages
Contributors
Languages

, 'i');
if (__m === '*' || __re.test(location.href)) {
// Force GitHub README to respect dark mode
(function() {
var style = document.createElement('style');
style.textContent = '
.markdown-body {
color-scheme: dark light;
}
.markdown-body pre { background: #161b22 !important; }
.markdown-body code { background: rgba(110, 118, 129, 0.4) !important; }
.markdown-body table th, .markdown-body table td { border-color: #30363d !important; }
.markdown-body img { background: #0d1117; }
.markdown-body blockquote { border-left-color: #8b949e; }
.markdown-body hr { border-color: #30363d; }
';
document.head.appendChild(style);
})();
}
} catch(__e) { console.warn('[Userscript:GitHub Dark Mode README Fix]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '
GitHub - jimmckeeth/DelphiAST: Object Pascal abstract syntax tree builder for Delphi and Free Pascal · GitHub
Skip to content
BranchesTags
Repository files navigation
Total linesLines of codeSource filesTests: 41Test Workflow
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;
interfaceuses
Unit2;
functionSum(A, B: Integer): Integer;
implementationfunctionSum(A, B: Integer): Integer;
begin
Result := A + B;
end;
end.
Sample outcome
<UNITline="1"col="1"name="Unit1">
<INTERFACEbegin_line="3"begin_col="1"end_line="10"end_col="1">
<USESbegin_line="5"begin_col="1"end_line="8"end_col="1">
<UNITline="6"col="3"name="Unit2"/>
</USES>
<METHODbegin_line="8"begin_col="1"end_line="10"end_col="1"kind="function"name="Sum">
<PARAMETERSline="8"col="13">
<PARAMETERline="8"col="14">
<NAMEline="8"col="14"value="A"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="8"col="17">
<NAMEline="8"col="17"value="B"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="8"col="30">
<TYPEline="8"col="30"name="Integer"/>
</RETURNTYPE>
</METHOD>
</INTERFACE>
<IMPLEMENTATIONbegin_line="10"begin_col="1"end_line="17"end_col="1">
<METHODbegin_line="12"begin_col="1"end_line="17"end_col="1"kind="function"name="Sum">
<PARAMETERSline="12"col="13">
<PARAMETERline="12"col="14">
<NAMEline="12"col="14"value="A"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="12"col="17">
<NAMEline="12"col="17"value="B"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="12"col="30">
<TYPEline="12"col="30"name="Integer"/>
</RETURNTYPE>
<STATEMENTSbegin_line="13"begin_col="1"end_line="15"end_col="4">
<ASSIGNline="14"col="3">
<LHSline="14"col="3">
<IDENTIFIERline="14"col="3"name="Result"/>
</LHS>
<RHSline="14"col="13">
<EXPRESSIONline="14"col="13">
<ADDline="14"col="15">
<IDENTIFIERline="14"col="13"name="A"/>
<IDENTIFIERline="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.
About
Object Pascal abstract syntax tree builder for Delphi and Free Pascal
Topics
astdelphifreepascalgrammarobject-pascal
Resources
Readme
MPL-2.0 license
Activity
Stars
4 stars
Watchers
3 watching
Forks
2 forks
Report repository
Releases
Packages
Contributors
Languages

, 'i');
if (__m === '*' || __re.test(location.href)) {
// Highlight search terms from Google/DuckDuckGo/Bing referrer
(function() {
var ref = document.referrer;
var terms = [];
if (ref.includes('google.com') || ref.includes('duckduckgo.com') || ref.includes('bing.com')) {
var url = new URL(ref);
var q = url.searchParams.get('q') || url.searchParams.get('p');
if (q) {
terms = q.split(/\s+/).filter(function(t) { return t.length > 2; });
}
}
if (terms.length === 0) return;
var style = document.createElement('style');
style.textContent = '.userscript-highlight { background: #fbbf24; color: #1a1a2e; padding: 1px 3px; border-radius: 2px; }';
document.head.appendChild(style);
function highlight(node) {
if (node.nodeType === 3) { // text node
var text = node.textContent;
var found = false;
terms.forEach(function(term) {
var regex = new RegExp('(' + term.replace(/[.*+?^${}()|[\]\\]/g, '\\') + ')', 'gi');
if (regex.test(text)) {
found = true;
var frag = document.createDocumentFragment();
var parts = text.split(regex);
parts.forEach(function(part, i) {
if (i % 2 === 0) {
frag.appendChild(document.createTextNode(part));
} else {
var span = document.createElement('span');
span.className = 'userscript-highlight';
span.textContent = part;
frag.appendChild(span);
}
});
node.parentNode.replaceChild(frag, node);
}
});
} else if (node.nodeType === 1 && node.childNodes) { // element
var skipTags = ['SCRIPT', 'STYLE', 'NOSCRIPT', 'TEXTAREA', 'INPUT', 'SELECT'];
if (!skipTags.includes(node.tagName)) {
Array.from(node.childNodes).forEach(highlight);
}
}
}
highlight(document.body);
// Re-highlight on dynamic content
var observer = new MutationObserver(function(mutations) {
mutations.forEach(function(m) {
m.addedNodes.forEach(function(node) {
if (node.nodeType === 1 || node.nodeType === 3) highlight(node);
});
});
});
observer.observe(document.body, { childList: true, subtree: true });
})();
}
} catch(__e) { console.warn('[Userscript:Highlight Search Terms]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '
GitHub - jimmckeeth/DelphiAST: Object Pascal abstract syntax tree builder for Delphi and Free Pascal · GitHub
Skip to content
BranchesTags
Repository files navigation
Total linesLines of codeSource filesTests: 41Test Workflow
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;
interfaceuses
Unit2;
functionSum(A, B: Integer): Integer;
implementationfunctionSum(A, B: Integer): Integer;
begin
Result := A + B;
end;
end.
Sample outcome
<UNITline="1"col="1"name="Unit1">
<INTERFACEbegin_line="3"begin_col="1"end_line="10"end_col="1">
<USESbegin_line="5"begin_col="1"end_line="8"end_col="1">
<UNITline="6"col="3"name="Unit2"/>
</USES>
<METHODbegin_line="8"begin_col="1"end_line="10"end_col="1"kind="function"name="Sum">
<PARAMETERSline="8"col="13">
<PARAMETERline="8"col="14">
<NAMEline="8"col="14"value="A"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="8"col="17">
<NAMEline="8"col="17"value="B"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="8"col="30">
<TYPEline="8"col="30"name="Integer"/>
</RETURNTYPE>
</METHOD>
</INTERFACE>
<IMPLEMENTATIONbegin_line="10"begin_col="1"end_line="17"end_col="1">
<METHODbegin_line="12"begin_col="1"end_line="17"end_col="1"kind="function"name="Sum">
<PARAMETERSline="12"col="13">
<PARAMETERline="12"col="14">
<NAMEline="12"col="14"value="A"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="12"col="17">
<NAMEline="12"col="17"value="B"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="12"col="30">
<TYPEline="12"col="30"name="Integer"/>
</RETURNTYPE>
<STATEMENTSbegin_line="13"begin_col="1"end_line="15"end_col="4">
<ASSIGNline="14"col="3">
<LHSline="14"col="3">
<IDENTIFIERline="14"col="3"name="Result"/>
</LHS>
<RHSline="14"col="13">
<EXPRESSIONline="14"col="13">
<ADDline="14"col="15">
<IDENTIFIERline="14"col="13"name="A"/>
<IDENTIFIERline="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.
About
Object Pascal abstract syntax tree builder for Delphi and Free Pascal
Topics
astdelphifreepascalgrammarobject-pascal
Resources
Readme
MPL-2.0 license
Activity
Stars
4 stars
Watchers
3 watching
Forks
2 forks
Report repository
Releases
Packages
Contributors
Languages

, 'i');
if (__m === '*' || __re.test(location.href)) {
// Strip utm_, fbclid, gclid, etc. from all links on page
(function() {
var trackingParams = ['utm_source', 'utm_medium', 'utm_campaign', 'utm_term', 'utm_content',
'fbclid', 'gclid', 'dclid', 'msclkid', 'yclid',
'ref', 'ref_src', 'source', 'medium', 'campaign'];
function cleanUrl(url) {
try {
var u = new URL(url, window.location.origin);
var changed = false;
trackingParams.forEach(function(p) {
if (u.searchParams.has(p)) {
u.searchParams.delete(p);
changed = true;
}
});
return changed ? u.toString() : url;
} catch (e) {
return url;
}
}
function cleanLinks() {
document.querySelectorAll('a[href]').forEach(function(a) {
var clean = cleanUrl(a.href);
if (clean !== a.href) a.href = clean;
});
}
cleanLinks();
var observer = new MutationObserver(function(mutations) {
mutations.forEach(function(m) {
m.addedNodes.forEach(function(node) {
if (node.nodeType === 1) {
if (node.tagName === 'A') cleanLinks();
node.querySelectorAll('a[href]').forEach(function(a) {
var clean = cleanUrl(a.href);
if (clean !== a.href) a.href = clean;
});
}
});
});
});
observer.observe(document.body, { childList: true, subtree: true });
})();
}
} catch(__e) { console.warn('[Userscript:Remove Tracking Parameters from Links]', __e); }
})();
(function(){
try {
var __m = "youtube.com";
var __re = new RegExp('^' + "youtube\\.com" + '
GitHub - jimmckeeth/DelphiAST: Object Pascal abstract syntax tree builder for Delphi and Free Pascal · GitHub
Skip to content
BranchesTags
Repository files navigation
Total linesLines of codeSource filesTests: 41Test Workflow
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;
interfaceuses
Unit2;
functionSum(A, B: Integer): Integer;
implementationfunctionSum(A, B: Integer): Integer;
begin
Result := A + B;
end;
end.
Sample outcome
<UNITline="1"col="1"name="Unit1">
<INTERFACEbegin_line="3"begin_col="1"end_line="10"end_col="1">
<USESbegin_line="5"begin_col="1"end_line="8"end_col="1">
<UNITline="6"col="3"name="Unit2"/>
</USES>
<METHODbegin_line="8"begin_col="1"end_line="10"end_col="1"kind="function"name="Sum">
<PARAMETERSline="8"col="13">
<PARAMETERline="8"col="14">
<NAMEline="8"col="14"value="A"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="8"col="17">
<NAMEline="8"col="17"value="B"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="8"col="30">
<TYPEline="8"col="30"name="Integer"/>
</RETURNTYPE>
</METHOD>
</INTERFACE>
<IMPLEMENTATIONbegin_line="10"begin_col="1"end_line="17"end_col="1">
<METHODbegin_line="12"begin_col="1"end_line="17"end_col="1"kind="function"name="Sum">
<PARAMETERSline="12"col="13">
<PARAMETERline="12"col="14">
<NAMEline="12"col="14"value="A"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="12"col="17">
<NAMEline="12"col="17"value="B"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="12"col="30">
<TYPEline="12"col="30"name="Integer"/>
</RETURNTYPE>
<STATEMENTSbegin_line="13"begin_col="1"end_line="15"end_col="4">
<ASSIGNline="14"col="3">
<LHSline="14"col="3">
<IDENTIFIERline="14"col="3"name="Result"/>
</LHS>
<RHSline="14"col="13">
<EXPRESSIONline="14"col="13">
<ADDline="14"col="15">
<IDENTIFIERline="14"col="13"name="A"/>
<IDENTIFIERline="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.
About
Object Pascal abstract syntax tree builder for Delphi and Free Pascal
Topics
astdelphifreepascalgrammarobject-pascal
Resources
Readme
MPL-2.0 license
Activity
Stars
4 stars
Watchers
3 watching
Forks
2 forks
Report repository
Releases
Packages
Contributors
Languages

, 'i');
if (__m === '*' || __re.test(location.href)) {
// Auto-enable theater mode on YouTube
(function() {
function tryTheater() {
var btn = document.querySelector('button[aria-label="Theater mode"], ytd-player #player button[title="Theater mode"]');
if (btn && !btn.classList.contains('activated')) {
btn.click();
}
}
// Try immediately
tryTheater();
// Try after navigation (SPA)
var lastUrl = location.href;
setInterval(function() {
if (location.href !== lastUrl) {
lastUrl = location.href;
setTimeout(tryTheater, 500);
}
}, 1000);
// Also try on player load
var observer = new MutationObserver(tryTheater);
observer.observe(document.body, { childList: true, subtree: true });
})();
}
} catch(__e) { console.warn('[Userscript:YouTube Theater Mode Default]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '
GitHub - jimmckeeth/DelphiAST: Object Pascal abstract syntax tree builder for Delphi and Free Pascal · GitHub
Skip to content
BranchesTags
Repository files navigation
Total linesLines of codeSource filesTests: 41Test Workflow
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;
interfaceuses
Unit2;
functionSum(A, B: Integer): Integer;
implementationfunctionSum(A, B: Integer): Integer;
begin
Result := A + B;
end;
end.
Sample outcome
<UNITline="1"col="1"name="Unit1">
<INTERFACEbegin_line="3"begin_col="1"end_line="10"end_col="1">
<USESbegin_line="5"begin_col="1"end_line="8"end_col="1">
<UNITline="6"col="3"name="Unit2"/>
</USES>
<METHODbegin_line="8"begin_col="1"end_line="10"end_col="1"kind="function"name="Sum">
<PARAMETERSline="8"col="13">
<PARAMETERline="8"col="14">
<NAMEline="8"col="14"value="A"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="8"col="17">
<NAMEline="8"col="17"value="B"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="8"col="30">
<TYPEline="8"col="30"name="Integer"/>
</RETURNTYPE>
</METHOD>
</INTERFACE>
<IMPLEMENTATIONbegin_line="10"begin_col="1"end_line="17"end_col="1">
<METHODbegin_line="12"begin_col="1"end_line="17"end_col="1"kind="function"name="Sum">
<PARAMETERSline="12"col="13">
<PARAMETERline="12"col="14">
<NAMEline="12"col="14"value="A"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="12"col="17">
<NAMEline="12"col="17"value="B"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="12"col="30">
<TYPEline="12"col="30"name="Integer"/>
</RETURNTYPE>
<STATEMENTSbegin_line="13"begin_col="1"end_line="15"end_col="4">
<ASSIGNline="14"col="3">
<LHSline="14"col="3">
<IDENTIFIERline="14"col="3"name="Result"/>
</LHS>
<RHSline="14"col="13">
<EXPRESSIONline="14"col="13">
<ADDline="14"col="15">
<IDENTIFIERline="14"col="13"name="A"/>
<IDENTIFIERline="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.
About
Object Pascal abstract syntax tree builder for Delphi and Free Pascal
Topics
astdelphifreepascalgrammarobject-pascal
Resources
Readme
MPL-2.0 license
Activity
Stars
4 stars
Watchers
3 watching
Forks
2 forks
Report repository
Releases
Packages
Contributors
Languages

, 'i');
if (__m === '*' || __re.test(location.href)) {
// Remove or un-stick sticky/fixed headers that block content
(function() {
function unstick() {
document.querySelectorAll('header, nav, [role="banner"], .header, .navbar, .sticky, .fixed-top, [style*="position: fixed"], [style*="position:sticky"]').forEach(function(el) {
if (el.style.position === 'fixed' || el.style.position === 'sticky' || getComputedStyle(el).position === 'fixed' || getComputedStyle(el).position === 'sticky') {
el.style.position = 'static';
el.style.top = 'auto';
el.style.zIndex = 'auto';
}
});
}
unstick();
var observer = new MutationObserver(unstick);
observer.observe(document.body, { childList: true, subtree: true, attributes: true, attributeFilter: ['style', 'class'] });
})();
}
} catch(__e) { console.warn('[Userscript:Kill Sticky Headers]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '
GitHub - jimmckeeth/DelphiAST: Object Pascal abstract syntax tree builder for Delphi and Free Pascal · GitHub
Skip to content
BranchesTags
Repository files navigation
Total linesLines of codeSource filesTests: 41Test Workflow
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;
interfaceuses
Unit2;
functionSum(A, B: Integer): Integer;
implementationfunctionSum(A, B: Integer): Integer;
begin
Result := A + B;
end;
end.
Sample outcome
<UNITline="1"col="1"name="Unit1">
<INTERFACEbegin_line="3"begin_col="1"end_line="10"end_col="1">
<USESbegin_line="5"begin_col="1"end_line="8"end_col="1">
<UNITline="6"col="3"name="Unit2"/>
</USES>
<METHODbegin_line="8"begin_col="1"end_line="10"end_col="1"kind="function"name="Sum">
<PARAMETERSline="8"col="13">
<PARAMETERline="8"col="14">
<NAMEline="8"col="14"value="A"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="8"col="17">
<NAMEline="8"col="17"value="B"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="8"col="30">
<TYPEline="8"col="30"name="Integer"/>
</RETURNTYPE>
</METHOD>
</INTERFACE>
<IMPLEMENTATIONbegin_line="10"begin_col="1"end_line="17"end_col="1">
<METHODbegin_line="12"begin_col="1"end_line="17"end_col="1"kind="function"name="Sum">
<PARAMETERSline="12"col="13">
<PARAMETERline="12"col="14">
<NAMEline="12"col="14"value="A"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="12"col="17">
<NAMEline="12"col="17"value="B"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="12"col="30">
<TYPEline="12"col="30"name="Integer"/>
</RETURNTYPE>
<STATEMENTSbegin_line="13"begin_col="1"end_line="15"end_col="4">
<ASSIGNline="14"col="3">
<LHSline="14"col="3">
<IDENTIFIERline="14"col="3"name="Result"/>
</LHS>
<RHSline="14"col="13">
<EXPRESSIONline="14"col="13">
<ADDline="14"col="15">
<IDENTIFIERline="14"col="13"name="A"/>
<IDENTIFIERline="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.
About
Object Pascal abstract syntax tree builder for Delphi and Free Pascal
Topics
astdelphifreepascalgrammarobject-pascal
Resources
Readme
MPL-2.0 license
Activity
Stars
4 stars
Watchers
3 watching
Forks
2 forks
Report repository
Releases
Packages
Contributors
Languages

, 'i');
if (__m === '*' || __re.test(location.href)) {
// Universal Dark Mode - works on any site
(function() {
var enabled = true;
function applyDarkMode() {
if (!enabled) return;
// Create style element if it doesn't exist
var style = document.getElementById('universal-dark-mode-style');
if (!style) {
style = document.createElement('style');
style.id = 'universal-dark-mode-style';
document.head.appendChild(style);
}
// Dark mode CSS - inverts colors but preserves images/video
style.textContent = '
/* Invert everything except media */
html {
filter: invert(1) hue-rotate(180deg) !important;
background: #1a1a2e !important;
}
/* Restore images, videos, iframes, canvas */
img, video, iframe, canvas, svg, picture, [style*="background-image"] {
filter: invert(1) hue-rotate(180deg) !important;
}
/* Preserve specific elements that should not be inverted */
.no-dark-mode, .no-dark-mode *,
[data-theme="light"], [data-theme="light"],
.ace_editor, .ace_editor *,
.CodeMirror, .CodeMirror *,
.monaco-editor, .monaco-editor *,
.markdown-body pre, .markdown-body pre *,
.highlight, .highlight *,
pre code, pre code * {
filter: none !important;
}
/* Fix common UI elements */
.modal, .popup, .dropdown-menu, .tooltip, .popover {
filter: invert(1) hue-rotate(180deg) !important;
background: #2d2d44 !important;
border-color: #444 !important;
}
/* Scrollbars */
::-webkit-scrollbar { background: #1a1a2e !important; }
::-webkit-scrollbar-thumb { background: #444 !important; }
::-webkit-scrollbar-thumb:hover { background: #555 !important; }
/* Selection */
::selection { background: #4ecdc4 !important; color: #1a1a2e !important; }
::-moz-selection { background: #4ecdc4 !important; color: #1a1a2e !important; }
';
}
function removeDarkMode() {
var style = document.getElementById('universal-dark-mode-style');
if (style) style.remove();
}
// Toggle with Alt+Shift+D
document.addEventListener('keydown', function(e) {
if (e.altKey && e.shiftKey && e.key === 'D') {
e.preventDefault();
enabled = !enabled;
if (enabled) {
applyDarkMode();
console.log('[Universal Dark Mode] Enabled');
} else {
removeDarkMode();
console.log('[Universal Dark Mode] Disabled');
}
}
});
// Apply on load
applyDarkMode();
// Re-apply on dynamic content
var observer = new MutationObserver(function(mutations) {
if (enabled && !document.getElementById('universal-dark-mode-style')) {
applyDarkMode();
}
});
observer.observe(document.head, { childList: true });
console.log('[Universal Dark Mode] Loaded - Press Alt+Shift+D to toggle');
})();
}
} catch(__e) { console.warn('[Userscript:Universal Dark Mode]', __e); }
})();
})();
GitHub - jimmckeeth/DelphiAST: Object Pascal abstract syntax tree builder for Delphi and Free Pascal · GitHub
Skip to content
BranchesTags
Repository files navigation
Total linesLines of codeSource filesTests: 41Test Workflow
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;
interfaceuses
Unit2;
functionSum(A, B: Integer): Integer;
implementationfunctionSum(A, B: Integer): Integer;
begin
Result := A + B;
end;
end.
Sample outcome
<UNITline="1"col="1"name="Unit1">
<INTERFACEbegin_line="3"begin_col="1"end_line="10"end_col="1">
<USESbegin_line="5"begin_col="1"end_line="8"end_col="1">
<UNITline="6"col="3"name="Unit2"/>
</USES>
<METHODbegin_line="8"begin_col="1"end_line="10"end_col="1"kind="function"name="Sum">
<PARAMETERSline="8"col="13">
<PARAMETERline="8"col="14">
<NAMEline="8"col="14"value="A"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="8"col="17">
<NAMEline="8"col="17"value="B"/>
<TYPEline="8"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="8"col="30">
<TYPEline="8"col="30"name="Integer"/>
</RETURNTYPE>
</METHOD>
</INTERFACE>
<IMPLEMENTATIONbegin_line="10"begin_col="1"end_line="17"end_col="1">
<METHODbegin_line="12"begin_col="1"end_line="17"end_col="1"kind="function"name="Sum">
<PARAMETERSline="12"col="13">
<PARAMETERline="12"col="14">
<NAMEline="12"col="14"value="A"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
<PARAMETERline="12"col="17">
<NAMEline="12"col="17"value="B"/>
<TYPEline="12"col="20"name="Integer"/>
</PARAMETER>
</PARAMETERS>
<RETURNTYPEline="12"col="30">
<TYPEline="12"col="30"name="Integer"/>
</RETURNTYPE>
<STATEMENTSbegin_line="13"begin_col="1"end_line="15"end_col="4">
<ASSIGNline="14"col="3">
<LHSline="14"col="3">
<IDENTIFIERline="14"col="3"name="Result"/>
</LHS>
<RHSline="14"col="13">
<EXPRESSIONline="14"col="13">
<ADDline="14"col="15">
<IDENTIFIERline="14"col="13"name="A"/>
<IDENTIFIERline="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.
About
Object Pascal abstract syntax tree builder for Delphi and Free Pascal
Topics
astdelphifreepascalgrammarobject-pascal
Resources
Readme
MPL-2.0 license
Activity
Stars
4 stars
Watchers
3 watching
Forks
2 forks
Report repository
Releases
Packages
Contributors
Languages