Bug fixed for unix error "readlink /proc/self/fd/0" on MacOS.

[Faustine.git] / interpreter / main.ml

diff --git a/interpreter/main.ml b/interpreter/main.ml
index 4444646..e014ca5 100644 (file)
--- a/interpreter/main.ml
+++ b/interpreter/main.ml
@@ -77,7 +77,7 @@ let chk_input_path : string -> bool =
     chk_extension file_in;;
 
 let stdinput = fun (x : unit) ->
     chk_extension file_in;;
 
 let stdinput = fun (x : unit) ->

-  let path = Unix.readlink "/proc/self/fd/0" in
+  let path = Unix.readlink "/dev/fd/0" in

   if chk_input_path path then
     ( incr size_input;
       inputs := !inputs @ [path] )
   if chk_input_path path then
     ( incr size_input;
       inputs := !inputs @ [path] )


@@ -91,7 +91,7 @@ let chk_output_path : string -> bool =
     else true;;
 
 let stdoutput = fun (x : unit) ->
     else true;;
 
 let stdoutput = fun (x : unit) ->

-  let path = Unix.readlink "/proc/self/fd/1" in
+  let path = Unix.readlink "/dev/fd/1" in

   if chk_output_path path then stdout_filename := path
   else ();;
 
   if chk_output_path path then stdout_filename := path
   else ();;