objects.ads

来自「Ada 2005 Training Notes.」· ADS 代码 · 共 17 行

package Objects is
   -- type Object is interface;
   type Object is abstract tagged
      record
         X_Coord: Float;
         Y_Coord: Float;
      end record;


   function Distance(OC: Object'Class) return Float;
   -- Derived types w/b implement abstract functions

   function Area(O: Object) return Float is abstract;
   function X_Coordinate(O: in Object) return Float is abstract;
   function Y_Coordinate(O: in Object) return Float is abstract;
end Objects;