source: buchla-68k/orig/GP/GPTEST.C@ ee49131

/*
   =============================================================================
        gptest.c -- test gp_main and friends
        Version 1 -- 1987-10-14 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stddefs.h"
#include "stdio.h"

#include "gp_main.h"

/*
   =============================================================================
        tp_clin() -- gp_clin test stub
   =============================================================================
*/

int
tp_clin(argc, argv)
int argc;
char *argv[];
{
        register int i;

        printf("tp_clin(%d, $%08lx) executed\n", argc, argv);

        for (i = 0; i < argc; i++)
                printf("   argv[%d] = \042%s\042\n", i, argv[i]);

        return(argc GT 1);
}

/*
   =============================================================================
        tp_btch() -- gp_btch test stub
   =============================================================================
*/

int
tp_btch(argc, argv)
int argc;
char *argv[];
{
        printf("tp_btch(%d, $%08lx) executed\n", argc, argv);
        return(SUCCESS);
}

/* 

*/

/*
   =============================================================================
        tp_intr() -- gp_intr test stub
   =============================================================================
*/

int
tp_intr(argc, argv)
int argc;
char *argv[];
{
        printf("tp_intr(%d, $%08lx) executed\n", argc, argv);
        return(SUCCESS);
}

/*
   =============================================================================
        tp_exit() -- gp_exit test stub
   =============================================================================
*/

int
tp_exit(arg)
int arg;
{
        printf("tp_exit(%d) executed\n", arg);
        return(arg);
}

/* 

*/

/*
   =============================================================================
        gp_init() -- initialize the application for gp_main()
   =============================================================================
*/

int
gp_init(argc, argv)
int argc;
char *argv[];
{
        gp_clin = tp_clin;
        gp_btch = tp_btch;
        gp_intr = tp_intr;
        gp_exit = tp_exit;

        printf("gp_init(%d, $%08lx):  Application initialized.\n",
                argc, argv);

        return(SUCCESS);
}

/*
   =============================================================================
        main driver for the test
   =============================================================================
*/

main(argc, argv)
int argc;
char *argv[];
{
        printf("main(%d, $%08lx) executed.\n", argc, argv);

        gp_main(argc, argv);    /* run gp_main */

        printf("main():  ERROR -- gp_main() returned.\n");

        exit(1);                /* it should never return */
}