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

implemented read/write/read_line/write_line/flush in h2-io-file.adb

Browse Source
This commit is contained in:
hyung-hwan
2014-06-06 16:44:45 +00:00
parent 230a547dc0
commit 02e5292089
6 changed files with 418 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
h2/lib/posix/h2-os-file.adb
View File

@ -47,15 +47,23 @@ package body File is
V := V or Sysdef.O_RDONLY;
end if;
if ((Bits and FLAG_CREATE) /= 0) then
if (Bits and FLAG_CREATE) /= 0 then
V := V or Sysdef.O_CREAT;
end if;
if ((Bits and FLAG_TRUNCATE) /= 0) then
if (Bits and FLAG_TRUNCATE) /= 0 then
V := V or Sysdef.O_TRUNC;
end if;
if ((Bits and FLAG_SYNC) /= 0) then
if (Bits and FLAG_APPEND) /= 0 then
V := V or Sysdef.O_APPEND;
end if;
if (Bits and FLAG_NONBLOCK) /= 0 then
V := V or Sysdef.O_NONBLOCK;
end if;
if (Bits and FLAG_SYNC) /= 0 then
V := V or Sysdef.O_SYNC;
end if;