home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / JPLC2.ZIP / FPRINTF.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-07-22  |  999 b   |  37 lines
  1. /* 1.3  01-08-86                         (fprintf.c)
  2.  ************************************************************************
  3.  *            Robert C. Tausworthe                *
  4.  *            Jet Propulsion Laboratory            *
  5.  *            Pasadena, CA 91009        1986        *
  6.  ************************************************************************/
  7.  
  8. #include "defs.h"
  9. #include "stdtyp.h"
  10. #include "stdio.h"
  11.  
  12. LOCAL FILE *Fp;        /* global FILE pointer for _putc deposit.    */
  13.  
  14. /************************************************************************/
  15.  
  16. fprintf(fp, fmt, args)    /* formatted printf to FILE fp of args.        */
  17.  
  18. /*----------------------------------------------------------------------*/
  19. FILE *fp;
  20. STRING fmt;
  21. unsigned args;
  22. {
  23.     int _putc();
  24.  
  25.     Fp = fp;
  26.     return format(_putc, fmt, &args);
  27. }
  28.  
  29. /************************************************************************/
  30.     LOCAL
  31. _putc(c)        /* Put character c on global FILE Fp.        */
  32.  
  33. /*----------------------------------------------------------------------*/
  34. {
  35.     return putca(c, Fp);
  36. }
  37.