DataMuseum.dk

top - metrics - download

    Length: 1401 (0x579)
    Types: TextFile
    Names: »f-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/f-RFCtoP2.c« 

TextFile

/* f-RFCtoP2.c: 822 -> P2 filter */

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

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



#include "head.h"


/* ARGSUSED */
main(argc, argv)
char    **argv;
int     argc;
{
	sys_init(argv[0]);
	or_myinit ();

	if (RFCtoP2 (NULLCP, NULLCP, NULLCP) != OK)
	{
		fprintf (stderr, "RFC -> P2 failed\n");
		exit (-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);
}