PrettyPrinter: remove the obsolete type_tag_suffix class attribute

TN: Q814-002

Author: pmderodat

gnatdbg/lists.py

@@ -10,7 +10,6 @@ class DoublyLinkedListPrinter(PrettyPrinter):
     """Pretty-print Ada.Containers.Doubly_Linked_Lists values."""
 
     name            = 'Doubly_Linked_List'
-    type_tag_suffix = 'list'
 
     node_pattern    = Match.TypeName(
         suffix='.node_type', pattern=Match.Struct(
@@ -58,8 +57,6 @@ class DoublyLinkedListCursorPrinter(PrettyPrinter):
 
     name            = 'Doubly_Linked_List_Cursor'
 
-    type_tag_suffix = 'cursor'
-
     type_pattern    = Match.TypeName(suffix='.cursor', pattern=Match.Struct(
         Match.Field('container',
                     Match.Pointer(DoublyLinkedListPrinter.type_pattern)),

gnatdbg/maps.py

@@ -32,7 +32,6 @@ class OrderedMapPrinter(BaseMapPrinter):
     """Pretty-print Ada.Containers.Ordered_Maps.Map values."""
 
     name            = 'Ordered_Map'
-    type_tag_suffix = 'map'
 
     type_pattern    = Match.TypeName(suffix='.map', pattern=Match.Struct(
         Match.Field('_parent'),
@@ -59,8 +58,6 @@ class OrderedMapCursorPrinter(PrettyPrinter):
 
     name            = 'Ordered_Map_Cursor'
 
-    type_tag_suffix = 'cursor'
-
     type_pattern    = Match.TypeName(suffix='.cursor', pattern=Match.Struct(
         Match.Field('container',
                     Match.Pointer(OrderedMapPrinter.type_pattern)),
@@ -82,7 +79,6 @@ class HashedMapPrinter(BaseMapPrinter):
     """Pretty-print Ada.Containers.Hashed_Maps.Map values."""
 
     name            = 'Hashed_Map'
-    type_tag_suffix = 'map'
 
     type_pattern    = Match.TypeName(suffix='.map', pattern=Match.Struct(
         Match.Field('_parent'),
@@ -106,8 +102,6 @@ class HashedMapCursorPrinter(PrettyPrinter):
 
     name            = 'Ordered_Map_Cursor'
 
-    type_tag_suffix = 'cursor'
-
     type_pattern    = Match.TypeName(suffix='.cursor', pattern=Match.Struct(
         Match.Field('container',
                     Match.Pointer(HashedMapPrinter.type_pattern)),

gnatdbg/printers.py

@@ -10,10 +10,10 @@ class PrettyPrinter(object):
     Instances must comply to GDB's Pretty Printing API
     (https://sourceware.org/gdb/onlinedocs/gdb/Pretty-Printing-API.html).
 
-    Class attributes (`type_tag`, `generic`, `type_tag_suffix` and
-    `type_pattern`) must be overriden to describe the set of types that this
-    pretty-printer can match. If it must match types that have a very specific
-    name, `type_tag` must be overriden.
+    Class attributes (`type_tag`, `generic`, and `type_pattern`) must be
+    overriden to describe the set of types that this pretty-printer can match.
+    If it must match types that have a very specific name, `type_tag` must be
+    overriden.
 
     If there is no specific name, it probably means that the type comes from a
     generic package instantiation. As of today, debuggers do not know anything
@@ -38,17 +38,6 @@ class PrettyPrinter(object):
     For non-generic types.
     """
 
-    type_tag_suffix = None
-    """
-    Suffix for the instance-independent part of the symbol name of the type
-    this pretty-printer must match. For instance, if we want to match
-    "Some_Type", a type declared in a "Pkg" package that is itself declared in
-    the "Project.Gen_Module" generic package, this should be
-    "__pkg__some_type".
-
-    For generic types.
-    """
-
     type_pattern = None
     """
     If not None, this must be an instance of gnatdbg.generics.Match.BasePattern

gnatdbg/sets.py

@@ -24,7 +24,6 @@ class OrderedSetPrinter(BaseSetPrinter):
     """Pretty-print Ada.Containers.Ordered_Sets.Set values."""
 
     name            = 'Ordered_Set'
-    type_tag_suffix = 'set'
 
     type_pattern    = Match.TypeName(suffix='.set', pattern=Match.Struct(
         Match.Field('_parent'),
@@ -50,8 +49,6 @@ class OrderedSetCursorPrinter(PrettyPrinter):
 
     name            = 'Ordered_Set_Cursor'
 
-    type_tag_suffix = 'cursor'
-
     type_pattern    = Match.TypeName(suffix='.cursor', pattern=Match.Struct(
         Match.Field('container',
                     Match.Pointer(OrderedSetPrinter.type_pattern)),
@@ -70,7 +67,6 @@ class HashedSetPrinter(BaseSetPrinter):
     """Pretty-print Ada.Containers.Hashed_Sets.Set values."""
 
     name            = 'Hashed_Set'
-    type_tag_suffix = 'set'
 
     type_pattern    = Match.TypeName(suffix='.set', pattern=Match.Struct(
         Match.Field('_parent'),
@@ -93,8 +89,6 @@ class HashedSetCursorPrinter(PrettyPrinter):
 
     name            = 'Ordered_Set_Cursor'
 
-    type_tag_suffix = 'cursor'
-
     type_pattern    = Match.TypeName(suffix='.cursor', pattern=Match.Struct(
         Match.Field('container',
                     Match.Pointer(HashedSetPrinter.type_pattern)),

gnatdbg/vectors.py

@@ -9,8 +9,6 @@ class VectorPrinter(PrettyPrinter):
 
     name            = 'Vector'
 
-    type_tag_suffix = 'vector'
-
     type_pattern    = Match.TypeName(suffix='.vector', pattern=Match.Struct(
         Match.Field('_parent'),
         Match.Field('elements', Match.Pointer(
@@ -92,8 +90,6 @@ class VectorCursorPrinter(PrettyPrinter):
 
     name            = 'Vector_Cursor'
 
-    type_tag_suffix = 'cursor'
-
     type_pattern    = Match.TypeName(suffix='.cursor', pattern=Match.Struct(
         Match.Field('container',
                     Match.Pointer(VectorPrinter.type_pattern)),