[PATCH proxmox-perl-rs 6/9] pve: pci bindings: add bindings for the `Machine` struct

[Dominik Csapak <d.csapak@proxmox.com>]

This is a better way to convey information necessary for some functions,
so make use of it in the bindings.

Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>
---
 pve-rs/Makefile                    |  1 +
 pve-rs/src/bindings/pci/machine.rs | 45 ++++++++++++++++++++++++++++++
 pve-rs/src/bindings/pci/mod.rs     | 14 ++++------
 3 files changed, 52 insertions(+), 8 deletions(-)
 create mode 100644 pve-rs/src/bindings/pci/machine.rs

diff --git a/pve-rs/Makefile b/pve-rs/Makefile
index dbffb38..20a7d24 100644
--- a/pve-rs/Makefile
+++ b/pve-rs/Makefile
@@ -30,6 +30,7 @@ PERLMOD_PACKAGES := \
 	  PVE::RS::NVML \
 	  PVE::RS::OCI \
 	  PVE::RS::PCI \
+	  PVE::RS::PCI::Machine \
 	  PVE::RS::OpenId \
 	  PVE::RS::ResourceScheduling::Static \
 	  PVE::RS::ResourceScheduling::Dynamic \
diff --git a/pve-rs/src/bindings/pci/machine.rs b/pve-rs/src/bindings/pci/machine.rs
new file mode 100644
index 0000000..d9efc32
--- /dev/null
+++ b/pve-rs/src/bindings/pci/machine.rs
@@ -0,0 +1,45 @@
+#[perlmod::package(name = "PVE::RS::PCI::Machine", lib = "pve_rs")]
+pub mod pve_rs_pci_machine {
+    //! The `PVE::RS::PCI::Machine` package.
+    //!
+    //! Provides bindings for the `Machine` struct of the [`pve-qemu-server-pci`] crate.
+
+    use std::sync::RwLock;
+
+    use anyhow::Error;
+
+    use perlmod::Value;
+
+    use pve_qemu_server_pci::Machine;
+
+    perlmod::declare_magic!(Box<MachineWrap>: &MachineWrap as "PVE::RS::PCI::Machine");
+
+    /// Wraps the `Machine` struct behind an RwLock since most accesses are reads.
+    pub struct MachineWrap {
+        /// test
+        pub inner: RwLock<Machine>,
+    }
+
+    #[export(raw_return)]
+    #[allow(clippy::too_many_arguments)]
+    /// Create a instance of the `MachineWrap` struct
+    pub fn new(
+        #[raw] class: Value,
+        arch: String,
+        q35: bool,
+        scsihw: Option<String>,
+        max_scsihw: u8,
+        legacy_igd: bool,
+        ostype: Option<String>,
+        major: u16,
+        minor: u16,
+        pve: Option<u16>,
+    ) -> Result<Value, Error> {
+        let machine = Machine::new(
+            &arch, q35, scsihw, max_scsihw, legacy_igd, ostype, major, minor, pve,
+        );
+        Ok(
+            perlmod::instantiate_magic!(&class, MAGIC => Box::new(MachineWrap { inner: RwLock::new(machine) })),
+        )
+    }
+}
diff --git a/pve-rs/src/bindings/pci/mod.rs b/pve-rs/src/bindings/pci/mod.rs
index 9b3ad9d..a036704 100644
--- a/pve-rs/src/bindings/pci/mod.rs
+++ b/pve-rs/src/bindings/pci/mod.rs
@@ -1,3 +1,5 @@
+pub(crate) mod machine;
+
 #[perlmod::package(name = "PVE::RS::PCI", lib = "pve_rs")]
 pub mod pve_rs_pci {
     //! The `PVE::RS::PCI` package.
@@ -38,13 +40,9 @@ pub mod pve_rs_pci {
     }
 
     #[export]
-    /// Get the necessary PCI bridges for a guest from the given options.
-    pub fn get_pci_bridges(
-        arch: &str,
-        q35: bool,
-        virtio_scsi_single: bool,
-        legacy_igd: bool,
-    ) -> Vec<String> {
-        pve_qemu_server_pci::get_pci_bridges(arch, q35, virtio_scsi_single, legacy_igd)
+    /// Get the necessary PCI bridges for a guest from the given config.
+    pub fn get_pci_bridges(#[try_from_ref] machine: &MachineWrap) -> Vec<String> {
+        let machine = machine.inner.read().unwrap();
+        pve_qemu_server_pci::get_pci_bridges(&machine)
     }
 }
-- 
2.47.3