Version française
Home     About     Download     Resources     Contact us    
Browse thread
[Caml-list] copy file
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
Date: -- (:)
From: Alan Schmitt <alan.schmitt@i...>
Subject: Re: [Caml-list] copy file
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