emacs_ada_mode_8.1.0_114ab44a/test/ada_mode-nested_packages.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
--EMACSCMD:(setq skip-recase-test t) we have identifiers that don't follow the standard naming convention

-- test align of 'use'. need a blank line to avoid indenting this comment (sigh). result is tested with diff.
--EMACSCMD:(progn (forward-line 2)(forward-word 3)(forward-char 1)(insert "   ")(ada-align))

with Ada.Directories;  use Ada.Directories;
with Ada.Text_IO;      use Ada.Text_IO;
with Ada_Mode.Nominal; use Ada_Mode.Nominal;
package Ada_Mode.Nested_Packages is

   Local_Exception_1 : exception renames
     Global_Exception_1;

   package Sequencer is
      function Create (Model   : in Integer;
                       Context : in String) return String;
   end Sequencer;

   package Wem is
      procedure GetVariableValue;
   end Wem;

   procedure F;

   procedure Server_Begin;

   package Test_Format is
      procedure Test_Proc;
   end Test_Format;

   package TestForWhile is
      procedure Test;
   end TestForWhile;

private -- part of Ada_Mode.Nested_Packages, not Private_Only

   package Private_Only is
   private
      package Private_Package is
      end Private_Package;
      A : Integer;
   end Private_Only;

   procedure Test_For_1;

end Ada_Mode.Nested_Packages;