simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

more paranoid decoder, with bugfix

Browse source
This commit is contained in:
Simon Cruanes 2013-08-29 23:23:41 +02:00
parent 197f7eb786
commit b0f70fbd4e
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
bencode.ml
View file

@ -290,17 +290,17 @@ let parse dec s i len =
(* add the input to [dec] *)
if dec.len = 0
then begin
dec.buf <- s;
dec.buf <- String.copy s;
dec.i <- i;
dec.len <- len;
end else begin
(* use a buffer to merge the stored input and the new input *)
let b = Buffer.create (dec.len + len) in
Buffer.add_substring b dec.buf dec.i dec.len;
Buffer.add_substring b s i len;
dec.buf <- Buffer.contents b;
let buf' = String.create (dec.len + len - dec.i) in
String.blit dec.buf dec.i buf' 0 dec.len;
String.blit s i buf' dec.len len;
dec.buf <- buf';
dec.i <- 0;
dec.len <- dec.len + len;
dec.len <- dec.len + len - dec.i;
end;
(* state machine *)
parse_rec dec