|
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 w
Length: 964 (0x3c4)
Types: TextFile
Names: »wr_adr.c«
└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
└─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z«
└─⟦e5a54fb17⟧
└─⟦this⟧ »pp-5.0/Lib/io/wr_adr.c«
/* wr_adr: address writing routines */
# ifndef lint
static char Rcsid[] = "@(#)$Header: /cs/research/pp/hubris/pp-beta/Lib/io/RCS/wr_adr.c,v 5.0 90/09/20 16:07:02 pp Exp Locker: pp $";
# endif
/*
* $Header: /cs/research/pp/hubris/pp-beta/Lib/io/RCS/wr_adr.c,v 5.0 90/09/20 16:07:02 pp Exp Locker: pp $
*
* $Log: wr_adr.c,v $
* Revision 5.0 90/09/20 16:07:02 pp
* rcsforce : 5.0 public release
*
*/
/* --- *** ---
This routine is used so that there is only one entry point to adr2txt()
which is located in Lib/pp/adr2txt.c
--- *** --- */
#include "head.h"
#include "adr.h"
#include <sys/file.h>
#include <sys/time.h>
/* --------------------- Begin Routines -------------------------------- */
int wr_adr (ap, fp, type)
ADDR *ap;
FILE *fp;
int type;
{
int retval;
PP_DBG (("wr_adr (%d)", type));
retval = adr2txt (fp, ap, type);
if (retval == NOTOK)
return (RP_FIO);
return (RP_OK);
}