/* ars.c */

/* Synchronet Access Requirement String (ARS) functions */

/* $Id: ars.c,v 1.19 2009/03/22 02:27:18 rswindell Exp $ */

/****************************************************************************
 * @format.tab-size 4		(Plain Text/Source Code File Header)			*
 * @format.use-tabs true	(see http://www.synchro.net/ptsc_hdr.html)		*
 *																			*
 * Copyright 2009 Rob Swindell - http://www.synchro.net/copyright.html		*
 *																			*
 * This program is free software; you can redistribute it and/or			*
 * modify it under the terms of the GNU General Public License				*
 * as published by the Free Software Foundation; either version 2			*
 * of the License, or (at your option) any later version.					*
 * See the GNU General Public License for more details: gpl.txt or			*
 * http://www.fsf.org/copyleft/gpl.html										*
 *																			*
 * Anonymous FTP access to the most recent released source is available at	*
 * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net	*
 *																			*
 * Anonymous CVS access to the development source and modification history	*
 * is available at cvs.synchro.net:/cvsroot/sbbs, example:					*
 * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login			*
 *     (just hit return, no password is necessary)							*
 * cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src		*
 *																			*
 * For Synchronet coding style and modification guidelines, see				*
 * http://www.synchro.net/source.html										*
 *																			*
 * You are encouraged to submit any modifications (preferably in Unix diff	*
 * format) via e-mail to mods@synchro.net									*
 *																			*
 * Note: If this box doesn't appear square, then you need to fix your tabs.	*
 ****************************************************************************/

#include "sbbs.h"

const uchar* nular=(uchar*)"";	/* AR_NULL */

static BOOL ar_string_arg(int artype)
{
	switch(artype) {
		case AR_SUBCODE:
		case AR_DIRCODE:
		case AR_SHELL:
		case AR_PROT:
		case AR_HOST:
		case AR_IP:
			return TRUE;	/* These ARS Keywords expect a string argument */
	}
	return FALSE;
}

/* Converts ASCII ARS string into binary ARS buffer */

