[Caml-list] Sys_error "Bad file descriptor"

[Caml-list] Sys_error "Bad file descriptor"

[wester]

Hi,

I try to open a file with append mode. Opening and writing to the file 
works but when I try to flush or close the file I get an error message:

let h_out = open_out_gen ~mode:[Open_append; Open_creat] ~perm:666 "f1.txt";;
Printf.fprintf h_out "%s" "something";;
close_out h_out;;

Uncaught exception: Sys_error "Bad file descriptor".

I'm running OCaml 3.1 on Windows NT 4.0. Any help is appreciated.

Rolf Wester  
-------------------------------------
Rolf Wester
wester@ilt.fhg.de
-------------------
To unsubscribe, mail caml-list-request@inria.fr.  Archives: http://caml.inria.fr

[Caml-list] Sys_error("Bad file descriptor")

[IKEDA Katsumi]

Hi, 

I make my log class the following.

---------------- pslog.ml ----------------
(* pslog.ml *)
class log =
  object
  val mutable out = stderr
  method log_open name =
      out <- open_out_gen [Open_append;Open_creat] 0o666 name;
  method log_close = close_out out
  method write mes =
      output_string out mes; flush out;
end
---------------- pslog.ml ----------------


I use on Debian GNU/Linux 3.0 :
    mylog#log_open(/var/tmp/mylog);
    mylog#write("program start\n");

Then the following error occurred.

  Fatal error: exception Sys_error("Bad file descriptor")


On FreeBSD 4.5, same error occurred.
On Red Hat Linux 7.2, no error occurred.

I change 
      out <- open_out_gen [Open_append;Open_creat] 0o666 name;
into
      out <- open_out name;
then program works well.

When I write in my pslog.ml --
  Printf.printf "out = %d\n" (Obj.magic out); flush stdout;
same value is printed.

What is wrong?

Thanks.

-- 
IKEDA Katsumi  <ikeda@msi.co.jp>
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners

Re: [Caml-list] Sys_error("Bad file descriptor")

[IKEDA Katsumi]

Hi,

From: IKEDA Katsumi <ikeda@msi.co.jp>
Message-ID: <20021111113157D.ikeda@msi.co.jp>
> ---------------- pslog.ml ----------------
> (* pslog.ml *)
> class log =
>   object
>   val mutable out = stderr
>   method log_open name =
>       out <- open_out_gen [Open_append;Open_creat] 0o666 name;
>   method log_close = close_out out
>   method write mes =
>       output_string out mes; flush out;
> end
> ---------------- pslog.ml ----------------

Sorry, I have a big mistake.

I try the following.

method log_open name =
      out <- open_out_gen [Open_append;Open_creat;Open_wronly] 0o666 name;

Now, it works.

Thanks.

-- 
IKEDA Katsumi  <ikeda@msi.co.jp>
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners