theader.c - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
theader.c (4577B)
---
1 #include <u.h>
2 #include <libc.h>
3 #include <bio.h>
4 #include "sky.h"
5
6 struct
7 {
8 char name[9];
9 char offset;
10 } Hproto[] =
11 {
12 "ppo1", Pppo1,
13 "ppo2", Pppo2,
14 "ppo3", Pppo3,
15 "ppo4", Pppo4,
16 "ppo5", Pppo5,
17 "ppo6", Pppo6,
18
19 "amdx1", Pamdx1,
20 "amdx2", Pamdx2,
21 "amdx3", Pamdx3,
22 "amdx4", Pamdx4,
23 "amdx5", Pamdx5,
24 "amdx6", Pamdx6,
25 "amdx7", Pamdx7,
26 "amdx8", Pamdx8,
27 "amdx9", Pamdx9,
28 "amdx10", Pamdx10,
29 "amdx11", Pamdx11,
30 "amdx12", Pamdx12,
31 "amdx13", Pamdx13,
32 "amdx14", Pamdx14,
33 "amdx15", Pamdx15,
34 "amdx16", Pamdx16,
35 "amdx17", Pamdx17,
36 "amdx18", Pamdx18,
37 "amdx19", Pamdx19,
38 "amdx20", Pamdx20,
39
40 "amdy1", Pamdy1,
41 "amdy2", Pamdy2,
42 "amdy3", Pamdy3,
43 "amdy4", Pamdy4,
44 "amdy5", Pamdy5,
45 "amdy6", Pamdy6,
46 "amdy7", Pamdy7,
47 "amdy8", Pamdy8,
48 "amdy9", Pamdy9,
49 "amdy10", Pamdy10,
50 "amdy11", Pamdy11,
51 "amdy12", Pamdy12,
52 "amdy13", Pamdy13,
53 "amdy14", Pamdy14,
54 "amdy15", Pamdy15,
55 "amdy16", Pamdy16,
56 "amdy17", Pamdy17,
57 "amdy18", Pamdy18,
58 "amdy19", Pamdy19,
59 "amdy20", Pamdy20,
60
61 "pltscale", Ppltscale,
62 "xpixelsz", Pxpixelsz,
63 "ypixelsz", Pypixelsz,
64
65 "pltrah", Ppltrah,
66 "pltram", Ppltram,
67 "pltras", Ppltras,
68 "pltdecd", Ppltdecd,
69 "pltdecm", Ppltdecm,
70 "pltdecs", Ppltdecs,
71
72 };
73
74 Header*
75 getheader(char *rgn)
76 {
77 char rec[81], name[81], value[81];
78 char *p;
79 Biobuf *bin;
80 Header hd, *h;
81 int i, j, decsn, dss;
82
83 dss = 0;
84 sprint(rec, "/lib/sky/dssheaders/%s.hhh", rgn);
85 bin = Bopen(unsharp(rec), OREAD);
86 /*
87 if(bin == 0) {
88 dss = 102;
89 sprint(rec, "/n/juke/dss/dss.102/headers/%s.hhh", rgn);
90 bin = Bopen(rec, OREAD);
91 }
92 if(bin == 0) {
93 dss = 61;
94 sprint(rec, "/n/juke/dss/dss.061/headers/%s.hhh", rgn);
95 bin = Bopen(rec, OREAD);
96 }
97 */
98 if(bin == 0) {
99 fprint(2, "cannot open %s\n", rgn);
100 exits("file");
101 }
102 if(debug)
103 Bprint(&bout, "reading %s\n", rec);
104 if(dss)
105 Bprint(&bout, "warning: reading %s from jukebox\n", rec);
106
107 memset(&hd, 0, sizeof(hd));
108 j = 0;
109 decsn = 0;
110 for(;;) {
111 if(dss) {
112 if(Bread(bin, rec, 80) != 80)
113 break;
114 rec[80] = 0;
115 } else {
116 p = Brdline(bin, '\n');
117 if(p == 0)
118 break;
119 p[Blinelen(bin)-1] = 0;
120 strcpy(rec, p);
121 }
122
123 p = strchr(rec, '/');
124 if(p)
125 *p = 0;
126 p = strchr(rec, '=');
127 if(p == 0)
128 continue;
129 *p++ = 0;
130 if(getword(name, rec) == 0)
131 continue;
132 if(getword(value, p) == 0)
133 continue;
134 if(strcmp(name, "pltdecsn") == 0) {
135 if(strchr(value, '-'))
136 decsn = 1;
137 continue;
138 }
139 for(i=0; i<nelem(Hproto); i++) {
140 j++;
141 if(j >= nelem(Hproto))
142 j = 0;
143 if(strcmp(name, Hproto[j].name) == 0) {
144 hd.param[(uchar)Hproto[j].offset] = atof(value);
145 break;
146 }
147 }
148 }
149 Bterm(bin);
150
151 hd.param[Ppltra] = RAD(hd.param[Ppltrah]*15 +
152 hd.param[Ppltram]/4 + hd.param[Ppltras]/240);
153 hd.param[Ppltdec] = RAD(hd.param[Ppltdecd] +
154 hd.param[Ppltdecm]/60 + hd.param[Ppltdecs]/3600);
155 if(decsn)
156 hd.param[Ppltdec] = -hd.param[Ppltdec];
157 hd.amdflag = 0;
158 for(i=Pamdx1; i<=Pamdx20; i++)
159 if(hd.param[i] != 0) {
160 hd.amdflag = 1;
161 break;
162 }
163 h = malloc(sizeof(*h));
164 *h = hd;
165 return h;
166 }
167
168 void
169 getplates(void)
170 {
171 char rec[81], *q;
172 Plate *p;
173 Biobuf *bin;
174 int c, i, dss;
175
176 dss = 0;
177 sprint(rec, "/lib/sky/dssheaders/lo_comp.lis");
178 bin = Bopen(rec, OREAD);
179 if(bin == 0) {
180 dss = 102;
181 sprint(rec, "%s/headers/lo_comp.lis", dssmount(dss));
182 bin = Bopen(rec, OREAD);
183 }
184 if(bin == 0) {
185 dss = 61;
186 sprint(rec, "%s/headers/lo_comp.lis", dssmount(dss));
187 bin = Bopen(rec, OREAD);
188 }
189 if(bin == 0) {
190 fprint(2, "can't open lo_comp.lis; try 9fs juke\n");
191 exits("open");
192 }
193 if(debug)
194 Bprint(&bout, "reading %s\n", rec);
195 if(dss)
196 Bprint(&bout, "warning: reading %s from jukebox\n", rec);
197 for(nplate=0;;) {
198 if(dss) {
199 if(Bread(bin, rec, 80) != 80)
200 break;
201 rec[80] = 0;
202 } else {
203 q = Brdline(bin, '\n');
204 if(q == 0)
205 break;
206 q[Blinelen(bin)-1] = 0;
207 strcpy(rec, q);
208 }
209 if(rec[0] == '#')
210 continue;
211 if(nplate < nelem(plate)) {
212 p = &plate[nplate];
213 memmove(p->rgn, rec+0, 5);
214 if(p->rgn[4] == ' ')
215 p->rgn[4] = 0;
216 for(i=0; c=p->rgn[i]; i++)
217 if(c >= 'A' && c <= 'Z')
218 p->rgn[i] += 'a'-'A';
219 p->ra = RAD(atof(rec+12)*15 +
220 atof(rec+15)/4 +
221 atof(rec+18)/240);
222 p->dec = RAD(atof(rec+26) +
223 atof(rec+29)/60 +
224 atof(rec+32)/3600);
225 if(rec[25] == '-')
226 p->dec = -p->dec;
227 p->disk = atoi(rec+53);
228 if(p->disk == 0)
229 continue;
230 }
231 nplate++;
232 }
233 Bterm(bin);
234
235 if(nplate >= nelem(plate))
236 fprint(2, "nplate too small %d %d\n", nelem(plate), nplate);
237 if(debug)
238 Bprint(&bout, "%d plates\n", nplate);
239 }
240
241 char*
242 dssmount(int dskno)
243 {
244 Bprint(&bout, "not mounting dss\n");
245 return "/n/dss";
246 }