home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Lib / io / wr_dr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  706 b   |  41 lines
  1. /*  wr_dr.c: writes out a DR struct from an incomming chan  */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Lib/io/RCS/wr_dr.c,v 6.0 1991/12/18 20:22:26 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Lib/io/RCS/wr_dr.c,v 6.0 1991/12/18 20:22:26 jpo Rel $
  9.  *
  10.  * $Log: wr_dr.c,v $
  11.  * Revision 6.0  1991/12/18  20:22:26  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16.  
  17.  
  18. #include "head.h"
  19. #include "q.h"
  20. #include "dr.h"
  21.  
  22.  
  23. /* ---------------------  Begin  Routines  -------------------------------- */
  24.  
  25.  
  26.  
  27. int wr_dr (dp, fp)
  28. register DRmpdu    *dp;
  29. FILE    *fp;
  30. {
  31.     int             retval;
  32.  
  33.  
  34.     PP_DBG (("Lib/io/wr_dr()"));
  35.  
  36.     retval = dr2txt (fp, dp);
  37.     if (retval == NOTOK)
  38.         return (RP_FIO);
  39.     return (RP_OK);
  40. }
  41.