Merge pull request #3185 from masatake/ada-minor-fix

Ada: skip whitespace characters between an identifier and ':'

Author: masatake

Tmain/list-roles.d/stdout-expected.txt

@@ -3,6 +3,7 @@
 #
 #
 #LANGUAGE      KIND(L/N)         NAME               ENABLED DESCRIPTION
+Ada            p/package         subunit            on      package name referenced in separate()
 Asm            s/section         placement          on      placement where the assembled code goes
 AutoIt         S/script          local              on      local include
 AutoIt         S/script          system             on      system include
@@ -96,6 +97,7 @@ Vera           h/header          system             on      system header
 # all.*
 #
 #LANGUAGE      KIND(L/N)         NAME               ENABLED DESCRIPTION
+Ada            p/package         subunit            on      package name referenced in separate()
 Asm            s/section         placement          on      placement where the assembled code goes
 AutoIt         S/script          local              on      local include
 AutoIt         S/script          system             on      system include

Units/parser-ada.r/ada-entry.d/expected.tags

@@ -3,6 +3,8 @@ Input_0	input_0.gpr	/^project Input_0 is$/;"	P
 Input_1	input_1.adb	/^package body Input_1 is$/;"	p
 Ma_Tasche	input_1.adb	/^   task body Ma_Tasche is$/;"	k	package:Input_1	file:
 Var_Continuer	input_1.adb	/^      Var_Continuer : Boolean := False;$/;"	v	task:Ma_Tasche	file:
+Boucle_Principale	input_1.adb	/^      Boucle_Principale :$/;"	i	task:Ma_Tasche	file:
+Accepter	input_1.adb	/^         accept Accepter$/;"	e	identifier:Boucle_Principale	file:
 Mon_Autre_Tasche	input_1.adb	/^   task body Mon_Autre_Tasche is$/;"	k	package:Input_1	file:
 Une_Autre_Tasche_1	input_1.adb	/^   Une_Autre_Tasche_1 : Tasche_Type_1_T;$/;"	v	package:Input_1	file:
 Tasche_Type_1_T	input_1.adb	/^   task body Tasche_Type_1_T is$/;"	k	package:Input_1	file:

Units/parser-ada.r/ada-separate.d/args.ctags

@@ -0,0 +1,3 @@
+--sort=no
+--extras=+r
+--fields=+r

Units/parser-ada.r/ada-separate.d/expected.tags

@@ -0,0 +1,6 @@
+Buffer	input.adb	/^separate (Buffer);$/;"	p	roles:subunit
+Test	input.adb	/^package body Test is$/;"	p	package:Buffer	roles:def
+Parent	input-1.adb	/^package body Parent is$/;"	p	roles:def
+Variable	input-1.adb	/^    Variable : String := "Hello, there.";$/;"	v	package:Parent	file:	roles:def
+Parent	input-1.adb	/^separate(Parent)$/;"	p	roles:subunit
+Inner	input-1.adb	/^procedure Inner is$/;"	r	package:Parent	roles:def

Units/parser-ada.r/ada-separate.d/input-1.adb

@@ -0,0 +1,12 @@
+--  Taken from https://www.adaic.org/resources/add_content/standards/05rm/html/RM-10-1-3.html
+package body Parent is
+    Variable : String := "Hello, there.";
+    procedure Inner is separate;
+end Parent;
+
+with Ada.Text_IO;
+separate(Parent)
+procedure Inner is
+begin
+    Ada.Text_IO.Put_Line(Variable);
+end Inner;

Units/parser-ada.r/ada-separate.d/input.adb

@@ -0,0 +1,11 @@
+--  Taken from #2943 submitted by @koenmeersman
+with Ada.Text_IO;
+
+separate (Buffer);
+
+package body Test is
+  procedure Inner is separate;
+begin
+  null;
+end Test;
+

Units/parser-ada.r/ada-whitespaces-between-id-and-colon.d/args.ctags

@@ -0,0 +1 @@
+--sort=no

Units/parser-ada.r/ada-whitespaces-between-id-and-colon.d/expected.tags

@@ -0,0 +1,3 @@
+Go	input.adb	/^procedure Go is$/;"	r
+Loop_Label	input.adb	/^  Loop_Label :$/;"	i	subprogram:Go	file:
+Not_Tagged	input.adb	/^      procedure Not_Tagged is$/;"	r	anon:declare	file:

Units/parser-ada.r/ada-whitespaces-between-id-and-colon.d/input.adb

@@ -0,0 +1,15 @@
+--  Taken from #2933 submitted by @koenmeersman
+procedure Go is
+begin
+  Loop_Label :
+  while True loop
+    declare
+      procedure Not_Tagged is
+      begin
+        null;
+      end Step_T;
+    begin
+      null;
+    end;
+  end loop Loop_Label;
+end Go;