2 #include "gnunet_util_lib.h"
6 * Generic logging shorthand
8 #define LOG(kind,...) \
9 GNUNET_log_from (kind, "gnunet-mpi-test", __VA_ARGS__)
12 main (int argc, char *argv[])
17 struct GNUNET_OS_Process *proc;
20 enum GNUNET_OS_ProcessStatusType proc_status;
30 printf ("Need arguments: gnunet-mpi-test <cmd> <cmd_args>");
33 if (MPI_SUCCESS != MPI_Init (&argc, &argv))
38 if (MPI_SUCCESS != MPI_Comm_size (MPI_COMM_WORLD, &ntasks))
43 if (MPI_SUCCESS != MPI_Comm_rank (MPI_COMM_WORLD, &rank))
49 (void) GNUNET_asprintf (&filename, "%d-%d.mpiout", (int) pid, rank);
50 msg_size = GNUNET_asprintf (&msg, "My rank is: %d\n", rank);
53 GNUNET_DISK_fn_write (filename, msg, msg_size,
54 GNUNET_DISK_PERM_USER_READ |
55 GNUNET_DISK_PERM_GROUP_READ |
56 GNUNET_DISK_PERM_USER_WRITE |
57 GNUNET_DISK_PERM_GROUP_WRITE))
59 GNUNET_free (filename);
68 argv2 = GNUNET_malloc (sizeof (char *) * (argc));
69 for (cnt = 1; cnt < argc; cnt++)
70 argv2[cnt - 1] = argv[cnt];
72 GNUNET_OS_start_process_vap (GNUNET_NO, GNUNET_OS_INHERIT_STD_ALL, NULL,
73 NULL, argv2[0], argv2);
76 printf ("Cannot exec\n");
83 ret = GNUNET_OS_process_status (proc, &proc_status, &code);
85 while (GNUNET_NO == ret);
87 GNUNET_assert (GNUNET_NO != ret);
92 LOG (GNUNET_ERROR_TYPE_WARNING, "Child terminated abnormally\n");
102 (void) MPI_Finalize ();
103 if (GNUNET_OK == ret)
105 printf ("Something went wrong\n");