added Get_Line into h2-io-file

2014-06-17 15:23:35 +00:00
parent 02e5292089
commit f0eee1313f
15 changed files with 356 additions and 146 deletions
--- a/h2/lib/h2-os.ads
+++ b/h2/lib/h2-os.ads
@ -84,7 +84,7 @@ package H2.OS is
 		procedure Close (File: in out File_Pointer);

 		procedure Read (File:   in     File_Pointer; 
-		                Buffer: in out System_Byte_Array; 
+		                Buffer: out    System_Byte_Array; 
 		                Length: out    System_Length);

 		procedure Write (File:   in  File_Pointer;