Ada Function List improvements

[notdodgeball]

Fix #14908 #14687 #14498

Changes:
Ada is case insensitive
Added 'Parallel' reserved word
Identifiers may not begin or end with underscore
Support for identifiers containing digits
Support for Ada specifications file (subprogram declaration) (#14687)
Support for dot notation within types (#14908)
Support for generic instantiations (#14498) (functions with no return statement)

[MAPJe71]

Could you add a link to the ADA version or simply/just the ADA version this complies to?

[MAPJe71]

Does the comment no longer apply to the Boost::Regex version that is currently used?
When it still applies, undo the change and update the version of Boost::Regex.

[notdodgeball]

I couldn't find a mention of it being fixed in the changelog

But from the tests I've done, it no longer applies, therefore I removed it and simplified the expression.

[rdipardo]

This PR should include updated unit tests:

notepad-plus-plus/CONTRIBUTING.md

Line 33 in e0bb723

8. The PR for the enhancement of Function List parser should also include unit test. Please refer [here](https://npp-user-manual.org/docs/function-list/#contribute-your-new-or-enhanced-parser-rule-to-the-notepad-codebase) for more information.

[donho]

(Repeat @rdipardo has said)
This PR should include updated unit tests:

notepad-plus-plus/CONTRIBUTING.md

Line 33 in e0bb723

8. The PR for the enhancement of Function List parser should also include unit test. Please refer [here](https://npp-user-manual.org/docs/function-list/#contribute-your-new-or-enhanced-parser-rule-to-the-notepad-codebase) for more information.

[chcg]

Changes which might be tested via extended unittest file:
https://learn.adacore.com/courses/whats-new-in-ada-2022/chapters/introduction.html

[ronww]

I tested this change and it appears to work for my current project.

Edit: I spoke too soon. See below

[donho]

@ronww
Could you provide the ADA samples here, regarding the 3 bug reports you've done, which didn't work, but work now with this PR?

[ronww]

I spoke too soon. Some specifications (aka "prototypes") are still not listed:

[ronww]

Examples:

-- This was not listed
function Int32toInt8TwosComplement (value : Vt.Int32) return Vt.Int8 is
begin
-- body
end Int32toInt8TwosComplement;

-- This function appears in the function list:
function AproxU8 (n : Vt.U8; x : Vt.U8) return Boolean is
eq : Boolean := False;
begin
-- code
return eq;
end AproxU8;

-- But this function does not:
function Read_I32 (Register : Vt.Address_Range) return Vt.Int_32 is
Data : Vt.Int_32;
begin
-- code
return Data;
end Read_ I32;

[ronww]

Just discovered that functions/procedure specifications and definitions with comments in the parameter list fail to show in the Function List

Example:
procedure Test_Get_Register(
Reg : Address_Range; -- Register to test
Page : Page_Range; -- Page of target register
ID : String; -- Test case identification
) is
begin
-- code
end Test_Get_Register;

If the comments in the parameter list are removed, then the procedure is shown.

[MAPJe71]

see https://community.notepad-plus-plus.org/topic/19480/faq-function-list-basics

[donho]

@ronww
I need only some ADA samples here (no comment, no explanation), regarding the current fixed, which didn't work, but work now with this PR?
Without these samples I cannot integrate this fix.

[ronww]

All of these should work, but some still do not work

function Get_Idle
return Boolean;

function Get_Phase
-- Purpose: Returns current phase
return Integer;

function Get_State
return Vt.State;

procedure Update;

function Int32_To_Byte_Array is
new Unchecked_Conversion (Source => Vt.Int32, Target => Vt.Byte_Array);

function Int8_To_U8 is new Unchecked_Conversion
(Source => Vt.Int8, Target => Vt.U8);

function Int32toInt8TwosComplement (value : Vt.Int32) return Vt.Int8 is
begin
-- body
end Int32toInt8TwosComplement;

function AproxU8 (n : Vt.U8; x : Vt.U8) return Boolean is
eq : Boolean := False;
begin
-- code
return eq;
end AproxU8;

function Read_I32 (Register : Vt.Address_Range) return Vt.Int_32 is
Data : Vt.Int_32;
begin
-- code
return Data;
end Read_ I32;

procedure Test_Get_Register(
Reg : Address_Range; -- Register to test
Page : Page_Range; -- Page of target register
Expected : Vt.U8; -- Expected value of read
ID : String; -- Test case identification
) is
begin
-- code
end Test_Get_Register;

[donho]

@ronww
Thank you!