![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ars.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs2|
Return to ars.c CVS log | Up to [Synchronet] / sbbs / sbbs2 |
1.1 root 1: /* ARS.C */
2:
3: /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
4:
5: #ifdef __WATCOMC__
6: #include <malloc.h>
7: #else
8: #include <alloc.h>
9: #endif
10: #include "ars_defs.h"
11:
12: #ifdef SBBS
13: #include "sbbs.h"
14: #endif
15:
16: char *arstr(ushort *count, char *str)
17: {
18: static char *nular="";
19: char ar[256],*p;
20: uint i,j,n,artype=AR_LEVEL,not=0,equal=0,x;
21:
22: for(i=j=0;str[i];i++) {
23: if(str[i]==SP)
24: continue;
25:
26: if(str[i]=='(') {
27: if(not)
28: ar[j++]=AR_NOT;
29: not=equal=0;
30: ar[j++]=AR_BEGNEST;
31: continue; }
32:
33: if(str[i]==')') {
34: ar[j++]=AR_ENDNEST;
35: continue; }
36:
37: if(str[i]=='|') {
38: ar[j++]=AR_OR;
39: continue; }
40:
41: if(str[i]=='!') {
42: not=1;
43: continue; }
44:
45: if(str[i]=='=') {
46: equal=1;
47: continue; }
48:
49: if(str[i]=='&')
50: continue;
51:
52: if(isalpha(str[i])) {
53: if(!strncmp(str+i,"OR",2)) {
54: ar[j++]=AR_OR;
55: i++;
56: continue; }
57:
58: if(!strncmp(str+i,"AND",3)) { /* AND is ignored */
59: i+=2;
60: continue; }
61:
62: if(!strncmp(str+i,"NOT",3)) {
63: not=1;
64: i+=2;
65: continue; }
66:
67: if(!strncmp(str+i,"EQUAL TO",8)) {
68: equal=1;
69: i+=7;
70: continue; }
71:
72: if(!strncmp(str+i,"EQUAL",5)) {
73: equal=1;
74: i+=4;
75: continue; }
76:
77: if(!strncmp(str+i,"EQUALS",6)) {
78: equal=1;
79: i+=5;
80: continue; } }
81:
82: if(str[i]=='$') {
83: switch(str[i+1]) {
84: case 'A':
85: artype=AR_AGE;
86: break;
87: case 'B':
88: artype=AR_BPS;
89: break;
90: case 'C':
91: artype=AR_CREDIT;
92: break;
93: case 'D':
94: artype=AR_UDFR;
95: break;
96: case 'E':
97: artype=AR_EXPIRE;
98: break;
99: case 'F':
100: artype=AR_FLAG1;
101: break;
102: case 'G':
103: artype=AR_LOCAL;
104: if(not)
105: ar[j++]=AR_NOT;
106: not=0;
107: ar[j++]=artype;
108: break;
109: case 'H':
110: artype=AR_SUB;
111: break;
112: case 'I':
113: artype=AR_LIB;
114: break;
115: case 'J':
116: artype=AR_DIR;
117: break;
118: case 'K':
119: artype=AR_UDR;
120: break;
121: case 'L':
122: artype=AR_LEVEL;
123: break;
124: case 'M':
125: artype=AR_GROUP;
126: break;
127: case 'N':
128: artype=AR_NODE;
129: break;
130: case 'O':
131: artype=AR_TUSED;
132: break;
133: case 'P':
134: artype=AR_PCR;
135: break;
136: case 'Q':
137: artype=AR_RANDOM;
138: break;
139: case 'R':
140: artype=AR_TLEFT;
141: break;
142: case 'S':
143: artype=AR_SEX;
144: break;
145: case 'T':
146: artype=AR_TIME;
147: break;
148: case 'U':
149: artype=AR_USER;
150: break;
151: case 'V':
152: artype=AR_LOGONS;
153: break;
154: case 'W':
155: artype=AR_DAY;
156: break;
157: case 'X':
158: artype=AR_EXEMPT;
159: break;
160: case 'Y': /* Days since last on */
161: artype=AR_LASTON;
162: break;
163: case 'Z':
164: artype=AR_REST;
165: break;
166: case '[':
167: artype=AR_ANSI;
168: if(not)
169: ar[j++]=AR_NOT;
170: not=0;
171: ar[j++]=artype;
172: break;
173: case '0':
174: artype=AR_NULL;
175: break;
176: case '*':
177: artype=AR_RIP;
178: if(not)
179: ar[j++]=AR_NOT;
180: not=0;
181: ar[j++]=artype;
182: break;
183:
184: }
185: i++;
186: continue; }
187:
188: if(isalpha(str[i])) {
189: n=i;
190: if(!strncmp(str+i,"AGE",3)) {
191: artype=AR_AGE;
192: i+=2; }
193: else if(!strncmp(str+i,"BPS",3)) {
194: artype=AR_BPS;
195: i+=2; }
196: else if(!strncmp(str+i,"PCR",3)) {
197: artype=AR_PCR;
198: i+=2; }
199: else if(!strncmp(str+i,"SEX",3)) {
200: artype=AR_SEX;
201: i+=2; }
202: else if(!strncmp(str+i,"UDR",3)) {
203: artype=AR_UDR;
204: i+=2; }
205: else if(!strncmp(str+i,"DAY",3)) {
206: artype=AR_DAY;
207: i+=2; }
208: else if(!strncmp(str+i,"RIP",3)) {
209: artype=AR_RIP;
210: if(not)
211: ar[j++]=AR_NOT;
212: not=0;
213: ar[j++]=artype;
214: i+=2; }
215: else if(!strncmp(str+i,"WIP",3)) {
216: artype=AR_WIP;
217: if(not)
218: ar[j++]=AR_NOT;
219: not=0;
220: ar[j++]=artype;
221: i+=2; }
222: else if(!strncmp(str+i,"OS2",3)) {
223: artype=AR_OS2;
224: if(not)
225: ar[j++]=AR_NOT;
226: not=0;
227: ar[j++]=artype;
228: i+=2; }
229: else if(!strncmp(str+i,"DOS",3)) {
230: artype=AR_DOS;
231: if(not)
232: ar[j++]=AR_NOT;
233: not=0;
234: ar[j++]=artype;
235: i+=2; }
236: else if(!strncmp(str+i,"SUBCODE",7)) {
237: artype=AR_SUBCODE;
238: i+=6; }
239: else if(!strncmp(str+i,"SUB",3)) {
240: artype=AR_SUB;
241: i+=2; }
242: else if(!strncmp(str+i,"LIB",3)) {
243: artype=AR_LIB;
244: i+=2; }
245: else if(!strncmp(str+i,"DIRCODE",7)) {
246: artype=AR_DIRCODE;
247: i+=6; }
248: else if(!strncmp(str+i,"DIR",3)) {
249: artype=AR_DIR;
250: i+=2; }
251: else if(!strncmp(str+i,"ANSI",4)) {
252: artype=AR_ANSI;
253: if(not)
254: ar[j++]=AR_NOT;
255: not=0;
256: ar[j++]=artype;
257: i+=3; }
258: else if(!strncmp(str+i,"UDFR",4)) {
259: artype=AR_UDFR;
260: i+=3; }
261: else if(!strncmp(str+i,"FLAG",4)) {
262: artype=AR_FLAG1;
263: i+=3; }
264: else if(!strncmp(str+i,"NODE",4)) {
265: artype=AR_NODE;
266: i+=3; }
267: else if(!strncmp(str+i,"NULL",4)) {
268: artype=AR_NULL;
269: i+=3; }
270: else if(!strncmp(str+i,"USER",4)) {
271: artype=AR_USER;
272: i+=3; }
273: else if(!strncmp(str+i,"TIME",4)) {
274: artype=AR_TIME;
275: i+=3; }
276: else if(!strncmp(str+i,"REST",4)) {
277: artype=AR_REST;
278: i+=3; }
279: else if(!strncmp(str+i,"LEVEL",5)) {
280: artype=AR_LEVEL;
281: i+=4; }
282: else if(!strncmp(str+i,"TLEFT",5)) {
283: artype=AR_TLEFT;
284: i+=4; }
285: else if(!strncmp(str+i,"TUSED",5)) {
286: artype=AR_TUSED;
287: i+=4; }
288: else if(!strncmp(str+i,"LOCAL",5)) {
289: artype=AR_LOCAL;
290: if(not)
291: ar[j++]=AR_NOT;
292: not=0;
293: ar[j++]=artype;
294: i+=4; }
295: else if(!strncmp(str+i,"GROUP",5)) {
296: artype=AR_GROUP;
297: i+=4; }
298: else if(!strncmp(str+i,"EXPIRE",6)) {
299: artype=AR_EXPIRE;
300: i+=5; }
301: else if(!strncmp(str+i,"EXPERT",6)) {
302: artype=AR_EXPERT;
303: if(not)
304: ar[j++]=AR_NOT;
305: not=0;
306: ar[j++]=artype;
307: i+=5; }
308: else if(!strncmp(str+i,"SYSOP",5)) {
309: artype=AR_SYSOP;
310: if(not)
311: ar[j++]=AR_NOT;
312: not=0;
313: ar[j++]=artype;
314: i+=4; }
315: else if(!strncmp(str+i,"QUIET",5)) {
316: artype=AR_QUIET;
317: if(not)
318: ar[j++]=AR_NOT;
319: not=0;
320: ar[j++]=artype;
321: i+=4; }
322: else if(!strncmp(str+i,"EXEMPT",6)) {
323: artype=AR_EXEMPT;
324: i+=5; }
325: else if(!strncmp(str+i,"RANDOM",6)) {
326: artype=AR_RANDOM;
327: i+=5; }
328: else if(!strncmp(str+i,"LASTON",6)) {
329: artype=AR_LASTON;
330: i+=5; }
331: else if(!strncmp(str+i,"LOGONS",6)) {
332: artype=AR_LOGONS;
333: i+=5; }
334: else if(!strncmp(str+i,"CREDIT",6)) {
335: artype=AR_CREDIT;
336: i+=5; }
337: else if(!strncmp(str+i,"MAIN_CMDS",9)) {
338: artype=AR_MAIN_CMDS;
339: i+=8; }
340: else if(!strncmp(str+i,"FILE_CMDS",9)) {
341: artype=AR_FILE_CMDS;
342: i+=8; }
343: if(n!=i) /* one of the above */
344: continue; }
345:
346: if(not)
347: ar[j++]=AR_NOT;
348: if(equal)
349: ar[j++]=AR_EQUAL;
350: not=equal=0;
351:
352: if(artype==AR_FLAG1 && isdigit(str[i])) { /* flag set specified */
353: switch(str[i]) {
354: case '2':
355: artype=AR_FLAG2;
356: break;
357: case '3':
358: artype=AR_FLAG3;
359: break;
360: case '4':
361: artype=AR_FLAG4;
362: break; }
363: continue; }
364:
365: if(artype==AR_SUB && !isdigit(str[i]))
366: artype=AR_SUBCODE;
367: if(artype==AR_DIR && !isdigit(str[i]))
368: artype=AR_DIRCODE;
369:
370: ar[j++]=artype;
371: if(isdigit(str[i])) {
372: if(artype==AR_TIME) {
373: n=atoi(str+i)*60;
374: p=strchr(str+i,':');
375: if(p)
376: n+=atoi(p+1);
377: *((short *)(ar+j))=n;
378: j+=2;
379: while(isdigit(str[i+1]) || str[i+1]==':') i++;
380: continue; }
381: n=atoi(str+i);
382: switch(artype) {
383: case AR_DAY:
384: if(n>6) /* not past saturday */
385: n=6;
386: case AR_AGE: /* byte operands */
387: case AR_PCR:
388: case AR_UDR:
389: case AR_UDFR:
390: case AR_NODE:
391: case AR_LEVEL:
392: case AR_TLEFT:
393: case AR_TUSED:
394: ar[j++]=n;
395: break;
396: case AR_BPS: /* int operands */
397: if(n<300)
398: n*=100;
399: case AR_MAIN_CMDS:
400: case AR_FILE_CMDS:
401: case AR_EXPIRE:
402: case AR_CREDIT:
403: case AR_USER:
404: case AR_RANDOM:
405: case AR_LASTON:
406: case AR_LOGONS:
407: *((short *)(ar+j))=n;
408: j+=2;
409: break;
410: case AR_GROUP:
411: case AR_LIB:
412: case AR_DIR:
413: case AR_SUB:
414: if(n) n--; /* convert to 0 base */
415: *((short *)(ar+j))=n;
416: j+=2;
417: break;
418: default: /* invalid numeric AR type */
419: j--;
420: break; }
421: while(isdigit(str[i+1])) i++;
422: continue; }
423: if(artype==AR_SUBCODE || artype==AR_DIRCODE) {
424: for(n=0;n<8
425: && str[i]
426: && str[i]!=SP
427: && str[i]!='('
428: && str[i]!=')'
429: && str[i]!='='
430: && str[i]!='|'
431: ;n++)
432: ar[j++]=str[i++];
433: ar[j++]=0;
434: continue; }
435: switch(artype) {
436: case AR_FLAG1:
437: case AR_FLAG2:
438: case AR_FLAG3:
439: case AR_FLAG4:
440: case AR_EXEMPT:
441: case AR_SEX:
442: case AR_REST:
443: ar[j++]=str[i];
444: break;
445: #ifdef SBBS
446: case AR_SUB:
447: for(n=0;n<total_subs;n++)
448: if(!strnicmp(str+i,sub[n]->code,strlen(sub[n]->code)))
449: break;
450: if(n<total_subs) {
451: *((short *)(ar+j))=n;
452: j+=2; }
453: else /* Unknown sub-board */
454: j--;
455: while(isalpha(str[i+1])) i++;
456: break;
457: case AR_DIR:
458: for(n=0;n<total_dirs;n++)
459: if(!strnicmp(str+i,dir[n]->code,strlen(dir[n]->code)))
460: break;
461: if(n<total_dirs) {
462: *((short *)(ar+j))=n;
463: j+=2; }
464: else /* Unknown directory */
465: j--;
466: while(isalpha(str[i+1])) i++;
467: break;
468: #endif
469: case AR_DAY:
470: if(str[i]=='S' && str[i+1]=='U') /* Sunday */
471: ar[j++]=0;
472: else if(str[i]=='M') /* Monday */
473: ar[j++]=1;
474: else if(str[i]=='T' && str[i+1]=='U') /* Tuesday */
475: ar[j++]=2;
476: else if(str[i]=='W') /* Wednesday */
477: ar[j++]=3;
478: else if(str[i]=='T' && str[i+1]=='H') /* Thursday */
479: ar[j++]=4;
480: else if(str[i]=='F') /* Friday */
481: ar[j++]=5;
482: else ar[j++]=6; /* Saturday */
483: while(isalpha(str[i+1])) i++;
484: break;
485: } }
486: if(!j)
487: return(nular); /* Save memory */
488:
489: ar[j++]=AR_NULL;
490: /** DEBUG stuff
491: for(i=0;i<j;i++)
492: lprintf("%02X ",(uint)ar[i]);
493: lputs("\r\n");
494: ***/
495: if((p=(char *)MALLOC(j))==NULL)
496: return(NULL);
497: memcpy(p,ar,j);
498: if(count)
499: (*count)=j;
500: return(p);
501: }
502:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.