Return to symmetry_group_io.ads CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Root_Counts / Symmetry

Annotation of OpenXM_contrib/PHC/Ada/Root_Counts/Symmetry/symmetry_group_io.ads, Revision 1.1.1.1

1.1       maekawa     1: with text_io;                            use text_io;
                      2: with Permutations,Symmetry_Group;        use Permutations,Symmetry_Group;
                      3:
                      4: package Symmetry_Group_io is
                      5:
                      6: -- DESCRIPTION :
                      7: --   This package contains routines for input and output of
                      8: --   permutations and groups of permutations.
                      9:
                     10:   procedure get ( p : out Permutation );
                     11:   procedure get ( file : in file_type; p : out Permutation );
                     12:
                     13:   -- DESCRIPTION :
                     14:   --   Reads a permutation from standard input or from file.
                     15:
                     16:   procedure get ( l : in out List_of_Permutations; n,nb : in natural );
                     17:   procedure get ( file : in file_type;
                     18:                  l : in out List_of_Permutations; n,nb : in natural );
                     19:
                     20:   -- DESCRIPTION :
                     21:   --   Reads a list of permutations from standard in put or from file.
                     22:   --   Vectors that do not represent permutations are ignored.
                     23:
                     24:   -- ON ENTRY :
                     25:   --   n          the number of elements in the permutations;
                     26:   --   nb         the total number of permutations that must be read.
                     27:
                     28:   procedure put ( p : in Permutation );
                     29:   procedure put ( file : in file_type; p : in Permutation );
                     30:
                     31:   -- DESCRIPTION :
                     32:   --   Writes a permutation on standard output or on file.
                     33:
                     34:   procedure put ( l : in List_of_Permutations );
                     35:   procedure put ( file : in file_type; l : in List_of_Permutations );
                     36:
                     37:   -- DESCRIPTION :
                     38:   --   Writes a list of permutations on standard output or on file.
                     39:
                     40: end Symmetry_Group_io;