Return to str.c CVS log

Up to [Research Unix] / researchv10no / ipc / bin / ftp

Annotation of researchv10no/ipc/bin/ftp/str.c, revision 1.1

1.1     ! root        1: #include <ctype.h>
        !             2: 
        !             3: char
        !             4: lc(ch)
        !             5: char ch;
        !             6: {
        !             7:        if (isupper(ch))
        !             8:                return(tolower(ch));
        !             9:        else
        !            10:                return(ch);
        !            11: }
        !            12: 
        !            13: /*
        !            14:  * Compare strings:  s1>s2: >0  s1==s2: 0  s1<s2: <0
        !            15:  */
        !            16: 
        !            17: strcasecmp(s1, s2)
        !            18: register char *s1, *s2;
        !            19: {
        !            20: 
        !            21:        while (lc(*s1) == lc(*s2++))
        !            22:                if (*s1++=='\0')
        !            23:                        return(0);
        !            24:        return(lc(*s1) - lc(*--s2));
        !            25: }
        !            26: 
        !            27: /*
        !            28:  * Compare strings (at most n bytes):  s1>s2: >0  s1==s2: 0  s1<s2: <0
        !            29:  */
        !            30: 
        !            31: strncasecmp(s1, s2, n)
        !            32: register char *s1, *s2;
        !            33: register n;
        !            34: {
        !            35: 
        !            36:        while (--n >= 0 && lc(*s1) == lc(*s2++))
        !            37:                if (*s1++ == '\0')
        !            38:                        return(0);
        !            39:        return(n<0 ? 0 : lc(*s1) - lc(*--s2));
        !            40: }

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