fpips.c

Go to the documentation of this file.

/*
 
  $Id: fpips.c 23065 2016-03-02 09:05:50Z coelho $
 
  Copyright 1989-2016 MINES ParisTech
 
  This file is part of PIPS.
 
  PIPS is free software: you can redistribute it and/or modify it
  under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  any later version.
 
  PIPS is distributed in the hope that it will be useful, but WITHOUT ANY
  WARRANTY; without even the implied warranty of MERCHANTABILITY or
  FITNESS FOR A PARTICULAR PURPOSE.
 
  See the GNU General Public License for more details.
 
  You should have received a copy of the GNU General Public License
  along with PIPS.  If not, see <http://www.gnu.org/licenses/>.
 
*/
#ifdef HAVE_CONFIG_H
    #include "pips_config.h"
#endif
/*
 * FPIPS stands for Full PIPS, or Fabien PIPS;-)
 *
 * it provides a single executable for {,t,w}pips, enabling faster
 * link when developing and testing. Also a single executable can
 * be exported, reducing the size of binary distributions.
 * The execution depends on the name of the executable, or the first option.
 *
 * C macros of interest: FPIPS_WITHOUT_{,G,T,W}PIPS to disable some versions.
 *
 * FC, Mon Aug 18 09:09:32 GMT 1997
 */
 
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
 
#include "genC.h"
#include "misc.h"
 
/******************************************************************** MACROS */
 
#if defined(FPIPS_WITHOUT_PIPS)
#define PIPS(c, v) fpips_error("pips", c, v)
#else
extern int pips_main(int, char**);
#define PIPS(c, v) pips_main(c, v)
#endif
 
#if defined(FPIPS_WITHOUT_TPIPS)
#define TPIPS(c, v) fpips_error("tpips", c, v)
#else
extern int tpips_main(int, char**);
#define TPIPS(c, v) tpips_main(c, v)
#endif
 
#if defined(FPIPS_WITHOUT_WPIPS)
#define WPIPS(c, v) fpips_error("wpips", c, v)
#else
extern int wpips_main(int, char**);
#define WPIPS(c, v) wpips_main(c, v)
#endif
 
#if defined(FPIPS_WITHOUT_GPIPS)
#define GPIPS(c, v) fpips_error("gpips", c, v)
#else
extern int gpips_main(int, char**);
#define GPIPS(c, v) gpips_main(c, v)
#endif
 
#define USAGE                                                   \
    "Usage: fpips [-hvGPTW] (other options and arguments...)\n" \
    "\t-h: this help...\n"                                      \
    "\t-v: version\n"                                           \
    "\t-G: gpips\n"                                             \
    "\t-P: pips\n"                                              \
    "\t-T: tpips\n"                                             \
    "\t-W: wpips\n"                                             \
    "\tdefault: run as tpips\n\n"
 
/******************************************************************** UTILS */
 
/* print out usage informations.
 */
static int fpips_usage(int ret)
{
    fprintf(stderr, USAGE);
    return ret;
}
 
/* print out fpips version.
 */
static int fpips_version(int ret)
{
  fprintf(stderr, "[fpips] (ARCH=" STRINGIFY(SOFT_ARCH) ", DATE=" STRINGIFY(UTC_DATE) ")\n\n");
    return ret;
}
 
/* non static to avoid a gcc warning if not called.
 */
int fpips_error(char * what,
                int __attribute__ ((unused)) argc,
                char __attribute__ ((unused)) ** argv)
{
    fprintf(stderr, "[fpips] sorry, %s not available (" STRINGIFY(SOFT_ARCH) ")\n", what);
    return fpips_usage(1);
}
 
/* returns whether name ends with ref
 */
static int name_end_p(char * name, char * ref)
{
    int nlen = strlen(name), rlen = strlen(ref);
    if (nlen<rlen) return false;
    while (rlen>0)
        if (ref[--rlen]!=name[--nlen])
            return false;
    return true;
}
 
/********************************************************************* MAIN */
 
int fpips_main(int argc, char **  argv)
{
    int opt;
 
    debug_on("FPIPS_DEBUG_LEVEL");
    pips_debug(1, "considering %s for execution\n", argv[0]);
    debug_off();
 
    if (argc<1) return TPIPS(argc, argv); /* should not happen */
 
    /* According to the shell or the debugger, the path may be
       complete or not... RK. */
    if (name_end_p(argv[0], "gpips"))
        return GPIPS(argc, argv);
    if (name_end_p(argv[0], "tpips"))
        return TPIPS(argc, argv);
    if (name_end_p(argv[0], "wpips"))
        return WPIPS(argc, argv);
    if (name_end_p(argv[0], "/pips") || same_string_p(argv[0], "pips"))
        return  PIPS(argc, argv);
 
    /* parsing of options may be continuate by called version.
     */
    while ((opt = getopt(argc, argv, "hvGPTW"))!=-1)
    {
        switch (opt)
        {
        case 'h': fpips_usage(0); break;
        case 'v': fpips_version(0); break;
        case 'G': return GPIPS(argc, argv);
        case 'P': return PIPS(argc, argv);
        case 'T': return TPIPS(argc, argv);
        case 'W': return WPIPS(argc, argv);
        default:  return fpips_version(1);
        }
    }
 
    /* else try tpips...
     */
    fprintf(stderr, "[fpips] default: running as tpips\n\n");
    return TPIPS(argc, argv);
}