Return to scheck.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / etc / tzone

Annotation of 43BSDTahoe/etc/tzone/scheck.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char sccsid[] = "@(#)scheck.c   1.1 (Berkeley) 3/29/87";
        !             3: #endif
        !             4: 
        !             5: /*LINTLIBRARY*/
        !             6: 
        !             7: #include "stdio.h"
        !             8: #include "ctype.h"
        !             9: 
        !            10: extern char *  imalloc();
        !            11: 
        !            12: char *
        !            13: scheck(string, format)
        !            14: char * string;
        !            15: char * format;
        !            16: {
        !            17:        register char * fbuf;
        !            18:        register char * fp;
        !            19:        register char * tp;
        !            20:        register int    c;
        !            21:        register char * result;
        !            22:        char            dummy;
        !            23: 
        !            24:        result = "";
        !            25:        if (string == NULL || format == NULL)
        !            26:                return result;
        !            27:        fbuf = imalloc(2 * strlen(format) + 4);
        !            28:        if (fbuf == NULL)
        !            29:                return result;
        !            30:        fp = format;
        !            31:        tp = fbuf;
        !            32:        while ((*tp++ = c = *fp++) != '\0') {
        !            33:                if (c != '%')
        !            34:                        continue;
        !            35:                if (*fp == '%') {
        !            36:                        *tp++ = *fp++;
        !            37:                        continue;
        !            38:                }
        !            39:                *tp++ = '*';
        !            40:                if (*fp == '*')
        !            41:                        ++fp;
        !            42:                while (isascii(*fp) && isdigit(*fp))
        !            43:                        *tp++ = *fp++;
        !            44:                if (*fp == 'l' || *fp == 'h')
        !            45:                        *tp++ = *fp++;
        !            46:                else if (*fp == '[')
        !            47:                        do *tp++ = *fp++;
        !            48:                                while (*fp != '\0' && *fp != ']');
        !            49:                if ((*tp++ = *fp++) == '\0')
        !            50:                        break;
        !            51:        }
        !            52:        *(tp - 1) = '%';
        !            53:        *tp++ = 'c';
        !            54:        *tp = '\0';
        !            55:        if (sscanf(string, fbuf, &dummy) != 1)
        !            56:                result = format;
        !            57:        free(fbuf);
        !            58:        return result;
        !            59: }

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