Fix FileIO() in Glk mode

curiousdannii · Apr 3, 2017 · d2621ef · d2621ef
1 parent 12375dc
commit d2621ef
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1,2 @@
+*.o
+heglk/hugo.js*
diff --git a/source/hemisc.c b/source/hemisc.c
@@ -941,10 +941,7 @@ void FileIO(void)
 
 		fref = glk_fileref_create_by_name(fileusage_Data | fileusage_BinaryMode,
 			fileiopath, 0);
-		if (glk_fileref_does_file_exist(fref))
-			io = glk_stream_open_file(fref, filemode_Read, 0);
-		else
-			io = NULL;
+		io = glk_stream_open_file(fref, filemode_Write, 0);
 		glk_fileref_destroy(fref);
 		if (io==NULL) goto LeaveFileIO;
 #endif
@@ -961,7 +958,10 @@ void FileIO(void)
 
 		fref = glk_fileref_create_by_name(fileusage_Data | fileusage_BinaryMode,
 			fileiopath, 0);
-		io = glk_stream_open_file(fref, filemode_Read, 0);
+		if (glk_fileref_does_file_exist(fref))
+			io = glk_stream_open_file(fref, filemode_Read, 0);
+		else
+			io = NULL;
 		glk_fileref_destroy(fref);
 		if (io==NULL) goto LeaveFileIO;
 #endif