anil.recoil.org / unpac-work
My working unpac repository
fork atom

expose trim_left_sub

Rudi Grinberg 987b245a aba3dca4

+4 -1
unified split
-1
vendor/opam/stringext/lib/stringext.ml
··· 87 87 else loop (i - 1) 88 88 in loop offset 89 89 90 - (* Like String.sub but trim [chars] if they exist on the left *) 91 90 let trim_left_sub s ~pos ~len ~chars = 92 91 let start_pos = 93 92 let final = pos + len in
+4
vendor/opam/stringext/lib/stringext.mli
··· 66 66 val drop : string -> int -> string 67 67 68 68 val take : string -> int -> string 69 + 70 + (** [trim_left_sub s ~pos ~len ~chars] Trim all characters inside [chars] 71 + from [s] starting from [pos] and up to [len] *) 72 + val trim_left_sub : string -> pos:int -> len:int -> chars:string -> string