Lines Matching refs:String
45 let i = try String.index s c with Not_found -> -1 in
50 let a = String.sub s 0 i
51 and b = String.sub s (i + 1) (String.length s - i - 1) in
64 String.concat "\000" (List.map string_of_perm ((owner,other) :: acl))
72 if String.length s < 2
73 …then invalid_arg (Printf.sprintf "perm of string: length = %d; contents=\"%s\"" (String.length s) …
76 int_of_string (String.sub s 1 (String.length s - 1)),
80 try let i = String.index s '\000' in
81 String.sub s 0 i :: split (String.sub s (i + 1) (String.length s - 1 - i))
169 for offset = 0 to String.length path - (String.length bad) do
170 if String.sub path offset (String.length bad) = bad then
174 if path <> "/" && path <> "" && path.[String.length path - 1] = '/' then