fexists added

runtime/Std.i

@@ -26,6 +26,7 @@ F,fopen;
 F,fclose;
 F,fread;
 F,fwrite;
+F,fexists;
 F,failure;
 F,read;
 F,write;

runtime/runtime.c

@@ -1427,6 +1427,18 @@ extern void Lfwrite (char *fname, char *contents) {
   failure ("fwrite (\"%s\"): %s\n", fname, strerror (errno));
 }
 
+extern void* Lfexists (char *fname) {
+  FILE *f;
+
+  ASSERT_STRING("fexists", fname);
+
+  f = fopen (fname, "r");
+  
+  if (f) return BOX(1);
+
+  return BOX(0);
+}
+
 extern void* Lfst (void *v) {
   return Belem (v, BOX(0));  
 }

spec/08.standard_library.tex

@@ -87,6 +87,8 @@ is automatically open and closed within the call.}
 \descr{\lstinline|fun fwrite (fname, contents)|}{Writes a file. The arguments are file name and the contents to write as strings. The file
 is automatically created and closed within the call.}
 
+\descr{\lstinline|fun fexists (fname)|}{Checks if a file exists. The argument is the file name.}
+
 \descr{\lstinline|fun fprintf (file, fmt, ...)|}{Same as "\lstinline|printf|", but outputs to a given file. The file argument should be that acquired
   by \lstinline|fopen| function.}
 

src/version.ml

@@ -1 +1 @@
-let version = "Version 1.10, 594fa7bf8, Sat Oct 30 19:24:25 2021 +0300"
+let version = "Version 1.10, eb098a6fa, Sun Oct 31 15:34:34 2021 +0300"