← Back to branch summary

~npalix/coccinelle/upstream

« back to all changes in this revision

Viewing changes to bundles/stdcompat/stdcompat-8/stdcompat__string.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__string.ml.in
1
 
include String
2
 
 
3
 
@BEGIN_BEFORE_4_07_0@
4
 
let of_seq g = Buffer.contents (Stdcompat__buffer.of_seq g)
5
 
 
6
 
let to_seq s = Stdcompat__tools.vec_to_seq length unsafe_get s
7
 
 
8
 
let to_seqi s = Stdcompat__tools.vec_to_seqi length unsafe_get s
9
 
@END_BEFORE_4_07_0@
10
 
 
11
 
@BEGIN_BEFORE_4_05_0@
12
 
let index_opt s c =
13
 
  Stdcompat__tools.option_find (index s) c
14
 
 
15
 
let rindex_opt s c =
16
 
  Stdcompat__tools.option_find (rindex s) c
17
 
 
18
 
let index_from_opt s i c =
19
 
  Stdcompat__tools.option_find (index_from s i) c
20
 
 
21
 
let rindex_from_opt s i c =
22
 
  Stdcompat__tools.option_find (rindex_from s i) c
23
 
@END_BEFORE_4_05_0@
24
 
 
25
 
@BEGIN_BEFORE_4_04_0@
26
 
let split_on_char c 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 = c 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
 
@END_BEFORE_4_04_0@
38
 
 
39
 
@BEGIN_BEFORE_4_03_0@
40
 
let lowercase_ascii = lowercase
41
 
 
42
 
let uppercase_ascii = uppercase
43
 
 
44
 
let capitalize_ascii = capitalize
45
 
 
46
 
let uncapitalize_ascii = uncapitalize
47
 
 
48
 
let equal : t -> t -> bool = ( = )
49
 
@END_BEFORE_4_03_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 is_space = function
73
 
  | ' ' | '\012' | '\n' | '\r' | '\t' -> true
74
 
  | _ -> false
75
 
 
76
 
let rec rindex_no_space_from i s =
77
 
  if i >= 0 && is_space (unsafe_get s i) then
78
 
    rindex_no_space_from (pred i) s
79
 
  else
80
 
    i
81
 
 
82
 
let rec index_no_space_between i j s =
83
 
  if i <= j && is_space (unsafe_get s i) then
84
 
    index_no_space_between (succ i) j s
85
 
  else
86
 
    i
87
 
 
88
 
let trim s =
89
 
  let off_end = rindex_no_space_from (length s - 1) s in
90
 
  let off_start = index_no_space_between 0 off_end s in
91
 
  if off_start > off_end then
92
 
    ""
93
 
  else if off_start = 0 && off_end = length s - 1 then
94
 
    s
95
 
  else
96
 
    sub s off_start (off_end - off_start + 1)
97
 
@END_BEFORE_4_00_0@