Return to sscanf.c CVS log

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

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

1.1       root        1: /*
                      2:  * pANS stdio -- sscanf
                      3:  */
                      4: #include "iolib.h"
                      5: int sscanf(const char *s, const char *fmt, ...){
                      6:        int n;
                      7:        va_list args;
                      8: #ifdef V10
                      9:        FILE _strbuf;
                     10: 
                     11:        _strbuf._flag = _IOREAD|_IOSTRG;
                     12:        _strbuf._ptr = _strbuf._base = (unsigned char *) s;
                     13:        _strbuf._cnt = 0;
                     14:        while (*s++)
                     15:                _strbuf._cnt++;
                     16: #define f &_strbuf
                     17: #define sclose(x)
                     18: #else
                     19:        FILE *f=sopenr(s);
                     20: #endif
                     21:        va_start(args, fmt);
                     22:        n=vfscanf(f, fmt, args);
                     23:        va_end(args);
                     24:        sclose(f);
                     25:        return n;
                     26: }

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