Return to print.c CVS log

Up to [Research Unix] / researchv10no / cmd / dist / lib

Annotation of researchv10no/cmd/dist/lib/print.c, revision 1.1

1.1     ! root        1: #include <stdarg.h>
        !             2: #include <stdio.h>
        !             3: #include <time.h>
        !             4: #include "lib.h"
        !             5: 
        !             6: #ifdef DOPRNT
        !             7: #define vfprintf(fp, fmt, ap) _doprnt(fmt, ap, fp)
        !             8: #endif
        !             9: 
        !            10: char *prog = "(uninitialized)";
        !            11: 
        !            12: static FILE *logfp;
        !            13: 
        !            14: void
        !            15: openlog(char *logfile)
        !            16: {
        !            17:        if (logfp)
        !            18:                fclose(logfp);
        !            19:        logfp = fopen(logfile, "a");
        !            20: }
        !            21: 
        !            22: static void
        !            23: vlprintf(char *fmt, va_list ap)
        !            24: {
        !            25:        time_t now;
        !            26: 
        !            27:        if (logfp) {
        !            28:                time(&now);
        !            29:                fprintf(logfp, "%s [%d %.24s]: ", prog, getpid(), ctime(&now));
        !            30:                vfprintf(logfp, fmt, ap);
        !            31:                putc('\n', logfp);
        !            32:                fflush(logfp);
        !            33:        }
        !            34: }
        !            35: 
        !            36: void
        !            37: eprintf(char *fmt, ...)
        !            38: {
        !            39:        va_list ap;
        !            40: 
        !            41:        fprintf(stderr, "%s: ", prog);
        !            42:        va_start(ap, fmt);
        !            43:        vfprintf(stderr, fmt, ap);
        !            44:        va_end(ap);
        !            45:        putc('\n', stderr);
        !            46: 
        !            47:        va_start(ap, fmt);
        !            48:        vlprintf(fmt, ap);
        !            49:        va_end(ap);
        !            50: }
        !            51: 
        !            52: void
        !            53: lprintf(char *fmt, ...)
        !            54: {
        !            55:        va_list ap;
        !            56: 
        !            57:        va_start(ap, fmt);
        !            58:        vlprintf(fmt, ap);
        !            59:        va_end(ap);
        !            60: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.