Return to tm.c CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / tbl

Annotation of 41BSD/cmd/tbl/tm.c, revision 1.1.1.1

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

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