mpich/test/mpi/spawn/spawnmanyarg.c

/*
 * Copyright (C) by Argonne National Laboratory
 *     See COPYRIGHT in top-level directory
 */

#include "mpi.h"
#include <stdio.h>
#include <stdlib.h>
#include "mpitest.h"
#include "mpitestconf.h"
#ifdef HAVE_STRING_H
#include <string.h>
#endif

/*
static char MTEST_Descrip[] = "A simple test of Comm_spawn, with many arguments";
*/

#define MAX_ARGV 1024
int worker(int argc, char *argv[], MPI_Comm intercomm, char *outargv[], int np);

int main(int argc, char *argv[])
{
    int errs = 0, err;
    int rank, size, rsize, i;
    int np = 2;
    int errcodes[2];
    MPI_Comm parentcomm, intercomm;
    char *inargv[MAX_ARGV];
    char *outargv[MAX_ARGV];
    int narg = 40;
    char *saveArgp = 0;
    int can_spawn;

    MTest_Init(&argc, &argv);

    errs += MTestSpawnPossible(&can_spawn);

    if (can_spawn) {
        /* Initialize the argument vectors */
        for (i = 0; i < MAX_ARGV; i++) {
            char *p;
            p = (char *) malloc(9);
            if (!p) {
                fprintf(stderr, "Unable to allocated memory\n");
                MPI_Abort(MPI_COMM_WORLD, 1);
            }
            strcpy(p, "01234567");
            inargv[i] = p;
            p = (char *) malloc(9);
            if (!p) {
                fprintf(stderr, "Unable to allocated memory\n");
                MPI_Abort(MPI_COMM_WORLD, 1);
            }
            strcpy(p, "01234567");
            outargv[i] = p;
        }

        MPI_Comm_get_parent(&parentcomm);

        if (parentcomm == MPI_COMM_NULL) {
            for (narg = 16; narg < 512; narg += narg) {
                /* Create 2 more processes */
                /* Set a null at argument length narg */
                saveArgp = inargv[narg];
                inargv[narg] = 0;
                /* ./ is unix specific .
                 * The more generic approach would be to specify "spawnmanyarg" as
                 * the executable and pass an info with ("path", ".") */
                MPI_Comm_spawn((char *) "./spawnmanyarg", inargv, np,
                               MPI_INFO_NULL, 0, MPI_COMM_WORLD, &intercomm, errcodes);
                inargv[narg] = saveArgp;
                /* We now have a valid intercomm */

                /* Parent */
                MPI_Comm_remote_size(intercomm, &rsize);
                MPI_Comm_size(intercomm, &size);
                MPI_Comm_rank(intercomm, &rank);

                if (rsize != np) {
                    errs++;
                    printf("Did not create %d processes (got %d)\n", np, rsize);
                }
                /* Send the expected rank */
                for (i = 0; i < rsize; i++) {
                    MPI_Send(&i, 1, MPI_INT, i, 0, intercomm);
                }
                /* Send the number of arguments */
                for (i = 0; i < rsize; i++) {
                    MPI_Send(&narg, 1, MPI_INT, i, 0, intercomm);
                }
                /* We could use intercomm reduce to get the errors from the
                 * children, but we'll use a simpler loop to make sure that
                 * we get valid data */
                for (i = 0; i < rsize; i++) {
                    MPI_Recv(&err, 1, MPI_INT, i, 1, intercomm, MPI_STATUS_IGNORE);
                    errs += err;
                }

                /* Free the intercomm before the next round of spawns */
                MPI_Comm_free(&intercomm);
            }
        } else {
            /* Note that worker also send errs to the parent */
            errs += worker(argc, argv, parentcomm, outargv, np);
        }

        /* Note that the MTest_Finalize get errs only over COMM_WORLD */
        if (parentcomm == MPI_COMM_NULL) {
            MTest_Finalize(errs);
        } else {
            MPI_Comm_free(&parentcomm);
            MPI_Finalize();
        }
        /* free the argument vectors */
        for (i = 0; i < MAX_ARGV; i++) {
            free(inargv[i]);
            free(outargv[i]);
        }

    } else {
        MTest_Finalize(errs);
    }

    return MTestReturnValue(errs);
}

/* Call this routine if this process is the spawned child */
int worker(int argc, char *argv[], MPI_Comm intercomm, char *outargv[], int np)
{
    int i, narg;
    int rsize, size, rank;
    int errs = 0;
    char *saveoutArgp = 0;
    MPI_Status status;

    MPI_Comm_remote_size(intercomm, &rsize);
    MPI_Comm_size(intercomm, &size);
    MPI_Comm_rank(intercomm, &rank);

    /* Child */
    /* FIXME: This assumes that stdout is handled for the children
     * (the error count will still be reported to the parent) */
    if (size != np) {
        errs++;
        printf("(Child) Did not create %d processes (got %d)\n", np, size);
    }
    MPI_Recv(&i, 1, MPI_INT, 0, 0, intercomm, &status);
    if (i != rank) {
        errs++;
        printf("Unexpected rank on child %d (%d)\n", rank, i);
    }
    MPI_Recv(&narg, 1, MPI_INT, 0, 0, intercomm, MPI_STATUS_IGNORE);
    saveoutArgp = outargv[narg];
    outargv[narg] = 0;
    /* Check the command line */
    for (i = 1; i < argc; i++) {
        if (!outargv[i - 1]) {
            errs++;
            printf("Wrong number of arguments (%d)\n", argc);
            break;
        }
        if (strcmp(argv[i], outargv[i - 1]) != 0) {
            errs++;
            printf("Found arg %s but expected %s\n", argv[i], outargv[i - 1]);
        }
    }
    if (outargv[i - 1]) {
        /* We had too few args in the spawned command */
        errs++;
        printf("Too few arguments to spawned command (only %d)\n", i);
    }
    /* Restore the argument vector (not necessary in this case, since the
     * worker will exit) */
    outargv[narg] = saveoutArgp;
    /* Send the errs back to the parent process */
    MPI_Ssend(&errs, 1, MPI_INT, 0, 1, intercomm);

    return errs;
}