1--
2-- Copyright (C) 1998
3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
4--
5-- Permission to use, copy, modify, and distribute this
6-- software and its documentation for EDUCATIONAL purposes
7-- and without fee is hereby granted provided that this
8-- copyright notice appears in all copies.
9--
10--
11
12-- date : January 1, 1998.
13-- author : Salih Yurttas.
14
15-- io_list_character_p.adb
16
17
18package body IO_List_Character_P is
19
20 procedure Get_List_Character(N : out Integer;
21 A : out List_Character) is
22 File_Name : String(1..16);
23 Length : Integer;
24 In_Data : File_Type;
25
26 K : Integer := 0;
27 begin
28
29 loop
30 begin
31 New_Line;
32 Put("--> In_Name: ");
33 Get_Line(File_Name,Length);
34 Open(In_Data,In_File,File_Name(1..Length));
35 exit;
36 exception
37 when NAME_ERROR => Put_Line("Try again...");
38 end;
39 end loop;
40
41 while not End_of_File(In_Data)
42 loop
43 K := K + 1;
44 Get(In_Data,A(K));
45 end loop;
46
47 N := K;
48
49 Close(In_Data);
50
51 end Get_List_Character;
52
53 procedure Put_List_Character(N : in Integer;
54 A : in List_Character;
55 PageHeader : in String) is
56
57 File_Name : String(1..16);
58 Length : Integer;
59 Out_Data : File_Type;
60 begin
61
62 New_Line;
63 Put("--> Out_Name: ");
64 Get_Line(File_Name,Length);
65 Create(Out_Data,Out_File,File_Name(1..Length));
66
67 New_Line(Out_Data);
68 Put(Out_Data,PageHeader);
69 New_Line(Out_Data);
70 for I in 1..N
71 loop
72 Put(Out_Data,A(I));
73 New_Line(Out_Data);
74 end loop;
75
76 Close(Out_Data);
77
78 end Put_List_Character;
79
80end IO_List_Character_P;