hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added File.Get_Line and File.Put_Line. rewritten io procedures to reply on the current and the last position instead of the length

Browse Source
This commit is contained in:
hyung-hwan
2014-06-19 14:13:19 +00:00
parent b441709a02
commit 0286526bf1
3 changed files with 299 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
cmd/scheme.adb
View File

@ -86,6 +86,7 @@ declare
Buffer: H2.Slim.String (1 .. 200);
BufferW: H2.Wide.String (1 .. 27);
IL, OL: H2.System_Length;
Option: File.Option_Record;
begin
--File.Open (F, H2.Slim.String'("/etc/passwd"), FL);
--File.Read (F, Buffer, Length);
@ -111,16 +112,18 @@ ada.text_io.put_line ("------------------");
File.Set_Flag_Bits (FL, File.FLAG_CREATE);
File.Set_Flag_Bits (FL, File.FLAG_TRUNCATE);
File.Open (F2, H2.Wide.String'("/tmp/yyy"), FL);
File.Set_Option_Bits (Option, File.Option_CRLF);
File.Set_Option (F2, Option);
loop
File.Get_Line (F, BufferW, IL);
File.Get_Line (F, Buffer, IL);
ada.wide_text_io.put_line (standard.wide_string(bufferw(1..il)));
--ada.wide_text_io.put_line (standard.wide_string(bufferw(1..il)));
--File.Read (F, BufferW, IL);
exit when IL <= 0;
File.Write_Line (F2, BufferW(BufferW'First .. BufferW'First + IL - 1), OL);
File.Put_Line (F2, Buffer(Buffer'First .. Buffer'First + IL - 1), OL);
pragma Assert (IL = OL);
--Ada.Text_IO.PUt (Standard.String(Buffer(Buffer'First .. Buffer'First + IL - 1)));