Return to ts_commuser.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / System

Annotation of OpenXM_contrib/PHC/Ada/System/ts_commuser.adb, Revision 1.1.1.1

1.1       maekawa     1: with text_io;                            use text_io;
                      2: with Communications_with_User;           use Communications_with_User;
                      3:
                      4: procedure ts_commuser is
                      5:
                      6: -- DESCRIPTION :
                      7: --   Tests the dialogues with the user.
                      8:
                      9:   procedure Create_and_Write is
                     10:
                     11:     file : file_type;
                     12:     c : character;
                     13:
                     14:   begin
                     15:     put_line("Reading the name of an output file.");
                     16:     Read_Name_and_Create_File(file);
                     17:     put("Give a character : "); get(c);
                     18:     put(file,c);
                     19:     Close(file);
                     20:   end Create_and_Write;
                     21:
                     22:   procedure Open_and_Read is
                     23:
                     24:     file : file_type;
                     25:     c : character;
                     26:
                     27:   begin
                     28:     put_line("Reading the name of an input file.");
                     29:     Read_Name_and_Open_File(file);
                     30:     get(file,c);
                     31:     put("The first character read : "); put(c); new_line;
                     32:     Close(file);
                     33:   end Open_and_Read;
                     34:
                     35:   procedure Main is
                     36:
                     37:     ans : character;
                     38:
                     39:   begin
                     40:     loop
                     41:       put_line("Choose one of the following :");
                     42:       put_line("  0. Exit: leave this menu.");
                     43:       put_line("  1. Create an output file and write a character to it.");
                     44:       put_line("  2. Open an file for input and read a first character.");
                     45:       put("Make your choice : "); Ask_Alternative(ans,"012");
                     46:       case ans is
                     47:         when '1' => Create_and_Write;
                     48:         when '2' => Open_and_Read;
                     49:         when others => null;
                     50:       end case;
                     51:       put("Do you want more tests ? (y/n) "); Ask_Yes_or_No(ans);
                     52:       exit when (ans /= 'y');
                     53:     end loop;
                     54:   end Main;
                     55:
                     56: begin
                     57:   Main;
                     58: end ts_commuser;