search for: yvs

...object_find_object already errors out. *) - -let object_get_number key yv = - match object_find key yv with - | Yajl_number n -> n - | Yajl_double d -> Int64.of_float d - | _ -> error (f_"the value for the key '%s' is not an integer") key - -let objects_get_string key yvs = - let rec loop = function - | [] -> None - | x :: xs -> - (match object_find_optional key x with - | Some (Yajl_string s) -> Some s - | Some _ -> error (f_"the value for key '%s' is not a string as expected") key - | None -> loop xs -...

...yv = match object_find key yv with - | JSON_parser_number n -> n - | JSON_parser_double d -> Int64.of_float d + | JSON.Int n -> n + | JSON.Float f -> Int64.of_float f | _ -> error (f_"the value for the key ‘%s’ is not an integer") key let objects_get_string key yvs = @@ -74,7 +65,7 @@ let objects_get_string key yvs = | [] -> None | x :: xs -> (match object_find_optional key x with - | Some (JSON_parser_string s) -> Some s + | Some (JSON.String s) -> Some s | Some _ -> error (f_"the value for key ‘%s’ is no...

v2: - Added back the null value. - Reran the tests. Rich.

...match object_find key yv with - | Yajl_number n -> n - | Yajl_double d -> Int64.of_float d + | JSON_parser_number n -> n + | JSON_parser_double d -> Int64.of_float d | _ -> error (f_"the value for the key ‘%s’ is not an integer") key let objects_get_string key yvs = @@ -74,7 +74,7 @@ let objects_get_string key yvs = | [] -> None | x :: xs -> (match object_find_optional key x with - | Some (Yajl_string s) -> Some s + | Some (JSON_parser_string s) -> Some s | Some _ -> error (f_"the value for key ‘%s’ is no...

An evolution of: https://www.redhat.com/archives/libguestfs/2018-August/msg00155.html

I rethought this again, as I think that it's a dangerous assumption to bake qemu-img measure output into our API. This patch series runs qemu-img measure behind the scenes, but then parses the output and sums it to a single number which we print. Doing that required a bit of reworking, moving the Jansson [JSON parser] bindings from virt-builder into the common directory and a couple of other

..._object already errors out. *) + ) + +let object_get_number key yv = + (match object_find key yv with + | Yajl_number n -> n + | Yajl_double d -> Int64.of_float d + | _ -> error (f_"the value for the key '%s' is not an integer") key + ) + +let objects_get_string key yvs = + let rec loop = function + | [] -> None + | x :: xs -> + (match object_find_optional key x with + | Some (Yajl_string s) -> Some s + | Some _ -> error (f_"the value for key '%s' is not a string as expected") key + | None -> loop xs +...

Hi all, I wanted to provide an easy way to create or update a virt-builder repository out of a folder of template disk image files. This is what virt-builder-repository aims at. Some of the data are computed from the image file, others are asked the user or extracted from an existing index file. So far, virt-builder-repository doesn't run libguestfs on each image to extract the architecture,

...object_find_object already errors out. *) + +let object_get_number key yv = + match object_find key yv with + | Yajl_number n -> n + | Yajl_double d -> Int64.of_float d + | _ -> error (f_"the value for the key '%s' is not an integer") key + +let objects_get_string key yvs = + let rec loop = function + | [] -> None + | x :: xs -> + (match object_find_optional key x with + | Some (Yajl_string s) -> Some s + | Some _ -> error (f_"the value for key '%s' is not a string as expected") key + | None -> loop xs +...

Hi, this series adds a basic support for Simple Streams v1.0 metadata files. This makes it possible to create a repository .conf files with [cirros] uri=http://download.cirros-cloud.net format=simplestreams to read the latest version of each CirrOS image. TODO items: - check the pasted metadata: listing and creating images works, so most of the current metadata is correct - possibly wait

Hi, this series adds a basic support for Simple Streams v1.0 metadata files. This makes it possible to create a repository .conf files with [cirros] uri=http://download.cirros-cloud.net format=simplestreams to read the latest version of each CirrOS image. Thanks, Pino Toscano (4): builder: add non-int revisions builder: add simple libyajl binding build: expose HAVE_YAJL to automake

...object_find key yv with | Yajl_number n -> n | Yajl_double d -> Int64.of_float d - | _ -> error (f_"the value for the key '%s' is not an integer") key + | _ -> error (f_"the value for the key ‘%s’ is not an integer") key let objects_get_string key yvs = let rec loop = function @@ -74,10 +74,10 @@ let objects_get_string key yvs = | x :: xs -> (match object_find_optional key x with | Some (Yajl_string s) -> Some s - | Some _ -> error (f_"the value for key '%s' is not a string as expected") key...

...|MB_3bmsU z-KTGP$y2aCy?<f}?IEBL8Ghr+IUWVy@U%5eb(8Z#mW(Hp`v3mvTB3Vl3dI*nFF!0# zFMr3x?NLG>E-P=fd^lU@SnH5cIxl-<@F$Z>sh*oV!u%eR=3i4xt-jX5H`f*iDiUAl z8uy3EEwDKJ*ms@8I8uy~6g-$r%Eor1wFd0FSXu$qEo(7r0%JCC?d<jZ_<X|Dh5*GF zP%nuo4h16>zoueQcB5*5CuCu;GI}XORUclK@ZYu^34i|ZiOsuX<n|3k2l@P7>yVs- zoLTPxi6_&=`G%Gt8o=#eUPki<6*XMwR_j(*2v1~%0=!o{ILPjaq7Uv1BH@XYKRi$} z#9U5utn0$TA|x5_+=osMV9bpIqe6-x6671+5{qB+NBH;HpTa^9<&Yf<e<(~hq*32c z>EHjBvs##qx{=UCykV)*%Z&j3v#Iw`UYOFBr2lQEx3@3IQd<6E+%vGN7gYLiZR-%l z^#Bl=D!j5b_Wwh6+Uf4z+6fv3L4_2POH`SWB~8}E&OM<TU+9#an#v~&...