Return to tm.c CVS log

Up to [Research Unix] / researchv9 / cmd / tbl

Annotation of researchv9/cmd/tbl/tm.c, revision 1.1

1.1     ! root        1:  /* tm.c: split numerical fields */
        !             2: # include "t..c"
        !             3: char *maknew(str)
        !             4:        char *str;
        !             5: {
        !             6:        /* make two numerical fields */
        !             7:        extern char *chspace();
        !             8:        int dpoint, c;
        !             9:        char *p, *q, *ba;
        !            10:        p = str;
        !            11:        for (ba= 0; c = *str; str++)
        !            12:                if (c == '\\' && *(str+1)== '&')
        !            13:                        ba=str;
        !            14:        str=p;
        !            15:        if (ba==0)
        !            16:                {
        !            17:                for (dpoint=0; *str; str++)
        !            18:                        {
        !            19:                        if (*str=='.' && !ineqn(str,p) &&
        !            20:                                (str>p && digit(*(str-1)) ||
        !            21:                                digit(*(str+1))))
        !            22:                                        dpoint=(int)str;
        !            23:                        }
        !            24:                if (dpoint==0)
        !            25:                        for(; str>p; str--)
        !            26:                        {
        !            27:                        if (digit( * (str-1) ) && !ineqn(str, p))
        !            28:                                break;
        !            29:                        }
        !            30:                if (!dpoint && p==str) /* not numerical, don't split */
        !            31:                        return(0);
        !            32:                if (dpoint) str=(char *)dpoint;
        !            33:                }
        !            34:        else
        !            35:                str = ba;
        !            36:        p =str;
        !            37:        if (exstore ==0 || exstore >exlim)
        !            38:                {
        !            39:                exstore = exspace = chspace();
        !            40:                exlim= exstore+MAXCHS;
        !            41:                }
        !            42:        q = exstore;
        !            43:        while (*exstore++ = *str++);
        !            44:        *p = 0;
        !            45:        return(q);
        !            46:        }
        !            47: ineqn (s, p)
        !            48:        char *s, *p;
        !            49: {
        !            50: /* true if s is in a eqn within p */
        !            51: int ineq = 0, c;
        !            52: while (c = *p)
        !            53:        {
        !            54:        if (s == p)
        !            55:                return(ineq);
        !            56:        p++;
        !            57:        if ((ineq == 0) && (c == delim1))
        !            58:                ineq = 1;
        !            59:        else
        !            60:        if ((ineq == 1) && (c == delim2))
        !            61:                ineq = 0;
        !            62:        }
        !            63: return(0);
        !            64: }

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