caml-urm

A OCaml module for manipulating unlimited register machines

git clone: git://git.pablopie.xyz/caml-urm
Log
Files
Refs
README
LICENSE

Commit: bec5a0426ee47dd49fe7c1995e4e455d125e41d8
Parent: f6739a32df3e1196c8093ec4915222c0c5449f7b
Author: Pablo <pablo-escobar@riseup.net>
Date: Wed, 22 Mar 2023 01:19:24 +0000

Added a check for directories in the FILE command-line argument

Diffstat

1 file changed, 3 insertions, 1 deletion

Status	File Name	N° Changes	Insertions	Deletions
Modified	main.ml	4	3	1

diff --git a/main.ml b/main.ml
@@ -86,7 +86,9 @@ let (iters, init_m, regs_prints, filepath) : int * Urm.t * int list * string =
 (** Try to open the file with the contents of the program *)
 let file =
   try
-    open_in filepath
+    if Sys.is_directory filepath
+    then raise (Sys_error (Printf.sprintf "Is a directory: %s" filepath))
+    else open_in filepath
   with Sys_error err ->
     Printf.eprintf "ERROR: %s\n" err;
     exit 1