#ifdef __BORLANDC__	/* Eliminate warning when buildling Baja */
#pragma argsused
#endif
uchar* arstr(ushort* count, char* str, scfg_t* cfg)
{
	char*	p;
	char*	np;
	char	ch;
	uchar	ar[1024],*ar_buf;
	int		artype=AR_INVALID;
	uint	i,j,n,not=0,equal=0;
	uint	maxlen;
	BOOL	arg_expected=FALSE;

	for(i=j=0;str[i];i++) {
		if(str[i]==' ')
			continue;

		if(str[i]=='(') {
			if(not)
				ar[j++]=AR_NOT;
			not=equal=0;
			ar[j++]=AR_BEGNEST;
			continue; 
		}

		if(str[i]==')') {
			ar[j++]=AR_ENDNEST;
			continue; 
		}

		if(str[i]=='|') {
			ar[j++]=AR_OR;
			continue; 
		}
    
		if(str[i]=='!') {
			not=1;
			continue; 
		}

		if(str[i]=='=') {
			equal=1;
			continue; 
		}

		if(str[i]=='&')
			continue;

		if(isalpha(str[i])) {
			p=np=str+i;
			SKIP_ALPHA(np);
			n=np-p;
			if(n==2 && !strnicmp(p,"OR",2)) {
				ar[j++]=AR_OR;
				i++;
				continue; 
			}

			if(n==3 && !strnicmp(p,"AND",3)) {    /* AND is ignored */
				i+=2;
				continue; 
			}

			if(n==3 && !strnicmp(p,"NOT",3)) {
				not=1;
				i+=2;
				continue; 
			}

			if(n==2 && equal && !strnicmp(p,"TO",2)) {	/* EQUAL TO */
				i++;
				continue; 
			}

			if(n==5 && !strnicmp(p,"EQUAL",5)) {
				equal=1;
				i+=4;
				continue; 
			}

			if(n==6 && !strnicmp(p,"EQUALS",6)) {
				equal=1;
				i+=5;
				continue; 
			} 
		}

		if(str[i]=='$') {
			arg_expected=TRUE;
			switch((ch=toupper(str[++i]))) {
				case 'A':
					artype=AR_AGE;
					break;
				case 'B':
					artype=AR_BPS;
					break;
				case 'C':
					artype=AR_CREDIT;
					break;
				case 'D':
					artype=AR_UDFR;
					break;
				case 'E':
					artype=AR_EXPIRE;
					break;
				case 'F':
					artype=AR_FLAG1;
					break;
				case 'H':
					artype=AR_SUB;
					break;
				case 'I':
					artype=AR_LIB;
					break;
				case 'J':
					artype=AR_DIR;
					break;
				case 'K':
					artype=AR_UDR;
					break;
				case 'L':
					artype=AR_LEVEL;
					break;
				case 'M':
					artype=AR_GROUP;
					break;
				case 'N':
					artype=AR_NODE;
					break;
				case 'O':
					artype=AR_TUSED;
					break;
				case 'P':
					artype=AR_PCR;
					break;
				case 'Q':
					artype=AR_RANDOM;
					break;
				case 'R':
					artype=AR_TLEFT;
					break;
				case 'S':
					artype=AR_SEX;
					break;
				case 'T':
					artype=AR_TIME;
					break;
				case 'U':
					artype=AR_USER;
					break;
				case 'V':
					artype=AR_LOGONS;
					break;
				case 'W':
					artype=AR_DAY;
					break;
				case 'X':
					artype=AR_EXEMPT;
					break;
				case 'Y':   /* Days since last on */
					artype=AR_LASTON;
					break;
				case 'Z':
					artype=AR_REST;
				/* Boolean (no argument) symbols */
				case '0':
				case 'G':
				case '*':
				case '[':
					switch(ch) {
						case '0':
							artype=AR_NULL;
							break;
						case 'G':
							artype=AR_LOCAL;
							break;
						case '*':
							artype=AR_RIP;
							break;
						case '[':
							artype=AR_ANSI;
							break;
					}
					if(not)
						ar[j++]=AR_NOT;
					not=0;
					ar[j++]=artype;
					artype=AR_INVALID;
					arg_expected=FALSE;
					break;
			}
			continue; 
		}

		if(!arg_expected && isalpha(str[i])) {
			n=i;
			if(!strnicmp(str+i,"AGE",3)) {
				artype=AR_AGE;
				i+=2; 
			}
			else if(!strnicmp(str+i,"BPS",3)) {
				artype=AR_BPS;
				i+=2; 
			}
			else if(!strnicmp(str+i,"PCR",3)) {
				artype=AR_PCR;
				i+=2; 
			}
			else if(!strnicmp(str+i,"SEX",3)) {
				artype=AR_SEX;
				i+=2; 
			}
			else if(!strnicmp(str+i,"UDR",3)) {
				artype=AR_UDR;
				i+=2; 
			}
			else if(!strnicmp(str+i,"ULS",3)) {
				artype=AR_ULS;
				i+=2; 
			}
			else if(!strnicmp(str+i,"ULK",3)) {
				artype=AR_ULK;
				i+=2; 
			}
			else if(!strnicmp(str+i,"ULM",3)) {
				artype=AR_ULM;
				i+=2; 
			}
			else if(!strnicmp(str+i,"DLS",3)) {
				artype=AR_DLS;
				i+=2; 
			}
			else if(!strnicmp(str+i,"DLK",3)) {
				artype=AR_DLK;
				i+=2; 
			}
			else if(!strnicmp(str+i,"DLM",3)) {
				artype=AR_DLM;
				i+=2; 
			}
			else if(!strnicmp(str+i,"DAY",3)) {
				artype=AR_DAY;
				i+=2; 
			}
			else if(!strnicmp(str+i,"RIP",3)) {
				artype=AR_RIP;
				i+=2; 
			}
			else if(!strnicmp(str+i,"WIP",3)) {
				artype=AR_WIP;
				i+=2; 
			}
			else if(!strnicmp(str+i,"OS2",3)) {
				artype=AR_OS2;
				i+=2; 
			}
			else if(!strnicmp(str+i,"DOS",3)) {
				artype=AR_DOS;
				i+=2; 
			}
			else if(!strnicmp(str+i,"WIN32",5)) {
				artype=AR_WIN32;
				i+=4; 
			}
			else if(!strnicmp(str+i,"UNIX",4)) {
				artype=AR_UNIX;
				i+=3; 
			}
			else if(!strnicmp(str+i,"LINUX",5)) {
				artype=AR_LINUX;
				i+=4; 
			}
			else if(!strnicmp(str+i,"PROT",4)) {
				artype=AR_PROT;
				i+=3; 
			}
			else if(!strnicmp(str+i,"HOST",4)) {
				artype=AR_HOST;
				i+=3; 
			}
			else if(!strnicmp(str+i,"IP",2)) {
				artype=AR_IP;
				i++; 
			}
			else if(!strnicmp(str+i,"SUBCODE",7)) {
				artype=AR_SUBCODE;
				i+=6; 
			}
			else if(!strnicmp(str+i,"SUB",3)) {
				artype=AR_SUB;
				i+=2; 
			}
			else if(!strnicmp(str+i,"LIB",3)) {
				artype=AR_LIB;
				i+=2; 
			}
			else if(!strnicmp(str+i,"DIRCODE",7)) {
				artype=AR_DIRCODE;
				i+=6; 
			}
			else if(!strnicmp(str+i,"DIR",3)) {
				artype=AR_DIR;
				i+=2; 
			}
			else if(!strnicmp(str+i,"ANSI",4)) {
				artype=AR_ANSI;
				i+=3; 
			}
			else if(!strnicmp(str+i,"UDFR",4)) {
				artype=AR_UDFR;
				i+=3; 
			}
			else if(!strnicmp(str+i,"FLAG",4)) {
				artype=AR_FLAG1;
				i+=3; 
			}
			else if(!strnicmp(str+i,"NODE",4)) {
				artype=AR_NODE;
				i+=3; 
			}
			else if(!strnicmp(str+i,"NULL",4)) {
				artype=AR_NULL;
				i+=3; 
			}
			else if(!strnicmp(str+i,"USER",4)) {
				artype=AR_USER;
				i+=3; 
			}
			else if(!strnicmp(str+i,"TIME",4)) {
				artype=AR_TIME;
				i+=3; 
			}
			else if(!strnicmp(str+i,"REST",4)) {
				artype=AR_REST;
				i+=3; 
			}
			else if(!strnicmp(str+i,"LEVEL",5)) {
				artype=AR_LEVEL;
				i+=4; 
			}
			else if(!strnicmp(str+i,"TLEFT",5)) {
				artype=AR_TLEFT;
				i+=4; 
			}
			else if(!strnicmp(str+i,"TUSED",5)) {
				artype=AR_TUSED;
				i+=4; 
			}
			else if(!strnicmp(str+i,"LOCAL",5)) {
				artype=AR_LOCAL;
				i+=4; 
			}
			else if(!strnicmp(str+i,"GROUP",5)) {
				artype=AR_GROUP;
				i+=4; 
			}
			else if(!strnicmp(str+i,"EXPIRE",6)) {
				artype=AR_EXPIRE;
				i+=5; 
			}
			else if(!strnicmp(str+i,"ACTIVE",6)) {
				artype=AR_ACTIVE;
				i+=5; 
			}
			else if(!strnicmp(str+i,"INACTIVE",8)) {
				artype=AR_INACTIVE;
				i+=7; 
			}
			else if(!strnicmp(str+i,"DELETED",7)) {
				artype=AR_DELETED;
				i+=6; 
			}
			else if(!strnicmp(str+i,"EXPERT",6)) {
				artype=AR_EXPERT;
				i+=5; 
			}
			else if(!strnicmp(str+i,"SYSOP",5)) {
				artype=AR_SYSOP;
				i+=4; 
			}
			else if(!strnicmp(str+i,"GUEST",5)) {
				artype=AR_GUEST;
				i+=4; 
			}
			else if(!strnicmp(str+i,"QNODE",5)) {
				artype=AR_QNODE;
				i+=4; 
			}
			else if(!strnicmp(str+i,"QUIET",5)) {
				artype=AR_QUIET;
				i+=4; 
			}
			else if(!strnicmp(str+i,"EXEMPT",6)) {
				artype=AR_EXEMPT;
				i+=5; 
			}
			else if(!strnicmp(str+i,"RANDOM",6)) {
				artype=AR_RANDOM;
				i+=5; 
			}
			else if(!strnicmp(str+i,"LASTON",6)) {
				artype=AR_LASTON;
				i+=5; 
			}
			else if(!strnicmp(str+i,"LOGONS",6)) {
				artype=AR_LOGONS;
				i+=5; 
			}
			else if(!strnicmp(str+i,"CREDIT",6)) {
				artype=AR_CREDIT;
				i+=5; 
			}
			else if(!strnicmp(str+i,"MAIN_CMDS",9)) {
				artype=AR_MAIN_CMDS;
				i+=8; 
			}
			else if(!strnicmp(str+i,"FILE_CMDS",9)) {
				artype=AR_FILE_CMDS;
				i+=8; 
			}
			else if(!strnicmp(str+i,"SHELL",5)) {
				artype=AR_SHELL;
				i+=4; 
			}

			if(n!=i)		/* one of the above */
			{
				arg_expected=TRUE;
				switch(artype) {
					case AR_RIP:
					case AR_WIP:
					case AR_ANSI:
					case AR_DOS:
					case AR_OS2:
					case AR_UNIX:
					case AR_LINUX:
					case AR_WIN32:
					case AR_LOCAL:
					case AR_ACTIVE:
					case AR_INACTIVE:
					case AR_DELETED:
					case AR_EXPERT:
					case AR_SYSOP:
					case AR_GUEST:
					case AR_QNODE:
					case AR_QUIET:
						/* Boolean (No arguments) */
						if(not)
							ar[j++]=AR_NOT;
						not=0;
						ar[j++]=artype;
						artype=AR_INVALID;
						arg_expected=FALSE;
						break;
				}
				continue; 
			}
		}
		if(not)
			ar[j++]=AR_NOT;
		if(equal && !ar_string_arg(artype))
			ar[j++]=AR_EQUAL;
		not=equal=0;

		if(artype==AR_FLAG1 && isdigit(str[i])) {   /* flag set specified */
			switch(str[i]) {
				case '2':
					artype=AR_FLAG2;
					break;
				case '3':
					artype=AR_FLAG3;
					break;
				case '4':
					artype=AR_FLAG4;
					break; 
			}
			continue; 
		}

		arg_expected=FALSE;

		if(artype==AR_SUB && !isdigit(str[i]))
			artype=AR_SUBCODE;
		if(artype==AR_DIR && !isdigit(str[i]))
			artype=AR_DIRCODE;

		if(artype==AR_INVALID)
			artype=AR_LEVEL;
		ar[j++]=artype;
		if(isdigit(str[i]) && !ar_string_arg(artype)) {
			if(artype==AR_TIME) {
				n=atoi(str+i)*60;
				p=strchr(str+i,':');
				if(p)
					n+=atoi(p+1);
				*((short *)(ar+j))=n;
				j+=2;
				while(isdigit(str[i+1]) || str[i+1]==':') i++;
				continue; 
			}
			n=atoi(str+i);
			switch(artype) {
				case AR_DAY:
					if(n>6)     /* not past saturday */
						n=6;
				case AR_AGE:    /* byte operands */
				case AR_PCR:
				case AR_UDR:
				case AR_UDFR:
				case AR_NODE:
				case AR_LEVEL:
				case AR_TLEFT:
				case AR_TUSED:
					ar[j++]=n;
					break;
				case AR_BPS:    /* int operands */
					if(n<300)
						n*=100;
				case AR_MAIN_CMDS:
				case AR_FILE_CMDS:
				case AR_EXPIRE:
				case AR_CREDIT:
				case AR_USER:
				case AR_RANDOM:
				case AR_LASTON:
				case AR_LOGONS:
				case AR_ULS:
				case AR_ULK:
				case AR_ULM:
				case AR_DLS:
				case AR_DLK:
				case AR_DLM:
					*((short *)(ar+j))=n;
					j+=sizeof(short);
					break;
				case AR_GROUP:
				case AR_LIB:
				case AR_DIR:
				case AR_SUB:
					if(n) n--;              /* convert to 0 base */
					*((short *)(ar+j))=n;
					j+=2;
					break;
				default:                    /* invalid numeric AR type */
					j--;
					break; 
			}
			while(isdigit(str[i+1])) i++;
			continue; 
		}
		maxlen=128;
		switch(artype) {
			case AR_SUBCODE:
			case AR_DIRCODE:
			case AR_SHELL:
				maxlen=LEN_EXTCODE;
			case AR_PROT:
			case AR_HOST:
			case AR_IP:
				/* String argument */
				for(n=0;n<maxlen
					&& str[i]
					&& str[i]!=' '
					&& str[i]!='('
					&& str[i]!=')'
					&& str[i]!='='
					&& str[i]!='|'
					&& str[i]!='&'
					;n++)
					ar[j++]=toupper(str[i++]);
				ar[j++]=0;
				i--;
				break;
			case AR_FLAG1:
			case AR_FLAG2:
			case AR_FLAG3:
			case AR_FLAG4:
			case AR_EXEMPT:
			case AR_SEX:
			case AR_REST:
				ar[j++]=toupper(str[i]);
				break;
			case AR_SUB:
				for(n=0;n<(uint)cfg->total_subs;n++)
					if(!strnicmp(str+i,cfg->sub[n]->code,strlen(cfg->sub[n]->code)))
						break;
				if(n<(uint)cfg->total_subs) {
					*((short *)(ar+j))=n;
					j+=2; 
				}
				else        /* Unknown sub-board */
					j--;
				while(isalpha(str[i+1])) i++;
				break;
			case AR_DIR:
				for(n=0;n<(uint)cfg->total_dirs;n++)
					if(!strnicmp(str+i,cfg->dir[n]->code,strlen(cfg->dir[n]->code)))
						break;
				if(n<(uint)cfg->total_dirs) {
					*((short *)(ar+j))=n;
					j+=2; 
				}
				else        /* Unknown directory */
					j--;
				while(isalpha(str[i+1])) i++;
				break;
			case AR_DAY:
				if(toupper(str[i])=='S' 
					&& toupper(str[i+1])=='U')				/* Sunday */
					ar[j++]=0;
				else if(toupper(str[i])=='M')               /* Monday */
					ar[j++]=1;
				else if(toupper(str[i])=='T' 
					&& toupper(str[i+1])=='U')				/* Tuesday */
					ar[j++]=2;
				else if(toupper(str[i])=='W')               /* Wednesday */
					ar[j++]=3;
				else if(toupper(str[i])=='T' 
					&& toupper(str[i+1])=='H')				/* Thursday */
					ar[j++]=4;
				else if(toupper(str[i])=='F')               /* Friday */
					ar[j++]=5;
				else ar[j++]=6;                             /* Saturday */
				while(isalpha(str[i+1])) i++;
				break;
			default:	/* Badly formed ARS, digit expected */
				j--;
				break;
		} 
	}
	if(!j)
		return((uchar*)nular);	/* Save memory */

	ar[j++]=AR_NULL;
	/** DEBUG stuff
	for(i=0;i<j;i++)
		lprintf(LOG_DEBUG,"%02X ",(uint)ar[i]);
	lputs("\r\n");
	***/
	if((ar_buf=(uchar *)calloc(j+4,1))==NULL)	/* Padded for ushort dereferencing */
		return(NULL);
	memcpy(ar_buf,ar,j);
	if(count)
		(*count)=j;
	return(ar_buf);
}

