Merge branch 'sync/mr/pmderodat/unparsing-trivias' into 'master'

Unparsing: trivias preservation

See merge request eng/libadalang/libadalang!1664

extensions/default_unparsing_config.json

@@ -5746,5 +5746,6 @@
         ]
       }
     }
-  }
+  },
+  "max_empty_lines": 1
 }

testsuite/tests/unparsing/protected_body/simple_body/test.out

@@ -4,6 +4,7 @@ protected body Shared_Array is
    begin
       return Table (N);
    end Component;
+
    procedure Set_Component (N : in Index; E : in Item)
    is
    begin

testsuite/tests/unparsing/protected_body/with_entry/test.out

@@ -4,6 +4,7 @@ protected body Resource is
    begin
       Busy := True;
    end Seize;
+
    procedure Release
    is
    begin

testsuite/tests/unparsing/record_type_def/record_mixed_with_variant/test.out

@@ -1,6 +1,8 @@
 type Expr (Kind : Expr_Kind_Type) is
   record
+
     Count : Integer;
+
     case Kind is
        when Bin_Op_A | Bin_Op_B =>
           L, R : Expr_Access;

testsuite/tests/unparsing/record_type_def/record_with_variant/test.out

@@ -1,10 +1,11 @@
 type Expr (Kind : Expr_Kind_Type) is
   record
+
     case Kind is
        when Bin_Op_A | Bin_Op_B =>
           L, R : Expr_Access;
 
        when Num =>
           Val : Integer;
     end case;
-  end record;
+  end record;

testsuite/tests/unparsing/task_type_decl/single_task_decl_with_family_of_entries/test.out

@@ -1,3 +1,3 @@
 task Controller is
-   entry Request (Level) (D : Item);
+   entry Request (Level) (D : Item);  --  a family of entries
 end Controller;