1 8a3b2ceb 2004-04-24 devnull #include <u.h>
2 8a3b2ceb 2004-04-24 devnull #include <libc.h>
3 8a3b2ceb 2004-04-24 devnull #include <bio.h>
4 8a3b2ceb 2004-04-24 devnull #include "sky.h"
6 8a3b2ceb 2004-04-24 devnull extern Biobuf bout;
9 8a3b2ceb 2004-04-24 devnull append(char *p, char *s)
11 8a3b2ceb 2004-04-24 devnull while(*s)
12 8a3b2ceb 2004-04-24 devnull *p++ = *s++;
13 8a3b2ceb 2004-04-24 devnull return p;
17 8a3b2ceb 2004-04-24 devnull matchlen(char *a, char *b)
21 8a3b2ceb 2004-04-24 devnull for(n=0; *a==*b; a++, b++, n++)
22 8a3b2ceb 2004-04-24 devnull if(*a == 0)
23 8a3b2ceb 2004-04-24 devnull return n;
24 8a3b2ceb 2004-04-24 devnull if(*a == 0)
25 8a3b2ceb 2004-04-24 devnull return n;
26 8a3b2ceb 2004-04-24 devnull return 0;
30 8a3b2ceb 2004-04-24 devnull prose(char *s, char *desc[][2], short index[])
32 8a3b2ceb 2004-04-24 devnull static char buf[512];
33 8a3b2ceb 2004-04-24 devnull char *p=buf;
34 8a3b2ceb 2004-04-24 devnull int i, j, k, max;
37 8a3b2ceb 2004-04-24 devnull while(*s){
38 8a3b2ceb 2004-04-24 devnull if(p >= buf+sizeof buf)
40 8a3b2ceb 2004-04-24 devnull if(*s == ' '){
41 8a3b2ceb 2004-04-24 devnull if(p>buf && p[-1]!=' ')
42 8a3b2ceb 2004-04-24 devnull *p++ = ' ';
44 8a3b2ceb 2004-04-24 devnull continue;
46 8a3b2ceb 2004-04-24 devnull if(*s == ','){
47 8a3b2ceb 2004-04-24 devnull *p++ = ';', s++;
48 8a3b2ceb 2004-04-24 devnull continue;
50 8a3b2ceb 2004-04-24 devnull if(s[0]=='M' && '0'<=s[1] && s[1]<='9'){ /* Messier tag */
51 8a3b2ceb 2004-04-24 devnull *p++ = *s++;
52 8a3b2ceb 2004-04-24 devnull continue; /* below will copy the number */
54 8a3b2ceb 2004-04-24 devnull if((i=index[(uchar)*s]) == -1){
56 8a3b2ceb 2004-04-24 devnull switch(*s){
58 8a3b2ceb 2004-04-24 devnull while(*s && *s!=',' && *s!=' ')
59 8a3b2ceb 2004-04-24 devnull *p++=*s++;
62 8a3b2ceb 2004-04-24 devnull case '0': case '1': case '2': case '3': case '4':
63 8a3b2ceb 2004-04-24 devnull case '5': case '6': case '7': case '8': case '9':
64 8a3b2ceb 2004-04-24 devnull while('0'<=*s && *s<='9')
65 8a3b2ceb 2004-04-24 devnull *p++ = *s++;
66 8a3b2ceb 2004-04-24 devnull if(*s=='\'' || *s=='s')
67 8a3b2ceb 2004-04-24 devnull *p++ = *s++;
70 8a3b2ceb 2004-04-24 devnull case '(': case ')':
71 8a3b2ceb 2004-04-24 devnull case '\'': case '"':
72 8a3b2ceb 2004-04-24 devnull case '&': case '-': case '+':
73 8a3b2ceb 2004-04-24 devnull *p++ = *s++;
76 8a3b2ceb 2004-04-24 devnull case '*':
77 8a3b2ceb 2004-04-24 devnull if('0'<=s[1] && s[1]<='9'){
78 8a3b2ceb 2004-04-24 devnull int flag=0;
81 8a3b2ceb 2004-04-24 devnull while('0'<=*s && *s<='9')
82 8a3b2ceb 2004-04-24 devnull *p++=*s++;
83 8a3b2ceb 2004-04-24 devnull if(s[0] == '-'){
84 8a3b2ceb 2004-04-24 devnull *p++ = *s++;
86 8a3b2ceb 2004-04-24 devnull goto Pnumber;
88 8a3b2ceb 2004-04-24 devnull if(s[0]==',' && s[1]==' ' && '0'<=s[2] && s[2]<='9'){
89 8a3b2ceb 2004-04-24 devnull *p++ = *s++;
90 8a3b2ceb 2004-04-24 devnull s++; /* skip blank */
92 8a3b2ceb 2004-04-24 devnull goto Pnumber;
94 8a3b2ceb 2004-04-24 devnull if(s[0] == '.'){
95 8a3b2ceb 2004-04-24 devnull if(s[1]=='.' && s[2]=='.'){
96 8a3b2ceb 2004-04-24 devnull *p++ = '-';
99 8a3b2ceb 2004-04-24 devnull goto Pnumber;
101 8a3b2ceb 2004-04-24 devnull *p++ = *s++;
102 8a3b2ceb 2004-04-24 devnull goto Pnumber;
104 8a3b2ceb 2004-04-24 devnull p = append(p, "m star");
105 8a3b2ceb 2004-04-24 devnull if(flag)
106 8a3b2ceb 2004-04-24 devnull *p++ = 's';
107 8a3b2ceb 2004-04-24 devnull *p++ = ' ';
110 8a3b2ceb 2004-04-24 devnull if(s[1] == '*'){
111 8a3b2ceb 2004-04-24 devnull if(s[2] == '*'){
112 8a3b2ceb 2004-04-24 devnull p = append(p, "triple star ");
115 8a3b2ceb 2004-04-24 devnull p = append(p, "double star ");
120 8a3b2ceb 2004-04-24 devnull p = append(p, "star ");
124 8a3b2ceb 2004-04-24 devnull continue;
126 8a3b2ceb 2004-04-24 devnull for(max=-1; desc[i][0] && desc[i][0][0]==*s; i++){
127 8a3b2ceb 2004-04-24 devnull k = matchlen(desc[i][0], s);
128 8a3b2ceb 2004-04-24 devnull if(k > max)
129 8a3b2ceb 2004-04-24 devnull max = k, j = i;
131 8a3b2ceb 2004-04-24 devnull if(max == 0)
132 8a3b2ceb 2004-04-24 devnull goto Dup;
133 8a3b2ceb 2004-04-24 devnull s += max;
134 8a3b2ceb 2004-04-24 devnull for(k=0; desc[j][1][k]; k++)
135 8a3b2ceb 2004-04-24 devnull *p++=desc[j][1][k];
136 8a3b2ceb 2004-04-24 devnull if(*s == ' ')
137 8a3b2ceb 2004-04-24 devnull *p++ = *s++;
138 8a3b2ceb 2004-04-24 devnull else if(*s == ',')
139 8a3b2ceb 2004-04-24 devnull *p++ = ';', s++;
141 8a3b2ceb 2004-04-24 devnull *p++ = ' ';
144 8a3b2ceb 2004-04-24 devnull return buf;
148 8a3b2ceb 2004-04-24 devnull prdesc(char *s, char *desc[][2], short index[])
150 8a3b2ceb 2004-04-24 devnull int c, j;
152 8a3b2ceb 2004-04-24 devnull if(index[0] == 0){
153 8a3b2ceb 2004-04-24 devnull index[0] = 1;
154 8a3b2ceb 2004-04-24 devnull for(c=1, j=0; c<128; c++)
155 8a3b2ceb 2004-04-24 devnull if(desc[j][0]==0 || desc[j][0][0]>c)
156 8a3b2ceb 2004-04-24 devnull index[c] = -1;
157 8a3b2ceb 2004-04-24 devnull else if(desc[j][0][0] == c){
158 8a3b2ceb 2004-04-24 devnull index[c] = j;
159 8a3b2ceb 2004-04-24 devnull while(desc[j][0] && desc[j][0][0] == c)
161 8a3b2ceb 2004-04-24 devnull if(j >= NINDEX){
162 8a3b2ceb 2004-04-24 devnull fprint(2, "scat: internal error: too many prose entries\n");
163 8a3b2ceb 2004-04-24 devnull exits("NINDEX");
167 8a3b2ceb 2004-04-24 devnull Bprint(&bout, "\t%s [%s]\n", prose(s, desc, index), s);