1 /* Copyright (c) 2013-2015, 2017. The SimGrid Team.
2 * All rights reserved. */
4 /* This program is free software; you can redistribute it and/or modify it
5 * under the terms of the license (GNU LGPL) which comes with this package. */
7 #include "simgrid/s4u.hpp"
10 XBT_LOG_NEW_DEFAULT_CATEGORY(storage, "Messages specific for this simulation");
12 static void display_storage_properties(simgrid::s4u::Storage* storage)
14 xbt_dict_cursor_t cursor = NULL;
17 xbt_dict_t props = storage->properties();
18 if (xbt_dict_length(props) > 0) {
19 XBT_INFO("\tProperties of mounted storage: %s", storage->name());
20 xbt_dict_foreach (props, cursor, key, data)
21 XBT_INFO("\t\t'%s' -> '%s'", key, data);
23 XBT_INFO("\tNo property attached.");
27 static sg_size_t write_local_file(const char* dest, sg_size_t file_size)
29 simgrid::s4u::File* file = new simgrid::s4u::File(dest, nullptr);
30 sg_size_t written = file->write(file_size);
31 XBT_INFO("%llu bytes on %llu bytes have been written by %s on /sd1", written, file_size,
32 simgrid::s4u::Actor::self()->name().c_str());
37 static sg_size_t read_local_file(const char* src)
39 simgrid::s4u::File* file = new simgrid::s4u::File(src, nullptr);
40 sg_size_t file_size = file->size();
41 sg_size_t read = file->read(file_size);
43 XBT_INFO("%s has read %llu on %s", simgrid::s4u::Actor::self()->name().c_str(), read, src);
49 // Read src file on local disk and send a put message to remote host (size of message = size of src file)
50 static void hsm_put(const char* remote_host, const char* src, const char* dest)
52 // Read local src file, and return the size that was actually read
53 sg_size_t read_size = read_local_file(src);
56 XBT_INFO("%s sends %llu to %s", simgrid::s4u::this_actor::name().c_str(), read_size, remote_host);
57 char* payload = bprintf("%s %llu", dest, read_size);
58 simgrid::s4u::MailboxPtr mailbox = simgrid::s4u::Mailbox::byName(remote_host);
59 simgrid::s4u::this_actor::send(mailbox, payload, static_cast<double>(read_size));
60 simgrid::s4u::this_actor::sleep_for(.4);
63 static void display_storage_content(simgrid::s4u::Storage* storage)
65 XBT_INFO("Print the content of the storage element: %s", storage->name());
66 std::map<std::string, sg_size_t*>* content = storage->content();
67 if (!content->empty()) {
68 for (auto entry : *content)
69 XBT_INFO("\t%s size: %llu bytes", entry.first.c_str(), *entry.second);
71 XBT_INFO("\tNo content.");
75 static void dump_storage_by_name(char* name)
77 XBT_INFO("*** Dump a storage element ***");
78 simgrid::s4u::Storage& storage = simgrid::s4u::Storage::byName(name);
79 display_storage_content(&storage);
82 static void get_set_storage_data(const char* storage_name)
84 XBT_INFO("*** GET/SET DATA for storage element: %s ***", storage_name);
85 simgrid::s4u::Storage& storage = simgrid::s4u::Storage::byName(storage_name);
87 char* data = (char*)storage.userdata();
88 XBT_INFO("Get data: '%s'", data);
89 storage.setUserdata(xbt_strdup("Some data"));
90 data = (char*)storage.userdata();
91 XBT_INFO("\tSet and get data: '%s'", data);
95 // static void dump_platform_storages(void){
96 // unsigned int cursor;
97 // xbt_dynar_t storages = MSG_storages_as_dynar();
98 // msg_storage_t storage;
99 // xbt_dynar_foreach(storages, cursor, storage){
100 // XBT_INFO("Storage %s is attached to %s", MSG_storage_get_name(storage), MSG_storage_get_host(storage));
101 // MSG_storage_set_property_value(storage, "other usage", xbt_strdup("gpfs"));
103 // xbt_dynar_free(&storages);
104 // Expected output in tesh file
105 //> [ 1.207952] (server@alice) Storage Disk1 is attached to bob
106 //> [ 1.207952] (server@alice) Storage Disk2 is attached to alice
107 //> [ 1.207952] (server@alice) Storage Disk3 is attached to carl
108 //> [ 1.207952] (server@alice) Storage Disk4 is attached to denise
111 static void storage_info(simgrid::s4u::Host* host)
113 XBT_INFO("*** Storage info on %s ***", host->cname());
114 xbt_dict_cursor_t cursor = NULL;
118 xbt_dict_t storage_list = host->mountedStoragesAsDict();
119 xbt_dict_foreach (storage_list, cursor, mount_name, storage_name) {
120 XBT_INFO("\tStorage name: %s, mount name: %s", storage_name, mount_name);
121 simgrid::s4u::Storage& storage = simgrid::s4u::Storage::byName(storage_name);
123 sg_size_t free_size = storage.sizeFree();
124 sg_size_t used_size = storage.sizeUsed();
126 XBT_INFO("\t\tFree size: %llu bytes", free_size);
127 XBT_INFO("\t\tUsed size: %llu bytes", used_size);
129 display_storage_properties(&storage);
130 dump_storage_by_name(storage_name);
132 xbt_dict_free(&storage_list);
137 hsm_put("alice", "/home/doc/simgrid/examples/msg/icomms/small_platform.xml", "c:\\Windows\\toto.cxx");
138 hsm_put("alice", "/home/doc/simgrid/examples/msg/parallel_task/test_ptask_deployment.xml", "c:\\Windows\\titi.xml");
139 hsm_put("alice", "/home/doc/simgrid/examples/msg/alias/masterslave_forwarder_with_alias.c", "c:\\Windows\\tata.c");
141 simgrid::s4u::MailboxPtr mailbox = simgrid::s4u::Mailbox::byName("alice");
142 simgrid::s4u::this_actor::send(mailbox, xbt_strdup("finalize"), 0);
144 get_set_storage_data("Disk1");
149 storage_info(simgrid::s4u::this_actor::host());
150 simgrid::s4u::MailboxPtr mailbox = simgrid::s4u::Mailbox::byName(simgrid::s4u::this_actor::host()->cname());
152 XBT_INFO("Server waiting for transfers ...");
154 char* msg = static_cast<char*>(simgrid::s4u::this_actor::recv(mailbox));
155 if (!strcmp(msg, "finalize")) { // Shutdown ...
158 } else { // Receive file to save
160 char* dest = strtok_r(msg, " ", &saveptr);
161 sg_size_t size_to_write = std::stoull(strtok_r(nullptr, " ", &saveptr));
162 write_local_file(dest, size_to_write);
167 storage_info(simgrid::s4u::this_actor::host());
168 // dump_platform_storages();
171 int main(int argc, char* argv[])
173 simgrid::s4u::Engine* e = new simgrid::s4u::Engine(&argc, argv);
174 xbt_assert(argc == 2, "Usage: %s platform_file\n", argv[0]);
175 e->loadPlatform(argv[1]);
177 simgrid::s4u::Actor::createActor("server", simgrid::s4u::Host::by_name("alice"), server);
178 simgrid::s4u::Actor::createActor("client", simgrid::s4u::Host::by_name("bob"), client);
182 XBT_INFO("Simulated time: %g", e->getClock());