added an incomplete and experimental file package

h2/lib/h2-sysapi.ads

@@ -0,0 +1,49 @@
+
+generic 
+	type Slim_Character is (<>);
+	type Wide_Character is (<>);
+	type Slim_String is array(System_Index range<>) of Slim_Character;
+	type Wide_String is array(System_Index range<>) of Wide_Character;
+	with function Slim_To_Wide (Slim: in Slim_String) return Wide_String;
+	with function Wide_To_Slim (Wide: in Wide_String) return Slim_String;
+
+package H2.Sysapi is
+
+	type Flag_Record is record
+		x: integer;
+	end record;
+
+	type Mode_Record is record
+		x: integer;
+	end record;
+
+	type File_Record is tagged null record;
+	type File_Pointer is access all File_Record'Class;
+
+	type File_Flag is (
+		RDONLY,
+		RDWR
+	);
+
+	package File is
+		procedure Open (File: out File_Pointer;
+		                Name: in  Slim_String;
+		                Flag: in  Flag_Record;
+		                Mode: in  Mode_Record;
+		                Pool: in  Storage_Pool_Pointer := null);
+
+		procedure Open (File: out File_Pointer;
+		                Name: in  Wide_String;
+		                Flag: in  Flag_Record;
+		                Mode: in  Mode_Record;
+		                Pool: in  Storage_Pool_Pointer := null);
+
+		procedure Close (File: in out File_Pointer);
+	end File;
+
+	--procedure Open_File (File: out File_Pointer; 
+	--                Flag: in  Flag_Record;
+	--                Mode: in  Mode_Record) renames File.Open;
+	--procedure Close_File (File: in out File_Pointer) renames File.Close;
+
+end H2.Sysapi;