- ))
-
- (object_renaming_declaration
- (+ (current-indentation) ada-indent-broken))
- ))
-
- (t
- (while (not (wisi-cache-nonterm containing))
- (setq containing (wisi-goto-containing containing)))
-
- (cl-ecase (wisi-cache-nonterm containing)
- (aggregate
- ;; indenting 'with'
- (+ (current-column) 1))
-
- (association_list
- ;; test/ada_mode-parens.adb
- ;; Local_13 : Local_11_Type
- ;; := (Integer'(1),
- ;; Integer'(2));
- (ada-wisi-indent-cache 0 containing))
-
- (association_opt
- ;; test/indent.ads
- ;; 1 => -- Used to be aligned on "CSCL_Type'"
- ;; -- aligned with previous comment.
- ;; IO_CPU_Control_State_S_Pkg.CPU2_Fault_Status_Type'
- (ada-wisi-indent-cache ada-indent-broken containing))
-
- (asynchronous_select
- ;; indenting 'abort'
- (+ (current-column) ada-indent-broken))
-
- (component_declaration
- ;; test/ada_mode-nominal.ads record_type_3
- (+ (current-column) ada-indent-broken))
-
- (entry_body
- ;; indenting 'when'
- (+ (current-column) ada-indent-broken))
-
- (formal_package_declaration
- ;; test/ada_mode-generic_package.ads
- ;; with package A_Package_7 is
- ;; new Ada.Text_IO.Integer_IO (Num => Formal_Signed_Integer_Type);
- ;; indenting 'new'
- (+ (current-column) ada-indent-broken))
-
- (full_type_declaration
- ;; test/ada_mode-nominal.ads
- ;; type Unconstrained_Array_Type_3 is array (Integer range <>, Standard.Character range <>)
- ;; of Object_Access_Type_1;
- ;; indenting 'of'
- ;;
- ;; type Object_Access_Type_7
- ;; is access all Integer;
- ;; indenting 'is'
- ;;
- ;; type Limited_Derived_Type_1 is abstract limited new Private_Type_1 with
- ;; record
- ;; indenting 'record'
- ;;
- ;; type Limited_Derived_Type_3 is abstract limited new Private_Type_1
- ;; with null record;
- ;; indenting 'with'
- ;;
- ;; type Limited_Derived_Type_2a is abstract limited new Private_Type_1
- ;; with record
- ;; indenting 'with record'
- ;;
- ;; test/access_in_record.ads
- ;; type A
- ;; is new Ada.Streams.Root_Stream_Type with record
- ;; FIXME: line with 'record' use ada-indent-record-rel-type
-
- (while (not (eq 'TYPE (wisi-cache-token containing)))
- (setq containing (wisi-goto-containing containing)))
-
- (cond
- ((eq (wisi-cache-token cache) 'RECORD)
- (+ (current-column) ada-indent-record-rel-type))
-
- ((eq (wisi-cache-token cache) 'WITH)
- (let ((type-col (current-column)))
- (wisi-goto-end-1 cache)
- (if (eq 'WITH (wisi-cache-token (wisi-backward-cache)))
- ;; 'with null record;' or 'with private;'
- (+ type-col ada-indent-broken)
- (+ type-col ada-indent-record-rel-type))))
-
- (t
- (+ (current-column) ada-indent-broken))
- ))
-
- (generic_instantiation
- ;; test/ada_mode-generic_instantiation.ads
- ;; procedure Procedure_7 is
- ;; new Instance.Generic_Procedure (Integer, Function_1);
- ;; indenting 'new'
- (+ (current-column) ada-indent-broken))
-
- (generic_renaming_declaration
- ;; indenting keyword following 'generic'
- (current-column))
-
- (object_declaration
- (cl-ecase (wisi-cache-token containing)
- (COLON
- ;; test/ada_mode-nominal.ads
- ;; Anon_Array_3 : array (1 .. 10)
- ;; of Integer;
- ;; indenting 'of'
- (+ (current-indentation) ada-indent-broken))
-
- (COLON_EQUAL
- ;; test/indent.ads
- ;; C_S_Controls : constant
- ;; CSCL_Type :=
- ;; CSCL_Type'
- ;; indenting 'CSCL_Type'
- (+ (current-indentation) ada-indent-broken))
-
- (identifier_list
- ;; test/ada_mode-nominal.adb
- ;; Local_2 : constant Float
- ;; := Local_1;
- (+ (current-indentation) ada-indent-broken))
- ))
-
- (private_extension_declaration
- ;; test/ada_mode-nominal.ads
- ;; type Limited_Derived_Type_3 is abstract limited
- ;; new Private_Type_1 with private;
- (+ (current-indentation) ada-indent-broken))
-
- (private_type_declaration
- ;; test/aspects.ads
- ;; type Vector is tagged private
- ;; with
- ;; indenting 'with'
- (current-indentation))
-
- (qualified_expression
- ;; test/ada_mode-nominal-child.ads
- ;; Child_Obj_5 : constant Child_Type_1 :=
- ;; (Parent_Type_1'
- ;; (Parent_Element_1 => 1,
- (ada-wisi-indent-cache ada-indent-broken containing))
-
- (statement
- (cl-case (wisi-cache-token containing)
- (label_opt
- (- (current-column) ada-indent-label))
-
- (t
- ;; test/ada_mode-nominal.adb
- ;; select
- ;; delay 1.0;
- ;; then
- ;; -- ...
- ;; abort
- (ada-wisi-indent-cache ada-indent-broken cache))
- ))
-
- ((subprogram_body subprogram_declaration subprogram_specification null_procedure_declaration)
- (cl-ecase (wisi-cache-token cache)
- (OVERRIDING
- ;; indenting 'overriding' following 'not'
- (current-column))
-
- ((PROCEDURE FUNCTION)
- ;; indenting 'procedure' or 'function following 'overriding'
- (current-column))
-
- (WITH
- ;; indenting aspect specification on subprogram declaration
- ;; test/aspects.ads
- ;; procedure Foo (X : Integer;
- ;; Y : out Integer)
- ;; with Pre => X > 10 and
- ;; indenting 'with'
- (current-column))
- ))