Johan Bontes

Here's the fix: It involves the somewhat dirty hack of forcing the `TokenID` of the `lexer`. ```Delphi TmwBasePasLex = class(TObject) ... public ... property ForceTokenID: TptTokenKind write FTokenId; end; const...

``` procedure TPasSyntaxTreeBuilder.VisibilityPrivate; begin FStack.Push(ntVisibility);//(ntPrivate); try FStack.Peek.SetAttribute(atVisibility, 'private'); inherited; finally FStack.Pop; end; end; procedure TPasSyntaxTreeBuilder.VisibilityProtected; begin FStack.Push(ntVisibility);//(ntProtected); try FStack.Peek.SetAttribute(atVisibility, 'protected'); inherited; finally FStack.Pop; end; end; procedure TPasSyntaxTreeBuilder.VisibilityPublic; begin FStack.Push(ntVisibility);//(ntPublic); try...

If you want to implement this change (I'm not saying you should), here's the patch: If you don't want to implement this way of doing things, you should close this...

Hi Wosi, Thanks. I know. At the moment I'm way ahead of the main branch, so I'm just logging these issues as I go along. I'll try and make pull...

This is difficult to do in the actual AST building, but very easy to do in the generation of the output XML: ``` procedure NodeToXMLInternal(const Node: TSyntaxNode; const Indent: string);...

This is implemented in #231. It works pretty much as expected.

You're welcome. I'm just trying to get AST to parse all code correctly so I can use it as a macro/code rewrite tool. Unfortunately my own version has got quite...

> I'll review it as soon as possible. I fixed the conflict, have you had time to look at it yet? No rush :-)

Can we close this issue -works as intended-?

see pull request #80