|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T t
Length: 968 (0x3c8)
Types: TextFile
Names: »t-txt2dr.c«
└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
└─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z«
└─⟦e5a54fb17⟧
└─⟦this⟧ »pp-5.0/Tools/misc/t-txt2dr.c«
/* program/subroutines name: brief description of what this is */
# ifndef lint
static char Rcsid[] = "@(#)$Header: /cs/research/pp/hubris/pp-beta/Tools/misc/RCS/t-txt2dr.c,v 5.0 90/09/20 16:27:19 pp Exp Locker: pp $";
# endif
/*
* $Header: /cs/research/pp/hubris/pp-beta/Tools/misc/RCS/t-txt2dr.c,v 5.0 90/09/20 16:27:19 pp Exp Locker: pp $
*
* $Log: t-txt2dr.c,v $
* Revision 5.0 90/09/20 16:27:19 pp
* rcsforce : 5.0 public release
*
*/
#include "util.h"
#include "q.h"
#include "dr.h"
main (ac, av)
int ac;
char *av[];
{
char buffer[BUFSIZ];
char c;
FILE *fp;
fp = stdin;
if (fgets (&buffer[0], BUFSIZ, fp) == NULL)
return;
do_routine (buffer);
}
/* --------------------- Static Routines ------------------------------- */
static do_routine (str)
char *str;
{
DRmpdu drmpdu;
dr_init (&drmpdu);
if (txt2dr (&drmpdu, str) == NOTOK)
printf ("NOTOK\n");
else
printf ("OK\n");
}