Gem #113: Visitor Pattern in Ada

procedure Visit_CClass (Self : in out Visitor; Obj : CClass'Class) is begin -In UML, a "Class" inherits from a "NamedElement". -Concrete implementations of the visitor might want to work at the -"NamedElement" level (so that their code applies to both a Class -and a Package, for instance), rather than duplicate the work for each -child of NamedElement. The default implementation here is to call the