[Caml-list] copy file

["Mark Scheffer" <zax@chello.nl>]

Hello Caml users,

I'm new to caml and have compiled this cp.ml file on my windows system using
"ocamlc -o cp.exe cp.ml".
However, I do not get any response when trying to use it. Is there an error
in the file?

Thanks in advance for any help that might get this to work.


- Mark.

---

(* File copier.ml *)

let copy inch outch =
 (* inch and outch are supposed to be opened channels *)
 try (* actual copying *)
  while true
  do output_char outch (input_char inch)
  done
 with End_of_file -> (* Normal termination *)
   raise End_of_file
  | Sys_error msg -> (* Abnormal termination *)
   prerr_endline msg;
   raise (Failure "cp")
  | _ -> (* Unknown exception, maybe interruption? *)
   prerr_endline "Unknown error while copying";
   raise (Failure "cp")
;;


let cp f1 f2 =
 (* Opening channels, f1 firsty, then f2 *)
 let inch =
  try open_in f1
  with Sys_error msg ->
   prerr_endline (f1^": "^msg);
   raise (Failure "cp")
  | _ -> prerr_endline ("Unknown exception while opening "^f1);
   raise (Failure "cp")
in
let outch =
 try open_out f2
 with Sys_error msg ->
   close_in inch;
   prerr_endline (f2^": "^msg);
   raise (Failure "cp")
  | _ -> close_in inch;
   prerr_endline ("Unknown exception while opening "^f2);
   raise (Failure "cp")
in (* Copying and then closing *)
 try copy inch outch
 with End_of_file -> close_in inch; close_out outch
      (* close_out flushes *)
  | exc -> close_in inch; close_out outch; raise exc

;;


-------------------
To unsubscribe, mail caml-list-request@inria.fr.  Archives: http://caml.inria.fr