From mboxrd@z Thu Jan  1 00:00:00 1970
Received: (from majordomo@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id SAA00929; Thu, 26 Apr 2001 18:54:02 +0200 (MET DST)
X-Authentication-Warning: pauillac.inria.fr: majordomo set sender to owner-caml-list@pauillac.inria.fr using -f
Received: from concorde.inria.fr (concorde.inria.fr [192.93.2.39]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id SAA00703 for <caml-list@pauillac.inria.fr>; Thu, 26 Apr 2001 18:54:02 +0200 (MET DST)
Received: from zax.mine.nu (c77152.upc-c.chello.nl [212.187.77.152])
	by concorde.inria.fr (8.11.1/8.10.0) with ESMTP id f3QGs0505819
	for <caml-list@inria.fr>; Thu, 26 Apr 2001 18:54:00 +0200 (MET DST)
Received: from zaxsystem [212.187.77.152] by zax.mine.nu [212.187.77.152]
	with SMTP (MDaemon.v3.1.0.R)
	for <caml-list@inria.fr>; Thu, 26 Apr 2001 18:54:25 +0200
Message-ID: <007001c0ce71$8cbbd440$984dbbd4@zaxsystem>
Reply-To: "Mark Scheffer" <zax@chello.nl>
From: "Mark Scheffer" <zax@chello.nl>
To: <caml-list@inria.fr>
Subject: [Caml-list] copy file
Date: Thu, 26 Apr 2001 18:54:24 +0200
Organization: ZAX-Productions
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
X-MDaemon-Deliver-To: caml-list@inria.fr
X-Return-Path: zax@chello.nl
X-MDRcpt-To: caml-list@inria.fr
X-MDRemoteIP: 212.187.77.152
Sender: owner-caml-list@pauillac.inria.fr
Precedence: bulk

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