home *** CD-ROM | disk | FTP | other *** search
/ vsiftp.vmssoftware.com / VSIPUBLIC@vsiftp.vmssoftware.com.tar / FREEWARE / FREEWARE40.ZIP / flistfrontend / src / ttrace.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-28  |  621 b   |  44 lines
  1. #ifndef NO_IDENT
  2. static char *Id = "$Id: ttrace.c,v 1.4 1995/05/28 19:53:39 tom Exp $";
  3. #endif
  4.  
  5. #include <stdio.h>
  6. #include <stdarg.h>
  7.  
  8. #include "ttrace.h"
  9. #include "sysutils.h"
  10.  
  11. static    FILE    *fd;
  12.  
  13. static
  14. void    TraceVA(char *format, va_list ap)
  15. {
  16.     if (!fd)
  17.         fd = fopen ("sys$scratch:trace", "w");
  18.     if (fd)
  19.         vfprintf (fd, format, ap);
  20. }
  21.  
  22. void    trace(char *format, ...)
  23. {
  24.     va_list ap;
  25.     va_start (ap, format);
  26.     TraceVA(format, ap);
  27.     va_end(ap);
  28. }
  29.  
  30. void    ttrace (char *format, ...)
  31. {
  32.     va_list ap;
  33.     char    msg[132];
  34.  
  35.     sysfom (msg);
  36.  
  37.     va_start (ap, format);
  38.     TraceVA(format, ap);
  39.     va_end(ap);
  40.  
  41.     trace (">%s\n", msg);
  42.     sysfom(0);
  43. }
  44.