previous up next
Go backward to Packages and Abstract Data Types
Go up to Top
Go forward to Hidden Data Structures
RISC-Linz logo

Ada Packages

package point1 is
   function makepoint(x: Real, y: Real) return Point;
   function x_coord(P: Point) return Real;
   function y_coord(P: Point) return Real;
end point1;

package body point1 is
   function makepoint(x: Real, y: Real) return Point;
      - - implementation of makepoint
   function x_coord(P: Point) return Real;
      - - implementation of x_coord
   function y_coord(P: Point) return Real;
      - - implementation of y_coord
end point1;

Package specification and body are part of value specification!


Author: Wolfgang Schreiner
Last Modification: May 27, 1998

previous up next