void storage_info(msg_host_t host)
{
const char* host_name = MSG_host_get_name(host);
XBT_INFO("*** Storage info on %s ***", host_name);
xbt_dict_cursor_t cursor = NULL;
char* mount_name;
char* storage_name;
msg_storage_t storage;
xbt_dict_t storage_list = MSG_host_get_mounted_storage_list(MSG_host_self());
xbt_dict_foreach(storage_list,cursor,mount_name,storage_name)
{
XBT_INFO("\tStorage name: %s, mount name: %s", storage_name, mount_name);
storage = MSG_storage_get_by_name(storage_name);
sg_size_t free_size = MSG_storage_get_free_size(storage);
sg_size_t used_size = MSG_storage_get_used_size(storage);
XBT_INFO("\t\tFree size: %llu bytes", free_size);
XBT_INFO("\t\tUsed size: %llu bytes", used_size);
display_storage_properties(storage);
dump_storage_by_name(storage_name);
}
static int host(int argc, char *argv[]){
const char* host_name = MSG_host_get_name(MSG_host_self());
/* - Display information on the disks mounted by the current host */
XBT_INFO("*** Storage info on %s ***", host_name);
xbt_dict_cursor_t cursor = NULL;
char* mount_name;
char* storage_name;
msg_storage_t storage = NULL;
/* - Retrieve all mount points of current host */
xbt_dict_t storage_list = MSG_host_get_mounted_storage_list(MSG_host_self());
xbt_dict_foreach(storage_list,cursor,mount_name,storage_name) {
/* - For each disk mounted on host:
- Retrieve disk's information */
XBT_INFO("Storage name: %s, mount name: %s", storage_name, mount_name);
storage = MSG_storage_get_by_name(storage_name);
sg_size_t free_size = MSG_storage_get_free_size(storage);
sg_size_t used_size = MSG_storage_get_used_size(storage);
sg_size_t size = MSG_storage_get_size(storage);
XBT_INFO("Total size: %llu bytes", size);
XBT_INFO("Free size: %llu bytes", free_size);
XBT_INFO("Used size: %llu bytes", used_size);
}
JNIEXPORT jlong JNICALL Java_org_simgrid_msg_Storage_getUsedSize(JNIEnv * env,jobject jstorage) {
msg_storage_t storage = jstorage_get_native(env, jstorage);
if (!storage) {
jxbt_throw_notbound(env, "storage", jstorage);
return -1;
}
return (jlong) MSG_storage_get_used_size(storage);
}
int tracer_storage(std::string& hostname, std::string& storage_type){
/**
Adds used size of @storage_name to trace file.
Parameters:
-----------
@hostname -- host name
@storage_type -- TAPE or DISK
*/
std::string storage_name = hostname + storage_type;
msg_storage_t st = MSG_storage_get_by_name(storage_name.c_str());
TRACE_host_variable_set("CERN", storage_name.c_str(), MSG_storage_get_used_size(st));
return 0;
}
int main(int argc, char **argv)
{
int res;
unsigned int cur;
xbt_dynar_t storages;
msg_storage_t st;
MSG_init(&argc, argv);
MSG_create_environment(argv[1]);
MSG_function_register("host", host);
MSG_launch_application(argv[2]);
storages = MSG_storages_as_dynar();
xbt_dynar_foreach(storages, cur, st){
XBT_INFO("Init: %llu MiB used on '%s'",
MSG_storage_get_used_size(st)/INMEGA,
MSG_storage_get_name(st));
}
xbt_dict_free(&storage_list);
/* - Create a 200,000 bytes file named './tmp/data.txt' on /sd1 */
char* file_name = xbt_strdup("/home/tmp/data.txt");
msg_file_t file = NULL;
sg_size_t write, read, file_size;
/* - Open an non-existing file which amounts to create it. */
file = MSG_file_open(file_name, NULL);
write = MSG_file_write(file, 200000); // Write 200,000 bytes
XBT_INFO("Create a %llu bytes file named '%s' on /sd1", write, file_name);
MSG_file_dump(file);
/* - Check that sizes have changed */
XBT_INFO("Free size: %llu bytes", MSG_storage_get_free_size(storage));
XBT_INFO("Used size: %llu bytes", MSG_storage_get_used_size(storage));
/* - Retrieve the size of created file and read it completely */
file_size = MSG_file_get_size(file);
MSG_file_seek(file, 0, SEEK_SET);
read = MSG_file_read(file, file_size);
XBT_INFO("Read %llu bytes on %s", read, file_name);
/* - Then write 100,000 bytes in tmp/data.txt */
write = MSG_file_write(file, 100000); // Write 100,000 bytes
XBT_INFO("Write %llu bytes on %s", write, file_name);
MSG_file_dump(file);
storage_name = xbt_strdup("Disk4");
storage = MSG_storage_get_by_name(storage_name);
xbt_dynar_foreach(storages, cur, st){
XBT_INFO("Init: %llu MiB used on '%s'",
MSG_storage_get_used_size(st)/INMEGA,
MSG_storage_get_name(st));
}
int host(int argc, char *argv[])
{
msg_file_t file = NULL;
sg_size_t read,write;
msg_storage_t st;
const char* st_name;
if(!strcmp(MSG_process_get_name(MSG_process_self()),"0")){
file = MSG_file_open(FILENAME1, NULL);
MSG_file_dump(file);
st_name = "Disk4";
} else if(!strcmp(MSG_process_get_name(MSG_process_self()),"1")) {
file = MSG_file_open(FILENAME2, NULL);
st_name = "Disk2";
} else if(!strcmp(MSG_process_get_name(MSG_process_self()),"2")){
file = MSG_file_open(FILENAME3, NULL);
st_name = "Disk3";
} else if(!strcmp(MSG_process_get_name(MSG_process_self()),"3")){
file = MSG_file_open(FILENAME4, NULL);
st_name = "Disk1";
}
else xbt_die("FILENAME NOT DEFINED %s",MSG_process_get_name(MSG_process_self()));
const char* filename = MSG_file_get_name(file);
XBT_INFO("\tOpen file '%s'",filename);
st = MSG_storage_get_by_name(st_name);
XBT_INFO("\tCapacity of the storage element '%s' is stored on: %llu / %llu",
filename, MSG_storage_get_used_size(st), MSG_storage_get_size(st));
/* Try to read for 10MB */
read = MSG_file_read(file, 10000000);
XBT_INFO("\tHave read %llu from '%s'",read,filename);
/* Write 100KB in file from the current position, i.e, end of file or 10MB */
write = MSG_file_write(file, 100000);
XBT_INFO("\tHave written %llu in '%s'. Size now is: %llu",write,filename,
MSG_file_get_size(file));
XBT_INFO("\tCapacity of the storage element '%s' is stored on: %llu / %llu",
filename, MSG_storage_get_used_size(st), MSG_storage_get_size(st));
/* rewind to the beginning of the file */
XBT_INFO("\tComing back to the beginning of the stream for file '%s'",
filename);
MSG_file_seek(file, 0, SEEK_SET);
/* Try to read 110KB */
read = MSG_file_read(file, 110000);
XBT_INFO("\tHave read %llu from '%s' (of size %llu)",read,filename,
MSG_file_get_size(file));
/* rewind once again to the beginning of the file */
XBT_INFO("\tComing back to the beginning of the stream for file '%s'",
filename);
MSG_file_seek(file, 0, SEEK_SET);
/* Write 110KB in file from the current position, i.e, end of file or 10MB */
write = MSG_file_write(file, 110000);
XBT_INFO("\tHave written %llu in '%s'. Size now is: %llu", write,filename,
MSG_file_get_size(file));
XBT_INFO("\tCapacity of the storage element '%s' is stored on: %llu / %llu",
filename, MSG_storage_get_used_size(st), MSG_storage_get_size(st));
XBT_INFO("\tClose file '%s'",filename);
MSG_file_close(file);
return 0;
}
