* Callbacks *
*************/
-surf_callback(void, simgrid::surf::VirtualMachine*) VMCreatedCallbacks;
-surf_callback(void, simgrid::surf::VirtualMachine*) VMDestructedCallbacks;
-surf_callback(void, simgrid::surf::VirtualMachine*) VMStateChangedCallbacks;
+simgrid::xbt::signal<void(simgrid::surf::VirtualMachine*)> VMCreatedCallbacks;
+simgrid::xbt::signal<void(simgrid::surf::VirtualMachine*)> VMDestructedCallbacks;
+simgrid::xbt::signal<void(simgrid::surf::VirtualMachine*)> VMStateChangedCallbacks;
/*********
* Model *
* Resource *
************/
-VirtualMachine::VirtualMachine(Model *model, const char *name, xbt_dict_t props,
- RoutingEdge *netElm, Cpu *cpu)
-: Host(model, name, props, NULL, netElm, cpu)
+VirtualMachine::VirtualMachine(HostModel *model, const char *name, xbt_dict_t props, simgrid::s4u::Host *hostPM)
+: HostImpl(model, name, props, NULL, NULL, NULL)
+, p_hostPM(hostPM)
{
VMModel::ws_vms.push_back(*this);
-
- xbt_lib_set(host_lib, name, SURF_HOST_LEVEL, this);
+ simgrid::s4u::Host::by_name_or_create(name)->extension_set<simgrid::surf::HostImpl>(this);
}
/*
*/
VirtualMachine::~VirtualMachine()
{
- surf_callback_emit(VMDestructedCallbacks, this);
+ VMDestructedCallbacks(this);
VMModel::ws_vms.erase(VMModel::vm_list_t::s_iterator_to(*this));
+ /* Free the cpu_action of the VM. */
+ XBT_ATTRIB_UNUSED int ret = p_action->unref();
+ xbt_assert(ret == 1, "Bug: some resource still remains");
}
-void VirtualMachine::setState(e_surf_resource_state_t state){
- Resource::setState(state);
- surf_callback_emit(VMStateChangedCallbacks, this);
+e_surf_vm_state_t VirtualMachine::getState() {
+ return p_vm_state;
}
-/*
- * A surf level object will be useless in the upper layer. Returning the
- * dict_elm of the host.
- **/
-surf_resource_t VirtualMachine::getPm()
-{
- return xbt_lib_get_elm_or_null(host_lib, p_subWs->getName());
+void VirtualMachine::setState(e_surf_vm_state_t state) {
+ p_vm_state = state;
+}
+void VirtualMachine::turnOn() {
+ if (isOff()) {
+ Resource::turnOn();
+ VMStateChangedCallbacks(this);
+ }
+}
+void VirtualMachine::turnOff() {
+ if (isOn()) {
+ Resource::turnOff();
+ VMStateChangedCallbacks(this);
+ }
}
-/**********
- * Action *
- **********/
-
-//FIME:: handle action cancel
+/** @brief returns the physical machine on which the VM is running **/
+sg_host_t VirtualMachine::getPm() {
+ return p_hostPM;
+}
}
}