Return to wdtr.c CVS log

Up to [Research Unix] / researchv10no / cmd / weather

Annotation of researchv10no/cmd/weather/wdtr.c, revision 1.1.1.1

1.1       root        1: # include "stdio.h"
                      2: # include "ctype.h"
                      3: # include "assert.h"
                      4: main(argc,argv)
                      5:        char *argv[];
                      6: {
                      7: char line[100], *s, *p, *r;
                      8: int ck;
                      9: assert(argc>1);
                     10: rdict(argv[1]);
                     11: while (gets(line))
                     12:        {
                     13:        s=line;
                     14:        while (*s)
                     15:                {
                     16:                while (*s && !isalpha(*s))
                     17:                        putc(*s++, stdout);
                     18:                p=s;
                     19:                while (isalpha(*s))
                     20:                        s++;
                     21:                ck = *s;
                     22:                *s = 0;
                     23:                r = lkup(p);
                     24:                printf("%s", r ? r: p);
                     25:                if (ck)
                     26:                        {
                     27:                        printf("%c", ck);
                     28:                        s++;
                     29:                        }
                     30:                }
                     31:        printf("\n");
                     32:        }
                     33: }
                     34: static char * wold[500], * wnew[500];
                     35: static char wspace[5000], *wp=wspace;
                     36: int k=0;
                     37: rdict (fname)
                     38:        char *fname;
                     39: {
                     40: FILE *f;
                     41: char line[100],*s;
                     42: f = fopen(fname, "r");
                     43: assert(f!=NULL);
                     44: while (fgets(line, 100, f))
                     45:        {
                     46:        trimnl(line);
                     47:        s = index(line, ' ');
                     48:        *s++ = 0;
                     49:        wold[k] = wp;
                     50:        strcpy(wp, line);
                     51:        wp += strlen(line)+1;
                     52:        wnew[k]= wp;
                     53:        strcpy(wp, s);
                     54:        wp += strlen(s)+1;
                     55:        k++;
                     56:        assert(k<=500);
                     57:        assert(wp<=wspace+5000);
                     58:        }
                     59: }
                     60: trimnl(s)
                     61:        char *s;
                     62: {
                     63: while (*s) s++;
                     64: if (*--s=='\n') *s=0;
                     65: }
                     66: lkup(s)
                     67:        char *s;
                     68: {
                     69: int i;
                     70: for (i=0; i<k; i++)
                     71:        if (strcmp(wold[i], s) ==0)
                     72:                return(wnew[i]);
                     73: return(NULL);
                     74: }

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