| /xen-4.10.0-shim-comet/tools/ocaml/xenstored/ |
| A D | utils.ml | 48 let hs = String.create (String.length s * 2) in
49 for i = 0 to String.length s - 1
59 let s = String.create (String.length hs / 2) in
60 for i = 0 to String.length s - 1
68 let rindex = String.rindex path '/' in
69 String.sub path 0 rindex
87 let buf = String.make 20 (char_of_int 0) in
90 int_of_string (String.sub buf 0 sz)
93 if String.get path 0 <> '/' then
99 if String.length path = 0 || String.length path > 1024 then
[all …]
|
| A D | config.ml | 25 | String of (string -> unit) Constructor
31 let len = String.length s and i = ref 0 in
36 if !i < len then String.sub s !i (len - !i) else ""
39 let i = ref (String.length s - 1) in
44 if !i >= 0 then String.sub s 0 (!i + 1) else ""
47 let i = try String.index s c with Not_found -> -1 in
52 let a = String.sub s 0 i
53 and b = String.sub s (i + 1) (String.length s - i - 1) in
66 if String.length line > 0 && line.[0] <> '#' then
93 | String f -> f v
|
| A D | disk.ml | 40 let len = String.length s
84 if String.length line > 0 then
101 let len = String.length s in
107 let x = String.sub s 0 !i
108 and lx = String.sub s !i len in
118 let len = String.length s in
119 let si = if String.contains s '=' then
120 String.index s '='
123 let pi = String.rindex_from s si '{' in
124 let epi = String.index_from s pi '}' in
[all …]
|
| A D | stdext.ml | 47 module String = struct include String module
49 let of_char c = String.make 1 c
52 let i = try String.index s c with Not_found -> -1 in
57 let a = String.sub s 0 i
58 and b = String.sub s (i + 1) (String.length s - i - 1) in
70 let x_l = String.length x and prefix_l = String.length prefix in
71 prefix_l <= x_l && String.sub x 0 prefix_l = prefix
124 let len = String.length buf in
|
| A D | logging.ml | 29 let len_prefix = String.length prefix in
30 let len = String.length s in
31 if String.startswith prefix s
32 then Syslog(Syslog.facility_of_string (String.sub s len_prefix (len - len_prefix)))
61 if String.length line > nb_chars - 1 then
63 let dst_line = String.create len in
64 String.blit line 0 dst_line 0 (len - 2);
141 try String.length (Unix.getenv "TZ") > 0
255 let data = String.copy data in
256 for i = 0 to String.length data - 1
[all …]
|
| A D | perms.ml | 64 and id = int_of_string (String.sub s 1 (String.length s - 1)) in
75 let ls = String.split '\000' s in
84 String.concat "\000" (List.map string_of_perm l)
123 Printf.sprintf "%i%S" i (String.concat "" (List.map String.of_char (List.map char_of_permty p)))
|
| A D | store.ml | 111 name <> "" && String.fold_left (fun accu c -> accu && char_is_valid c) true name
121 else match String.split '/' s with
134 "/" ^ (String.concat "/" t)
359 let pathstr = String.concat "/" path in
361 (String.escaped (Perms.Node.to_string (Node.get_perms node)));
362 if String.length node.Node.value > 0 then
363 Printf.bprintf buf " = %s\n" (String.escaped node.Node.value)
392 Quota.check store.quota (-1) (String.length value)
395 Quota.check store.quota owner (String.length value);
|
| A D | connection.ml | 133 if (String.length data) > xenstore_payload_max && (is_backend_mmap con) then
156 if String.startswith path p then w :: l else l) con.watches [])
207 let n = String.length watch.base
208 and m = String.length path in
209 String.sub path n (m - n)
295 String.concat "" watches
|
| A D | xenstored.ml | 106 ("xenstored-log-file", Config.String Logging.set_xenstored_log_destination);
107 ("xenstored-log-level", Config.String
112 ("access-log-file", Config.String Logging.set_access_log_destination);
152 let l = String.split ',' line in
|
| A D | connections.ml | 191 String.concat "" (domains @ anonymous)
|
| A D | process.ml | 35 let len = String.length s in
51 String.split ~limit c s
|
| /xen-4.10.0-shim-comet/tools/ocaml/libs/xs/ |
| A D | xsraw.ml | 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
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
[all …]
|
| A D | queueop.ml | 18 let data_concat ls = (String.concat "\000" ls) ^ "\000"
|
| /xen-4.10.0-shim-comet/tools/ocaml/libs/xb/ |
| A D | packet.ml | 36 let header = string_of_header pkt.tid pkt.rid (Op.to_cval pkt.ty) (String.length pkt.data) in
45 let l = String.length pkt.data in
47 String.sub pkt.data 0 (l - 1)
|
| A D | xb.ml | 55 (Partial.header_size (), String.make (Partial.header_size()) '\000')
107 let s = if String.length con.partial_out > 0 then
115 let len = String.length s in
117 let left = String.sub s sz (len - sz) in
132 let s = String.make to_read '\000' in
150 String.blit s 0 buf (Partial.header_size () - i) sz;
188 let has_old_output con = String.length con.partial_out > 0
|
| A D | partial.ml | 49 Buffer.add_string pkt.buf (String.sub s 0 sz)
|
| /xen-4.10.0-shim-comet/xen/include/efi/ |
| A D | eficon.h | 42 IN CHAR16 *String
49 IN CHAR16 *String
|
| A D | efiprot.h | 505 IN CHAR16 *String,
529 OUT CHAR16 *String
536 IN CHAR16 *String,
|
| A D | efidevp.h | 320 CHAR8 String[1]; member
|
| /xen-4.10.0-shim-comet/tools/golang/xenlight/ |
| A D | xenlight.go | 251 func (sr ShutdownReason) String() (str string) { func
266 func (dt DomainType) String() (str string) { func
348 func (s Scheduler) String() string { func
791 func (bm Bitmap) String() (s string) { func
1152 func (ct ConsoleType) String() (str string) { func
|
| /xen-4.10.0-shim-comet/tools/ocaml/libs/xc/ |
| A D | xenctrl.ml | 295 let wd = Unix.write fd s 0 (String.length s) in
296 if wd <> String.length s then
|
| /xen-4.10.0-shim-comet/tools/python/ |
| A D | pylintrc | 254 # String used as indentation unit. This is usually " " (4 spaces) or "\t" (1 tab).
|
| /xen-4.10.0-shim-comet/docs/misc/ |
| A D | xen-command-line.markdown | 60 ### String subsection
73 of Boolean and String. These are noted in the relevant sections.
80 **String**, or **Boolean** to disable.
|
| /xen-4.10.0-shim-comet/docs/man/ |
| A D | xl.pod.1.in | 441 Use <sshcommand> instead of ssh. String will be passed to sh. If empty, run
532 Use <sshcommand> instead of ssh. String will be passed to sh.
|
| /xen-4.10.0-shim-comet/xen/tools/kconfig/ |
| A D | zconf.tab.c_shipped | 567 /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
|