Return to weather_save.c CVS log

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

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

1.1       root        1: # include "stdio.h"
                      2: # include "assert.h"
                      3: # include "ctype.h"
                      4: # include "time.h"
                      5: # include "sys/types.h"
                      6: # include "sys/stat.h"
                      7: FILE *fo, *ft;
                      8: char code[10];
                      9: int pass=0;
                     10: char passes[200][8];
                     11: int np=0;
                     12: 
                     13: main(argc,argv)
                     14:        char *argv[];
                     15: /* distributes weather.  codes to pass through are on file in argv[1] */
                     16: {
                     17: char lbuff[200], *line, *trim();
                     18: if (argc>1) passlist(argv[1]);
                     19: while (gets(lbuff))
                     20:        {
                     21:        line = trim(lbuff);
                     22:        if (strlen(line)==8 && alldigs(line) && strncmp(line+3, "00",2)==0)
                     23:                newcode(line+3);
                     24:        if (pass)
                     25:                puts(line);
                     26:        if (fo)
                     27:                fprintf(fo, "%s\n", line);
                     28:        }
                     29: }
                     30: char *
                     31: trim(s)
                     32:        char *s;
                     33: {
                     34: char *p;
                     35: while (*s &&iscntrl(*s)) s++;
                     36: for(p=s; *p; p++)
                     37:        if (iscntrl(*p)) *p = ' ';
                     38: while (*--p == ' ') *p=0;
                     39: return(s);
                     40: }
                     41: newcode(s)
                     42:        char *s;
                     43: {
                     44: long t, time();
                     45: char fn[10], otherf[10];
                     46: int i, k1, k2;
                     47: struct tm *localtime(), *tp;
                     48: struct stat thisbuf, otherbuf;
                     49: if (strcmp(s, code)==0) return;
                     50: if (fo!=NULL) fclose(fo);
                     51: strcpy(code, s);
                     52: t = time(0);
                     53: tp = localtime(&t);
                     54: sprintf(fn, "W%s%c", code, tp->tm_hour>=12 ? 'P' : 'A');
                     55: sprintf(otherf, "W%s%c", code, tp->tm_hour<12 ? 'P' : 'A');
                     56: k1=stat (fn, &thisbuf);
                     57: k2=stat (otherf, &otherbuf);
                     58: if (k1==0 && k2==0 && otherbuf.st_mtime > thisbuf.st_mtime)
                     59:        unlink(fn);
                     60: fo = fopen(fn, "a");
                     61: pass=0;
                     62: for(i=0; i<np; i++)
                     63:        if (strcmp(passes[i], code)==0)
                     64:                pass=1;
                     65: }
                     66: passlist(s)
                     67:        char *s;
                     68: {
                     69: ft = fopen(s, "r");
                     70: if (ft==NULL) return;
                     71: while (fgets(passes[np], 8, ft))
                     72:        passes[np++][5]=0;
                     73: }
                     74: alldigs(s)
                     75:        char *s;
                     76: {
                     77: while (*s)
                     78:        if (!isdigit(*s++))
                     79:                return(0);
                     80: return(1);
                     81: }

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