diff options
Diffstat (limited to 'gcc/ada/a-cidlli.ads')
| -rw-r--r-- | gcc/ada/a-cidlli.ads | 99 |
1 files changed, 56 insertions, 43 deletions
diff --git a/gcc/ada/a-cidlli.ads b/gcc/ada/a-cidlli.ads index eb8657fe4fd..9e2d2351268 100644 --- a/gcc/ada/a-cidlli.ads +++ b/gcc/ada/a-cidlli.ads @@ -7,7 +7,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2004-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2005, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -62,46 +62,47 @@ package Ada.Containers.Indefinite_Doubly_Linked_Lists is procedure Clear (Container : in out List); - function Element (Position : Cursor) - return Element_Type; + function Element (Position : Cursor) return Element_Type; + + procedure Replace_Element + (Container : in out List; + Position : Cursor; + New_Item : Element_Type); procedure Query_Element (Position : Cursor; Process : not null access procedure (Element : Element_Type)); procedure Update_Element - (Position : Cursor; - Process : not null access procedure (Element : in out Element_Type)); - - procedure Replace_Element - (Position : Cursor; - By : Element_Type); + (Container : in out List; + Position : Cursor; + Process : not null access procedure (Element : in out Element_Type)); procedure Move (Target : in out List; Source : in out List); - procedure Prepend + procedure Insert (Container : in out List; + Before : Cursor; New_Item : Element_Type; Count : Count_Type := 1); - procedure Append + procedure Insert (Container : in out List; + Before : Cursor; New_Item : Element_Type; + Position : out Cursor; Count : Count_Type := 1); - procedure Insert + procedure Prepend (Container : in out List; - Before : Cursor; New_Item : Element_Type; Count : Count_Type := 1); - procedure Insert + procedure Append (Container : in out List; - Before : Cursor; New_Item : Element_Type; - Position : out Cursor; Count : Count_Type := 1); procedure Delete @@ -117,21 +118,9 @@ package Ada.Containers.Indefinite_Doubly_Linked_Lists is (Container : in out List; Count : Count_Type := 1); - generic - with function "<" (Left, Right : Element_Type) return Boolean is <>; - package Generic_Sorting is - - function Is_Sorted (Container : List) return Boolean; - - procedure Sort (Container : in out List); - - procedure Merge (Target, Source : in out List); - - end Generic_Sorting; + procedure Reverse_Elements (Container : in out List); - procedure Reverse_List (Container : in out List); - - procedure Swap (I, J : Cursor); + procedure Swap (Container : in out List; I, J : Cursor); procedure Swap_Links (Container : in out List; I, J : Cursor); @@ -143,13 +132,13 @@ package Ada.Containers.Indefinite_Doubly_Linked_Lists is procedure Splice (Target : in out List; Before : Cursor; - Position : Cursor); + Source : in out List; + Position : in out Cursor); procedure Splice (Target : in out List; Before : Cursor; - Source : in out List; - Position : in out Cursor); + Position : Cursor); function First (Container : List) return Cursor; @@ -159,9 +148,13 @@ package Ada.Containers.Indefinite_Doubly_Linked_Lists is function Last_Element (Container : List) return Element_Type; - function Contains - (Container : List; - Item : Element_Type) return Boolean; + function Next (Position : Cursor) return Cursor; + + procedure Next (Position : in out Cursor); + + function Previous (Position : Cursor) return Cursor; + + procedure Previous (Position : in out Cursor); function Find (Container : List; @@ -173,13 +166,9 @@ package Ada.Containers.Indefinite_Doubly_Linked_Lists is Item : Element_Type; Position : Cursor := No_Element) return Cursor; - function Next (Position : Cursor) return Cursor; - - function Previous (Position : Cursor) return Cursor; - - procedure Next (Position : in out Cursor); - - procedure Previous (Position : in out Cursor); + function Contains + (Container : List; + Item : Element_Type) return Boolean; function Has_Element (Position : Cursor) return Boolean; @@ -191,6 +180,18 @@ package Ada.Containers.Indefinite_Doubly_Linked_Lists is (Container : List; Process : not null access procedure (Position : Cursor)); + generic + with function "<" (Left, Right : Element_Type) return Boolean is <>; + package Generic_Sorting is + + function Is_Sorted (Container : List) return Boolean; + + procedure Sort (Container : in out List); + + procedure Merge (Target, Source : in out List); + + end Generic_Sorting; + private type Node_Type; type Node_Access is access Node_Type; @@ -244,6 +245,18 @@ private Node : Node_Access; end record; + procedure Read + (Stream : access Root_Stream_Type'Class; + Item : out Cursor); + + for Cursor'Read use Read; + + procedure Write + (Stream : access Root_Stream_Type'Class; + Item : Cursor); + + for Cursor'Write use Write; + No_Element : constant Cursor := Cursor'(null, null); end Ada.Containers.Indefinite_Doubly_Linked_Lists; |