added some file io routines
This commit is contained in:
62
h2/lib/h2-io-file.adb
Normal file
62
h2/lib/h2-io-file.adb
Normal file
@ -0,0 +1,62 @@
|
||||
separate (H2.IO)
|
||||
|
||||
package body File is
|
||||
|
||||
procedure Open (File: in out File_Record;
|
||||
Name: in Slim_String;
|
||||
Flag: in Flag_Record;
|
||||
Pool: in Storage_Pool_Pointer := null) is
|
||||
begin
|
||||
Sysapi.File.Open (File.File, Name, flag, Pool => Pool);
|
||||
end Open;
|
||||
|
||||
procedure Open (File: in out File_Record;
|
||||
Name: in Wide_String;
|
||||
Flag: in Flag_Record;
|
||||
Pool: in Storage_Pool_Pointer := null) is
|
||||
begin
|
||||
Sysapi.File.Open (File.File, Name, flag, Pool => Pool);
|
||||
end Open;
|
||||
|
||||
|
||||
procedure Close (File: in out File_Record) is
|
||||
begin
|
||||
Sysapi.File.Close (File.File);
|
||||
File.File := null;
|
||||
File.Last := System_Length'First;
|
||||
end Close;
|
||||
|
||||
procedure Read (File: in out File_Record;
|
||||
Buffer: in out Slim_String;
|
||||
Last: out System_Length) is
|
||||
begin
|
||||
null;
|
||||
end Read;
|
||||
|
||||
procedure Read (File: in out File_Record;
|
||||
Buffer: in out Wide_String;
|
||||
Last: out System_Length) is
|
||||
begin
|
||||
null;
|
||||
end Read;
|
||||
|
||||
procedure Write (File: in out File_Record;
|
||||
Buffer: in Slim_String;
|
||||
Last: out System_Length) is
|
||||
begin
|
||||
null;
|
||||
end Write;
|
||||
|
||||
procedure Write (File: in out File_Record;
|
||||
Buffer: in Wide_String;
|
||||
Last: out System_Length) is
|
||||
begin
|
||||
null;
|
||||
end Write;
|
||||
|
||||
procedure Flush (File: in out File_Record) is
|
||||
begin
|
||||
null;
|
||||
end Flush;
|
||||
|
||||
end File;
|
Reference in New Issue
Block a user