![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to wsort.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / weather|
Return to wsort.c CVS log | Up to [Research Unix] / researchv10no / cmd / weather |
1.1 root 1: # include "stdio.h"
2: # include "ctype.h"
3: # include "assert.h"
4: # include "cbt.h"
5: # include "weath.h"
6: # define SURFACE 1
7: # define FORECAST 2
8: mbuf key, rec, rkey;
9: char kb[100], rb[100], rkb[100];
10: bfile *bf;
11: char *index(), *vis(), *airport();
12: double atof();
13:
14: main()
15: {
16: char line[200], line2[200];
17: int kind=0, k;
18: bf = bopen("/usr/spool/weather/air", 0);
19: assert(bf!=NULL);
20: while (gets(line))
21: {
22: k = strlen(line);
23: if (k==0) continue;
24: if (k==8 && strncmp(line+3, "00", 2)==0)
25: {
26: switch(atoi(line+5))
27: {
28: case 200: /* new england */
29: case 201: /* eastern states */
30: case 202: /* midatlantic */
31: case 203: /* southeastern */
32: case 204: /* great lakes */
33: case 205: /* ohio valley */
34: case 206: /* northern plains */
35: case 207: /* great plains */
36: case 208: /* gulf coast */
37: case 209: /* northern rockies */
38: case 210: /* southwestern */
39: case 211: /* pacific northwest */
40: case 212: /* pacific */
41: case 290: /* alaska */
42: case 291: /* hawaii */
43: kind = SURFACE;
44: continue;
45: case 431: kind = FORECAST; continue;
46: }
47: kind=0;
48: continue;
49: }
50: switch(kind)
51: {
52: case SURFACE:
53: surf(line); break;
54: case FORECAST:
55: if (strlen(line)>5 && line[3]==' ' &&
56: isupper(line[0]) && isupper(line[1]))
57: {
58: gets(line2);
59: fore(line, line2);
60: }
61: break;
62: }
63: }
64: }
65: surf(line)
66: char *line;
67: {
68: int nv, nw, i; char *v[50], *w[50], *s, *p, *aname;
69: double north, west;
70: if (strlen(line)<10) return;
71: if (!isalpha(line[0])) return;
72: s = index(line, '/');
73: if (s==NULL) return;
74: while (s>line && *s!= ' ')s--;
75: *s++ = 0;
76: nv = getargs(line, v);
77: nw = getargs(s, w);
78: aname = airport(v[0]);
79: if (aname==NULL) return;
80: for(i=0; i<nw; i++)
81: if (strlen(w[i])==4 && isdigit(w[i][0]))
82: break;
83: if (i==nw || i<2) return;
84: p = vis(v[nv-1]);
85: if (p==NULL ) return;
86: printf("at %s (%s)\n temp %s, weather%s\n", v[0], aname, w[i-2], p);
87: north = atof(aname);
88: west = atof(index(aname, ' '));
89: update( v[0], north, west, w[i-2], v[nv-1]);
90: }
91: char *
92: vis(s)
93: char *s;
94: {
95: int d;
96: static char temp[50];
97: d= atoi(s);
98: while (isdigit(*s)) s++;
99: if (*s==0)
100: {
101: sprintf(temp, " clear, visibility %d miles", d);
102: return(temp);
103: }
104: temp[0]=0;
105: for( ; *s; s++)
106: switch(*s)
107: {
108: case 'A': strcat(temp, " hail"); break;
109: case 'D': strcat(temp, " dust"); break;
110: case 'F': strcat(temp, " fog"); break;
111: case 'I': if (s[1]=='P') strcat(temp, " sleet"); break;
112: case 'K': strcat(temp, " smoke"); break;
113: case 'L': strcat(temp, " drizzle"); break;
114: case 'R': strcat(temp, " rain"); break;
115: case 'W': strcat(temp, " showers"); break;
116: case 'S': strcat(temp, " snow"); break;
117: case 'T': strcat(temp, " thunderstorms"); break;
118: case 'Z': strcat(temp, " freezing"); break;
119: case '-': break;
120: default: return(NULL);
121: }
122: return(temp);
123: }
124: fore( l1, l2)
125: char *l1, *l2;
126: {
127: char *s;
128: int p1, p2, p3, p4, max1, min1, max2, min2;
129: l1[3]=0;
130: s=airport(l1);
131: if(s==NULL) return;
132: printf("For airport %s, %s\n", l1, s);
133: sscanf(l1+4, "%*s %d %d %d %d", &p1, &p2, &p3, &p4);
134: sscanf(l2, "%*s %d %d %d %d", &max1, &min1, &max2, &min2);
135: printf("next 24 hours temps max %d min %d, prob precip %d %d\n",max1, min1, p1, p2);
136: }
137: char *
138: airport(s)
139: char *s;
140: {
141: int i;
142: key.mdata = s;
143: key.mlen = strlen(s);
144: i=bseek(bf, key);
145: if (i!=1) return(NULL);
146: rkey.mdata =rkb; rec.mdata = rb;
147: bread(bf, &rkey, &rec);
148: assert(strcmp(rkey.mdata, key.mdata)==0);
149: rkey.mdata[rkey.mlen]=0;
150: rec.mdata[rec.mlen]=0;
151: return(rec.mdata);
152: }
153: update (acode, north, west, temp, weath)
154: double north, west;
155: char *acode, *temp, *weath;
156: {
157: char fname[30], odata[2000], *p, *s;
158: struct wline *wp;
159: int n, w, f;
160: n = north;
161: n = n-n%4;
162: w = west;
163: w = w-w%4;
164: sprintf(fname, "/usr/spool/weather/o%.2d.%.2d", n, w);
165: f = open(fname, 2);
166: if (f>=0)
167: {
168: n=read(f, odata, 2000);
169: assert(n<2000);
170: for(wp=odata; wp<odata+n; wp++)
171: {
172: if (strncmp(wp->anam, acode, 3)==0)
173: {
174: strncpy(wp->wtemp, temp, 3);
175: strncpy(wp->wweath, weath, 7);
176: lseek (f, 0L, 0);
177: write(f, odata, n);
178: return;
179: }
180: }
181: }
182: else
183: {
184: f = creat(fname, 0666);
185: wp = odata;
186: n=0;
187: }
188: sprintf(wp->anam, "%.3s%5.2f%6.2f%3.3s%7.7s\n", acode, north,
189: west, temp, weath);
190: lseek (f, 0L, 0);
191: write(f, odata, n+sizeof(*wp));
192: close(f);
193: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.