16 lines
349 B
OCaml
16 lines
349 B
OCaml
|
fun copyFile from to =
|
||
|
|
let
|
||
|
|
val instream = BinIO.openIn from
|
||
|
|
val outstream = BinIO.openOut to
|
||
|
|
fun aux () =
|
||
|
|
let
|
||
|
|
val buf = BinIO.inputN(instream, 1024)
|
||
|
|
in
|
||
|
|
if Word8Vector.length buf = 0
|
||
|
|
then ()
|
||
|
|
else (BinIO.output (outstream, buf); aux ())
|
||
|
|
end
|
||
|
|
in
|
||
|
|
(aux (); BinIO.closeIn instream; BinIO.closeOut outstream)
|
||
|
|
end
|