← Back to branch summary

~npalix/coccinelle/upstream

« back to all changes in this revision

Viewing changes to bundles/stdcompat/stdcompat-8/stdcompat__stringLabels.ml.in

  • Committer: Thierry Martinez
  • Date: 2019-08-20 13:37:04 UTC
  • Revision ID: git-v1:0214afad4a32c95349c2c5a38e37cea407c455d0
Update bundles

Show diffs side-by-side

added added

removed removed

Lines of Context:
bundles/stdcompat/stdcompat-8/stdcompat__stringLabels.ml.in
1
 
include StringLabels
2
 
 
3
 
@BEGIN_BEFORE_3_08_0@
4
 
type t = string
5
 
@END_BEFORE_3_08_0@
6
 
 
7
 
@BEGIN_BEFORE_4_07_0@
8
 
let of_seq g = Buffer.contents (Stdcompat__buffer.of_seq g)
9
 
 
10
 
let to_seq s = Stdcompat__tools.vec_to_seq length unsafe_get s
11
 
 
12
 
let to_seqi s = Stdcompat__tools.vec_to_seqi length unsafe_get s
13
 
@END_BEFORE_4_07_0@
14
 
 
15
 
@BEGIN_BEFORE_4_05_0@
16
 
let lowercase_ascii = lowercase
17
 
 
18
 
let uppercase_ascii = uppercase
19
 
 
20
 
let capitalize_ascii = capitalize
21
 
 
22
 
let uncapitalize_ascii = uncapitalize
23
 
 
24
 
let equal : t -> t -> bool = ( = )
25
 
 
26
 
let split_on_char ~sep s =
27
 
  let previous_index = ref (length s) in
28
 
  let accu = ref [] in
29
 
  for i = length s - 1 downto 0 do
30
 
    if unsafe_get s i = sep then
31
 
      begin
32
 
        accu := sub s (i + 1) (!previous_index - i - 1) :: !accu;
33
 
        previous_index := i
34
 
      end
35
 
  done;
36
 
  sub s 0 !previous_index :: !accu
37
 
 
38
 
let index_opt s c =
39
 
  Stdcompat__tools.option_find (index s) c
40
 
 
41
 
let rindex_opt s c =
42
 
  Stdcompat__tools.option_find (rindex s) c
43
 
 
44
 
let index_from_opt s i c =
45
 
  Stdcompat__tools.option_find (index_from s i) c
46
 
 
47
 
let rindex_from_opt s i c =
48
 
  Stdcompat__tools.option_find (rindex_from s i) c
49
 
@END_BEFORE_4_05_0@
50
 
 
51
 
@BEGIN_BEFORE_4_02_0@
52
 
let init n ~f =
53
 
  let s = create n in
54
 
  for i = 0 to n - 1 do
55
 
    s.[i] <- f i
56
 
  done;
57
 
  s
58
 
 
59
 
let mapi ~f s =
60
 
  init (length s) (fun i -> f i (unsafe_get s i))
61
 
@END_BEFORE_4_02_0@
62
 
 
63
 
@BEGIN_BEFORE_4_00_0@
64
 
let iteri ~f s =
65
 
  for i = 0 to length s - 1 do
66
 
    f i (unsafe_get s i)
67
 
  done
68
 
 
69
 
let map ~f s =
70
 
  init (length s) (fun i -> f (unsafe_get s i))
71
 
 
72
 
let trim s =
73
 
  Stdcompat__string.trim s
74
 
@END_BEFORE_4_00_0@
75
 
 
76
 
@BEGIN_BEFORE_3_08_0@
77
 
let compare : t -> t -> int = compare
78
 
@END_BEFORE_3_08_0@