DataMuseum.dk

top - metrics - download

    Length: 2261 (0x8d5)
    Types: TextFile
    Names: »t-P2toRFC.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-P2toRFC.c« 

TextFile

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

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

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



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

extern void	sys_init(), or_myinit();

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

char  *rfc_out;
char  *P2_in;
char  *P2_ext_in;
char  *ipn_body_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 P2 -> RFC 822 \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);
	}

	P2_in = argv[optind++];
	rfc_out = argv[optind++];
	if (argc > optind)
		P2_ext_in = argv[optind];
	ipn_body_out = NULL;
	fprintf (stderr, "Initialised\n");

	if (P2toRFC (P2_in, P2_ext_in, (Q_struct *) 0, rfc_out, 
		     ipn_body_out, &error, 1) != OK)
		fprintf (stderr, "Blew it %s\n",
			 (error == NULLCP) ? "" : error );

}



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);
}