13 lines
312 B
OCaml
13 lines
312 B
OCaml
open Slice
|
|
|
|
let empty = unsafe_make ~off:0 ~len:0 S.empty
|
|
let length { len; _ } = len
|
|
let get { off; buf; _ } idx = S.get buf (off + idx)
|
|
|
|
let blit a b =
|
|
let len = Int.min a.len b.len in
|
|
S.blit a.buf a.off b.buf b.off len
|
|
|
|
let fill { off; buf; _ } off' len' =
|
|
let off = off + off' in
|
|
S.fill buf off len'
|