From nobody Mon Feb 9 10:43:06 2026 Delivered-To: importer@patchew.org Received-SPF: pass (zohomail.com: domain of lists.xenproject.org designates 192.237.175.120 as permitted sender) client-ip=192.237.175.120; envelope-from=xen-devel-bounces@lists.xenproject.org; helo=lists.xenproject.org; Authentication-Results: mx.zohomail.com; dkim=pass; spf=pass (zohomail.com: domain of lists.xenproject.org designates 192.237.175.120 as permitted sender) smtp.mailfrom=xen-devel-bounces@lists.xenproject.org; dmarc=pass(p=reject dis=none) header.from=citrix.com ARC-Seal: i=1; a=rsa-sha256; t=1610751187; cv=none; d=zohomail.com; s=zohoarc; b=KO7RrkF/5pmVlx0+Z6KbAf5LuMHJHtTTfT4GhUgzNK8LfGDv994uTIdrzGVQT2a5vJqTFqVbm9OFAaPh7WUdPsdjpLCSwef+5M8MwITzybiw1dpSpP9OgL6/MqqqDcqBF4FnMYFJvasTUC0c1bJHSJ56636DEeBfR16iwfDFJNM= ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zohomail.com; s=zohoarc; t=1610751187; h=Content-Type:Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:List-Subscribe:List-Post:List-Id:List-Help:List-Unsubscribe:MIME-Version:Message-ID:References:Sender:Subject:To; bh=hzp5mcM2Yzyowj56/KaWXL560FodGmHwyirH8sf6Y24=; b=eVDPSVc3KFV3rd3wqHqQFHAMJVFI0Slngp/R7l2gSafOh2EH8Blk8mPmJd3z/Aj20mAz+ht8J/N0aH2ij2o45uTpNO8plDtk38WqeqS3TehEEiyrzz/7zy8LeBjFV7eCMhSXEyKbrGTG5TvTvIOlZ2o6Zqh2MIykfrPMYMTNbso= ARC-Authentication-Results: i=1; mx.zohomail.com; dkim=pass; spf=pass (zohomail.com: domain of lists.xenproject.org designates 192.237.175.120 as permitted sender) smtp.mailfrom=xen-devel-bounces@lists.xenproject.org; dmarc=pass header.from= (p=reject dis=none) header.from= Return-Path: Received: from lists.xenproject.org (lists.xenproject.org [192.237.175.120]) by mx.zohomail.com with SMTPS id 1610751187013596.781223361326; Fri, 15 Jan 2021 14:53:07 -0800 (PST) Received: from list by lists.xenproject.org with outflank-mailman.68733.123163 (Exim 4.92) (envelope-from ) id 1l0Xxc-0001zp-8y; Fri, 15 Jan 2021 22:52:52 +0000 Received: by outflank-mailman (output) from mailman id 68733.123163; Fri, 15 Jan 2021 22:52:52 +0000 Received: from localhost ([127.0.0.1] helo=lists.xenproject.org) by lists.xenproject.org with esmtp (Exim 4.92) (envelope-from ) id 1l0Xxc-0001ze-4u; Fri, 15 Jan 2021 22:52:52 +0000 Received: by outflank-mailman (input) for mailman id 68733; Fri, 15 Jan 2021 22:52:51 +0000 Received: from all-amaz-eas1.inumbo.com ([34.197.232.57] helo=us1-amaz-eas2.inumbo.com) by lists.xenproject.org with esmtp (Exim 4.92) (envelope-from ) id 1l0Xxb-0001jt-JO for xen-devel@lists.xenproject.org; Fri, 15 Jan 2021 22:52:51 +0000 Received: from esa4.hc3370-68.iphmx.com (unknown [216.71.155.144]) by us1-amaz-eas2.inumbo.com (Halon) with ESMTPS id 4d891335-8e82-4711-b386-0ce786eecc66; Fri, 15 Jan 2021 22:52:43 +0000 (UTC) X-Outflank-Mailman: Message body and most headers restored to incoming version X-BeenThere: xen-devel@lists.xenproject.org List-Id: Xen developer discussion List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Errors-To: xen-devel-bounces@lists.xenproject.org Precedence: list Sender: "Xen-devel" X-Inumbo-ID: 4d891335-8e82-4711-b386-0ce786eecc66 DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple; d=citrix.com; s=securemail; t=1610751163; h=from:to:cc:subject:date:message-id:in-reply-to: references:mime-version:content-transfer-encoding; bh=PHd8ibAmz3y4d18ZBR6evC+akkeyLiBTovT6aCSEtlo=; b=aI+l2DuIzvIgz0JThekgEnOFfKK8WYs8zPbA3gMNEhPK9bPafN85zvax Fk+G5ilt4WI7LDHqz6amtDQhlH/n9a5J+unxMxgxV25M+V5f0GvCUVuHq XCqgB35wVUDT6yejl9K0RNjyghwx6DVPw7SHrcaa+y7B/As5F0K5iAEqo 8=; Authentication-Results: esa4.hc3370-68.iphmx.com; dkim=none (message not signed) header.i=none IronPort-SDR: MoOL9HgsoRlZpHvVYMwVg76P/8QHGE+y3iOBZGBMrY+r4560E3TbKuWHW9LEaFqBNuY6ooGuXA +VzD4cDRrWYhZV19DGyaRnbfeR5RyzKMin87dONsdRaEVvxEw7J70DDm+2QxK7xczOj6Dh0Vqi o5nZtjwdAz6Xi9gRHsTqz9CmgF9S36d7vxiIqFiAg4emNrMkI+Bhtd6js4M5rV6VypuXCw3L8V WBD623jxKxNa/M+A9Y4M3L4XqjM1aXWA2pbWI1YROUtVdJ3AiknRjTggvbwomTBHTWiQ+fKQsY 3/A= X-SBRS: 5.1 X-MesageID: 36512267 X-Ironport-Server: esa4.hc3370-68.iphmx.com X-Remote-IP: 162.221.158.21 X-Policy: $RELAYED X-IronPort-AV: E=Sophos;i="5.79,350,1602561600"; d="scan'208";a="36512267" From: =?UTF-8?q?Edwin=20T=C3=B6r=C3=B6k?= To: CC: =?UTF-8?q?Edwin=20T=C3=B6r=C3=B6k?= , "Christian Lindig" , David Scott , "Ian Jackson" , Wei Liu Subject: [PATCH v1 3/5] tools/ocaml/xenstored: add binary dump format support Date: Fri, 15 Jan 2021 22:29:02 +0000 Message-ID: <4142c4a8c0859cace45473780a2ac63823e6af36.1610748224.git.edvin.torok@citrix.com> X-Mailer: git-send-email 2.27.0 In-Reply-To: References: MIME-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable X-ZohoMail-DKIM: pass (identity @citrix.com) Signed-off-by: Edwin T=C3=B6r=C3=B6k --- tools/ocaml/xenstored/connection.ml | 63 +++++++++++++++++++++-------- 1 file changed, 47 insertions(+), 16 deletions(-) diff --git a/tools/ocaml/xenstored/connection.ml b/tools/ocaml/xenstored/co= nnection.ml index 51041dde8e..1f9fe9e3b2 100644 --- a/tools/ocaml/xenstored/connection.ml +++ b/tools/ocaml/xenstored/connection.ml @@ -17,6 +17,7 @@ exception End_of_file =20 open Stdext +module LR =3D Disk.LiveRecord =20 let xenstore_payload_max =3D 4096 (* xen/include/public/io/xs_wire.h *) =20 @@ -77,6 +78,10 @@ let number_of_transactions con =3D =20 let get_domain con =3D con.dom =20 +let get_id con =3D match con.dom with +| None -> 2*LR.domid_invalid + con.anonid +| Some dom -> 1 + Domain.get_id dom + let anon_id_next =3D ref 1 =20 let get_domstr con =3D @@ -279,6 +284,9 @@ let end_transaction con tid commit =3D let get_transaction con tid =3D Hashtbl.find con.transactions tid =20 +let iter_transactions con f =3D + Hashtbl.iter f con.transactions + let do_input con =3D Xenbus.Xb.input con.xb let has_input con =3D Xenbus.Xb.has_in_packet con.xb let has_partial_input con =3D match con.xb.Xenbus.Xb.partial_in with @@ -337,22 +345,45 @@ let incr_ops con =3D con.stat_nb_ops <- con.stat_nb_o= ps + 1 let stats con =3D Hashtbl.length con.watches, con.stat_nb_ops =20 -let dump con chan =3D - let id =3D match con.dom with - | Some dom -> - let domid =3D Domain.get_id dom in - (* dump domain *) - Domain.dump dom chan; - domid - | None -> - let fd =3D con |> get_fd |> Utils.FD.to_int in - Printf.fprintf chan "socket,%d\n" fd; - -fd - in - (* dump watches *) - List.iter (fun (path, token) -> - Printf.fprintf chan "watch,%d,%s,%s\n" id (Utils.hexify path) (Utils.hex= ify token) - ) (list_watches con) +let serialize_pkt_in buf xb =3D + let open Xenbus.Xb in + Queue.iter (fun p -> Buffer.add_string buf (Packet.to_string p)) xb.pkt_i= n; + match xb.partial_in with + | NoHdr (to_read, hdrb) -> + (* see Xb.input *) + let used =3D Xenbus.Partial.header_size () - to_read in + Buffer.add_subbytes buf hdrb 0 used + | HaveHdr p -> + p |> Packet.of_partialpkt |> Packet.to_string |> Buffer.add_string buf + +let serialize_pkt_out buf xb =3D + let open Xenbus.Xb in + Buffer.add_string buf xb.partial_out; + Queue.iter (fun p -> Buffer.add_string buf (Packet.to_string p)) xb.pkt_o= ut + +let dump con store chan =3D + let conid =3D get_id con in + let conn =3D match con.dom with + | None -> LR.Socket (get_fd con) + | Some dom -> LR.Domain { + id =3D Domain.get_id dom; + target =3D LR.domid_invalid; (* TODO: we do not store this info *) + remote_port =3D Domain.get_remote_port dom + } in + let pkt_in =3D Buffer.create 4096 in + let pkt_out =3D Buffer.create 4096 in + serialize_pkt_in pkt_in con.xb; + serialize_pkt_out pkt_out con.xb; + LR.write_connection_data chan ~conid ~conn pkt_in con.xb.partial_out pkt= _out; + + con |> list_watches + |> List.rev (* preserve order in dump/reload *) + |> List.iter (fun (wpath, token) -> + LR.write_watch_data chan ~conid ~wpath ~token + ); + let conpath =3D get_path con in + iter_transactions con (fun _ txn -> + Transaction.dump store conpath ~conid txn chan) =20 let debug con =3D let domid =3D get_domstr con in --=20 2.29.2