| /xen-4.10.0-shim-comet/tools/ocaml/libs/xl/ |
| A D | genwrap.py | 63 def ocaml_type_of(ty): argument
119 for f in ty.fields:
218 module_name = ty.rawname[0].upper() + ty.rawname[1:]
340 (nparent,fexpr) = ty.member(c, f, ty.rawname is not None)
461 s += "static value Val_%s (%s)\n" % (ty.rawname, ty.make_arg(ty.rawname+"_c"))
466 s += ocaml_Val(ty, "%s_ocaml" % ty.rawname, "%s_c" % ty.rawname, indent="\t") + "\n"
503 if ty.dispose_fn:
535 if t not in [ty.rawname for ty in types]:
538 types = [ty for ty in types if not ty.rawname in blacklist]
552 for ty in types:
[all …]
|
| /xen-4.10.0-shim-comet/tools/libxl/ |
| A D | gentest.py | 29 s += "%s = %s;\n" % (ty.pass_arg(v, parent is None), randomize_enum(ty))
60 elif hasattr(ty, "rand_init") and ty.rand_init is not None:
76 elif ty.private:
232 ty.rand_init = "%s_rand_init" % ty.typename
241 (ty.typename, ty.typename, ty.typename))
270 (ty.typename, ty.pass_arg(arg, isref=False)))
274 (ty.typename, ty.typename))
277 (ty.typename, ty.pass_arg(arg, isref=False)))
310 (ty.typename, ty.pass_arg(arg, isref=False)))
313 (ty.typename, ty.pass_arg(arg, isref=False)))
[all …]
|
| A D | gentypes.py | 9 if isinstance(ty, idl.Aggregate) and ty.typename is None:
17 s += libxl_C_instance_of(ty.lenvar.type, ty.lenvar.name) + ";\n"
45 s += "typedef %s %s {\n" % (ty.kind, ty.typename)
606 f.write("%svoid %s(%s);\n" % (ty.hidden(), ty.dispose_fn, ty.make_arg("p")))
615 f.write("%svoid %s(%s);\n" % (ty.hidden(), ty.init_fn, ty.make_arg("p")))
624 …f.write("%schar *%s_to_json(libxl_ctx *ctx, %s);\n" % (ty.hidden(), ty.typename, ty.make_arg("p")))
628 … f.write("%sconst char *%s_to_string(%s);\n" % (ty.hidden(), ty.typename, ty.make_arg("p")))
653 for ty in [ty for ty in types if ty.json_gen_fn is not None]:
677 for ty in [ty for ty in types if ty.json_parse_fn is not None]:
679 (ty.hidden(), ty.namespace + "_" + ty.rawname,
[all …]
|
| A D | idl.py | 278 e, ty = f
281 self.fields.append(Field(ty, e, enumname=en))
|
| /xen-4.10.0-shim-comet/tools/ocaml/libs/xb/ |
| A D | packet.ml | 21 ty: Op.operation; RecordField
30 let create tid rid ty data = { tid = tid; rid = rid; ty = ty; data = data; }
33 create ppkt.Partial.tid ppkt.Partial.rid ppkt.Partial.ty (Buffer.contents ppkt.Partial.buf)
36 let header = string_of_header pkt.tid pkt.rid (Op.to_cval pkt.ty) (String.length pkt.data) in
40 pkt.tid, pkt.rid, pkt.ty, pkt.data
43 let get_ty pkt = pkt.ty
|
| A D | xenbus_stubs.c | 56 CAMLprim value stub_string_of_header(value tid, value rid, value ty, value len) in stub_string_of_header() argument
58 CAMLparam4(tid, rid, ty, len); in stub_string_of_header()
61 .type = Int_val(ty), in stub_string_of_header()
|
| A D | partial.ml | 21 ty: Op.operation; RecordField
42 ty = (Op.of_cval opint);
|
| A D | op.ml | 49 let to_string ty =
50 match ty with
|
| A D | xb.mli | 40 ty : Op.operation;
|
| /xen-4.10.0-shim-comet/tools/ocaml/xenstored/ |
| A D | process.ml | 224 match ty with
292 match t.Transaction.ty with
302 if wlog then write_access_log ~ty:request.Packet.ty ~tid ~con ~data:request.Packet.data;
305 if wlog then write_response_log ~ty:request.Packet.ty ~tid ~con ~response:response';
393 match t.Transaction.ty with
450 let function_of_type ty =
451 match ty with
471 let retain_op_in_history ty =
472 match ty with
500 let ty = req.Packet.ty in
[all …]
|
| A D | transaction.ml | 74 type ty = No | Full of ( type
81 ty: ty; RecordField
90 let get_id t = match t.ty with No -> none | Full (id, _, _) -> id
120 let ty = if id = none then No else Full(id, Store.copy store, store) in
122 ty = ty;
141 let add_wop t ty path = t.paths <- (ty, path) :: t.paths
197 match t.ty with
|
| A D | config.ml | 17 type ty = type
89 else let ty = List.assoc k expected in
90 match ty with
|
| A D | packet.ml | 4 ty: Xenbus.Xb.Op.operation; RecordField
|
| A D | logging.ml | 310 let xb_op ~tid ~con ~ty data =
311 let print = match ty with
318 if print then access_logging ~tid ~con ~data (XbOp ty) ~level:Info
328 let xb_answer ~tid ~con ~ty data =
329 let print, level = match ty with
335 if print then access_logging ~tid ~con ~data (XbOp ty) ~level
|
| A D | connection.ml | 132 let send_reply con tid rid ty data =
136 Xenbus.Xb.queue con.xb (Xenbus.Xb.Packet.create tid rid ty data)
139 let send_ack con tid rid ty = send_reply con tid rid ty "OK\000"
|
| A D | perms.ml | 63 let ty = permty_of_char s.[0]
65 (id, ty)
|
| /xen-4.10.0-shim-comet/tools/ocaml/libs/xs/ |
| A D | xsraw.ml | 135 | ty -> unexpected_packet Xb.Op.Watchevent ty
138 let rec sync_recv ty con =
149 sync_recv ty con
150 | rty when rty = ty -> Xb.Packet.get_data pkt
151 | rty -> unexpected_packet ty rty
158 let ty = Xb.Packet.get_ty (Xb.peek_output con.xb) in
160 sync_recv ty con
|
| A D | queueop.ml | 19 let queue_path ty (tid: int) (path: string) con =
21 Xb.queue con (Xb.Packet.create tid 0 ty data)
|
| /xen-4.10.0-shim-comet/xen/tools/kconfig/ |
| A D | gconf.c | 892 gint ty = (gint) event->y; in on_treeview2_button_press_event() local
895 gtk_tree_view_get_path_at_pos(view, tx, ty, &path, &column, &cx, in on_treeview2_button_press_event()
1008 gint ty = (gint) event->y; in on_treeview1_button_press_event() local
1011 gtk_tree_view_get_path_at_pos(view, tx, ty, &path, &column, &cx, in on_treeview1_button_press_event()
|