#ifdef ARS_VERIFY	/* Verification for arstr() */

char *decompile_ars(uchar *ars, int len)
{
	static char	buf[1024];
	char	*out;
	uchar	*in;
	uint	n;
	int		equals=0;
	int		not=0;

	out=buf;
	buf[0]=0;
	for(in=ars;in<ars+len;in++) {
		switch(*in) {
			case AR_NULL:
				break;
			case AR_OR:
				*(out++)='|';
				
				break;
			case AR_NOT:
				not=1;
				break;
			case AR_EQUAL:
				equals=1;
				break;
			case AR_BEGNEST:
				if(not)
					*(out++)='!';
				not=0;
				*(out++)='(';
				
				break;
			case AR_ENDNEST:
				*(out++)=')';
				
				break;
			case AR_LEVEL:
				*(out++)='$';
				*(out++)='L';
				
				break;
			case AR_AGE:
				*(out++)='$';
				*(out++)='A';
				
				break;
			case AR_BPS:
				*(out++)='$';
				*(out++)='B';
				
				break;
			case AR_NODE:
				*(out++)='$';
				*(out++)='N';
				
				break;
			case AR_TLEFT:
				*(out++)='$';
				*(out++)='R';
				
				break;
			case AR_TUSED:
				*(out++)='$';
				*(out++)='O';
				
				break;
			case AR_USER:
				*(out++)='$';
				*(out++)='U';
				
				break;
			case AR_TIME:
				*(out++)='$';
				*(out++)='T';
				
				break;
			case AR_PCR:
				*(out++)='$';
				*(out++)='P';
				
				break;
			case AR_FLAG1:
				*(out++)='$';
				*(out++)='F';
				*(out++)='1';
				
				break;
			case AR_FLAG2:
				*(out++)='$';
				*(out++)='F';
				*(out++)='2';
				
				break;
			case AR_FLAG3:
				*(out++)='$';
				*(out++)='F';
				*(out++)='3';
				
				break;
			case AR_FLAG4:
				*(out++)='$';
				*(out++)='F';
				*(out++)='4';
				
				break;
			case AR_EXEMPT:
				*(out++)='$';
				*(out++)='X';
				
				break;
			case AR_REST:
				*(out++)='$';
				*(out++)='Z';
				
				break;
			case AR_SEX:
				*(out++)='$';
				*(out++)='S';
				
				break;
			case AR_UDR:
				*(out++)='$';
				*(out++)='K';
				
				break;
			case AR_UDFR:
				*(out++)='$';
				*(out++)='D';
				
				break;
			case AR_EXPIRE:
				*(out++)='$';
				*(out++)='E';
				
				break;
			case AR_CREDIT:
				*(out++)='$';
				*(out++)='C';
				
				break;
			case AR_DAY:
				*(out++)='$';
				*(out++)='W';
				
				break;
			case AR_ANSI:
				if(not)
					*(out++)='!';
				not=0;
				*(out++)='$';
				*(out++)='[';
				
				break;
			case AR_RIP:
				if(not)
					*(out++)='!';
				not=0;
				*(out++)='$';
				*(out++)='*';
				
				break;
			case AR_LOCAL:
				if(not)
					*(out++)='!';
				not=0;
				*(out++)='$';
				*(out++)='G';
				
				break;
			case AR_GROUP:
				*(out++)='$';
				*(out++)='M';
				
				break;
			case AR_SUB:
				*(out++)='$';
				*(out++)='H';
				
				break;
			case AR_LIB:
				*(out++)='$';
				*(out++)='I';
				
				break;
			case AR_DIR:
				*(out++)='$';
				*(out++)='J';
				
				break;
			case AR_EXPERT :
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"EXPERT");
				out=strchr(out,0);
				
				break;
			case AR_SYSOP:
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"SYSOP");
				out=strchr(out,0);
				
				break;
			case AR_QUIET:
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"QUIET");
				out=strchr(out,0);
				
				break;
			case AR_MAIN_CMDS:
				*out=0;
				strcat(out,"MAIN_CMDS");
				out=strchr(out,0);
				
				break;
			case AR_FILE_CMDS:
				*out=0;
				strcat(out,"FILE_CMDS");
				out=strchr(out,0);
				
				break;
			case AR_RANDOM:
				*(out++)='$';
				*(out++)='Q';
				
				break;
			case AR_LASTON:
				*(out++)='$';
				*(out++)='Y';
				
				break;
			case AR_LOGONS:
				*(out++)='$';
				*(out++)='V';
				
				break;
			case AR_WIP:
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"WIP");
				out=strchr(out,0);
				
				break;
			case AR_SUBCODE:
				*out=0;
				strcat(out,"SUB ");
				out=strchr(out,0);
				
				break;
			case AR_DIRCODE:
				*out=0;
				strcat(out,"DIR ");
				out=strchr(out,0);
				
				break;
			case AR_OS2:
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"OS2");
				out=strchr(out,0);
				
				break;
			case AR_DOS:
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"DOS");
				out=strchr(out,0);
				
				break;
			case AR_WIN32:
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"WIN32");
				out=strchr(out,0);
				
				break;
			case AR_UNIX:
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"UNIX");
				out=strchr(out,0);
				
				break;
			case AR_LINUX :
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"LINUX");
				out=strchr(out,0);
				
				break;
			case AR_SHELL:
				*out=0;
				strcat(out,"SHELL ");
				out=strchr(out,0);
				
				break;
			case AR_PROT:
				*out=0;
				strcat(out,"PROT ");
				out=strchr(out,0);
				
				break;
			case AR_HOST:
				*out=0;
				strcat(out,"HOST ");
				out=strchr(out,0);
				
				break;
			case AR_IP:
				*out=0;
				strcat(out,"IP ");
				out=strchr(out,0);
				
				break;
			case AR_GUEST:
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"GUEST");
				out=strchr(out,0);
				
				break;
			case AR_QNODE:
				if(not)
					*(out++)='!';
				not=0;
				*out=0;
				strcat(out,"QNODE");
				out=strchr(out,0);
				
				break;
			default:
				printf("Error decoding AR: %02Xh, offset: %u\n", *in, in-ars);
				return("Unknown ARS String");
		}
		switch(*in) {
			case AR_TIME:
				if(not)
					*(out++)='!';
				if(equals)
					*(out++)='=';
				not=equals=0;
				in++;
				n=*((short *)in);
				in++;
				out+=sprintf(out,"%02d:%02d",n/60,n%60);
				break;
			case AR_AGE:    /* byte operands */
			case AR_PCR:
			case AR_UDR:
			case AR_UDFR:
			case AR_NODE:
			case AR_LEVEL:
			case AR_TLEFT:
			case AR_TUSED:
				if(not)
					*(out++)='!';
				if(equals)
					*(out++)='=';
				not=equals=0;
				in++;
				out+=sprintf(out,"%d",*in);
				break;
			case AR_BPS:    /* int operands */
			case AR_MAIN_CMDS:
			case AR_FILE_CMDS:
			case AR_EXPIRE:
			case AR_CREDIT:
			case AR_USER:
			case AR_RANDOM:
			case AR_LASTON:
			case AR_LOGONS:
				if(not)
					*(out++)='!';
				if(equals)
					*(out++)='=';
				not=equals=0;
				in++;
    			n=*((short *)in);
				in++;
				out+=sprintf(out,"%d",n);
    			break;
			case AR_GROUP:
			case AR_LIB:
			case AR_DIR:
			case AR_SUB:
				if(not)
					*(out++)='!';
				if(equals)
					*(out++)='=';
				not=equals=0;
				in++;
    			n=*((short *)in);
				n++;              /* convert from to 0 base */
				in++;
				out+=sprintf(out,"%d",n);
    			break;
			case AR_SUBCODE:
			case AR_DIRCODE:
			case AR_SHELL:
			case AR_PROT:
			case AR_HOST:
			case AR_IP:
				if(not)
					*(out++)='!';
				if(equals)
					*(out++)='=';
				not=equals=0;
				in++;
				n=sprintf(out,"%s ",in);
				out+=n;
				in+=n-1;
				break;
			case AR_FLAG1:
			case AR_FLAG2:
			case AR_FLAG3:
			case AR_FLAG4:
			case AR_EXEMPT:
			case AR_SEX:
			case AR_REST:
				if(not)
					*(out++)='!';
				if(equals)
					*(out++)='=';
				not=equals=0;
				in++;
				*(out++)=*in;
				break;
		}
	}
	*out=0;
	return(buf);
}

