DataMuseum.dk

top - metrics - download

    Length: 2082 (0x822)
    Types: TextFile
    Names: »t-RFCtoP2.c«

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z« 
        └─⟦e5a54fb17⟧ 
            └─⟦this⟧ »pp-5.0/Format/rfc1148/t-RFCtoP2.c« 

TextFile

/* t-RFCtoP2.c: 822 -> P2 test program */

# ifndef lint
static char Rcsid[] = "@(#)$Header: /cs/research/pp/hubris/pp-beta/Format/rfc1148/RCS/t-RFCtoP2.c,v 5.0 90/09/20 16:02:02 pp Exp Locker: pp $";
# endif

/*
 * $Header: /cs/research/pp/hubris/pp-beta/Format/rfc1148/RCS/t-RFCtoP2.c,v 5.0 90/09/20 16:02:02 pp Exp Locker: pp $
 *
 * $Log:	t-RFCtoP2.c,v $
 * Revision 5.0  90/09/20  16:02:02  pp
 * rcsforce : 5.0 public release
 * 
 */



#include "head.h"
#include "util.h"

extern void	or_myinit(), sys_init();

char    *usage = "t-822toP2 <822> <P2> [<extfile>]\n" ;

char  *rfc_in;
char  *P2_out;
char  *P2_ext_out;

main(argc, argv)
char    **argv;
int     argc;
{
	extern int optind, opterr;
	extern char     *optarg;
	int     opt;
	char	*error = NULLCP;
	sys_init(argv[0]);
	or_myinit ();

	fprintf (stderr, "Welcome to RFC 822 -> P2\n");

	opterr = 0;
	while((opt = getopt(argc, argv, "d:s:")) != EOF)
		switch(opt)
		{
			case 'd': 
					break;
			default:
				fprintf(stderr, "Unknown option %c\n", opt);
				fputs(usage, stderr);
				exit(1);
		}

	if (argc - optind < 2 ||
		argc - optind > 3)
	{
		fprintf (stderr, usage);
		exit (1);
	}
	rfc_in = argv[optind++];
	P2_out = argv[optind++];
	if (argc > optind)
		P2_ext_out = argv[optind];

	fprintf (stderr, "Initialised\n");

	RFCtoP2 (rfc_in, P2_out, P2_ext_out, &error, 1);

}



void    advise (what, fmt, a, b, c, d, e, f, g, h, i, j)
char   *what,
       *fmt,
       *a,
       *b,
       *c,
       *d,
       *e,
       *f,
       *g,
       *h,
       *i,
       *j;
{
    (void) fflush (stdout);

    fprintf (stderr, "RFCtoP2 test");
    fprintf (stderr, fmt, a, b, c, d, e, f, g, h, i, j);
    if (what)
	(void) fputc (' ', stderr), perror (what);
    else
	(void) fputc ('\n', stderr);

    (void) fflush (stderr);
}


/* VARARGS 2 */
void    adios (what, fmt, a, b, c, d, e, f, g, h, i, j)
char   *what,
       *fmt,
       *a,
       *b,
       *c,
       *d,
       *e,
       *f,
       *g,
       *h,
       *i,
       *j;
{
    advise (what, fmt, a, b, c, d, e, f, g, h, i, j);
    _exit (1);
}