/* Copyright (c) 2008, 2009, 2010. The SimGrid Team.
* All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
/** @addtogroup MSG_examples
*
* @subsection MSG_ex_resources Other resource kinds
*
* This section contains some sparse examples of how to use the other
* kind of resources, such as disk or GPU. These resources are quite
* experimental for now, but here we go anyway.
*
* - io/file.c Example with the disk resource
*/
#define FILENAME1 "./doc/simgrid/examples/platforms/g5k.xml"
#define FILENAME2 "./doc/simgrid/examples/platforms/One_cluster_no_backbone.xml"
#define FILENAME3 "./doc/simgrid/examples/platforms/g5k_cabinets.xml"
#define FILENAME4 "./doc/simgrid/examples/platforms/nancy.xml"
#include
#include
#include "msg/msg.h"
#include "surf/surf_private.h"
int host(int argc, char *argv[]);
XBT_LOG_NEW_DEFAULT_CATEGORY(io_file,
"Messages specific for this io example");
int host(int argc, char *argv[])
{
msg_file_t file = NULL;
s_msg_stat_t stat;
void *ptr = NULL;
char* mount = bprintf("/home");
double read,write;
if(!strcmp(MSG_process_get_name(MSG_process_self()),"0"))
file = MSG_file_open(mount,FILENAME1,"rw");
else if(!strcmp(MSG_process_get_name(MSG_process_self()),"1"))
file = MSG_file_open(mount,FILENAME2,"rw");
else if(!strcmp(MSG_process_get_name(MSG_process_self()),"2"))
file = MSG_file_open(mount,FILENAME3,"rw");
else if(!strcmp(MSG_process_get_name(MSG_process_self()),"3"))
file = MSG_file_open(mount,FILENAME4,"rw");
else xbt_die("FILENAME NOT DEFINED %s",MSG_process_get_name(MSG_process_self()));
XBT_INFO("\tOpen file '%s'",file->name);
read = MSG_file_read(ptr,10000000,sizeof(char*),file); // Read for 10Mo
XBT_INFO("\tHaving read %.1f \ton %s",read,file->name);
write = MSG_file_write(ptr,100000,sizeof(char*),file); // Write for 100Ko
XBT_INFO("\tHaving write %.1f \ton %s",write,file->name);
read = MSG_file_read(ptr,10000000,sizeof(char*),file); // Read for 10Mo
XBT_INFO("\tHaving read %.1f \ton %s",read,file->name);
MSG_file_stat(file,&stat);
XBT_INFO("\tFile stat %s Size %.1f",file->name,stat.size);
MSG_file_free_stat(&stat);
XBT_INFO("\tClose file '%s'",file->name);
MSG_file_close(file);
free(mount);
return 0;
}
int main(int argc, char **argv)
{
int i,res;
MSG_init(&argc, argv);
MSG_create_environment(argv[1]);
xbt_dynar_t hosts = MSG_hosts_as_dynar();
MSG_function_register("host", host);
unsigned long nb_hosts = xbt_dynar_length(hosts);
XBT_INFO("Number of host '%lu'",nb_hosts);
for(i = 0 ; i