Yurttas/PL/IL/Ada-95/F/05/02/00/dir fp 00.adb

 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-- date   : December 4, 1989.
12-- author : Michael Nobles.
13
14-- purpose : IO with key randomization using 'Direct_IO' package.
15
16-- dir_fp_00.adb
17
18
19with Dir_FP_P;
20use Dir_FP_P;
21
22with Menu_P;
23use Menu_P;
24
25with Current_File_P;
26use Current_File_P;
27
28with Read_P;
29use Read_P;
30
31with Write_P;
32use Write_P;
33
34with Find_P;
35use Find_P;
36
37Procedure Dir_FP_00 is
38
39  Size   : Integer;
40  Choice : Integer;
41
42  Processing : Boolean := True;
43
44  Data_File_Name : Pointer_String;
45
46begin
47
48  Size := Data_Rec'SIZE;
49
50  Change_File(Data_File_Name,1);
51  Show_Menu;
52
53  while Processing
54  loop
55    Choice := Menu_Choice;
56
57    case Choice is
58      when 1 => Change_File(Data_File_Name,
59                            2);
60
61      when 2 => Read_Rec(Data_File_Name,
62                         Size);
63
64      when 3 => Write_Rec(Data_File_Name,
65                          Size);
66
67      when 4 => Find_Rec(Data_File_Name,
68                         Size);
69
70      when 5 => Processing := false;
71
72      when others => null;
73    end case;
74  end loop;
75
76  Dir_IO.Close(Data_FP);
77
78end Dir_FP_00;