/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
/*
 *  (C) 2004 by Argonne National Laboratory.
 *      See COPYRIGHT in top-level directory.
 */

#include "mpiimpl.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/* FIXME: We really should consider internationalizing the output from this
   program */
/* style: allow:fprintf:1 sig:0 */
/* style: allow:printf:8 sig:0 */

/*
 * This program reports on properties of the MPICH library, such as the
 * version, device, and what patches have been applied.  This is available
 * only since MPICH 1.0.6.
 *
 * The reason that this program doesn't directly include the info is that it
 * can be compiled and then linked with the MPICH library to discover
 * the information about the version of the library.  If built with shared
 * libraries, this will give the information about the currently installed
 * shared library.
 */

typedef enum { Version_number = 0, Date = 1,
    Patches = 2, Configure_args = 3, Device = 4,
    Compilers = 5, Custom = 6, LastField
} fields;

/*D
  mpichversion - Report on the MPICH version

  Command Line Arguments:
+ -version - Show the version of MPICH
. -date    - Show the release date of this version
. -patches - Show the identifiers for any applied patches
. -configure - Show the configure arguments used to build MPICH
- -device  - Show the device for which MPICH was configured

  Using this program:
  To use this program, link it against 'libmpi.a' (use 'mpicc' or
  the whichever compiler command is used to create MPICH programs)
  D*/

int main(int argc, char *argv[])
{
    int i, flags[10];
    char version[MPI_MAX_LIBRARY_VERSION_STRING];
    int versionlen;

    /* FIXME: this is needed to avoid unresolved symbols issues when building with
     * --disable-weak-symbols on some platforms. Ideally, we could use the output
     * from this call instead of accessing internal library variables.
     */
    MPI_Get_library_version(version, &versionlen);

    if (argc <= 1) {
        /* Show all values */
        for (i = 0; i < LastField; i++)
            flags[i] = 1;
    } else {
        /* Show only requested values */
        for (i = 0; i < LastField; i++)
            flags[i] = 0;
        for (i = 1; i < argc; i++) {
            if (strcmp(argv[i], "-version") == 0 ||
                strcmp(argv[i], "--version") == 0 || strcmp(argv[i], "-v") == 0)
                flags[Version_number] = 1;
            else if (strcmp(argv[i], "-date") == 0 ||
                     strcmp(argv[i], "--date") == 0 || strcmp(argv[i], "-D") == 0)
                flags[Date] = 1;
            else if (strcmp(argv[i], "-patches") == 0)
                flags[Patches] = 1;
            else if (strcmp(argv[i], "-configure") == 0 ||
                     strcmp(argv[i], "--configure") == 0 || strcmp(argv[i], "-c") == 0)
                flags[Configure_args] = 1;
            else if (strcmp(argv[i], "-device") == 0 ||
                     strcmp(argv[i], "--device") == 0 || strcmp(argv[i], "-d") == 0)
                flags[Device] = 1;
            else if (strcmp(argv[i], "-compiler") == 0 ||
                     strcmp(argv[i], "--compiler") == 0 || strcmp(argv[i], "-b") == 0)
                flags[Compilers] = 1;
            else if (strcmp(argv[i], "-custom") == 0 ||
                     strcmp(argv[i], "--custom") == 0 || strcmp(argv[i], "-u") == 0)
                flags[Custom] = 1;
            else {
                fprintf(stderr, "Unrecognized argument %s\n", argv[i]);
                exit(1);
            }
        }
    }

    /* Print out the information, one item per line */
    if (flags[Version_number]) {
        printf("MPICH Version:    \t%s\n", MPII_Version_string);
    }
    if (flags[Date]) {
        printf("MPICH Release date:\t%s\n", MPII_Version_date);
    }
    if (flags[Device]) {
        printf("MPICH Device:    \t%s\n", MPII_Version_device);
    }
    if (flags[Configure_args]) {
        printf("MPICH configure: \t%s\n", MPII_Version_configure);
    }
    if (flags[Compilers]) {
        printf("MPICH CC: \t%s\n", MPII_Version_CC);
        printf("MPICH CXX: \t%s\n", MPII_Version_CXX);
        printf("MPICH F77: \t%s\n", MPII_Version_F77);
        printf("MPICH FC: \t%s\n", MPII_Version_FC);
    }
    if (flags[Custom]) {
        printf("MPICH Custom Information: \t%s\n", MPII_Version_custom);
    }

    return 0;
}