Return to bracket_systems_io.adb CVS log | Up to [local] / OpenXM_contrib / PHC / Ada / Schubert |
File: [local] / OpenXM_contrib / PHC / Ada / Schubert / bracket_systems_io.adb (download)
Revision 1.1, Sun Oct 29 17:45:32 2000 UTC (23 years, 8 months ago) by maekawa
Initial revision |
with Bracket_Polynomials_io; use Bracket_Polynomials_io; package body Bracket_Systems_io is procedure put ( s : in Bracket_System ) is begin put(Standard_Output,s); end put; procedure put ( file : in file_type; s : in Bracket_System ) is begin for i in s'range loop put(file,s(i)); end loop; end put; end Bracket_Systems_io;