View source for Yurttas/PL/IL/Ada-95/F/05/00/B/io list boolean p.adb

<syntaxhighlight lang="ada" line start="1" enclose="div">--
-- Copyright(C) 1998
-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
--
-- Permission to use, copy, modify, and distribute this
-- software and its documentation for EDUCATIONAL purposes
-- and without fee is hereby granted provided that this
-- copyright notice appears in all copies.
--
 
-- date   : January 1, 1998.
-- author : Salih Yurttas.

-- io_list_boolean_p.adb


package body IO_List_Boolean_P is

  package Bool_IO is new Enumeration_IO(Boolean);
  use Bool_IO;

  procedure Get_List_Boolean(N : out Integer;
                             A : out List_Boolean) is
    File_Name : String(1..16);
    Length    : Integer;
    In_Data   : File_Type;

    K : Integer := 0;
  begin

    loop 
      begin
        New_Line;
        Put("--> In_Name: ");
        Get_Line(File_Name,Length);
        Open(In_Data,In_File,File_Name(1..Length));
        exit;
      exception
        when NAME_ERROR => Put_Line("Try again...");
      end;
    end loop;

    while not End_of_File(In_Data)
    loop
      K := K + 1;
      Get(In_Data,A(K));
    end loop;

    N := K;

    Close(In_Data);

  end Get_List_Boolean;

  procedure Put_List_Boolean(N          : in Integer;
                             A          : in List_Boolean;
                             PageHeader : in String) is

    File_Name : String(1..16);
    Length    : Integer;
    Out_Data  : File_Type;
  begin

    New_Line;
    Put("--> Out_Name: ");
    Get_Line(File_Name,Length);
    Create(Out_Data,Out_File,File_Name(1..Length));

    New_Line(Out_Data);
    Put(Out_Data,PageHeader);
    New_Line(Out_Data);
    for I in 1..N
    loop
      Put(Out_Data,A(I)); 
      New_Line(Out_Data);
    end loop;

    Close(Out_Data);

  end Put_List_Boolean;

end IO_List_Boolean_P;
</syntaxhighlight>