integer _MPI_STATUS_IGNORE;
integer _MPI_STATUSES_IGNORE;
} *f77; /* with f2c, remains NULL with gfortran */
- struct s_smpi_common f90; /* with gftortran */
+ struct s_smpi_common f90; /* with gfortran */
} smpi_ = { NULL };
/* Convert between Fortran and C */
FILE *file = NULL;
file = surf_fopen(filename, "r");
- xbt_assert(file != NULL, "Cannot open file '%s' (path=%s)", filename,
- xbt_str_join(surf_path, ":"));
+ if (file == NULL)
+ xbt_die("Cannot open file '%s' (path=%s)", filename,
+ xbt_str_join(surf_path, ":"));
char *line = NULL;
size_t len = 0;
char path[1024];
sg_size_t size;
-
while ((read = xbt_getline(&line, &len, file)) != -1) {
if (read){
- if(sscanf(line,"%s %llu", path, &size) == 2) {
+ if(sscanf(line,"%s %llu", path, &size) == 2) {
m_usedSize += size;
sg_size_t *psize = xbt_new(sg_size_t, 1);
*psize = size;
-$ msg/storage/storage_basic ${srcdir:=.}/msg/storage/platform.xml ${srcdir:=.}/msg/storage/deployment.xml 0 "--log=root.fmt:[%10.6r]%e(%i:%P@%h)%e%m%n"
+$ msg/storage/storage_basic --cfg=path:${srcdir:=.} ${srcdir:=.}/msg/storage/platform.xml ${srcdir:=.}/msg/storage/deployment.xml 0 "--log=root.fmt:[%10.6r]%e(%i:%P@%h)%e%m%n"
> [ 0.000000] (1:server@server) *** Storage info on server ***
> [ 0.000000] (1:server@server) Storage name: sdisk1, mount name: /sd1
> [ 0.000000] (1:server@server) Free size: 322122547160 bytes
> [ 3.208145] (1:server@server) /scratch/toto.cxx size: 500001 bytes
> [ 3.208145] (1:server@server) /doc/simgrid/examples/cxx/basic/Slave.cxx size: 10 bytes
> [ 3.208145] (0:@) Simulated time: 3.20814
-