improved h2-io-file a bit

2014-06-21 16:31:49 +00:00
parent 31d4fb952d
commit 27cb59b41b
16 changed files with 750 additions and 367 deletions
--- a/h2/lib/win32/h2-io-file-get_default_option.adb
+++ b/h2/lib/win32/h2-io-file-get_default_option.adb
@ -0,0 +1,13 @@
+separate (H2.IO.File)
+
+function Get_Default_Option return Option_Record is
+
+	Default_Option: constant Option_Record := (
+		Bits => (OPTION_CRLF_IN or OPTION_CRLF_OUT),
+		CR => Ascii.Code.CR,
+		LF => Ascii.Code.LF
+	);
+
+begin
+	return Default_Option;
+end Get_Default_Option;