File: [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Supports / integer_faces_of_polytope_io.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:28 2000 UTC (23 years, 10 months ago) by maekawa
Branch: PHC, MAIN
CVS Tags: v2, maekawa-ipv6, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, HEAD Changes since 1.1: +0 -0
lines
Import the second public release of PHCpack.
OKed by Jan Verschelde.
|
with integer_io; use integer_io;
with Standard_integer_VecVecs; use Standard_integer_VecVecs;
with Standard_integer_VecVecs_io; use Standard_integer_VecVecs_io;
package body Integer_Faces_of_Polytope_io is
procedure put ( f : in Face ) is
begin
put(Standard_Output,f);
end put;
procedure put ( file : in file_type; f : in Face ) is
begin
put(file," spanned by "); put(file,f.all'length,1);
put_line(file," points :"); put(file,f.all);
end put;
procedure put ( f : in Faces ) is
begin
put(Standard_Output,f);
end put;
procedure put ( file : in file_type; f : in Faces ) is
cnt : natural := 0;
tmp : Faces := f;
begin
while not Is_Null(tmp) loop
cnt := cnt + 1;
put(file,"Face "); put(file,cnt,1); put(file,Head_Of(tmp));
tmp := Tail_Of(tmp);
end loop;
end put;
procedure put ( f : in Array_of_Faces ) is
begin
put(Standard_Output,f);
end put;
procedure put ( file : in file_type; f : in Array_of_Faces ) is
begin
for i in f'range loop
if not Is_Null(f(i))
then put(file,"faces at component "); put(file,i,1);
put_line(file," :"); put(file,f(i));
end if;
end loop;
end put;
end Integer_Faces_of_Polytope_io;