From: Alan Schmitt <alan.schmitt@inria.fr>
To: Mark Scheffer <zax@chello.nl>
Cc: caml-list@inria.fr
Subject: Re: [Caml-list] copy file
Date: Thu, 26 Apr 2001 19:10:46 +0200 [thread overview]
Message-ID: <20010426191046.K7658@alan-schm1p.inria.fr> (raw)
In-Reply-To: <007001c0ce71$8cbbd440$984dbbd4@zaxsystem>; from zax@chello.nl on Thu, Apr 26, 2001 at 06:54:24PM +0200
Hi,
Correctly indenting the second function, you get:
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
;;
So basically you just define a function here ... If you never call it,
nothing happens.
Alan
>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
--
The hacker: someone who figured things out and made something cool happen.
-------------------
To unsubscribe, mail caml-list-request@inria.fr. Archives: http://caml.inria.fr
next prev parent reply other threads:[~2001-04-26 17:19 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2001-04-26 16:54 Mark Scheffer
2001-04-26 17:10 ` Alan Schmitt [this message]
2001-04-26 17:25 ` Georges Brun-Cottan
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20010426191046.K7658@alan-schm1p.inria.fr \
--to=alan.schmitt@inria.fr \
--cc=caml-list@inria.fr \
--cc=zax@chello.nl \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).