Survey.Text_io (Cave Survey Code in Ada): (Specification)


--  © Copyright 1999 by John Halleck
--  All rights reserved.

with Ada.Text_IO;       use Ada.Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;

package body Survey.Text_IO is

   procedure Put (Point : in Location) is
   begin
      Put ('[');
      for i in Coordinate loop
         Put (' '); Put (Float (Point (X)));
      end loop;
      Put (" ]");
   end Put;

   procedure Put (Variance : in Covariance) is
   begin
      Put ('[');
      for i in Packed_Subscript loop
         Put (' '); Put (Float (Variance (i)));
      end loop;
      Put (" ]");
   end Put;

   procedure Put (Weights : in Weight) is
   begin
      Put ('[');
      for i in Packed_Subscript loop
         Put (' '); Put (Float (Weights (i)));
      end loop;
      Put (" ]");
   end Put;

end Survey.Text_IO;

Go to ...


This page is http://www.cc.utah.edu/~nahaj/cave/survey/code/ada/survey-text_io.adb.html
© Copyright 2000 by John Halleck, All Rights Reserved.
This snapshot was last modified on February 1st, 2001
And the underlying file was last modified on November 11th, 1999