source: buchla-68k/orig/GP/GPMAIN.C@ 6888aa2

/*
   =============================================================================
        gpmain.c -- general purpose main program
        Version 1 -- 1987-10-14 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stddefs.h"

extern  int     gp_init();      /* application initialization */

int     (*gp_clin)(),           /* command line processor */
        (*gp_btch)(),           /* batch processor */
        (*gp_intr)(),           /* interactive processor */
        (*gp_exit)();           /* exit processor */

/* 

*/

/*
   =============================================================================
        gp_null() -- null SUCCESS function
   =============================================================================
*/

int
gp_null()
{
        return(SUCCESS);        /* return a SUCCESS response */
}

/*
   =============================================================================
        gp_fail() -- null FAILURE function
   =============================================================================
*/

int
gp_fail()
{
        return(FAILURE);        /* return a FAILURE response */
}

/*
   =============================================================================
        gp_pass() -- null argument pass function
   =============================================================================
*/

int
gp_pass(arg)
int arg;
{
        return(arg);            /* just pass along the input argument */
}

/* 

*/

/*
   =============================================================================
        gp_main() -- general purpose main program driver
   =============================================================================
*/

gp_main(argc, argv)
int argc;
char *argv[];
{
        register int rc;        /* return code */

        gp_clin = gp_null;      /* initialize pointers to functions */
        gp_btch = gp_null;
        gp_intr = gp_null;
        gp_exit = gp_pass;

        if (rc = gp_init(argc, argv))           /* application initialization */
                exit(rc);

        if ((*gp_clin)(argc, argv))             /* command line processing */
                rc = (*gp_btch)(argc, argv);    /* batch processing */
        else
                rc = (*gp_intr)(argc, argv);    /* interactive processing */

        rc = (*gp_exit)(rc);                    /* exit processing */

        exit(rc);                               /* exit back to system */
}