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

ringbuffer isempty qtest

Browse source
This commit is contained in:
carm 2015-02-22 18:55:36 -05:00
parent d8c2bd9da5
commit 9e0908dc2d
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/data/CCRingBuffer.ml
View file

@ -382,6 +382,16 @@ struct
let is_empty b = b.start = b.stop let is_empty b = b.start = b.stop
(*$T
let s = Bytes.of_string "hello world" in \
let s_len = Bytes.length s in \
let b = ByteBuffer.create s_len in \
ByteBuffer.blit_from b s 0 s_len; \
ByteBuffer.skip b s_len; \
ByteBuffer.is_empty b
*)
let take_front b = let take_front b =
if b.start = b.stop then raise Empty; if b.start = b.stop then raise Empty;
let c = b.buf.(b.start) in let c = b.buf.(b.start) in