Attributes on visibility sections cause parsing failures

[Tostis]

Prerequisites

• This bug is in SonarDelphi, not SonarQube or my Delphi code.
• This bug has not already been reported.

SonarDelphi version

1.20

Delphi version

13

SonarQube version

No response

Issue description

The parsers only supports the attribute before the field name like this:
` private [MyAttribute] FMyField: String;

private var [MyAttribute] FMyField: String;`

but RAD supports those too:

` [MyAttribute]
private FMyField: String;

[MyAttribute]
private var FMyField: String;`

Steps to reproduce

Create a class with attribute before visibility

` [MyAttribute]
private FMyField: String;

[MyAttribute]
private var FMyField: String;`

sonar-delphi is unable to parse the class.

Minimal Delphi code exhibiting the issue

No response

[fourls]

Thanks for the report, @Tostis! Confirmed grammatical, the attributes refer to the next defined member:

type
  TMyType = class(TObject)
  [Foo]
  private
    [Bar]
    var
      [Baz]
      FMyField: String; // <-- FooAttribute, BarAttribute, and BazAttribute all attach to FMyField
      FOtherField: String;
  end;

Assembly attributes are also supported in these positions.

[fourls]

Pushing even further... it's not a parent-child thing, it's purely top-to-bottom sequential. Yikes!

type
  TMyType = class(TObject)
  [Foo]
  private
    [Bar]
    var
      [Baz]

  public
    var
      FMyField: String; // <-- FooAttribute, BarAttribute, and BazAttribute all attach to FMyField
  end;