unsigned int ReadSeedFile( void ) {
FILE *seedfp = NULL;
int i, io_state, n = peNum;
unsigned int *iseed, seed;
// Check we have actually been initialised:
if( !Is_Initialised ) CommsInit();
#ifdef MPISCU_DEBUG
fprintf_all(logFile,"MPISCU::ReadSeedFile: Opening seed file %s.\n", seedFileName);
#endif
// Create the seeds buffer:
iseed = new unsigned int[n+1];
// Open the file:
seedfp = Fopen(seedFileName, "r" );
if( seedfp == NULL )
RaiseError("SCUReadSeedFile: could not open seed file!\n");
// Read in n seeds:
i = 0; while( i < n && fscanf(seedfp,"%u",&(iseed[i])) != EOF ) i++;
// Close the file:
Fclose(seedfp); seedfp = NULL;
// Die if the file ended before all seeds had been read in:
if( i < n )
RaiseError("SCUReadSeedFile: not enough seeds have been supplied in the seed file!");
// XXX, EXTREME warning. This killed one thread and then hung.
// Get the seed which belongs to this PE:
seed = iseed[peRank];
// Delete the seeds buffer:
delete [] iseed;
// Return this PE's seed:
return seed;
}
void SCUGlobalSum(Type_tag t, /*!< In: Type of data being summed */
size_t tsize, /*!< In: Size of the data type */
int n, /*!< In: Number of values to sum */
void *ivec, /*!< In: Vector of input values */
void *ovec /*!< Out: Vector of output values */
) {
MPI_Datatype mpitype; /* This will hold the MPI_Datatype for type (t + size) */
if( !Is_Initialised ) CommsInit();
#ifdef MPISCU_DEBUG
MPISCU::fprintf(logFile,"SCUGlobalSum: Performing a global summation.\n");
#endif
/* Check args make sense */
if( n <= 0 )
RaiseError("SCUGlobalSum: no. of values to sum is <= 0!");
if( ivec == NULL )
RaiseError("SCUGlobalSum: input vector points to NULL!");
if( ovec == NULL )
RaiseError("SCUGlobalSum: output vector points to NULL!");
/* Map the requested type onto an MPI_Datatype */
mpitype = MPITypeConv( t, tsize );
/* Invoke the relevent MPI call, so that all processors get the global sum*/
MPI_Allreduce(ivec, /* Array containing data to be summed */
ovec, /* Array to receive the summations */
n, /* Number of items in the array */
mpitype, /* MPI datatype corresponding to Type_tag */
MPI_SUM, /* Do a global sum operation */
Cart_Comm /* Use the cartesian communicator */
);
}
int
main(int argc, char **argv)
{
int ch, i, loop;
struct utsname ubuf;
const char *str, *dstr;
/* This function runs all the setup for startup, and then
* proceeds into the primary event loop at the end.
*/
/* Init state variable struct */
memset(&Mode, 0, sizeof(EMode));
Mode.wm.master = 1;
Mode.wm.pid = getpid();
Mode.wm.exec_name = argv[0];
Mode.wm.startup = 1;
Mode.mode = MODE_NONE;
EXInit();
Dpy.screen = -1;
str = getenv("EDEBUG");
if (str)
EDebugInit(str);
str = getenv("EDEBUG_COREDUMP");
if (str)
Mode.wm.coredump = 1;
str = getenv("EDEBUG_EXIT");
if (str)
Mode.debug_exit = atoi(str);
str = getenv("ECONFNAME");
if (str)
EConfNameSet(str);
str = getenv("ECONFDIR");
if (str)
EDirUserSet(str);
str = getenv("ECACHEDIR");
if (str)
EDirUserCacheSet(str);
srand((unsigned int)time(NULL));
if (!uname(&ubuf))
Mode.wm.machine_name = Estrdup(ubuf.nodename);
if (!Mode.wm.machine_name)
Mode.wm.machine_name = Estrdup("localhost");
/* Now we're going to interpret any of the commandline parameters
* that are passed to it -- Well, at least the ones that we
* understand.
*/
Mode.theme.path = NULL;
dstr = NULL;
for (loop = 1; loop;)
{
ch = EoptGet(argc, argv);
if (ch <= 0)
break;
#if 0
Eprintf("Opt: %c: %d - %s\n", ch, eoptind, eoptarg);
#endif
switch (ch)
{
default:
case '?':
printf("e16: Ignoring: ");
for (i = eoptind; i < argc; i++)
printf("%s ", argv[i]);
printf("\n");
loop = 0;
break;
case 'h':
EoptHelp();
exit(0);
break;
case 'd':
dstr = eoptarg;
break;
case 'f':
Mode.wm.restart = 1;
break;
case 'p':
EConfNameSet(eoptarg);
break;
case 'P':
EDirUserSet(eoptarg);
break;
case 'Q':
EDirUserCacheSet(eoptarg);
break;
case 's':
Mode.wm.single = 1;
Dpy.screen = strtoul(eoptarg, NULL, 10);
break;
case 'S':
SetSMID(eoptarg);
break;
case 't':
Mode.theme.path = Estrdup(eoptarg);
break;
case 'V':
printf("%s %s\n", e_wm_name, e_wm_version);
exit(0);
break;
case 'v':
EDebugSet(EDBUG_TYPE_VERBOSE, 1);
break;
case 'w':
sscanf(eoptarg, "%dx%d", &Mode.wm.win_w, &Mode.wm.win_h);
Mode.wm.window = 1;
Mode.wm.single = 1;
Mode.wm.master = 0;
break;
#ifdef USE_EXT_INIT_WIN
case 'X':
ExtInitWinSet(strtoul(eoptarg, NULL, 0));
Mode.wm.restart = 1;
break;
#endif
case 'm':
Mode.wm.master = 0;
Mode.wm.master_screen = strtoul(eoptarg, NULL, 10);
break;
}
}
SignalsSetup(); /* Install signal handlers */
EDirsSetup();
ECheckEprog("epp");
ECheckEprog("eesh");
SetupX(dstr); /* This is where the we fork per screen */
/* X is now running, and we have forked per screen */
ESavePrefixSetup();
/* So far nothing should rely on a selected settings or theme. */
ConfigurationLoad(); /* Load settings */
/* Initialise internationalisation */
LangInit();
/* The theme path must now be available for config file loading. */
ThemePathFind();
/* Set the Environment variables */
Esetenv("EVERSION", e_wm_version);
Esetenv("EROOT", EDirRoot());
Esetenv("EBIN", EDirBin());
Esetenv("ECONFDIR", EDirUser());
Esetenv("ECACHEDIR", EDirUserCache());
Esetenv("ETHEME", Mode.theme.path);
/* Move elsewhere? */
EImageInit();
HintsInit();
CommsInit();
SessionInit();
SnapshotsLoad();
#if USE_DBUS
DbusInit();
#endif
if (Mode.wm.window)
EMapWindow(VROOT);
ModulesSignal(ESIGNAL_INIT, NULL);
/* Load the theme */
ThemeConfigLoad();
if (Mode.debug_exit)
return 0;
/* Do initial configuration */
ModulesSignal(ESIGNAL_CONFIGURE, NULL);
/* Set root window cursor */
ECsrApply(ECSR_ROOT, WinGetXwin(VROOT));
#ifdef USE_EXT_INIT_WIN
/* Kill the E process owning the "init window" */
ExtInitWinKill();
#endif
/* let's make sure we set this up and go to our desk anyways */
DeskGoto(DesksGetCurrent());
ESync(ESYNC_MAIN);
#ifdef SIGCONT
for (i = 0; i < Mode.wm.child_count; i++)
kill(Mode.wm.children[i], SIGCONT);
#endif
ModulesSignal(ESIGNAL_START, NULL);
#if ENABLE_DIALOGS
DialogsInit();
#endif
EwinsManage();
RunInitPrograms();
SnapshotsSpawn();
if (!Mode.wm.restart)
StartupWindowsOpen();
Conf.startup.firsttime = 0;
Mode.wm.save_ok = Conf.autosave;
Mode.wm.startup = 0;
autosave();
/* The primary event loop */
EventsMain();
SessionExit(EEXIT_QUIT, NULL);
return 0;
}
