Return to symbol_table_io.ads CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Polynomials

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Polynomials/symbol_table_io.ads, Revision 1.1.1.1

1.1       maekawa     1: with text_io;                            use text_io;
                      2: with Symbol_Table;                       use Symbol_Table;
                      3:
                      4: package Symbol_Table_io is
                      5:
                      6: -- DESCRIPTION :
                      7: --   This package provides i/o operations for symbols.
                      8:
                      9:   procedure get ( sb : in out symbol );
                     10:   procedure get ( sb : in out symbol; delimiter : in character );
                     11:   procedure get ( ch : in out character; sb : in out symbol );
                     12:   procedure get ( ch : in out character; sb : in out symbol;
                     13:                   delimiter : in character );
                     14:   procedure get ( file : in file_type; sb : in out symbol );
                     15:   procedure get ( file : in file_type; sb : in out symbol;
                     16:                   delimiter : in character );
                     17:   procedure get ( file : in file_type;
                     18:                   ch : in out character; sb : in out symbol );
                     19:   procedure get ( file : in file_type;
                     20:                   ch : in out character; sb : in out symbol;
                     21:                   delimiter : in character );
                     22:
                     23:   -- DESCRIPTION :
                     24:   --   Reads a symbol from standard input or from file.
                     25:   --   Skips blanks before and after the symbol.
                     26:   --   When a character is given as parameter, it can already
                     27:   --   contain the first character of the symbol.
                     28:   --   Reading stops when either the length of the symbol is reached,
                     29:   --   or when a blank or a delimiter is encountered.
                     30:
                     31:   procedure put ( sb : in symbol );
                     32:   procedure put ( file : in file_type; sb : in symbol );
                     33:
                     34:   -- DESCRIPTION :
                     35:   --   Writes a symbol on standard output or on file.
                     36:   --   Blanks after the symbol are not written.
                     37:
                     38: end Symbol_Table_io;