+s4u::VirtualMachine* HostImpl::create_vm(const std::string& name, s4u::VirtualMachine* vm)
+{
+ vms_[name] = vm->get_vm_impl();
+
+ // Create a VCPU for this VM
+ std::vector<double> speeds;
+ for (unsigned long i = 0; i < get_iface()->get_pstate_count(); i++)
+ speeds.push_back(get_iface()->get_pstate_speed(i));
+
+ auto* cpu =
+ englobing_zone_->get_cpu_vm_model()->create_cpu(vm, speeds)->set_core_count(vm->get_vm_impl()->get_core_amount());
+
+ if (get_iface()->get_pstate() != 0)
+ cpu->set_pstate(get_iface()->get_pstate());
+
+ cpu->seal();
+
+ /* Currently, a VM uses the network resource of its physical host */
+ vm->set_netpoint(get_iface()->get_netpoint());
+
+ vm->seal();
+
+ return vm;
+}
+
+void HostImpl::move_vm(VirtualMachineImpl* vm, HostImpl* destination)
+{
+ xbt_assert(vm && destination);
+
+ vms_.erase(vm->get_name());
+ destination->vms_[vm->get_name()] = vm;
+}
+
+void HostImpl::destroy_vm(const std::string& name)
+{
+ auto* vm = vms_[name];
+ vms_.erase(name);
+ vm->vm_destroy();
+}
+
+VirtualMachineImpl* HostImpl::get_vm_by_name_or_null(const std::string& name) const
+{
+ auto vm_it = vms_.find(name);
+ return vm_it == vms_.end() ? nullptr : vm_it->second;
+}
+
+std::vector<s4u::VirtualMachine*> HostImpl::get_vms() const
+{
+ std::vector<s4u::VirtualMachine*> vms;
+ for (const auto& [_, vm] : vms_) {
+ vms.push_back(vm->get_iface());
+ }
+ return vms;
+}
+
+s4u::Disk* HostImpl::create_disk(const std::string& name, double read_bandwidth, double write_bandwidth)
+{
+ auto disk = piface_.get_netpoint()->get_englobing_zone()->get_disk_model()->create_disk(name, read_bandwidth,
+ write_bandwidth);
+ return disk->set_host(&piface_)->get_iface();
+}
+
+void HostImpl::add_disk(const s4u::Disk* disk)
+{
+ disks_[disk->get_name()] = disk->get_impl();
+}
+
+void HostImpl::remove_disk(const std::string& name)
+{
+ disks_.erase(name);
+}
+
+void HostImpl::seal()
+{
+ if (sealed_) {
+ return;
+ }
+ // seals host's CPU
+ get_iface()->get_cpu()->seal();
+ sealed_ = true;
+
+ /* seal its disks */
+ for (auto const& [_, disk] : disks_)
+ disk->seal();
+
+ /* seal its VMs */
+ for (auto const& [_, vm] : vms_)
+ vm->seal();
+}
+} // namespace resource
+} // namespace kernel