Return to sprintf.c CVS log

Up to [Research Unix] / researchv10no / libc / stdio

Annotation of researchv10no/libc/stdio/sprintf.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * pANS stdio -- sprintf
                      3:  */
                      4: #include "iolib.h"
                      5: int sprintf(char *buf, const char *fmt, ...){
                      6:        int n;
                      7:        va_list args;
                      8:        char *v;
                      9: #ifdef V10
                     10:        FILE _strbuf;
                     11:        _strbuf._flag = _IOWRT+_IOSTRG;
                     12:        _strbuf._ptr = (unsigned char *) buf;
                     13:        _strbuf._cnt = 100000;
                     14: #define f &_strbuf
                     15: #define sclose(x) buf[n] = 0
                     16: #else
                     17:        FILE *f=sopenw();
                     18:        if(f==NULL)
                     19:                return 0;
                     20:        setvbuf(f, buf, _IOFBF, 100000);
                     21: #endif
                     22:        va_start(args, fmt);
                     23:        n=vfprintf(f, fmt, args);
                     24:        va_end(args);
                     25:        sclose(f);
                     26:        return n;
                     27: }

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