void main(void)
{
	char*	example[] =
	{
		 "LEVEL 60"
		,"LEVEL60"
		,"$L60"
		,"60"
		,"NOT LEVEL 60"
		,"LEVEL NOT 60"
		,"LEVEL !60"
		,"$L!60"
		,"!60"
		,"LEVEL EQUAL 60"
		,"LEVEL EQUALS 60"
		,"LEVEL EQUAL TO 60"
		,"LEVEL = 60"
		,"LEVEL=60"
		,"=60"
		,"LEVEL 60 AND FLAG 1A"
		,"LEVEL 60 FLAG 1A"
		,"LEVEL 60 AND FLAG A"
		,"LEVEL 60 AND FLAG1 A"
		,"LEVEL 60 AND FLAG 1 A"
		,"LEVEL 60 AND FLAG1A"
		,"LEVEL 60 & $F A"
		,"$L60 AND $FA"
		,"$L60$FA"
		,"60$FA"
		,"SEX F OR LEVEL 90"
		,"SEX F | LEVEL 90"
		,"SEXF|LEVEL90"
		,"$SF | $L90"
		,"$SF|$L90"
		,"USER NOT EQUAL TO 20"
		,"$U!=20"
		,"BPS 9600 OR NOT TIME 19:00"
		,"BPS 9600 OR NOT TIME 19"
		,"BPS 96 OR NOT TIME 19"
		,"$B 9600 OR NOT $T19"
		,"BPS9600|!TIME19"
		,"$B96|!$T19"
		,"BPS 9600 OR TIME NOT 18:00 OR TIME 21:30"
		,"BPS 9600 OR TIME NOT 18:00 OR 21:30"
		,"$B 9600 OR NOT $T 18 OR 21:30"
		,"$B96|$T!18|21:30"
		,"FLAG A OR FLAG B OR FLAG C OR LEVEL 90"
		,"FLAG A OR B OR C OR LEVEL 90"
		,"FLAG A|B|C OR LEVEL 90"
		,"$FA|B|C|$L90"
		,"USER EQUALS 145 OR LEVEL 90"
		,"USER=145 OR LEVEL 90"
		,"$U=145|$L90"
		,"LEVEL 60 AND FLAG X AND FLAG Y AND FLAG Z"
		,"LEVEL 60 AND FLAG X AND Y AND Z"
		,"LEVEL 60 AND FLAG X Y Z"
		,"LEVEL 60 FLAG XYZ"
		,"LEVEL60 FLAGXYZ"
		,"$L60 $FXYZ"
		,"60$FXYZ"
		,"FLAG 2A OR FLAG 2B OR FLAG 4Z"
		,"FLAG 2A OR B OR FLAG 4Z"
		,"FLAG 2A OR FLAG B OR FLAG 4Z"		/* not the same as above and below */
		,"FLAG2A|B OR FLAG4Z"
		,"$F2A|B|$F4Z"
		,"NOT FLAG 2G"
		,"FLAG NOT 2G"
		,"FLAG 2 NOT G"
		,"!$F2G"
		,"$F!2G"
		,"$F2!G"
		,"BPS 9600 OR (BPS 2400 AND TIME NOT 15:00)"
		,"$B9600|($B2400$T!15)"
		,"(SEX M AND AGE 21) OR (SEX F AND AGE 18)"
		,"($SM$A21)|($SF$A18)"
		,"AGE 21 OR (SEX F AND AGE 18)"
		,"(BPS 2400 AND PCR 20) OR LEVEL 90"
		,"(BPS 2400 AND PCR 20) OR 90"
		,"($B 2400 $P 20) | $L 90"
		,"($B2400$P20)|$L90"
		,"NOT (USER=1 OR USER=20)"
		,"NOT USER=1 AND NOT USER=20"
		,"LEVEL 90 OR (TIME 12:00 AND TIME NOT 18:00)"
		,"(TIME 12:00 AND TIME NOT 18:00) OR LEVEL 90"
		,"(TIME 12:00 AND NOT 18:00) OR LEVEL 90"
		,"($T12!18)|90"
		,"PROT NOTIFY"
		,"PROT NOT IFY"
		,"PROT NOT NOTIFY"
		,"NOT PROT NOTIFY"
		,"HOST NOT SEXY"
		,"HOST !*.YAHOO.COM"
		,"FLAGA SEXY"
		,"FLAGA SEX Y"
		,"FLAGA AND SEX Y"
		,"FLAG SEXY"
		,"FLAG SEX2Y"
		,"FLAG 2 SEXY"
		,"FLAG2SEXY"
		,"FLAG2ASEXY"
		,"IP192.168.1.*"
		,"HOST!=LOCALHOST&IP!=127.0.0.1"
		/* terminator */
		,NULL
	};
	int		i,j;
	uchar*	ar;
	ushort	cnt;

	for(i=0;example[i]!=NULL;i++) {
		printf("Example   : %s\n", example[i]);
		ar=arstr(&cnt, example[i], NULL);
		printf("Compiled  : ");
		for(j=0;j<cnt;j++)
			printf("%02X ",ar[j]);
		printf("\n");
		printf("Decompiled: %s\n\n", decompile_ars(ar,cnt));
	}
}

#endif
