agd-cvs — Mailing list for CVS commits.

[agd-cvs] server/src compile_options.h,1.13,1.14

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7373

Modified Files:
	compile_options.h 
Log Message:
Minor changes in wording.

Index: compile_options.h
===================================================================
RCS file: /cvsroot/agd/server/src/compile_options.h,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- compile_options.h	1 Apr 2004 19:17:14 -0000	1.13
+++ compile_options.h	7 Jun 2004 15:38:15 -0000	1.14
@@ -22,11 +22,12 @@
 /* What file will the driver fall back to if no
    config file is supplied as an argument. 
    Change this only if you don't have root
-   access and can't do 'make install'. */
+   access and can't do 'make install'
+   (or if your default config is located somewhere
+   else than /usr/share/agd, of course). */
 #define DEFAULT_CONFIG_FILE "/usr/share/agd/options"
 
-/* How many sockets are listening for connections.
-   (how many simultaneous connection requests we can handle) */
+/* How many simultaneous connection requests the driver can handle. */
 #define NET_BACKLOG 3
 
 /* The size of the receive buffer - how long strings

[agd-cvs] server/src compile.c,1.21,1.22 compile.h,1.12,1.13

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6920

Modified Files:
	compile.c compile.h 
Log Message:
* Fixed included headers
* Renamed curr_f to curr_fun
* New compiler, no need for block_history etc
* Changed the define_id system somewhat (to work with the new compiler)
* New operator operand-checking system
* Removed uses of array_t



Index: compile.h
===================================================================
RCS file: /cvsroot/agd/server/src/compile.h,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- compile.h	1 Apr 2004 19:17:14 -0000	1.12
+++ compile.h	7 Jun 2004 15:37:55 -0000	1.13
@@ -16,30 +16,28 @@
 	int type;
 	int lpc_type; /* The datatype of the id. Return type for functions. */
 	int has_been_called;
-	array_t *args; /* For ID_FUN_PROT and ID_FUN */
+
+	int *args; /*For ID_FUN_PROT and ID_FUN*/
+	int numarg;
 } def_id_t;
-void define_id(char *name, int type, int lpc_type, array_t *args);
+
+def_id_t *define_id(char *name, int type, int lpc_type, int *args, int numarg);
 def_id_t *find_id(char *name);
 
 typedef struct {
-	int side_effect, lval;
+	int side_effect;
 	int type, direct_type;
-	array_t arr;
 } expr_t;
 
 int check_operand(int operator, int opr1, int opr2);
 
 int get_fun_index(object_t *ob, char *fun);
-void add_variable(array_t *vars, int scope);
-void add_function(def_id_t *idp, int lineno, array_t *code);
+void add_function(def_id_t *idp, int lineno/*, int **code, int codelen*/);
+void add_token(long int t);
+void add_two_tokens(long int t1, long int t2);
+def_id_t *add_variable(char *name, int lpc_type, int type);
 
 void redeclaration_error(def_id_t *id, int new_type);
-int compare_args(array_t *arg1, array_t *arg2);
-
-void new_block_level(void);
-array_t add_block(array_t *stmt);
-void end_block_level(void);
-
 
 /* Warnings and errors. */
 extern int compile_errors, compile_warnings;

Index: compile.c
===================================================================
RCS file: /cvsroot/agd/server/src/compile.c,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- compile.c	3 Apr 2004 20:20:11 -0000	1.21
+++ compile.c	7 Jun 2004 15:37:55 -0000	1.22
@@ -1,19 +1,24 @@
+#include <stdlib.h>
 #include <stdio.h>
 #include <errno.h>
-#include "sys.h"
+#include <sys/time.h>
+#include <time.h>
+
+#include "config.h"
 #include "compile_options.h"
-#include "array.h"
+
+#include "sys.h"
 #include "lpc.h"
+#include "list.h"
 #include "object.h"
 #include "compile.h"
-#include "net.h"
-#include "interpret.h"
+#include "instr.h"
 #include "lang.h"
 
 extern object_t *this_ob;
 
-static program_t *this_prog;
-static function_t *curr_f; /* TODO: rename to curr_fun. */
+program_t *this_prog;
+function_t *curr_fun;
 static char *this_file;
 
 int compile_errors, compile_warnings;
@@ -22,10 +27,11 @@
 int scope_level;
 int numlvars, numgvars,
     numdfuns, numlfuns;
-array_t local_ids, global_ids;
-
-static array_t *curr_block;
-static array_t block_history;
+/* These are arrays to pointers. realloc might
+ * move the memory segments, and we have
+ * pointers to this memory - that would get corrupted. */
+def_id_t **local_ids, **global_ids;
+int num_local_ids, num_global_ids;
 
 #if YYDEBUG
 extern int yydebug;
@@ -36,15 +42,26 @@
 extern FILE *yyin;
 
 /* define_id functions. */
-void define_id(char *name, int type, int lpc_type, array_t *args)
+def_id_t *define_id(char *name, int type, int lpc_type, int *args, int numarg)
 {
 	def_id_t *idp;
-	idp = type_xmalloc(def_id_t);
-	memset(idp, 0, sizeof(def_id_t));
-	idp->name = name;
+
+	idp = xmalloc(sizeof(def_id_t));
+	if(type == ID_DFUN) {
+		num_global_ids++;
+		global_ids = xrealloc(global_ids, num_global_ids * sizeof(def_id_t*));
+		global_ids[num_global_ids - 1] = idp;
+	} else {
+		num_local_ids++;
+		local_ids = xrealloc(local_ids, num_local_ids * sizeof(def_id_t*));
+		local_ids[num_local_ids - 1] = idp;
+	}
+	
+	idp->name = stringdup(name);
 	idp->type = type;
 	idp->lpc_type = lpc_type;
 	idp->args = args;
+	idp->numarg = numarg;
 	idp->base_scope = scope_level;
 	switch(type) {
 		case ID_ARG:
@@ -70,190 +87,131 @@
 #ifdef DEBUG
 	debug("define_id", "%s base_scope %d index %d\n", idp->name, idp->base_scope, idp->index);
 #endif
-			
-	if(type == ID_DFUN)
-		array_push(&global_ids, idp);
-	else
-		array_push(&local_ids, idp);
+
+	return idp;
 }
 
-/* Binary search! */
 def_id_t *find_id(char *name)
 {
-	int i;
 	def_id_t *idp;
+	int i;
 	
 	/* First search in local_ids. */
-	for(i=0;i<local_ids.length;i++) {
-		idp = local_ids.data[i];
+	for(i=0;i<num_local_ids;i++) {
+		idp = local_ids[i];
+		if(idp->base_scope == -1) {
+			continue;
+		}
 		if(!strcmp(name, idp->name))
 			return idp;
 	}
 
 	/* Then global_ids. */
-	for(i=0;i<global_ids.length;i++) {
-		idp = global_ids.data[i];
+	for(i=0;i<num_global_ids;i++) {
+		idp = global_ids[i];
+		if(idp->base_scope == -1) {
+			continue;
+		}
 		if(!strcmp(name, idp->name))
 			return idp;
 	}
-
 	return NULL;
 }
 
-void free_id(void *p)
-{
-	def_id_t *id = p;
-/*	xfree(id->name);*/
-	if(id->args)
-		xfree(id->args);
-}
-
 void pop_scope()
 {
 	int i;
 	scope_level--;
-	for(i=0;i<local_ids.length;i++) {
-		def_id_t *id = local_ids.data[i];
-		if((id->type == ID_LVAR || id->type == ID_ARG) && id->base_scope > scope_level) {
-#ifdef DEBUG
-	debug("define_id", "freed lvar %s base_scope %d scope_level %d\n", id->name, id->base_scope, scope_level);
-#endif
-/*			free_id(id);*/
-			numlvars--;
-			array_remove(&local_ids, i);
-			i--; /* Element was removed, so don't increase index. */
-		} else if(id->type == ID_GVAR && id->base_scope > scope_level) {
-/*			free_id(id);*/
-			numgvars--;
-			array_remove(&local_ids, i);
-			i--;
+	for(i=0;i<num_local_ids;i++) {
+		def_id_t *id = local_ids[i];
+		if(id->base_scope > scope_level) {
+/*			if(id->type == ID_LVAR || id->type == ID_ARG) { }
+			else if(id->type == ID_GVAR) { }*/
+			id->base_scope = -1; /* Temporary hack until identifiers use hash tables. */
+			xfree(id->name);
+			if(id->args)
+				xfree(id->args);
 		}
 	}
 }
 
 /* Operator argument checking functions and definitions. */
 typedef struct {
-	int valid[4];
+	/* int, string, object, array */
 	char *name;
 	int num_operand;
 	int both_same_type; /* For binary operators - must both operands 
 			       be of the same type? */
+	int valid_types;
 } operator_t;
-static operator_t operator_table[F_HIGHEST-F_ADD];
+#define TYPE_INT 1
+#define TYPE_STRING 2
+#define TYPE_OBJECT 4
+#define TYPE_ARRAY 8
 
-#define SET_OPERATOR(op_name, num, bothsame, int_valid, str_valid, ob_valid) \
-	operator_table[i].name = op_name;\
-	operator_table[i].num_operand = num;\
-	operator_table[i].both_same_type = bothsame;\
-	operator_table[i].valid[0] = int_valid;\
-	operator_table[i].valid[1] = str_valid;\
-	operator_table[i].valid[3] = ob_valid
+#define TYPE_IS TYPE_INT|TYPE_STRING
+#define TYPE_ISA TYPE_IS|TYPE_ARRAY
+#define TYPE_ALL TYPE_ISA|TYPE_OBJECT
 
-void generate_operator_table(void)
+/* Make sure these are always in the same order as in instr.h */
+static operator_t operator_table[] = {
+	{"+", 2, 0, TYPE_ISA},
+	{"+=", 2, 0, TYPE_ISA},
+	{"-", 2, 1, TYPE_INT|TYPE_ARRAY},
+	{"-=", 2, 1, TYPE_INT|TYPE_ARRAY},
+	{"*", 2, 1, TYPE_INT},
+	{"*=", 2, 1, TYPE_INT},
+	{"/", 2, 1, TYPE_INT},
+	{"/=", 2, 0, TYPE_INT},
+	{"%", 2, 1, TYPE_INT},
+	{"%=", 2, 1, TYPE_INT},
+	{"**", 2, 1, TYPE_INT},
+	{"**=", 2, 1, TYPE_INT},
+	{"!", 1, 0, TYPE_ALL},
+	{"==", 2, 1, TYPE_ALL},
+	{"!=", 2, 1, TYPE_ALL},
+	{">", 2, 1, TYPE_IS},
+	{">=", 2, 1, TYPE_IS},
+	{"<", 2, 1, TYPE_IS},
+	{"<=", 2, 1, TYPE_IS},
+	{"minus", 1, 0, TYPE_INT},
+	{"&&", 2, 0, TYPE_ALL},
+	{"||", 2, 0, TYPE_ALL},
+	{"postfix increment", 1, 0, TYPE_INT},
+	{"prefix increment", 1, 0, TYPE_INT},
+	{"postfix decrement", 1, 0, TYPE_INT},
+	{"prefix decrement", 1, 0, TYPE_INT},
+	{"..", 1, 0, TYPE_STRING|TYPE_ARRAY}
+};
+
+int is_operand_valid(int operand, operator_t *op)
 {
-	int i;
-	for(i=0;i<=F_HIGHEST;i++) {
-		/* 4 - T_INT, T_STRING, T_VOID(unused), T_OBJECT */
-		switch(i + F_ADD) {
-		case F_ADD:
-			SET_OPERATOR("+", 2, 0, 1, 1, 0);
-			break;
-		case F_ADDA:
-			SET_OPERATOR("+=", 2, 0, 1, 1, 0);
-			break;
-		case F_GT:
-			SET_OPERATOR(">", 2, 1, 1, 1, 0);
-			break;
-		case F_GE:
-			SET_OPERATOR(">=", 2, 1, 1, 1, 0);
-			break;
-		case F_LT:
-			SET_OPERATOR("<", 2, 1, 1, 1, 0);
-			break;
-		case F_LE:
-			SET_OPERATOR("<=", 2, 1, 1, 1, 0);
-			break;
-		case F_MUL:
-			SET_OPERATOR("*", 2, 1, 1, 0, 0);
-			break;
-		case F_MULA:
-			SET_OPERATOR("*=", 2, 0, 1, 0, 0);
-			break;
-		case F_DIV:
-			SET_OPERATOR("/", 2, 1, 1, 0, 0);
-			break;
-		case F_DIVA:
-			SET_OPERATOR("/=", 2, 0, 1, 0, 0);
-			break;
-		case F_MOD:
-			SET_OPERATOR("%", 2, 1, 1, 0, 0);
-			break;
-		case F_MODA:
-			SET_OPERATOR("%=", 2, 0, 1, 0, 0);
-			break;
-		case F_SUB:
-			SET_OPERATOR("-", 2, 1, 1, 0, 0);
-			break;
-		case F_SUBA:
-			SET_OPERATOR("-=", 2, 0, 1, 0, 0);
-			break;
-		case F_POSTINC:
-			SET_OPERATOR("postfix increment",
-				     1, 0, 1, 0, 0);
-			break;
-		case F_POSTDEC:
-			SET_OPERATOR("postfix decrement",
-				     1, 0, 1, 0, 0);
-			break;
-		case F_PREINC:
-			SET_OPERATOR("prefix increment",
-				     1, 0, 1, 0, 0);
-			break;
-		case F_PREDEC:
-			SET_OPERATOR("prefix decrement",
-				     1, 0, 1, 0, 0);
-			break;
-		case F_NEG:
-			SET_OPERATOR("minus", 1, 0, 1, 0, 0);
-			break;
-		case F_NOT:
-			SET_OPERATOR("!", 1, 0, 1, 1, 1);
-			break;
-		case F_EQ:
-			SET_OPERATOR("==", 2, 1, 1, 1, 1);
-			break;
-		case F_NE:
-			SET_OPERATOR("!=", 2, 1, 1, 1, 1);
-			break;
-		case F_AND:
-			SET_OPERATOR("&&", 2, 0, 1, 1, 1);
-			break;
-		case F_OR:
-			SET_OPERATOR("||", 2, 0, 1, 1, 1);
-			break;
-		case F_INDEX:
-			SET_OPERATOR("[]", 1, 0, 0, 1, 0);
-			break;
-		case F_POW:
-			SET_OPERATOR("**", 2, 1, 1, 0, 0);
-			break;
-		case F_POWE:
-			SET_OPERATOR("**=", 2, 1, 1, 0, 0);
-			break;
-		}
+	int x;
+	
+	if(operand & T_ARRAY)
+		x = TYPE_ARRAY;
+	else switch(operand) {
+		case T_INT: x = TYPE_INT; break;
+		case T_STRING: x = TYPE_STRING; break;
+		case T_OBJECT: x = TYPE_OBJECT; break;
 	}
+	
+	return op->valid_types & x;
 }
 
-/* Checks if operand is a valid operand to operator.
- * Returns 0 if it's not. */
+/* Checks if opr1 and opr2 are valid operands to operator.
+ * Returns 0 if not. */
 /* Operand 0 means don't do any checking. */
 int check_operand(int operator, int opr1, int opr2)
 {
 	int ret;
 	char buf[256]; /* Safe, since operator names
-			  are set in the code. */
+					  can't be set runtime. */
 	operator_t *op;
 
+	if(operator == F_ASSIGN)
+		return;
+
 	if(!opr1)
 		return;
 
@@ -262,20 +220,23 @@
 
 	op = &operator_table[operator-F_ADD];
 
-	if(op->valid[opr1-1] == 0 ||
+	if(!is_operand_valid(opr1, op) ||
 	   (op->num_operand == 2 && opr2
-	    && op->valid[opr2-1] == 0)
+	    && !is_operand_valid(opr2, op))
 	   || (op->both_same_type && opr1 != opr2)) {
 		switch(op->num_operand) {
-		case 1:
-			sprintf(buf, "wrong type argument to unary ");
-			break;
-		case 2:
-			sprintf(buf, "invalid operands to binary ");
-			break;
-		case 3:
-			sprintf(buf, "invalid operands to trinary ");
-			break;
+			case 1:
+				sprintf(buf, "wrong type argument to unary ");
+				break;
+			case 2:
+				sprintf(buf, "invalid operands to binary ");
+				break;
+			case 3:
+				sprintf(buf, "invalid operands to trinary ");
+				break;
+			default:
+				comp_error("invalid num_operand in check_operand()");
+				return;
 		}
 		sprintf(buf, "%s%s", buf, op->name);
 		comp_error(buf);
@@ -284,185 +245,85 @@
 	return 1;
 }
 
-/*
-int nametable_find(int type, char *name, array_t *a)
-{
-	nt_entry_t *e;
-	int high, low, i;
-	int scope = type & 0xF0;
+/* Post-compilation functions. */
 
-	low = -1;
-	high = a->length;
-		
-	while(high-low > 1) {
-		int result;
-		
-		i = (high + low) / 2;
-		e = a->data[i];
-		
-		result = strcmp(name, e->name);
-		if(result == 0 && (e->type & 0xF0) == scope)
-			return e->index;
-		else if(result < 0)
-			high = i;
-		else
-			low  = i;
-	}
-	
-	if(high + 1 >= a->length) {
-		return -1;
-	}
-	
-	e = a->data[high+1];
-	if (strcmp(name, e->name) == 0) {
-		return e->index;
-	} else {
-		return -1;
+void curr_fun_check(void)
+{
+	if(!curr_fun) {
+		curr_fun = xmalloc(sizeof(function_t));
+		curr_fun->codelen = 0;
+		curr_fun->code = NULL;
 	}
 }
-*/
-
-
-/* Post-compilation functions. */
 
-#define curr_f_check() if(!curr_f) { \
-	curr_f = type_xmalloc(function_t); \
-	init_array(&curr_f->code); }
-
-void add_function(def_id_t *idp, int lineno, array_t *code)
+void add_function(def_id_t *idp, int lineno/*, long int *code, int codelen*/)
 {
-	if(idp->index < this_prog->functions.length) {
+	if(idp->index < this_prog->numfunc) {
+		/* Adding a definition for a prototype. */
 		function_t *f;
-		/* Adding definition for a prototype. */
-		f = this_prog->functions.data[idp->index];
+		f = this_prog->functions[idp->index];
 		f->type = idp->lpc_type;
-		if(idp->args)
-			f->args = *idp->args;
-		if(code)
-			f->code = *code;
+		f->args = idp->args;
+		f->numarg = idp->numarg;
+/*		f->code = code;
+		f->codelen = codelen;*/
 		f->lineno = lineno;
 	} else {
-		curr_f_check();
-		curr_f->type = idp->lpc_type;
-		if(idp->args)
-			curr_f->args = *idp->args;
-		if(code)
-			curr_f->code = *code;
-		curr_f->lineno = lineno;
-		array_push(&this_prog->functions, curr_f);
-		/* This removes the need to generate a fun_table. */
-		array_push(&this_prog->fun_table, idp->name);
-		curr_f = NULL;
-	}
-
-}
-
-void add_variable(array_t *vars, int type)
-{
-	int i, numvars, num;
-	array_t *target;
-	
-	for(i=0;i<vars->length;i++) {
-		variable_t *var = vars->data[i];
-		array_t *assign = NULL;
-		if(var->type == T_SPECIAL) {
-			/* One way to do this would be to remember all the global assignments
-			 * and later insert them into the create() function, if one is defined
-			 * in the source. */
-			type &= ~T_ARRAY;
-			if(type == ID_GVAR) {
-				comp_warning("initializing global variables unimplemented");
-			} else /* LVAR */ {
-				assign = var->u.a->data[1];
-			}
-			var = var->u.a->data[0];
-		}
+		curr_fun_check();
+		curr_fun->type = idp->lpc_type;
+		curr_fun->args = idp->args;
+/*		curr_fun->code = code;*/
+		curr_fun->lineno = lineno;
+		
+		this_prog->numfunc++;
+		this_prog->functions = xrealloc(this_prog->functions, this_prog->numfunc * sizeof(function_t *));
+		this_prog->functions[this_prog->numfunc-1] = curr_fun;
 
-		if(type == ID_GVAR) {
-			/* this_ob is set to the compiled object during compilation. */
-			array_push(&this_ob->variables, var);
-		} else /* LVAR */{
-			if(var->type & T_ARRAY)
-				array_push(curr_block, (void *) F_PUSH_VOID);
-			else switch(var->type & ~T_ARRAY) {
-				case T_INT:
-					array_push(curr_block, (void *) F_PUSH_INT);
-					if(var->u.i) {
-						printf("add_varible(): var->u.i is not 0!\n");
-					}
-					array_push(curr_block, (void *) var->u.i);
-					break;
-				case T_STRING:
-					array_push(curr_block, (void *) F_PUSH_STRING);
-					if(var->u.s) {
-						printf("add_variable(): var->u.s is not null!\n");
-					}
-					array_push(curr_block, (void *) var->u.s);
-					break;
-				case T_OBJECT:
-					array_push(curr_block, (void *) F_PUSH_NULL_OBJECT);
-					break;
-				default:
-					printf("warning: unknown type in add_variable() line %d\n", __LINE__);
-					break;
-			}
-		}
+		this_prog->fun_table = xrealloc(this_prog->fun_table, this_prog->numfunc * sizeof(char *));
+		this_prog->fun_table[this_prog->numfunc-1] = idp->name;
 		
-		define_id(var->name, type, var->type, NULL);
-	
-		/* Only for locals right now. But watch out! */
-		if(assign) {
-			def_id_t *id;
-			/* Could use numlocals, since we just defined it. */
-			id = find_id(var->name);
-			array_push(curr_block, (void *) F_PUSH_LVAR_LVALUE);
-			array_push(curr_block, (void *) id->index);
-			array_concat(curr_block, assign);
-			array_push(curr_block, (void *) F_ASSIGN);
-			array_push(curr_block, (void *) F_POP); /* Discard value off the stack. */
-		}
+		curr_fun = NULL;
 	}
 }
 
-void new_block_level(void)
-{
-	scope_level++;
-	array_push(&block_history, curr_block);
-	curr_block = type_xmalloc(array_t);
-	init_array(curr_block);
-}
-
-array_t add_block(array_t *stmt)
+void add_token(long int t)
 {
-	array_t ret;
-	array_concat(curr_block, stmt);
-	ret = *curr_block;
-	xfree(curr_block);
-	return ret;
+		curr_fun_check();
+		curr_fun->codelen++;
+		curr_fun->code = xrealloc(curr_fun->code, sizeof(long int) * curr_fun->codelen);
+		curr_fun->code[curr_fun->codelen-1] = t;
 }
 
-void end_block_level(void)
+void add_two_tokens(long int t1, long int t2)
 {
-	pop_scope();
-	block_history.length--;
-	curr_block = block_history.data[block_history.length];
-	/*block_history.data = realloc(block_history.data,
-				block_history.length);*/
+		curr_fun_check();
+		curr_fun->code = xrealloc(curr_fun->code, sizeof(long int) * (curr_fun->codelen+2));
+		curr_fun->code[curr_fun->codelen++] = t1;
+		curr_fun->code[curr_fun->codelen++] = t2;
 }
 
-int compare_args(array_t *arg1, array_t *arg2)
+def_id_t *add_variable(char *name, int lpc_type, int type)
 {
-	int i;
-	if(arg2->length > arg1->length)
-		return -2;
-	if(arg2->length < arg1->length)
-		return -1;
-	for(i=0;i<arg1->length;i++) {
-/*		if(arg != (int)arg2->data[i] && (arg->type == T_INT && arg->u.i)) {
-			return i;
-		}*/
+	if(type == ID_GVAR) {
+		variable_t *v;
+		
+		this_ob->numglobals++;
+		this_ob->globals = xrealloc(this_ob->globals, this_ob->numglobals * sizeof(variable_t));
+		v = &this_ob->globals[this_ob->numglobals-1];
+		v->name = name;
+		v->type = lpc_type;
+	} else /* LVAR */{
+		if(type & T_ARRAY) {
+			add_token(F_PUSH_ARRAY);
+			add_two_tokens(T_VOID, 0);
+		} else switch(type & ~T_ARRAY) {
+			case T_INT: add_two_tokens(F_PUSH_INT, 0); break;
+			case T_STRING: add_two_tokens(F_PUSH_STRING, 0); break;
+			case T_OBJECT: add_token(F_PUSH_NULL_OBJECT); break;
+		}
 	}
-	return 0;
+
+	return define_id(name, type, lpc_type, NULL, 0);
 }
 
 void redeclaration_error(def_id_t *id, int new_type)
@@ -495,18 +356,13 @@
 /* This does the actual formatting. */
 void display_error(char *s)
 {
-/*	char *buf;*/
 	if(start_with_newline) {
-/*		do_write("\n");*/
 		putchar('\n');
 		start_with_newline = 0;
 	}
 
-/*	buf = xmalloc(strlen(s) + 256);
-	s*/printf(/*buf, */"%s:%d:%d: %s\n", this_file,
+	printf("%s:%d:%d: %s\n", this_file,
 			yylloc.first_line, yylloc.first_column, s);
-/*	do_write(buf);
-	xfree(buf);*/
 }
 
 /* This is the function called by bison, probably with the argument "parse error"
@@ -525,18 +381,12 @@
 {
 	compile_errors = 0;
 	
-	init_array(&this_prog->functions);
-	init_array(&this_prog->fun_table);
-	init_array(&this_ob->variables);
+	this_ob->numglobals = 0;
 	
 	numlvars = numgvars = 0;
 	numdfuns = numlfuns = 0;
+	num_local_ids = 0;
 
-	/*curr_f_check();*/
-	
-	free_array(&local_ids, free_id);
-	init_array(&block_history);
-	
 	yylloc.first_line = yylloc.first_column = 1;
 	yyreset();
 }
@@ -547,12 +397,12 @@
 int check_fun_definitions(void)
 {
 	int i;
-	for(i=0;i<local_ids.length;i++) {
-		def_id_t *id = local_ids.data[i];
+	for(i=0;i<num_local_ids;i++) {
+		def_id_t *id = local_ids[i];
 		if(id->type == ID_FUN_PROT && id->has_been_called) {
 			char *buf;
 			buf = xmalloc(strlen(id->name) + 43);
-			sprintf(buf, "Function %s has been called, "
+			sprintf(buf, "function %s has been called, "
 				     "but not defined", id->name);
 			comp_error(buf);
 			xfree(buf);
@@ -589,13 +439,12 @@
 		goto out;
 	}
 
-	prog = type_xmalloc(program_t);
+	prog = xmalloc(sizeof(program_t));
 	memset(prog, 0, sizeof(program_t));
 	this_prog = prog;
 
 	parse_init();
 	this_file = path;
-/*	curr_fn = ob->name;*/
 	
 #if defined(DEBUG) && YYDEBUG
 	if(conf.debuglevel > 4) {
@@ -637,7 +486,7 @@
 	if(conf.debuglevel > 1) {
 		printf("Printing code for program %s:\n", path);
 		printf("Globals: \n");
-		print_var_arr(&this_ob->variables);
+/*		print_var_arr(&this_ob->globals);*/
 		printf("\n");
 		print_code(prog);
 	}

[agd-cvs] server/src array.c,1.12,1.13 array.h,1.6,1.7

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6773

Modified Files:
	array.c array.h 
Log Message:
Arrays now only used for LPC, nothing else; uses xrealloc

Index: array.c
===================================================================
RCS file: /cvsroot/agd/server/src/array.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- array.c	1 Apr 2004 19:17:14 -0000	1.12
+++ array.c	7 Jun 2004 15:35:52 -0000	1.13
@@ -3,6 +3,9 @@
 	- solicit '03
 	
 	changelog:
+		04.06.04 - now uses xrealloc instead of realloc
+		04.04.03 - arrays are now used only for LPC, and not for compilation
+		or anything.
 		13.12.03 - changed arrays from linked lists to pure C arrays.
 		Arrays also aren't linked lists of variable_t's anymore, this is a
 		generic data structure now.
@@ -10,19 +13,21 @@
 #include <stdlib.h>
 #include "compile_options.h"
 #include "sys.h"
+#include "lpc.h"
 #include "array.h"
 
 void init_array(array_t *a)
 {
 	a->length = 0;
+	a->ref = 0;
 	a->data = NULL;
 }
 
-void free_array(array_t *a, void (*freefun)(void *))
+void free_array(array_t *a, void (*freefun)(variable_t *))
 {
 	int i;
 	if(!freefun)
-		freefun = xfree;
+		freefun = (void(*)(variable_t*))xfree; /* free_var? */
 	for(i=0;i<a->length;i++)
 		freefun(a->data[i]);
 	if(a->length)
@@ -30,16 +35,17 @@
 	init_array(a);	
 }
 
-void array_push(array_t *a, void *data)
+void array_push(array_t *a, variable_t *data)
 {
 	if(!a)
 		return;
 
 	a->length++;
-	a->data = realloc(a->data, sizeof(void *) * a->length);
+	a->data = xrealloc(a->data, sizeof(void *) * a->length);
 	a->data[a->length-1] = data;
 }
 
+#if 0
 void array_insert(array_t *a, void *data, int index)
 {
 	int i;
@@ -59,16 +65,6 @@
 	a->data[index] = data;
 }
 
-#if 0
-void *array_pop(array_t *a)
-{
-	void *p;
-	a->length--;
-	p = a->data[a->length];
-	return p;
-}
-#endif
-
 void array_remove(array_t *a, int index)
 {
 	int i;
@@ -128,3 +124,12 @@
 	
 	return a1;
 }
+#endif
+
+void unref_array(array_t *a)
+{
+		a->ref--;
+		if(a->ref <= 0) {
+				free_array(a, NULL);
+		}
+}

Index: array.h
===================================================================
RCS file: /cvsroot/agd/server/src/array.h,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- array.h	20 Mar 2004 20:26:36 -0000	1.6
+++ array.h	7 Jun 2004 15:35:52 -0000	1.7
@@ -3,16 +3,19 @@
 
 typedef struct array_t {
 	int length;
-	void **data;
+	int ref;
+	variable_t **data;
 } array_t;
 
 void init_array(array_t *a);
-void array_push(array_t *a, void *data);
+void array_push(array_t *a, variable_t *data);
+void free_array(array_t *a, void (*freefun)(variable_t *));
+#define ref_array(a) a->ref++
+/*
 void array_insert(array_t *a, void *data, int index);
-void *array_pop(array_t *a);
 void array_remove(array_t *a, int index);
 array_t *copy_array(array_t *a, void *(*copyfun)(void *));
-void free_array(array_t *a, void (*freefun)(void *));
-array_t *array_concat(array_t *a1, array_t *a2);
+array_t *array_concat(array_t *a1, array_t *a2);*/
+
 
 #endif

[agd-cvs] server/src arch.h,1.8,1.9

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6687

Modified Files:
	arch.h 
Log Message:
OpenBSD.

Index: arch.h
===================================================================
RCS file: /cvsroot/agd/server/src/arch.h,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- arch.h	1 Apr 2004 19:17:14 -0000	1.8
+++ arch.h	7 Jun 2004 15:35:09 -0000	1.9
@@ -1,6 +1,6 @@
 #ifndef _ARCH_H
 #define _ARCH_H
-/* OpenBSD, QNX, OpenVMS/VAX, Cygwin, OS/2, BeOS? */
+/* QNX, OpenVMS/VAX, Cygwin, OS/2  */
 
 /* Operating system checks */
 #ifdef __linux
@@ -9,7 +9,6 @@
 
 #ifdef _WIN32
 #define OPSYS "Windows"
-/*#define WINSOCK*/
 #endif
 
 #ifdef __FreeBSD__
@@ -20,6 +19,10 @@
 #define OPSYS "NetBSD"
 #endif
 
+#ifdef __OpenBSD__
+#define OPSYS "OpenBSD"
+#endif
+
 #ifdef __sun__
 #define OPSYS "SunOS"
 #endif
@@ -33,7 +36,7 @@
 #endif
 
 #ifndef OPSYS
-#define OPSYS "unknown OS"
+#define OPSYS "unknownOS"
 #define ARCH_README
 #endif
 

[agd-cvs] server/src Makefile.am,1.9,1.10

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6605

Modified Files:
	Makefile.am 
Log Message:
Added -v to default AM_YFLAGS.

Index: Makefile.am
===================================================================
RCS file: /cvsroot/agd/server/src/Makefile.am,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- Makefile.am	21 Mar 2004 16:37:06 -0000	1.9
+++ Makefile.am	7 Jun 2004 15:34:54 -0000	1.10
@@ -4,7 +4,7 @@
 
 ## AM_CPPFLAGS = -I.
 ## -I$(srcdir)/dfun
-AM_YFLAGS = -d
+AM_YFLAGS = -dv
 ##AUTOMAKE_OPTIONS = subdir-objects
 EXTRA_DIST = dfparse.h lang.h
 

[agd-cvs] server/doc/dfuns asctime,1.4,1.5 write,1.1,1.2

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/doc/dfuns
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6343/dfuns

Modified Files:
	asctime write 
Log Message:
Better wording.

Index: asctime
===================================================================
RCS file: /cvsroot/agd/server/doc/dfuns/asctime,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- asctime	28 Mar 2004 18:42:29 -0000	1.4
+++ asctime	7 Jun 2004 15:33:40 -0000	1.5
@@ -1,7 +1,7 @@
 string asctime(int)
 
-Takes the integer as time from Epoch, and returns current date as a string
-based on that.
+Interprets the integer as time from the Unix Epoch (1st January, 1970),
+and returns current date as a string based on that.
 
 See also:
  time, strftime

Index: write
===================================================================
RCS file: /cvsroot/agd/server/doc/dfuns/write,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- write	15 Mar 2004 18:40:19 -0000	1.1
+++ write	7 Jun 2004 15:33:40 -0000	1.2
@@ -0,0 +1,8 @@
+void write(string);
+
+If this_player exists, writes string out to the
+player. If not, writes string out to driver's
+stdout, prefixed with "] ".
+
+See also
+  tell_object, shout

[agd-cvs] server configure.ac,1.8,1.9

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6180

Modified Files:
	configure.ac 
Log Message:
Removed useless checks, overall fixes.

Index: configure.ac
===================================================================
RCS file: /cvsroot/agd/server/configure.ac,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- configure.ac	1 Apr 2004 19:17:13 -0000	1.8
+++ configure.ac	7 Jun 2004 15:32:59 -0000	1.9
@@ -1,11 +1,11 @@
 ## Process this file with autoconf to produce a configure script.
-AC_INIT(AGD, 0.0.3, [so...@es...])
+AC_INIT(AGD, 0.0.3, [pe...@li...])
 AM_INIT_AUTOMAKE
 AC_CONFIG_SRCDIR(src/dfparse.y)
 AM_CONFIG_HEADER(src/config.h)
 AC_CONFIG_FILES([Makefile src/Makefile])
 AC_PREFIX_DEFAULT(/usr)
-AC_REVISION($revision 0.08$)
+AC_REVISION($revision 0.09$)
 
 ## Disable lex, yacc, Makefile.in rebuilds by default.
 AM_MAINTAINER_MODE
@@ -16,7 +16,7 @@
 AM_PROG_CC_C_O
 AC_PROG_YACC
 AM_PROG_LEX
-AC_PROG_AWK
+#AC_PROG_AWK
 
 CFLAGS=""
 # Checks for configure options.
@@ -40,11 +40,12 @@
     AC_MSG_RESULT([no])
 fi
 
-AC_MSG_CHECKING(whether to enable Bison debugging)
-AC_ARG_ENABLE(bison-debug,
-	      AC_HELP_STRING([--enable-bison-debug], [enable Bison debugging]), , enable_bison_debug="no")
-if test "x${enable_bison_debug}" != "xno"; then
-    YFLAGS="$YFLAGS -t"
+AC_MSG_CHECKING(whether to enable Yacc debugging)
+AC_ARG_ENABLE(yacc-debug,
+	      AC_HELP_STRING([--enable-yacc-debug], [enable Yacc debugging]), , enable_yacc_debug="no")
+if test "x${enable_yacc_debug}" != "xno"; then
+	AC_DEFINE([YYDEBUG], 1, [Yacc debug])
+#    YFLAGS="$YFLAGS -t"
     AC_MSG_RESULT([yes])
 else
     AC_MSG_RESULT([no])
@@ -66,23 +67,27 @@
 fi
 
 # Checks for libraries.
-AC_CHECK_LIB(m, floor)
+##AC_CHECK_LIB(m, floor) # This was needed by bytes_string,
+						 # which was needed by memory statistics,
+						 # which doesn't exist anymore.
 ##AC_CHECK_LIB(resolv, accept)
 AC_CHECK_LIB(nsl, gethostbyaddr)
 AC_CHECK_LIB(socket, socket)
 
 # Checks for header files.
-AC_HEADER_STDC
-AC_HEADER_DIRENT
-AC_CHECK_HEADERS([arpa/inet.h fcntl.h netinet/in.h stddef.h sys/socket.h sys/time.h unistd.h winsock.h])
+#AC_HEADER_STDC
+#AC_HEADER_DIRENT
+#AC_CHECK_HEADERS([arpa/inet.h fcntl.h netinet/in.h stddef.h sys/socket.h sys/time.h unistd.h winsock.h])
+
+AC_CHECK_HEADERS([winsock.h])
 # This is where u_int32_t is on MacOSX - needs to be included before dirent.h.
 AC_CHECK_HEADERS([machine/types.h])
 
 # Checks for typedefs, structures, and compiler characteristics.
-AC_C_CONST
+#AC_C_CONST
 AC_CHECK_TYPES([size_t, socklen_t])
-AC_HEADER_TIME
-AC_STRUCT_TM
+#AC_HEADER_TIME
+#AC_STRUCT_TM
 
 # Checks for library functions.
 #AC_FUNC_MALLOC
@@ -91,6 +96,6 @@
 #AC_FUNC_STRFTIME
 #AC_FUNC_VPRINTF
 #AC_CHECK_FUNCS([atexit floor getcwd memset select socket strchr strerror strstr])
-AC_CHECK_FUNCS([getcwd memset select socket strerror])
+#AC_CHECK_FUNCS([getcwd memset select socket strerror])
 
 AC_OUTPUT

[agd-cvs] server README.ARCH,1.1,1.2 README,1.7,1.8

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6088

Modified Files:
	README.ARCH README 
Log Message:
Changed e-mail address.

Index: README
===================================================================
RCS file: /cvsroot/agd/server/README,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- README	1 Apr 2004 19:17:12 -0000	1.7
+++ README	7 Jun 2004 15:32:31 -0000	1.8
@@ -1,8 +1,8 @@
 --------------------------------------
  Adventure Game Driver
-	0.0.3, March 30, 2004
+	0.0.3, 4th June, 2004
 	http://agd.sf.net
-	Peep Pullerits <so...@es...>
+	Peep Pullerits <pe...@li...>
 --------------------------------------
 
 This is a small LPMUD driver, intended to run graphical MUDs
@@ -16,6 +16,9 @@
 Follow the instructions in the INSTALL file that came with
 this package.
 
+* Running as root.
+Just don't. (i.e. <insert discussion here>)
+
 * Bugs.
 This is an alpha release. As such, it most probably is
 full of bugs.

Index: README.ARCH
===================================================================
RCS file: /cvsroot/agd/server/README.ARCH,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- README.ARCH	12 Mar 2004 08:32:10 -0000	1.1
+++ README.ARCH	7 Jun 2004 15:32:31 -0000	1.2
@@ -1,7 +1,7 @@
 If you have been directed to this file by AGD, it means that it doesn't understand your
 computer architecture (operating system / hardware). If this happens,
 I would be happy if you sent me some details about your machine, so I can support it.
-You should send an e-mail to so...@es... with the following information:
+You should send an e-mail to agd...@li... with the following information:
 	* The output of `uname -a` (the name and version of your operating system)
 	* The version of your C compiler (`gcc -v` and `gcc --version`, or cc if you don't have gcc)
 	* Macros that your C compiler predefines

[agd-cvs] server Makefile.am,1.1,1.2

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5982

Modified Files:
	Makefile.am 
Log Message:
Dummy touch debug.log action, for future use.

Index: Makefile.am
===================================================================
RCS file: /cvsroot/agd/server/Makefile.am,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Makefile.am	12 Mar 2004 08:32:10 -0000	1.1
+++ Makefile.am	7 Jun 2004 15:32:04 -0000	1.2
@@ -6,6 +6,7 @@
 install-data-local:
 	cp -r lib $(pkgdatadir)
 	cp -r doc $(pkgdatadir)
+#	touch $(pkgdatadir)/debug.log
 
 uninstall-local:
 	rm -rf $(pkgdatadir)/doc

[agd-cvs] server Ideas,1.7,1.8

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5857

Modified Files:
	Ideas 
Log Message:
Removed uselessness.

Index: Ideas
===================================================================
RCS file: /cvsroot/agd/server/Ideas,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Ideas	1 Apr 2004 19:17:12 -0000	1.7
+++ Ideas	7 Jun 2004 15:31:39 -0000	1.8
@@ -1,6 +1,5 @@
 This file contains features that will be or will be not in AGD in the future.
 lpc:
-	* if(x == 1 || == 2 && != 3)
  	* default values for arguments
  	  int foo(int i, int j = 1);
 	* Argument type grouping
@@ -52,7 +51,4 @@
                 varargs(int i, ...);
             But not:
                 varargs(int i, int j = 2, ...);
-dfuns:
-	* throw(string)
-		will runtime with string
 

[agd-cvs] server BUGS,1.11,1.12

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5805

Modified Files:
	BUGS 
Log Message:
Removed some. :)

Index: BUGS
===================================================================
RCS file: /cvsroot/agd/server/BUGS,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- BUGS	1 Apr 2004 19:17:12 -0000	1.11
+++ BUGS	7 Jun 2004 15:31:21 -0000	1.12
@@ -1,13 +1,9 @@
 Currently known bugs:
 	- src/options and src/compile_options.h don't honor $prefix.
 	  Could use a shell script and sed to do substitutions.
-	- the define_id system is known to have bugs, not sure what they are, though.
-		* int i; void foo(int i); should be valid with a warning
+	  But not that important, I guess.
 	- crashes on Solaris/SPARC with a SIGSEGV somewhere
 	  between lines 190 and 199 in net.c (don't have gdb
-	  on that host).
+	  on that host). Could this be the wretched inet_ntoa() problem?
 	- on 64-bit, the interpreter fails miserably - I think the code pointer (int *cp) is
 	  incremented by 4 bytes, when it should be incremented by 8.
-	- main problem - leaks memory in quite some places.
-
-	- continue from here..

[agd-cvs] server AUTHORS,1.4,1.5

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5703

Modified Files:
	AUTHORS 
Log Message:
Changed formatting.

Index: AUTHORS
===================================================================
RCS file: /cvsroot/agd/server/AUTHORS,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- AUTHORS	28 Mar 2004 18:08:51 -0000	1.4
+++ AUTHORS	7 Jun 2004 15:31:01 -0000	1.5
@@ -1,5 +1,5 @@
 Main code:
-	Peep Pullerits <so...@es...>
+	Peep Pullerits <pe...@li...>
 Contributors:
 	QWhite <qw...@ho...>
 	 * the original graphics editor, some of the older client code
@@ -7,7 +7,13 @@
 The original author of LPMUD and the creator of LPC: Lars Pensjö
 
 Thanks to:
-	Lawless and elver <ker...@ho...>, for inspiration and suggestions
-	X-G and roots, for portability testing
-	SourceForge.net, for hosting most everything for the project.
-	Nectarine Demoscene Radio (http://scenemusic.net) for hours and hours of music to keep me coding :)
+	Lawless and elver <ker...@ho...>
+		for inspiration and suggestions
+	X-G and roots
+		for portability testing
+	SourceForge.net
+		for hosting most everything for the project.
+	Nectarine Demoscene Radio (http://scenemusic.net)
+		for hours and hours of music to keep me coding :)
+	The Discworld MUD (http://discworld.atuin.net)
+		for bringing me to LPC

[agd-cvs] server/src compile.c,1.20,1.21

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5532

Modified Files:
	compile.c 
Log Message:
Oops.

Index: compile.c
===================================================================
RCS file: /cvsroot/agd/server/src/compile.c,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- compile.c	3 Apr 2004 20:19:08 -0000	1.20
+++ compile.c	3 Apr 2004 20:20:11 -0000	1.21
@@ -27,7 +27,7 @@
 static array_t *curr_block;
 static array_t block_history;
 
-#if YYDEBUG || 1
+#if YYDEBUG
 extern int yydebug;
 #endif
 
@@ -597,7 +597,7 @@
 	this_file = path;
 /*	curr_fn = ob->name;*/
 	
-#if defined(DEBUG) && YYDEBUG || 1
+#if defined(DEBUG) && YYDEBUG
 	if(conf.debuglevel > 4) {
 		yydebug = 1;
 	}

[agd-cvs] server/src compile.c,1.19,1.20 debug.c,1.10,1.11 interpret.c,1.17,1.18 interpret.h,1.12,1.13 lang.y,1.15,1.16 lpc.h,1.7,1.8

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5316

Modified Files:
	compile.c debug.c interpret.c interpret.h lang.y lpc.h 
Log Message:
Initial support for arrays.

Index: interpret.h
===================================================================
RCS file: /cvsroot/agd/server/src/interpret.h,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- interpret.h	1 Apr 2004 19:42:49 -0000	1.12
+++ interpret.h	3 Apr 2004 20:19:08 -0000	1.13
@@ -11,6 +11,7 @@
 #define F_PUSH_STRING 4
 #define F_PUSH_NULL_OBJECT 5
 #define F_PUSH_VOID 6 /* For 'return;' */
+#define F_PUSH_ARRAY 7
 
 #define F_POP 10 /* Pops a variable off the stack. */
 #define F_PUSH_LVAR 11 /* Pushes local variable <n> on stack. */

Index: lpc.h
===================================================================
RCS file: /cvsroot/agd/server/src/lpc.h,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- lpc.h	28 Mar 2004 17:57:10 -0000	1.7
+++ lpc.h	3 Apr 2004 20:19:08 -0000	1.8
@@ -15,6 +15,7 @@
 #define T_LVALUE 0x10 /* Used by interpret.c. I'd rather not have it here,
 			 but as it also needs an union member, it would be
 			 too cluttered otherwise. */
+#define T_SPECIAL 0x20 /* For initializing variables in compile.c and lang.y */
 #define T_ARRAY 0x80 /* Indicates an array datatype. */
 
 #define ST_MALLOC 1

Index: interpret.c
===================================================================
RCS file: /cvsroot/agd/server/src/interpret.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- interpret.c	1 Apr 2004 19:17:14 -0000	1.17
+++ interpret.c	3 Apr 2004 20:19:08 -0000	1.18
@@ -149,6 +149,15 @@
 	CHECK_SP()
 }
 
+void push_array(array_t *a, int type)
+{
+	sp->type = T_ARRAY | type;
+	sp->u.a = a;
+	/*ref_array(sp->u.a);*/
+	sp++;
+	CHECK_SP()
+}
+
 void do_assign(variable_t *lval, variable_t *rval)
 {
 	*lval = *rval;
@@ -284,6 +293,18 @@
 		case F_PUSH_NULL_OBJECT:
 			push_object(NULL);
 			break;
+		case F_PUSH_ARRAY:
+		{
+			array_t *a = type_xmalloc(array_t);
+			init_array(a);
+			arg[0] = *++cp;
+			arg[1] = *++cp;
+			for(tmpi=0;tmpi<arg[1];tmpi++) {
+				array_push(a, --sp);
+			}
+			push_array(a, arg[0]);
+		}
+			break;
 		case F_POP:
 			pop_stack();
 			break;

Index: lang.y
===================================================================
RCS file: /cvsroot/agd/server/src/lang.y,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- lang.y	1 Apr 2004 19:10:53 -0000	1.15
+++ lang.y	3 Apr 2004 20:19:08 -0000	1.16
@@ -81,7 +81,7 @@
 %type <var> var_def
 %type <arr> call_args call_arg_list
 
-%type <expr> expr optional_expr
+%type <expr> expr optional_expr expr_list expr_list2
 %type <arr> slice_expr
 %type <arr> return if else do_while while for break continue
 %type <arr> fun_call call_other
@@ -393,7 +393,7 @@
 	L_DATA_TYPE optional_star
 	    {
 		$$ = $1 | $2;
-		global_type = $1;
+		global_type = $$;
 	    }
     ;
 
@@ -598,7 +598,7 @@
 		lval->name = $1;
 		lval->type = global_type;
 
-		$$.type = T_ARRAY;
+		$$.type = T_SPECIAL;
 		$$.u.a = type_xmalloc(array_t);
 		init_array($$.u.a);
 		array_push($$.u.a, lval);
@@ -1274,8 +1274,63 @@
 		array_push(&$$.arr, (void *) F_PUSH_INT);
 		array_push(&$$.arr, (void *) $1);
 	    }
+    |	L_OPEN_ARRAY expr_list L_CLOSE_ARRAY
+    	    {
+	    	$$.lval = 0;
+		$$.side_effect = $2.side_effect;
+		$$.type = $2.type | T_ARRAY;
+		init_array(&$$.arr);
+		$2.arr.length--;
+		array_concat(&$$.arr, &$2.arr);
+		array_push(&$$.arr, (void *) F_PUSH_ARRAY);
+		array_push(&$$.arr, (void *) $2.type);
+		array_push(&$$.arr, (void *) $2.arr.data[$2.arr.length]);
+		$2.arr.data = realloc($2.arr.data, sizeof(void *) * $2.arr.length);
+	    }
     ;
 
+expr_list:
+	/* empty */
+	    {
+	    	$$.type = $$.side_effect = 0;
+	    	init_array(&$$.arr);
+		array_push(&$$.arr, (void *) 0);
+	    }
+    |	expr_list2
+	    {
+		$$.type = $1.type;
+		$$.side_effect = $1.side_effect;
+		init_array(&$$.arr);
+		array_concat(&$$.arr, &$1.arr);
+	    }
+    ;
+    
+expr_list2:
+	expr
+	    {
+	    	$$.type = $1.type;
+		$$.side_effect = $1.side_effect;
+	    	init_array(&$$.arr);
+		array_concat(&$$.arr, &$1.arr);
+		array_push(&$$.arr, (void *) 1);
+	    }
+    |	expr ',' expr_list2
+	    {
+	    	$$.side_effect = $1.side_effect || $3.side_effect;
+		if($1.type != $3.type) {
+			comp_error("all elements in array constant must be of same type");
+			/*$$.type = T_MIXED;*/
+		}
+		$$.type = $1.type;
+		init_array(&$$.arr);
+		array_concat(&$$.arr, &$1.arr);
+		$3.arr.length--;
+		array_concat(&$$.arr, &$3.arr);
+		array_push(&$$.arr, $3.arr.data[$3.arr.length] + 1);
+		$3.arr.data = realloc($3.arr.data, sizeof(void *) * $3.arr.length);
+	    }
+    ;
+    
 slice_expr:
 	expr
 	    {
@@ -1336,30 +1391,13 @@
 		$$ = strcat($$, $2);
 	    }
 	;
-
-/*
-
-expr_list:
-	/ * empty * /
-    |	expr ',' expr_list
-	    {
-		
-	    }
-    ;
-	
-array:
-	L_OPEN_ARRAY expr_list L_CLOSE_ARRAY
-	    {
-	    }
-	;
-*/
-	    
+    
 optional_star:
 	/* empty */
 	    {
 		$$ = 0;
 	    }
-    |	'*'
+    |	L_MUL
 	    {
 		$$ = T_ARRAY;
 	    }

Index: compile.c
===================================================================
RCS file: /cvsroot/agd/server/src/compile.c,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- compile.c	1 Apr 2004 19:17:14 -0000	1.19
+++ compile.c	3 Apr 2004 20:19:08 -0000	1.20
@@ -27,7 +27,7 @@
 static array_t *curr_block;
 static array_t block_history;
 
-#ifdef YYDEBUG
+#if YYDEBUG || 1
 extern int yydebug;
 #endif
 
@@ -365,10 +365,11 @@
 	for(i=0;i<vars->length;i++) {
 		variable_t *var = vars->data[i];
 		array_t *assign = NULL;
-		if(var->type == T_ARRAY) {
+		if(var->type == T_SPECIAL) {
 			/* One way to do this would be to remember all the global assignments
 			 * and later insert them into the create() function, if one is defined
 			 * in the source. */
+			type &= ~T_ARRAY;
 			if(type == ID_GVAR) {
 				comp_warning("initializing global variables unimplemented");
 			} else /* LVAR */ {
@@ -377,13 +378,13 @@
 			var = var->u.a->data[0];
 		}
 
-		/*init_var(var);*/
 		if(type == ID_GVAR) {
-			/*array_push(&cob->variables, var);*/
 			/* this_ob is set to the compiled object during compilation. */
 			array_push(&this_ob->variables, var);
 		} else /* LVAR */{
-			switch(var->type) {
+			if(var->type & T_ARRAY)
+				array_push(curr_block, (void *) F_PUSH_VOID);
+			else switch(var->type & ~T_ARRAY) {
 				case T_INT:
 					array_push(curr_block, (void *) F_PUSH_INT);
 					if(var->u.i) {
@@ -596,7 +597,7 @@
 	this_file = path;
 /*	curr_fn = ob->name;*/
 	
-#if defined(DEBUG) && YYDEBUG
+#if defined(DEBUG) && YYDEBUG || 1
 	if(conf.debuglevel > 4) {
 		yydebug = 1;
 	}

Index: debug.c
===================================================================
RCS file: /cvsroot/agd/server/src/debug.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- debug.c	1 Apr 2004 19:10:53 -0000	1.10
+++ debug.c	3 Apr 2004 20:19:08 -0000	1.11
@@ -95,6 +95,8 @@
 			return "F_PUSH_VOID";
 		case F_PUSH_NULL_OBJECT:
 			return "F_PUSH_NULL_OBJECT";
+		case F_PUSH_ARRAY:
+			return "F_PUSH_ARRAY";
 		case F_PUSH_LVAR:
 			return "F_PUSH_LVAR";
 		case F_PUSH_LVAR_LVALUE:
@@ -190,6 +192,12 @@
 			s = a->data[++*i];
 			printf("\"%s\"", s);
 			break;
+		case F_PUSH_ARRAY:
+			num = (int)a->data[++*i];
+			printf("type %d ", num);
+			num = (int)a->data[++*i];
+			printf("%d", num);
+			break;
 		case F_CALL_DFUN:
 			index = (int)a->data[++*i];
 			num = (int)a->data[++*i];

[agd-cvs] server/src lex.l,1.13,1.14

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5214

Modified Files:
	lex.l 
Log Message:
Updates the position correctly.

Index: lex.l
===================================================================
RCS file: /cvsroot/agd/server/src/lex.l,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- lex.l	1 Apr 2004 19:17:14 -0000	1.13
+++ lex.l	3 Apr 2004 20:18:39 -0000	1.14
@@ -25,10 +25,10 @@
 #define RET(type, value, tok) \
 		pos += yyleng; \
 		if(conf.debuglevel > 3) \
-			printf("yylex(): %"#type"; pos: %d\n", value, pos); \
+			printf("yylex(): %"#type"\n", value); \
 		return tok
 #else
-#define RET(type, value, tok) return tok
+#define RET(type, value, tok) pos += yyleng; return tok
 #endif
 
 #define NEWLINE() pos = 1; line++

[agd-cvs] server/src vars.c,1.11,1.12

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3793

Modified Files:
	vars.c 
Log Message:
Added T_LVALUE to free_var(), fixed those annoying warnings.

Index: vars.c
===================================================================
RCS file: /cvsroot/agd/server/src/vars.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- vars.c	1 Apr 2004 19:10:53 -0000	1.11
+++ vars.c	3 Apr 2004 20:10:33 -0000	1.12
@@ -5,6 +5,7 @@
 {
 	switch(v->type) {
 		case T_INT:
+		case T_LVALUE:
 			break;
 		case T_OBJECT:
 			unref_ob(v->u.ob, v);

[agd-cvs] server INSTALL,1.1,1.2

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3744

Modified Files:
	INSTALL 
Log Message:
su -c "make install" is a fine command.

Index: INSTALL
===================================================================
RCS file: /cvsroot/agd/server/INSTALL,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- INSTALL	12 Mar 2004 08:32:10 -0000	1.1
+++ INSTALL	3 Apr 2004 20:10:15 -0000	1.2
@@ -2,10 +2,7 @@
 	$ ./configure
 	$ make
 If you have root access:
-	$ su
-	# make install
-	# logout
-	$ agd
+	$ su -c "make install"
 	
 If you don't have root access, you need to copy src/agd, src/options, lib/ and
 optionally doc/ to a directory, edit 'options' and change the lib root, then

[agd-cvs] server/src interpret.h,1.11,1.12

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25410

Modified Files:
	interpret.h 
Log Message:
Fixed compilation.

Index: interpret.h
===================================================================
RCS file: /cvsroot/agd/server/src/interpret.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- interpret.h	1 Apr 2004 19:17:14 -0000	1.11
+++ interpret.h	1 Apr 2004 19:42:49 -0000	1.12
@@ -62,8 +62,8 @@
 variable_t *apply(object_t *ob, char *fun, char *argfmt, ...);
 void runtime(char *s);
 
-#define pop_stack() sp--; free_value(sp)
-#define pop_locals() while(sp > fp) { sp--; free_value(sp); }
+#define pop_stack() sp--; free_var(sp)
+#define pop_locals() while(sp > fp) { sp--; free_var(sp); }
 
 typedef struct {
 	variable_t *sp, *fp;

[agd-cvs] server/lib/doc/login 0,1.1,1.2 1,1.1,1.2 10,1.1,1.2 100,1.1,1.2 101,1.1,1.2 102,1.1,1.2 103,1.1,1.2 104,1.1,1.2 105,1.1,1.2 106,1.1,1.2 11,1.1,1.2 12,1.1,1.2 13,1.1,1.2 14,1.1,1.2 15,1.1,1.2 16,1.1,1.2 17,1.1,1.2 18,1.1,1.2 19,1.1,1.2 2,1.1,1.2 20,1.1,1.2 21,1.1,1.2 22,1.1,1.2 23,1.1,1.2 24,1.1,1.2 25,1.1,1.2 26,1.1,1.2 27,1.1,1.2 28,1.1,1.2 29,1.1,1.2 3,1.1,1.2 30,1.1,1.2 31,1.1,1.2 32,1.1,1.2 33,1.1,1.2 34,1.1,1.2 35,1.1,1.2 36,1.1,1.2 37,1.1,1.2 38,1.1,1.2 39,1.1,1.2 4,1.1,1.2 40,1.1,1.2 41,1.1,1.2 42,1.1,1.2 43,1.1,1.2 44,1.1,1.2 45,1.1,1.2 46,1.1,1.2 47,1.1,1.2 48,1.1,1.2 49,1.1,1.2 5,1.1,1.2 50,1.1,1.2 51,1.1,1.2 52,1.1,1.2 53,1.1,1.2 54,1.1,1.2 55,1.1,1.2 56,1.1,1.2 57,1.1,1.2 58,1.1,1.2 59,1.1,1.2 6,1.1,1.2 60,1.1,1.2 61,1.1,1.2 62,1.1,1.2 63,1.1,1.2 64,1.1,1.2 65,1.1,1.2 66,1.1,1.2 67,1.1,1.2 68,1.1,1.2 69,1.1,1.2 7,1.1,1.2 70,1.1,1.2 71,1.1,1.2 72,1.1,1.2 73,1.1,1.2 74,1.1,1.2 75,1.1,1.2 76,1.1,1.2 77,1.1,1.2 78,1.1,1.2 79,1.1,1.2 8,1.1,1.2 80,1.1,1.2 81,1.1,1.2 82,1.1,1.2 83,1.1,1.2 84,1.1,1.2 85,1.1,1.2 86,1.1,1.2 87,1.1,1.2 88,1.1,1.2 89,1.1,1.2 9,1.1,1.2 90,1.1,1.2 91,1.1,1.2 92,1.1,1.2 93,1.1,1.2 94,1.1,1.2 95,1.1,1.2 96,1.1,1.2 97,1.1,1.2 98,1.1,1.2 99,1.1,1.2 biggest,1.1,1.2 107,1.1,NONE 108,1.1,NONE 109,1.1,NONE 110,1.1,NONE 111,1.1,NONE 112,1.1,NONE 113,1.1,NONE 114,1.1,NONE 115,1.1,NONE 116,1.1,NONE 117,1.1,NONE 118,1.1,NONE 119,1.1,NONE 120,1.1,NONE 121,1.1,NONE 122,1.1,NONE 123,1.1,NONE 124,1.1,NONE 125,1.1,NONE 126,1.1,NONE 127,1.1,NONE 128,1.1,NONE 129,1.1,NONE 130,1.1,NONE 131,1.1,NONE 132,1.1,NONE 133,1.1,NONE 134,1.1,NONE 135,1.1,NONE 136,1.1,NONE 137,1.1,NONE 138,1.1,NONE 139,1.1,NONE 140,1.1,NONE 141,1.1,NONE 142,1.1,NONE 143,1.1,NONE 144,1.1,NONE 145,1.1,NONE 146,1.1,NONE 147,1.1,NONE 148,1.1,NONE 149,1.1,NONE 150,1.1,NONE 151,1.1,NONE 152,1.1,NONE 153,1.1,NONE 154,1.1,NONE 156,1.1,NONE 157,1.1,NONE 158,1.1,NONE 159,1.1,NONE 160,1.1,NONE 161,1.1,NONE 162,1.1,NONE 163,1.1,NONE 164,1.1,NONE 165,1.1,NONE 166,1.1,NONE 167,1.1,NONE 168,1.1,NONE 169,1.1,NONE 170,1.1,NONE 171,1.1,NONE 172,1.1,NONE 173,1.1,NONE 174,1.1,NONE 175,1.1,NONE 176,1.1,NONE 177,1.1,NONE 178,1.1,NONE 179,1.1,NONE 180,1.1,NONE 181,1.1,NONE 182,1.1,NONE 183,1.1,NONE 184,1.1,NONE 185,1.1,NONE 186,1.1,NONE 187,1.1,NONE 188,1.1,NONE 189,1.1,NONE 190,1.1,NONE 191,1.1,NONE 192,1.1,NONE 193,1.1,NONE 194,1.1,NONE 195,1.1,NONE 196,1.1,NONE 197,1.1,NONE 198,1.1,NONE 199,1.1,NONE 200,1.1,NONE 201,1.1,NONE 202,1.1,NONE 203,1.1,NONE 204,1.1,NONE 205,1.1,NONE 206,1.1,NONE 207,1.1,NONE 208,1.1,NONE 209,1.1,NONE 210,1.1,NONE 211,1.1,NONE 212,1.1,NONE 213,1.1,NONE 214,1.1,NONE 215,1.1,NONE 216,1.1,NONE 217,1.1,NONE 218,1.1,NONE 219,1.1,NONE 220,1.1,NONE 221,1.1,NONE 222,1.1,NONE 223,1.1,NONE 224,1.1,NONE 225,1.1,NONE 226,1.1,NONE 227,1.1,NONE 228,1.1,NONE 229,1.1,NONE 230,1.1,NONE 231,1.1,NONE 232,1.1,NONE 233,1.1,NONE 234,1.1,NONE 235,1.1,NONE 236,1.1,NONE

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/lib/doc/login
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23569

Modified Files:
	0 1 10 100 101 102 103 104 105 106 11 12 13 14 15 16 17 18 19 
	2 20 21 22 23 24 25 26 27 28 29 3 30 31 32 33 34 35 36 37 38 
	39 4 40 41 42 43 44 45 46 47 48 49 5 50 51 52 53 54 55 56 57 
	58 59 6 60 61 62 63 64 65 66 67 68 69 7 70 71 72 73 74 75 76 
	77 78 79 8 80 81 82 83 84 85 86 87 88 89 9 90 91 92 93 94 95 
	96 97 98 99 biggest 
Removed Files:
	107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 
	122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 
	137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 
	152 153 154 156 157 158 159 160 161 162 163 164 165 166 167 
	168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 
	183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 
	198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 
	213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 
	228 229 230 231 232 233 234 235 236 
Log Message:
New banners.

--- 216 DELETED ---

--- 217 DELETED ---

--- 214 DELETED ---

--- 215 DELETED ---

--- 212 DELETED ---

--- 213 DELETED ---

--- 210 DELETED ---

--- 211 DELETED ---

--- 218 DELETED ---

--- 219 DELETED ---

--- 133 DELETED ---

--- 164 DELETED ---

--- 131 DELETED ---

--- 130 DELETED ---

--- 137 DELETED ---

--- 136 DELETED ---

--- 135 DELETED ---

Index: 90
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/90,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 90	28 Mar 2004 18:04:45 -0000	1.1
+++ 90	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,7 +1,6 @@
-
-____  _______       ___     ___
-   /  \      )  ____)  |    \  
-  /    \    /  /  __   |     | 
- /  ()  \  (  (  (  \  |     | 
-|   __   |  \  \__)  ) |     | 
-|  (__)  |___)      (__|    /__
+___________________  
+7  _  77     77    \ 
+|  _  ||   __!|  7  |
+|  7  ||  !  7|  |  |
+|  |  ||     ||  !  |
+!__!__!!_____!!_____!
\ No newline at end of file

--- 139 DELETED ---

--- 138 DELETED ---

Index: 93
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/93,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 93	28 Mar 2004 18:04:46 -0000	1.1
+++ 93	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,10 +1,6 @@
-
-.eeeeee...eeeeee..eeeeeee..
-@@@@@@@@:@@@@@@@@:@@@@@@@@:
-%%%--%%%-%%%------%%%--%%%-
-&&&&&&&&+&&&++++++&&&++&&&+
-||||||||*|||*||||*|||**|||*
-!!!==!!!=!!!==!!!=!!!==!!!=
-:::##:::#::::::::#::::::::#
-...@@...@@......@@.......@@
-                           
+     ___       _______  _______  
+    /   \     /  _____||       \ 
+   /  ^  \   |  |  __  |  .--.  |
+  /  /_\  \  |  | |_ | |  |  |  |
+ /  _____  \ |  |__| | |  '--'  |
+/__/     \__\ \______| |_______/
\ No newline at end of file

Index: 24
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/24,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 24	28 Mar 2004 18:04:45 -0000	1.1
+++ 24	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,11 +1,6 @@
-
-                      
-                      
-   ##    ####  #####  
-  # #   ##  #   #   # 
-  # #  ##      ##   # 
- ####  #  ###  ##   # 
- #  #  ##  #   #   #  
-##  ##  ####  #####   
-                      
-                      
+8""""8 8""""8 8""""8 
+8    8 8    " 8    8 
+8eeee8 8e     8e   8 
+88   8 88  ee 88   8 
+88   8 88   8 88   8 
+88   8 88eee8 88eee8
\ No newline at end of file

Index: 25
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/25,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 25	28 Mar 2004 18:04:45 -0000	1.1
+++ 25	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,12 +1,3 @@
-
-                     
-                     
-  #     ####  #####  
-  ##   ##  #   #   # 
- # #   #       #   # 
- ####  #  ###  #   # 
-#   #  ##  #   #   # 
-##  ##  ####  #####  
-                     
-                     
-                     
+.__..__ .__ 
+[__][ __|  \
+|  |[_./|__/
\ No newline at end of file

Index: 26
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/26,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 26	28 Mar 2004 18:04:45 -0000	1.1
+++ 26	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,12 +1,6 @@
-
-                    
-                    
-   #     ###  ####  
-   ##   #  #  #   # 
-  # #  #      #   # 
- ####  #  ##  #   # 
-#   #  #  #   #  #  
-##  ##  ###  ####   
-                    
-                    
-                    
+..%%%%....%%%%...%%%%%..
+.%%..%%..%%......%%..%%.
+.%%%%%%..%%.%%%..%%..%%.
+.%%..%%..%%..%%..%%..%%.
+.%%..%%...%%%%...%%%%%..
+........................
\ No newline at end of file

Index: 27
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/27,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 27	28 Mar 2004 18:04:45 -0000	1.1
+++ 27	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,12 +1,6 @@
-
-                                                        
-         .8.           ,o888888o.    8 888888888o.      
-        .888.         8888     `88.  8 8888    `^888.   
-       :88888.     ,8 8888       `8. 8 8888        `88. 
-      . `88888.    88 8888           8 8888         `88 
-     .8. `88888.   88 8888           8 8888          88 
-    .8`8. `88888.  88 8888           8 8888          88 
-   .8' `8. `88888. 88 8888   8888888 8 8888         ,88 
-  .8'   `8. `88888.`8 8888       .8' 8 8888        ,88' 
- .888888888. `88888.  8888     ,88'  8 8888    ,o88P'   
-.8'       `8. `88888.  `8888888P'    8 888888888P'      
+  :::.      .,-:::::/ :::::::-.  
+  ;;`;;   ,;;-'````'   ;;,   `';,
+ ,[[ '[[, [[[   [[[[[[/`[[     [[
+c$$$cc$$$c"$$c.    "$$  $$,    $$
+ 888   888,`Y8bo,,,o88o 888_,o8P'
+ YMM   ""`   `'YMUP"YMM MMMMP"`
\ No newline at end of file

Index: 20
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/20,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 20	28 Mar 2004 18:04:45 -0000	1.1
+++ 20	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,4 @@
-
-          _____ _____  
-    /\   / ____|  __ \ 
-   /  \ | |  __| |  | |
-  / /\ \| | |_ | |  | |
- / ____ \ |__| | |__| |
-/_/    \_\_____|_____/ 
-                       
-                       
+ _______ _______ _____  
+|   _   |     __|     \ 
+|       |    |  |  --  |
+|___|___|_______|_____/
\ No newline at end of file

Index: 21
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/21,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 21	28 Mar 2004 18:04:45 -0000	1.1
+++ 21	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,2 +1,8 @@
-
-01000001 01000111 01000100 
+                     
+   #     ###   ####  
+  ###   ## ##  ## ## 
+ ## ##  ##     ## ## 
+ ## ##  #####  ## ## 
+ #####  ## ##  ## ## 
+ ## ##  ## ##  ## ## 
+ ## ##   ####  ####
\ No newline at end of file

Index: 22
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/22,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 22	28 Mar 2004 18:04:45 -0000	1.1
+++ 22	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,7 @@
-
-                              
-  _|_|      _|_|_|  _|_|_|    
-_|    _|  _|        _|    _|  
-_|_|_|_|  _|  _|_|  _|    _|  
-_|    _|  _|    _|  _|    _|  
-_|    _|    _|_|_|  _|_|_|    
-                              
-                              
+      O)          O))))   O)))))    
+     O) ))      O)    O)) O))   O)) 
+    O)  O))    O))        O))    O))
+   O))   O))   O))        O))    O))
+  O)))))) O))  O))   O))))O))    O))
+ O))       O))  O))    O) O))   O)) 
+O))         O))  O)))))   O)))))
\ No newline at end of file

Index: 23
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/23,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 23	28 Mar 2004 18:04:45 -0000	1.1
+++ 23	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,11 +1,8 @@
-
-                     
-                     
-  #     ####  #####  
-  ##   ##  #   #   # 
- # #   #       #   # 
- ####  #  ###  #   # 
-#   #  ##  #   #   # 
-#   ##  ####  #####  
-                     
-                     
+       d8888 .d8888b. 8888888b.  
+      d88888d88P  Y88b888  "Y88b 
+     d88P888888    888888    888 
+    d88P 888888       888    888 
+   d88P  888888  88888888    888 
+  d88P   888888    888888    888 
+ d8888888888Y88b  d88P888  .d88P 
+d88P     888 "Y8888P888888888P"
\ No newline at end of file

Index: 95
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/95,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 95	28 Mar 2004 18:04:46 -0000	1.1
+++ 95	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,12 +1,6 @@
-
-                  
-                  
-                  
- ###   #### ####  
-## ## ##  # ## ## 
-## ## ##    ## ## 
-##### ## ## ## ## 
-## ## ##  # ## ## 
-## ##  #### ####  
-                  
-                  
+         ______ _____   
+   /\   / _____|____ \  
+  /  \ | /  ___ _   \ \ 
+ / /\ \| | (___) |   | |
+| |__| | \____/| |__/ / 
+|______|\_____/|_____/
\ No newline at end of file

Index: 28
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/28,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 28	28 Mar 2004 18:04:45 -0000	1.1
+++ 28	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,5 +1,6 @@
-
-  _   _   _  
- / \ / \ / \ 
-( A | G | D )
- \_/ \_/ \_/ 
+  :::.      .,-:::::/ :::::::-.  
+  ;;`;;   ,;;-'````'   ;;,   `';,
+ ,[[ '[[, [[[   [[[[[[/`[[     [[
+c$$$cc$$$c"$$c.    "$$  $$,    $$
+ 888   888,`Y8bo,,,o88o 888_,o8P'
+ YMM   ""`   `'YMUP"YMM MMMMP"`
\ No newline at end of file

Index: 29
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/29,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 29	28 Mar 2004 18:04:45 -0000	1.1
+++ 29	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,5 +1,7 @@
-
-   __    ___  ____  
-  /__\  / __)(  _ \ 
- /(__)\( (_-. )(_) )
-(__)(__)\___/(____/ 
+  ____   ____  ___   
+ /    T /    T|   \  
+Y  o  |Y   __j|    \ 
+|     ||  T  ||  D  Y
+|  _  ||  l_ ||     |
+|  |  ||     ||     |
+l__j__jl___,_jl_____j
\ No newline at end of file

Index: 94
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/94,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 94	28 Mar 2004 18:04:46 -0000	1.1
+++ 94	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,7 +1,7 @@
-
-   _____    ________________   
-  /  _  \  /  _____/\______ \  
- /  /_\  \/   \  ___ |    |  \ 
-/    |    \    \_\  \|    `   \
-\____|__  /\______  /_______  /
-        \/        \/        \/ 
+      `.          `....   `.....    
+     `. ..      `.    `.. `..   `.. 
+    `.  `..    `..        `..    `..
+   `..   `..   `..        `..    `..
+  `...... `..  `..   `....`..    `..
+ `..       `..  `..    `. `..   `.. 
+`..         `..  `.....   `.....
\ No newline at end of file

Index: 0
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/0,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 0	28 Mar 2004 18:04:45 -0000	1.1
+++ 0	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,4 +1,3 @@
-
      **       ********  *******  
     ****     **//////**/**////** 
    **//**   **      // /**    /**
@@ -6,4 +5,4 @@
  **********/**    *****/**    /**
 /**//////**//**  ////**/**    ** 
 /**     /** //******** /*******  
-//      //   ////////  ///////   
+//      //   ////////  ///////
\ No newline at end of file

Index: 4
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/4,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 4	28 Mar 2004 18:04:45 -0000	1.1
+++ 4	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,7 @@
-
- ###   #  #       
-       ###    ##  
- ###         #  # 
-            #  ## 
-            # # # 
-        ##  # # # 
-       #  # #  #  
-       #     #    
+          :::     :::::::: ::::::::: 
+       :+: :+:  :+:    :+::+:    :+: 
+     +:+   +:+ +:+       +:+    +:+  
+   +#++:++#++::#:       +#+    +:+   
+  +#+     +#++#+   +#+#+#+    +#+    
+ #+#     #+##+#    #+##+#    #+#     
+###     ### ######## #########
\ No newline at end of file

Index: 8
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/8,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 8	28 Mar 2004 18:04:45 -0000	1.1
+++ 8	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,8 +1,6 @@
-
-    :::     :::::::: :::::::::  
-  :+: :+:  :+:    :+::+:    :+: 
- +:+   +:+ +:+       +:+    +:+ 
-+#++:++#++::#:       +#+    +:+ 
-+#+     +#++#+   +#+#+#+    +#+ 
-#+#     #+##+#    #+##+#    #+# 
-###     ### ######## #########  
+ .d8b.   d888b  d8888b. 
+d8' `8b 88' Y8b 88  `8D 
+88ooo88 88      88   88 
+88~~~88 88  ooo 88   88 
+88   88 88. ~8~ 88  .8D 
+YP   YP  Y888P  Y8888D'
\ No newline at end of file

--- 163 DELETED ---

Index: 11
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/11,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 11	28 Mar 2004 18:04:45 -0000	1.1
+++ 11	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,7 +1,6 @@
-
- ____  _____ ____ 
-/  _ \/  __//  _ \
-| / \|| |  _| | \|
-| |-||| |_//| |_/|
-\_/ \|\____\\____/
-                  
+          _____ _____  
+    /\   / ____|  __ \ 
+   /  \ | |  __| |  | |
+  / /\ \| | |_ | |  | |
+ / ____ \ |__| | |__| |
+/_/    \_\_____|_____/
\ No newline at end of file

--- 119 DELETED ---

Index: 10
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/10,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 10	28 Mar 2004 18:04:45 -0000	1.1
+++ 10	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,8 +1,6 @@
-
- AA   GGG  DDD  
-A  A G     D  D 
-AAAA G  GG D  D 
-A  A G   G D  D 
-A  A  GGG  DDD  
-                
-                
+__________________________
+    __       __     _____ 
+    / |    /    )   /    )
+---/__|---/--------/----/-
+  /   |  /  --,   /    /  
+_/____|_(____/___/____/___
\ No newline at end of file

--- 120 DELETED ---

--- 121 DELETED ---

--- 122 DELETED ---

--- 123 DELETED ---

--- 124 DELETED ---

--- 125 DELETED ---

--- 126 DELETED ---

--- 127 DELETED ---

--- 128 DELETED ---

--- 129 DELETED ---

--- 161 DELETED ---

--- 134 DELETED ---

Index: 59
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/59,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 59	28 Mar 2004 18:04:45 -0000	1.1
+++ 59	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,12 +1,7 @@
-
-                  
-                  
-                  
-                  
-                  
-  ###   ###  #### 
-  # #  #      # # 
- ## # ## #   #  # 
- # ## ## #   # ## 
-## ##  ###  ####  
-                  
+ ______  ____    ____      
+/\  _  \/\  _`\ /\  _`\    
+\ \ \L\ \ \ \L\_\ \ \/\ \  
+ \ \  __ \ \ \L_L\ \ \ \ \ 
+  \ \ \/\ \ \ \/, \ \ \_\ \
+   \ \_\ \_\ \____/\ \____/
+    \/_/\/_/\/___/  \/___/
\ No newline at end of file

Index: 58
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/58,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 58	28 Mar 2004 18:04:45 -0000	1.1
+++ 58	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,12 +1,5 @@
-
-               
-               
-               
-               
-               
-####  ### #### 
- # # ##    # # 
- ### ## #  # # 
- # # ## #  # # 
-## #  ### #### 
-               
+    |      ..|'''.|  '||''|.   
+   |||    .|'     '   ||   ||  
+  |  ||   ||    ....  ||    || 
+ .''''|.  '|.    ||   ||    || 
+.|.  .||.  ''|...'|  .||...|'
\ No newline at end of file

--- 132 DELETED ---

Index: 55
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/55,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 55	28 Mar 2004 18:04:45 -0000	1.1
+++ 55	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,7 +1 @@
-
-..%%%%....%%%%...%%%%%..
-.%%..%%..%%......%%..%%.
-.%%%%%%..%%.%%%..%%..%%.
-.%%..%%..%%..%%..%%..%%.
-.%%..%%...%%%%...%%%%%..
-........................
+41 47 44
\ No newline at end of file

Index: 54
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/54,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 54	28 Mar 2004 18:04:45 -0000	1.1
+++ 54	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,5 +1,6 @@
-
-.__..__ .__ 
-[__][ __|  \
-|  |[_./|__/
-            
+   _____    ________________   
+  /  _  \  /  _____/\______ \  
+ /  /_\  \/   \  ___ |    |  \ 
+/    |    \    \_\  \|    `   \
+\____|__  /\______  /_______  /
+        \/        \/        \/
\ No newline at end of file

Index: 57
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/57,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 57	28 Mar 2004 18:04:45 -0000	1.1
+++ 57	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,7 +1,10 @@
-
-  :::.      .,-:::::/ :::::::-.  
-  ;;`;;   ,;;-'````'   ;;,   `';,
- ,[[ '[[, [[[   [[[[[[/`[[     [[
-c$$$cc$$$c"$$c.    "$$  $$,    $$
- 888   888,`Y8bo,,,o88o 888_,o8P'
- YMM   ""`   `'YMUP"YMM MMMMP"`  
+                       
+     .oo .oPYo. ooo.   
+    .P 8 8    8 8  `8. 
+   .P  8 8      8   `8 
+  oPooo8 8   oo 8    8 
+ .P    8 8    8 8   .P 
+.P     8 `YooP8 8ooo'  
+..:::::..:....8 .....::
+::::::::::::::8 :::::::
+::::::::::::::..:::::::
\ No newline at end of file

Index: 56
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/56,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 56	28 Mar 2004 18:04:45 -0000	1.1
+++ 56	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,7 +1,3 @@
-
-  :::.      .,-:::::/ :::::::-.  
-  ;;`;;   ,;;-'````'   ;;,   `';,
- ,[[ '[[, [[[   [[[[[[/`[[     [[
-c$$$cc$$$c"$$c.    "$$  $$,    $$
- 888   888,`Y8bo,,,o88o 888_,o8P'
- YMM   ""`   `'YMUP"YMM MMMMP"`  
+  _   __  __  
+ /_| / _ /  ) 
+(  |(__)/(_/
\ No newline at end of file

Index: 51
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/51,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 51	28 Mar 2004 18:04:45 -0000	1.1
+++ 51	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,5 @@
-
-      O)          O))))   O)))))    
-     O) ))      O)    O)) O))   O)) 
-    O)  O))    O))        O))    O))
-   O))   O))   O))        O))    O))
-  O)))))) O))  O))   O))))O))    O))
- O))       O))  O))    O) O))   O)) 
-O))         O))  O)))))   O)))))    
-                                    
+ .--.  .--. .---. 
+: .; :: .--': .  :
+:    :: : _ : :: :
+: :: :: :; :: :; :
+:_;:_;`.__.':___.'
\ No newline at end of file

Index: 50
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/50,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 50	28 Mar 2004 18:04:45 -0000	1.1
+++ 50	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,12 @@
-
-    #       ####   #####   
-    #      #    #  #    #  
-   ###    #        #     # 
-   # #    #   ###  #     # 
-  #####   #     #  #     # 
-  #   #    #    #  #    #  
- ##   ##    #####  #####   
-                           
+     ..                    ....        .          ....          
+  :**888H: `: .xH""     .x88" `^x~  xH(`      .xH888888Hx.      
+ X   `8888k XX888      X888   x8 ` 8888h    .H8888888888888:    
+'8hx  48888 ?8888     88888  888.  %8888    888*"""?""*88888X   
+'8888 '8888 `8888    <8888X X8888   X8?    'f     d8x.   ^%88k  
+ %888>'8888  8888    X8888> 488888>"8888x  '>    <88888X   '?8  
+   "8 '888"  8888    X8888>  888888 '8888L  `:..:`888888>    8> 
+  .-` X*"    8888    ?8888X   ?8888>'8888X         `"*88     X  
+    .xhx.    8888     8888X h  8888 '8888~    .xHHhx.."      !  
+  .H88888h.~`8888.>    ?888  -:8*"  <888"    X88888888hx. ..!   
+ .~  `%88!` '888*~      `*88.      :88%     !   "*888888888"    
+       `"     ""           ^"~====""`              ^"***"`
\ No newline at end of file

Index: 53
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/53,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 53	28 Mar 2004 18:04:45 -0000	1.1
+++ 53	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,8 +1,8 @@
-
-8""""8 8""""8 8""""8 
-8    8 8    " 8    8 
-8eeee8 8e     8e   8 
-88   8 88  ee 88   8 
-88   8 88   8 88   8 
-88   8 88eee8 88eee8 
-                     
+.eeeeee...eeeeee..eeeeeee..
+@@@@@@@@:@@@@@@@@:@@@@@@@@:
+%%%--%%%-%%%------%%%--%%%-
+&&&&&&&&+&&&++++++&&&++&&&+
+||||||||*|||*||||*|||**|||*
+!!!==!!!=!!!==!!!=!!!==!!!=
+:::##:::#::::::::#::::::::#
+...@@...@@......@@.......@@
\ No newline at end of file

Index: 52
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/52,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 52	28 Mar 2004 18:04:45 -0000	1.1
+++ 52	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,12 +1,4 @@
-
-       d8888 .d8888b. 8888888b.  
-      d88888d88P  Y88b888  "Y88b 
-     d88P888888    888888    888 
-    d88P 888888       888    888 
-   d88P  888888  88888888    888 
-  d88P   888888    888888    888 
- d8888888888Y88b  d88P888  .d88P 
-d88P     888 "Y8888P888888888P"  
-                                 
-                                 
-                                 
+  __    ___  ____ 
+ / _\  / __)(    \
+/    \( (_ \ ) D (
+\_/\_/ \___/(____/
\ No newline at end of file

--- 146 DELETED ---

--- 199 DELETED ---

--- 179 DELETED ---

--- 147 DELETED ---

--- 195 DELETED ---

--- 194 DELETED ---

--- 197 DELETED ---

Index: 67
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/67,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 67	28 Mar 2004 18:04:45 -0000	1.1
+++ 67	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,3 +1,3 @@
-
- ____ ____ ___ 
- |--| |__, |__>
+     __ _  
+ /\ /__| \ 
+/--\\_||_/
\ No newline at end of file

--- 191 DELETED ---

--- 190 DELETED ---

--- 193 DELETED ---

--- 192 DELETED ---

--- 227 DELETED ---

--- 177 DELETED ---

Index: 88
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/88,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 88	28 Mar 2004 18:04:45 -0000	1.1
+++ 88	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,16 +1,4 @@
-
-     ..                    ....        .          ....          
-  :**888H: `: .xH""     .x88" `^x~  xH(`      .xH888888Hx.      
- X   `8888k XX888      X888   x8 ` 8888h    .H8888888888888:    
-'8hx  48888 ?8888     88888  888.  %8888    888*"""?""*88888X   
-'8888 '8888 `8888    <8888X X8888   X8?    'f     d8x.   ^%88k  
- %888>'8888  8888    X8888> 488888>"8888x  '>    <88888X   '?8  
-   "8 '888"  8888    X8888>  888888 '8888L  `:..:`888888>    8> 
-  .-` X*"    8888    ?8888X   ?8888>'8888X         `"*88     X  
-    .xhx.    8888     8888X h  8888 '8888~    .xHHhx.."      !  
-  .H88888h.~`8888.>    ?888  -:8*"  <888"    X88888888hx. ..!   
- .~  `%88!` '888*~      `*88.      :88%     !   "*888888888"    
-       `"     ""           ^"~====""`              ^"***"`      
-                                                                
-                                                                
-                                                                
+   _   ___ ___  
+  /_\ / __|   \ 
+ / _ \ (_ | |) |
+/_/ \_\___|___/
\ No newline at end of file

Index: 89
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/89,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 89	28 Mar 2004 18:04:45 -0000	1.1
+++ 89	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,8 +1,5 @@
-
- .--.  .--. .---. 
-: .; :: .--': .  :
-:    :: : _ : :: :
-: :: :: :; :: :; :
-:_;:_;`.__.':___.'
-                  
-                  
+_______________________ 
+___    |_  ____/__  __ \
+__  /| |  / __ __  / / /
+_  ___ / /_/ / _  /_/ / 
+/_/  |_\____/  /_____/
\ No newline at end of file

--- 111 DELETED ---

--- 110 DELETED ---

--- 113 DELETED ---

Index: 69
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/69,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 69	28 Mar 2004 18:04:45 -0000	1.1
+++ 69	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,6 @@
-
-      /\          /\\\\   /\\\\\    
-     /\ \\      /\    /\\ /\\   /\\ 
-    /\  /\\    /\\        /\\    /\\
-   /\\   /\\   /\\        /\\    /\\
-  /\\\\\\ /\\  /\\   /\\\\/\\    /\\
- /\\       /\\  /\\    /\ /\\   /\\ 
-/\\         /\\  /\\\\\   /\\\\\    
-                                    
+                   
+  #   ##### #####  
+ # #  #   #  #  #  
+##### #      #  #  
+#   # #      ####  
+#   # #     #    #
\ No newline at end of file

Index: 82
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/82,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 82	28 Mar 2004 18:04:45 -0000	1.1
+++ 82	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,6 +1,5 @@
-
-    _    __   __ 
-  .' \ ,'_/  /  \
- / o // /_n / o |
-/_n_/ |__,'/__,' 
-                 
+    .aMMMb  .aMMMMP dMMMMb 
+   dMP"dMP dMP"    dMP VMP 
+  dMMMMMP dMP MMP"dMP dMP  
+ dMP dMP dMP.dMP dMP.aMP   
+dMP dMP  VMMMP" dMMMMP"
\ No newline at end of file

Index: 83
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/83,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 83	28 Mar 2004 18:04:45 -0000	1.1
+++ 83	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,5 +1,5 @@
-
-                                          
-     ___          -*~*-          ===      
-    (o o)         (o o)         (o o)     
-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-
+  @@@@@@   @@@@@@@  @@@@@@@ 
+ @@!  @@@ !@@       @@!  @@@
+ @!@!@!@! !@! @!@!@ @!@  !@!
+ !!:  !!! :!!   !!: !!:  !!!
+  :   : :  :: :: :  :: :  :
\ No newline at end of file

Index: 80
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/80,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 80	28 Mar 2004 18:04:45 -0000	1.1
+++ 80	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,4 +1,7 @@
-
- _  __  _ 
-//\(|_;[|)
-          
+      .o.         .oooooo.    oooooooooo.   
+     .888.       d8P'  `Y8b   `888'   `Y8b  
+    .8"888.     888            888      888 
+   .8' `888.    888            888      888 
+  .88ooo8888.   888     ooooo  888      888 
+ .8'     `888.  `88.    .88'   888     d88' 
+o88o     o8888o  `Y8bood8P'   o888bood8P'
\ No newline at end of file

Index: 81
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/81,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 81	28 Mar 2004 18:04:45 -0000	1.1
+++ 81	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,7 +1,5 @@
-
-  __   ____  __   
- (  ) (  __)(  )  
- /o \ | | _ |   \ 
-( __ )( )_))( O  )
-/_\/_\/____\/___/ 
-                  
+    e Y8b       e88'Y88  888 88e   
+   d8b Y8b     d888  'Y  888 888b  
+  d888b Y8b   C8888 eeee 888 8888D 
+ d888888888b   Y888 888P 888 888P  
+d8888888b Y8b   "88 88"  888 88"
\ No newline at end of file

Index: 86
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/86,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 86	28 Mar 2004 18:04:45 -0000	1.1
+++ 86	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,8 +1,5 @@
-
-     /.\      .|'''''| '||'''|. 
-    // \\     || .      ||   || 
-   //...\\    || |''||  ||   || 
-  //     \\   ||    ||  ||   || 
-.//       \\. `|....|' .||...|' 
-                                
-                                
+    ___   __________ 
+   /   | / ____/ __ \
+  / /| |/ / __/ / / /
+ / ___ / /_/ / /_/ / 
+/_/  |_\____/_____/
\ No newline at end of file

Index: 87
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/87,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 87	28 Mar 2004 18:04:45 -0000	1.1
+++ 87	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,5 +1,5 @@
-
-  /\  /~~\|~~\ 
- /__\|  __|   |
-/    \\__/|__/ 
-               
+  #|   #HH||##HH|  
+ #HH| ##    ##  || 
+##  ||## H||##  || 
+##HH||##  ||##  || 
+##  || #HH||##HH|
\ No newline at end of file

Index: 84
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/84,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 84	28 Mar 2004 18:04:45 -0000	1.1
+++ 84	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,5 +1,4 @@
-
-  __  ___ __ 
- /_`) ))_ ))\
-(( ( ((_(((_/
-             
+    \     ___| __ \  
+   _ \   |     |   | 
+  ___ \  |   | |   | 
+_/    _\\____|____/
\ No newline at end of file

Index: 85
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/85,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 85	28 Mar 2004 18:04:45 -0000	1.1
+++ 85	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,10 +1,2 @@
-
- _______  _______  ______  
-(  ___  )(  ____ \(  __  \ 
-| (   ) || (    \/| (  \  )
-| (___) || |      | |   ) |
-|  ___  || | ____ | |   | |
-| (   ) || | \_  )| |   ) |
-| )   ( || (___) || (__/  )
-|/     \|(_______)(______/ 
-                           
+ /|/~ |\
+/-|\_||/
\ No newline at end of file

--- 198 DELETED ---

--- 108 DELETED ---

--- 141 DELETED ---

--- 226 DELETED ---

Index: 3
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/3,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 3	28 Mar 2004 18:04:45 -0000	1.1
+++ 3	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,8 +1,7 @@
-
- ##    ##   ###   
-#  #  #  #  #  #  
-#  #  #     #  #  
-####  # ##  #  #  
-#  #  #  #  #  #  
-#  #   ###  ###   
-                  
+    :::     :::::::: :::::::::  
+  :+: :+:  :+:    :+::+:    :+: 
+ +:+   +:+ +:+       +:+    +:+ 
++#++:++#++::#:       +#+    +:+ 
++#+     +#++#+   +#+#+#+    +#+ 
+#+#     #+##+#    #+##+#    #+# 
+###     ### ######## #########
\ No newline at end of file

Index: 7
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/7,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 7	28 Mar 2004 18:04:45 -0000	1.1
+++ 7	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,13 +1,7 @@
-
-         o           o__ __o       o__ __o      
-        <|>         /v     v\     <|     v\     
-        / \        />       <\    / \     <\    
-      o/   \o    o/               \o/       \o  
-     <|__ __|>  <|       _\__o__   |         |> 
-     /       \   \\          |    / \       //  
-   o/         \o   \         /    \o/      /    
-  /v           v\   o       o      |      o     
- />             <\  <\__ __/>     / \  __/>     
-                                                
-                                                
-                                                
+      ><          ><<<<   ><<<<<    
+     >< <<      ><    ><< ><<   ><< 
+    ><  ><<    ><<        ><<    ><<
+   ><<   ><<   ><<        ><<    ><<
+  ><<<<<< ><<  ><<   ><<<<><<    ><<
+ ><<       ><<  ><<    >< ><<   ><< 
+><<         ><<  ><<<<<   ><<<<<
\ No newline at end of file

Index: 92
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/92,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 92	28 Mar 2004 18:04:45 -0000	1.1
+++ 92	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,5 +1,5 @@
-
-  __    ___  ____ 
- / _\  / __)(    \
-/    \( (_ \ ) D (
-\_/\_/ \___/(____/
+    _    ____ ____  
+   / \  / ___|  _ \ 
+  / _ \| |  _| | | |
+ / ___ \ |_| | |_| |
+/_/   \_\____|____/
\ No newline at end of file

--- 166 DELETED ---

--- 181 DELETED ---

--- 109 DELETED ---

Index: 102
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/102,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 102	28 Mar 2004 18:04:45 -0000	1.1
+++ 102	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,12 +1,4 @@
-
-      ___           ___           ___     
-     /\  \         /\  \         /\  \    
-    /::\  \       /::\  \       /::\  \   
-   /:/\:\  \     /:/\:\  \     /:/\:\  \  
-  /::\~\:\  \   /:/  \:\  \   /:/  \:\__\ 
- /:/\:\ \:\__\ /:/__/_\:\__\ /:/__/ \:|__|
- \/__\:\/:/  / \:\  /\ \/__/ \:\  \ /:/  /
-      \::/  /   \:\ \:\__\    \:\  /:/  / 
-      /:/  /     \:\/:/  /     \:\/:/  /  
-     /:/  /       \::/  /       \::/__/   
-     \/__/         \/__/         ~~       
+  _,  _, __,
+ / \ / _ | \
+ |~| \ / |_/
+ ~ ~  ~  ~
\ No newline at end of file

Index: 103
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/103,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 103	28 Mar 2004 18:04:45 -0000	1.1
+++ 103	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,12 +1,5 @@
-
-      ___           ___                   
-     /\  \         /\__\         _____    
-    /::\  \       /:/ _/_       /::\  \   
-   /:/\:\  \     /:/ /\  \     /:/\:\  \  
-  /:/ /::\  \   /:/ /::\  \   /:/  \:\__\ 
- /:/_/:/\:\__\ /:/__\/\:\__\ /:/__/ \:|__|
- \:\/:/  \/__/ \:\  \ /:/  / \:\  \ /:/  /
-  \::/__/       \:\  /:/  /   \:\  /:/  / 
-   \:\  \        \:\/:/  /     \:\/:/  /  
-    \:\__\        \::/  /       \::/  /   
-     \/__/         \/__/         \/__/    
+  dBBBBBb     dBBBBb  dBBBBb
+       BB                dB'
+   dBP BB   dBBBB   dBP dB' 
+  dBP  BB  dB' BB  dBP dB'  
+ dBBBBBBB dBBBBBB dBBBBB'
\ No newline at end of file

--- 167 DELETED ---

Index: 101
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/101,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 101	28 Mar 2004 18:04:45 -0000	1.1
+++ 101	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,7 +1,5 @@
-
-   _____      _____)  ______   
-  (, /  |   /        (, /    ) 
-    /---|  /   ___     /    /  
- ) /    |_/     / )  _/___ /_  
-(_/      (____ /   (_/___ /    
-                               
+  O   o-o  o-o   
+ / \ o     |  \  
+o---o|  -o |   O 
+|   |o   | |  /  
+o   o o-o  o-o
\ No newline at end of file

Index: 106
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/106,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 106	28 Mar 2004 18:04:45 -0000	1.1
+++ 106	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,5 +1,10 @@
-
-  _   __  __  
- /_| / _ /  ) 
-(  |(__)/(_/  
-              
+                          d8b 
+                          88P 
+                         d88  
+ d888b8b   d888b8b   d888888  
+d8P' ?88  d8P' ?88  d8P' ?88  
+88b  ,88b 88b  ,88b 88b  ,88b 
+`?88P'`88b`?88P'`88b`?88P'`88b
+                 )88          
+                ,88P          
+            `?8888P
\ No newline at end of file

--- 107 DELETED ---

Index: 104
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/104,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 104	28 Mar 2004 18:04:45 -0000	1.1
+++ 104	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,12 +1,9 @@
-
-      ___           ___          _____    
-     /  /\         /  /\        /  /::\   
-    /  /::\       /  /:/_      /  /:/\:\  
-   /  /:/\:\     /  /:/ /\    /  /:/  \:\ 
-  /  /:/~/::\   /  /:/_/::\  /__/:/ \__\:|
- /__/:/ /:/\:\ /__/:/__\/\:\ \  \:\ /  /:/
- \  \:\/:/__\/ \  \:\ /~~/:/  \  \:\  /:/ 
-  \  \::/       \  \:\  /:/    \  \:\/:/  
-   \  \:\        \  \:\/:/      \  \::/   
-    \  \:\        \  \::/        \__\/    
-     \__\/         \__\/                  
+                                            
+       db        ,ad8888ba,  88888888ba,    
+      d88b      d8"'    `"8b 88      `"8b   
+     d8'`8b    d8'           88        `8b  
+    d8'  `8b   88            88         88  
+   d8YaaaaY8b  88      88888 88         88  
+  d8""""""""8b Y8,        88 88         8P  
+ d8'        `8b Y8a.    .a88 88      .a8P   
+d8'          `8b `"Y88888P"  88888888Y"'
\ No newline at end of file

Index: 105
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/105,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 105	28 Mar 2004 18:04:45 -0000	1.1
+++ 105	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,12 +1,5 @@
-
-      ___           ___           ___     
-     /  /\         /  /\         /  /\    
-    /  /::\       /  /::\       /  /::\   
-   /  /:/\:\     /  /:/\:\     /  /:/\:\  
-  /  /::\ \:\   /  /:/  \:\   /  /:/  \:\ 
- /__/:/\:\_\:\ /__/:/_\_ \:\ /__/:/ \__\:|
- \__\/  \:\/:/ \  \:\__/\_\/ \  \:\ /  /:/
-      \__\::/   \  \:\ \:\    \  \:\  /:/ 
-      /  /:/     \  \:\/:/     \  \:\/:/  
-     /__/:/       \  \::/       \__\::/   
-     \__\/         \__\/            ~~    
+ :::====  :::=====  :::==== 
+ :::  === :::       :::  ===
+ ======== === ===== ===  ===
+ ===  === ===   === ===  ===
+ ===  ===  =======  =======
\ No newline at end of file

Index: 39
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/39,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 39	28 Mar 2004 18:04:45 -0000	1.1
+++ 39	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,8 @@
-
-     ##      ###    #####  
-    ###    ##  ##   ##  ## 
-   ####   ##       ##   ## 
-   # ##  ##        ##   ## 
-  #####  ## ####   ##  ##  
- ##  ##  ##  ##   ##  ##   
-###  ###  ####    #####    
-                           
+       _           _  _  _     _  _  _  _       
+     _(_)_      _ (_)(_)(_) _ (_)(_)(_)(_)      
+   _(_) (_)_   (_)         (_) (_)      (_)_    
+ _(_)     (_)_ (_)    _  _  _  (_)        (_)   
+(_) _  _  _ (_)(_)   (_)(_)(_) (_)        (_)   
+(_)(_)(_)(_)(_)(_)         (_) (_)       _(_)   
+(_)         (_)(_) _  _  _ (_) (_)_  _  (_)     
+(_)         (_)   (_)(_)(_)(_)(_)(_)(_)(_)
\ No newline at end of file

Index: 38
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/38,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 38	28 Mar 2004 18:04:45 -0000	1.1
+++ 38	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,6 @@
-
-   ##       ####   #####   
-   ##      ##  ##  ##  ##  
-  ####    ##       ##   ## 
-  ## #    ##       ##   ## 
- ######   ##  ###  ##   ## 
- ##   #    ##  ##  ##  ##  
-###   ##    #####  #####   
-                           
+  ___  ___________ 
+ / _ \|  __ \  _  \
+/ /_\ \ |  \/ | | |
+|  _  | | __| | | |
+| | | | |_\ \ |/ / 
+\_| |_/\____/___/
\ No newline at end of file

Index: 33
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/33,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 33	28 Mar 2004 18:04:45 -0000	1.1
+++ 33	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,11 +1,3 @@
-
-                  
-                  
-  #     ### ###   
- # #   #  # #  #  
- # #  #     #   # 
- ###  #  ## #   # 
-#   # ##  # #  #  
-#  ##   ### ###   
-                  
-                  
+____ ____ ___  
+|__| | __ |  \ 
+|  | |__] |__/
\ No newline at end of file

Index: 32
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/32,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 32	28 Mar 2004 18:04:45 -0000	1.1
+++ 32	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,3 @@
-
-      _/          _////   _/////    
-     _/ //      _/    _// _//   _// 
-    _/  _//    _//        _//    _//
-   _//   _//   _//        _//    _//
-  _////// _//  _//   _////_//    _//
- _//       _//  _//    _/ _//   _// 
-_//         _//  _/////   _/////    
-                                    
+ _______  ______ ______ 
+ |_____| |  ____ |     \
+ |     | |_____| |_____/
\ No newline at end of file

Index: 31
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/31,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 31	28 Mar 2004 18:04:45 -0000	1.1
+++ 31	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,22 +1,4 @@
-
-                                                     
-        **              * ***            ***** **    
-     *****            *  ****  *      ******  ***    
-    *  ***           *  *  ****     **    *  * ***   
-       ***          *  **   **     *     *  *   ***  
-      *  **        *  ***               *  *     *** 
-      *  **       **   **              ** **      ** 
-     *    **      **   **   ***        ** **      ** 
-     *    **      **   **  ****  *     ** **      ** 
-    *      **     **   ** *  ****      ** **      ** 
-    *********     **   ***    **       ** **      ** 
-   *        **     **  **     *        *  **      ** 
-   *        **      ** *      *           *       *  
-  *****      **      ***     *       *****       *   
- *   ****    ** *     *******       *   *********    
-*     **      **        ***        *       ****      
-*                                  *                 
- **                                 **               
-                                                     
-                                                     
-                                                     
+   __  ()  ,  __ 
+  /  ) /`-'| /  )
+ /--/ /   / /  / 
+/  (_/__-<_/__/_
\ No newline at end of file

Index: 30
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/30,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 30	28 Mar 2004 18:04:45 -0000	1.1
+++ 30	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,21 +1,7 @@
-
-                                             
-        ##          # ###        ##### ##    
-     /####        /  /###  /  /#####  /##    
-    /  ###       /  /  ###/ //    /  / ###   
-       /##      /  ##   ## /     /  /   ###  
-      /  ##    /  ###           /  /     ### 
-      /  ##   ##   ##          ## ##      ## 
-     /    ##  ##   ##   ###    ## ##      ## 
-     /    ##  ##   ##  /###  / ## ##      ## 
-    /      ## ##   ## /  ###/  ## ##      ## 
-    /######## ##   ##/    ##   ## ##      ## 
-   /        ## ##  ##     #    #  ##      ## 
-   #        ##  ## #      /       /       /  
-  /####      ##  ###     /   /###/       /   
- /   ####    ## / ######/   /   ########/    
-/     ##      #/    ###    /       ####      
-#                          #                 
- ##                         ##               
-                                             
-                                             
+ _______ _______ ______   
+|   _   |   _   |   _  \  
+|.  1   |.  |___|.  |   \ 
+|.  _   |.  |   |.  |    \
+|:  |   |:  1   |:  1    /
+|::.|:. |::.. . |::.. . / 
+`--- ---`-------`------'
\ No newline at end of file

Index: 37
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/37,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 37	28 Mar 2004 18:04:45 -0000	1.1
+++ 37	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,11 +1,18 @@
-
-                           
-   ##       ####   #####   
-   ##      ##  ##  ##  ##  
-  ####    ##       ##   ## 
-  ## #    ##       ##   ## 
- ######   ##  ###  ##   ## 
- ##   #    ##  ##  ##  ##  
-###   ##    #####  #####   
-                           
-                           
+                                                                      
+                                                                      
+               AAA                  GGGGGGGGGGGGGDDDDDDDDDDDDD        
+              A:::A              GGG::::::::::::GD::::::::::::DDD     
+             A:::::A           GG:::::::::::::::GD:::::::::::::::DD   
+            A:::::::A         G:::::GGGGGGGG::::GDDD:::::DDDDD:::::D  
+           A:::::::::A       G:::::G       GGGGGG  D:::::D    D:::::D 
+          A:::::A:::::A     G:::::G                D:::::D     D:::::D
+         A:::::A A:::::A    G:::::G                D:::::D     D:::::D
+        A:::::A   A:::::A   G:::::G    GGGGGGGGGG  D:::::D     D:::::D
+       A:::::A     A:::::A  G:::::G    G::::::::G  D:::::D     D:::::D
+      A:::::AAAAAAAAA:::::A G:::::G    GGGGG::::G  D:::::D     D:::::D
+     A:::::::::::::::::::::AG:::::G        G::::G  D:::::D     D:::::D
+    A:::::AAAAAAAAAAAAA:::::AG:::::G       G::::G  D:::::D    D:::::D 
+   A:::::A             A:::::AG:::::GGGGGGGG::::GDDD:::::DDDDD:::::D  
+  A:::::A               A:::::AGG:::::::::::::::GD:::::::::::::::DD   
+ A:::::A                 A:::::A GGG::::::GGG:::GD::::::::::::DDD     
+AAAAAAA                   AAAAAAA   GGGGGG   GGGGDDDDDDDDDDDDD
\ No newline at end of file

Index: 36
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/36,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 36	28 Mar 2004 18:04:45 -0000	1.1
+++ 36	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,11 +1,3 @@
-
-                     
-   #     ###   ####  
-  ###   ## ##  ## ## 
- ## ##  ##     ## ## 
- ## ##  #####  ## ## 
- #####  ## ##  ## ## 
- ## ##  ## ##  ## ## 
- ## ##   ####  ####  
-                     
-                     
++-+-+-+
+|A|G|D|
++-+-+-+
\ No newline at end of file

Index: 35
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/35,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 35	28 Mar 2004 18:04:45 -0000	1.1
+++ 35	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,6 +1,7 @@
-
- _______ _______ _____  
-|   _   |     __|     \ 
-|       |    |  |  --  |
-|___|___|_______|_____/ 
-                        
+      /\          /\\\\   /\\\\\    
+     /\ \\      /\    /\\ /\\   /\\ 
+    /\  /\\    /\\        /\\    /\\
+   /\\   /\\   /\\        /\\    /\\
+  /\\\\\\ /\\  /\\   /\\\\/\\    /\\
+ /\\       /\\  /\\    /\ /\\   /\\ 
+/\\         /\\  /\\\\\   /\\\\\
\ No newline at end of file

Index: 34
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/34,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 34	28 Mar 2004 18:04:45 -0000	1.1
+++ 34	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,11 +1,2 @@
-
-                     
-                     
-   ##     ###  ###   
-   ##   ##  #   # ## 
-  # #  #       #   # 
- ####  #   ##  #   # 
- #  #  #   #   # ##  
-##  ##  ###   ###    
-                     
-                     
+ ____ ____ ___ 
+ |--| |__, |__>
\ No newline at end of file

--- 162 DELETED ---

--- 160 DELETED ---

Index: 60
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/60,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 60	28 Mar 2004 18:04:45 -0000	1.1
+++ 60	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,12 +1,5 @@
-
-               
-               
-               
-               
- ##    ## ###  
- # #  #    # # 
- ###  ###  # # 
- # #  # #  # # 
-## ##  ## ###  
-               
-               
+ ___   ___   ___  
+|   | |       | | 
+|-+-| | +-    + | 
+|   | |   |   | | 
+       ---   ---
\ No newline at end of file

Index: 61
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/61,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 61	28 Mar 2004 18:04:45 -0000	1.1
+++ 61	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,11 +1,6 @@
-
-                 
-                 
-                 
-                 
- ####  ###  ###  
-  # # ##     # # 
- #### # ##  #  # 
- # #  #  #  # #  
-## #   ##  ###   
-                 
+                                  
+      _/_/      _/_/_/  _/_/_/    
+   _/    _/  _/        _/    _/   
+  _/_/_/_/  _/  _/_/  _/    _/    
+ _/    _/  _/    _/  _/    _/     
+_/    _/    _/_/_/  _/_/_/
\ No newline at end of file

Index: 62
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/62,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 62	28 Mar 2004 18:04:45 -0000	1.1
+++ 62	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,5 @@
-
-  ____   ____  ___   
- /    T /    T|   \  
-Y  o  |Y   __j|    \ 
-|     ||  T  ||  D  Y
-|  _  ||  l_ ||     |
-|  |  ||     ||     |
-l__j__jl___,_jl_____j
-                     
+  AAA     GGGG  DDDDD   
+ AAAAA   GG  GG DD  DD  
+AA   AA GG      DD   DD 
+AAAAAAA GG   GG DD   DD 
+AA   AA  GGGGGG DDDDDD
\ No newline at end of file

Index: 63
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/63,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 63	28 Mar 2004 18:04:45 -0000	1.1
+++ 63	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,9 +1,3 @@
-
- _______ _______ ______   
-|   _   |   _   |   _  \  
-|.  1   |.  |___|.  |   \ 
-|.  _   |.  |   |.  |    \
-|:  |   |:  1   |:  1    /
-|::.|:. |::.. . |::.. . / 
-`--- ---`-------`------'  
-                          
+.---..---..--. 
+| | || |'_| \ \
+`-^-'`-'-/`-'-'
\ No newline at end of file

Index: 64
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/64,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 64	28 Mar 2004 18:04:45 -0000	1.1
+++ 64	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,7 +1,3 @@
-
-   __  ()  ,  __ 
-  /  ) /`-'| /  )
- /--/ /   / /  / 
-/  (_/__-<_/__/_ 
-                 
-                 
+/=\ /=\ =\  
+|=| | _ | | 
+\ / \=/ =/
\ No newline at end of file

Index: 65
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/65,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 65	28 Mar 2004 18:04:45 -0000	1.1
+++ 65	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,5 +1,7 @@
-
- _______  ______ ______ 
- |_____| |  ____ |     \
- |     | |_____| |_____/
-                        
+      .:          .::::   .:::::    
+     .: ::      .:    .:: .::   .:: 
+    .:  .::    .::        .::    .::
+   .::   .::   .::        .::    .::
+  .:::::: .::  .::   .::::.::    .::
+ .::       .::  .::    .: .::   .:: 
+.::         .::  .:::::   .:::::
\ No newline at end of file

Index: 66
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/66,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 66	28 Mar 2004 18:04:45 -0000	1.1
+++ 66	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,5 +1,3 @@
-
-____ ____ ___  
-|__| | __ |  \ 
-|  | |__] |__/ 
-               
+  /\  /~~\|~~\ 
+ /__\|  __|   |
+/    \\__/|__/
\ No newline at end of file

--- 178 DELETED ---

Index: 68
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/68,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 68	28 Mar 2004 18:04:45 -0000	1.1
+++ 68	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,2 +1 @@
-
-65 71 68 
+.- --. -..
\ No newline at end of file

--- 176 DELETED ---

--- 175 DELETED ---

--- 174 DELETED ---

--- 173 DELETED ---

--- 172 DELETED ---

--- 171 DELETED ---

--- 170 DELETED ---

--- 145 DELETED ---

--- 182 DELETED ---

--- 183 DELETED ---

--- 180 DELETED ---

Index: 2
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/2,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 2	28 Mar 2004 18:04:45 -0000	1.1
+++ 2	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,8 +1,9 @@
-
-                                   
-                                   
-    // | |     //   ) )  //    ) ) 
-   //__| |    //        //    / /  
-  / ___  |   //  ____  //    / /   
- //    | |  //    / / //    / /    
-//     | | ((____/ / //____/ /     
+         o           o__ __o       o__ __o      
+        <|>         /v     v\     <|     v\     
+        / \        />       <\    / \     <\    
+      o/   \o    o/               \o/       \o  
+     <|__ __|>  <|       _\__o__   |         |> 
+     /       \   \\          |    / \       //  
+   o/         \o   \         /    \o/      /    
+  /v           v\   o       o      |      o     
+ />             <\  <\__ __/>     / \  __/>
\ No newline at end of file

--- 186 DELETED ---

--- 187 DELETED ---

--- 184 DELETED ---

Index: 6
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/6,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 6	28 Mar 2004 18:04:45 -0000	1.1
+++ 6	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,10 +1,5 @@
-
-                     
-   #     ##    ###   
-  # #   #  #   #  #  
- #   #  #      #  #  
- #####  # ##   #  #  
- #   #  #  #   #  #  
- #   #   ##    ###   
-                     
-                     
+ ____  _____ ____ 
+/  _ \/  __//  _ \
+| / \|| |  _| | \|
+| |-||| |_//| |_/|
+\_/ \|\____\\____/
\ No newline at end of file

Index: biggest
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/biggest,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- biggest	28 Mar 2004 18:04:46 -0000	1.1
+++ biggest	1 Apr 2004 19:33:32 -0000	1.2
@@ -1 +1 @@
-237
+107

--- 188 DELETED ---

--- 189 DELETED ---

--- 196 DELETED ---

Index: 97
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/97,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 97	28 Mar 2004 18:04:46 -0000	1.1
+++ 97	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,12 +1,6 @@
-
-                  
-                  
-                  
-  #    ###  ####  
-  #   #     #   # 
- # #  #  ## #   # 
- ###  #   # #   # 
-#   # #   # #   # 
-#   #  ###  ####  
-                  
-                  
+  A)aa     G)gggg D)dddd   
+ A)  aa   G)      D)   dd  
+A)    aa G)  ggg  D)    dd 
+A)aaaaaa G)    gg D)    dd 
+A)    aa  G)   gg D)    dd 
+A)    aa   G)ggg  D)ddddd
\ No newline at end of file

Index: 100
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/100,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 100	28 Mar 2004 18:04:45 -0000	1.1
+++ 100	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,11 +1,2 @@
-
-              ,        _           _   
-            /'/      /' `\       /' `\ 
-          /' /     /'     )    /'     )
-       ,/'  /    /'          /'      /'
-      /`--,/   /'   _      /'      /'  
-    /'    /  /'    ' )   /'      /'    
-(,/'     (_,(_____,/'(,/' (___,/'      
-                                       
-                                       
-                                       
+ /\ /~_|~\
+/~~\\_/|_/
\ No newline at end of file

--- 185 DELETED ---

--- 142 DELETED ---

Index: 99
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/99,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 99	28 Mar 2004 18:04:46 -0000	1.1
+++ 99	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,2 +1,5 @@
-
-41 47 44 
+               
+,---.,---.,--. 
+|---||  _.|   |
+|   ||   ||   |
+`   '`---'`--'
\ No newline at end of file

Index: 98
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/98,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 98	28 Mar 2004 18:04:46 -0000	1.1
+++ 98	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,12 +1,4 @@
-
-                     
-                     
-                     
-    #    ###   ####  
-   ##   #   #  #   # 
-  #  #  #      #   # 
- ##### #  ### #    # 
- #   # ##  #  #   #  
-#    #  ###   ####   
-                     
-                     
+   db    .d88b  888b. 
+  dPYb   8P www 8   8 
+ dPwwYb  8b  d8 8   8 
+dP    Yb `Y88P' 888P'
\ No newline at end of file

--- 168 DELETED ---

--- 169 DELETED ---

--- 229 DELETED ---

--- 228 DELETED ---

Index: 91
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/91,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 91	28 Mar 2004 18:04:45 -0000	1.1
+++ 91	1 Apr 2004 19:33:32 -0000	1.2
@@ -1,10 +1,6 @@
-
-  ___        __ ,            
- -   -_,   ,-| ~   -_____    
-(  ~/||   ('||/__,   ' | -,  
-(  / ||  (( |||  |  /| |  |` 
- \/==||  (( |||==|  || |==|| 
- /_ _||   ( / |  , ~|| |  |, 
-(  - \\,   -____/   ~-____,  
-                   (         
-                             
+    ,.   ,---.  .-,--.  
+   / |   |  -'  ' |   \ 
+  /~~|-. |  ,-' , |   / 
+,'   `-' `---|  `-^--'  
+          ,-.|          
+          `-+'
\ No newline at end of file

--- 165 DELETED ---

--- 225 DELETED ---

--- 224 DELETED ---

--- 223 DELETED ---

--- 222 DELETED ---

--- 221 DELETED ---

--- 220 DELETED ---

--- 118 DELETED ---

--- 115 DELETED ---

Index: 13
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/13,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 13	28 Mar 2004 18:04:45 -0000	1.1
+++ 13	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,8 +1,6 @@
-
-   ###     ######   ########  
-  ## ##   ##    ##  ##     ## 
- ##   ##  ##        ##     ## 
-##     ## ##   #### ##     ## 
-######### ##    ##  ##     ## 
-##     ## ##    ##  ##     ## 
-##     ##  ######   ########  
+                              
+  _|_|      _|_|_|  _|_|_|    
+_|    _|  _|        _|    _|  
+_|_|_|_|  _|  _|_|  _|    _|  
+_|    _|  _|    _|  _|    _|  
+_|    _|    _|_|_|  _|_|_|
\ No newline at end of file

Index: 12
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/12,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 12	28 Mar 2004 18:04:45 -0000	1.1
+++ 12	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,9 +1 @@
-
-:::'###:::::'######:::'########::
-::'## ##:::'##... ##:: ##.... ##:
-:'##:. ##:: ##:::..::: ##:::: ##:
-'##:::. ##: ##::'####: ##:::: ##:
- #########: ##::: ##:: ##:::: ##:
- ##.... ##: ##::: ##:: ##:::: ##:
- ##:::: ##:. ######::: ########::
-..:::::..:::......::::........:::
+01000001 01000111 01000100
\ No newline at end of file

Index: 15
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/15,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 15	28 Mar 2004 18:04:45 -0000	1.1
+++ 15	1 Apr 2004 19:33:31 -0000	1.2
@@ -1,9 +1,4 @@
-
-   #     #####  ######  
-  # #   #     # #     # 
- #   #  #       #     # 
-#     # #  #### #     # 
-####### #     # #     # 
-#     # #     # #     # 
-#     #  #####  ######  
-                        
+  _   _   _  
+ / \ / \ / \ 
+( A | G | D )
+ \_/ \_/ \_/
\ No newline at end of file

Index: 14
===========================================...
 
[truncated message content]

[agd-cvs] server/lib/doc/login separate.pl,1.1,NONE

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/lib/doc/login
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21471

Removed Files:
	separate.pl 
Log Message:
Removed.

--- separate.pl DELETED ---

[agd-cvs] server/lib/doc/login generate.pl,NONE,1.1

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/lib/doc/login
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21143

Added Files:
	generate.pl 
Log Message:
Renamed Perl script.

--- NEW FILE: generate.pl ---
#!/usr/bin/perl

$i = 0;
open(INP, 'BANNERS') or die "Can't open BANNERS";
while(<INP>) {
	s/\n//g;
	open(F, "figlet -f/$_ AGD |") or die "Can't run \"figlet -f/$_ AGD\"";
	@str = <F>;
	$_ = join '', @str;
	s/(\s+$|^\n+)//g;
	close(F);
	open(F,">$i") or die "Cannot open $i";
	print F "$_";
	close(F);
	$i++;
}
close(INP);

[agd-cvs] server/lib/doc/login BANNERS,1.1,1.2

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/lib/doc/login
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20901

Modified Files:
	BANNERS 
Log Message:
Updated.

Index: BANNERS
===================================================================
RCS file: /cvsroot/agd/server/lib/doc/login/BANNERS,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- BANNERS	28 Mar 2004 18:04:46 -0000	1.1
+++ BANNERS	1 Apr 2004 19:21:42 -0000	1.2
@@ -1,2101 +1,107 @@
-foobarbaz
-     **       ********  *******  
-    ****     **//////**/**////** 
-   **//**   **      // /**    /**
-  **  //** /**         /**    /**
- **********/**    *****/**    /**
-/**//////**//**  ////**/**    ** 
-/**     /** //******** /*******  
-//      //   ////////  ///////   
-foobarbaz
-            
[...2177 lines suppressed...]
+usr/share/figlet/slide.flf
+usr/share/figlet/small.flf
+usr/share/figlet/speed.flf
+usr/share/figlet/stacey.flf
+usr/share/figlet/stampatello.flf
+usr/share/figlet/standard.flf
+usr/share/figlet/starwars.flf
+usr/share/figlet/stellar.flf
+usr/share/figlet/stop.flf
+usr/share/figlet/straight.flf
+usr/share/figlet/tanja.flf
+usr/share/figlet/thick.flf
+usr/share/figlet/thin.flf
+usr/share/figlet/threepoint.flf
+usr/share/figlet/tinker-toy.flf
+usr/share/figlet/tombstone.flf
+usr/share/figlet/trek.flf
+usr/share/figlet/univers.flf
+usr/share/figlet/usaflag.flf
+usr/share/figlet/whimsy.flf

[agd-cvs] server/src Makefile.in,1.10,1.11 arch.h,1.7,1.8 array.c,1.11,1.12 compile.c,1.18,1.19 compile.h,1.11,1.12 compile_options.h,1.12,1.13 config.h.in,1.2,1.3 dfdecl.in,1.10,1.11 interpret.c,1.16,1.17 interpret.h,1.10,1.11 lex.l,1.12,1.13

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19724/src

Modified Files:
	Makefile.in arch.h array.c compile.c compile.h 
	compile_options.h config.h.in dfdecl.in interpret.c 
	interpret.h lex.l 
Log Message:
Major cleanups.

Index: compile.h
===================================================================
RCS file: /cvsroot/agd/server/src/compile.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- compile.h	28 Mar 2004 18:08:30 -0000	1.11
+++ compile.h	1 Apr 2004 19:17:14 -0000	1.12
@@ -18,11 +18,9 @@
 	int has_been_called;
 	array_t *args; /* For ID_FUN_PROT and ID_FUN */
 } def_id_t;
-
 void define_id(char *name, int type, int lpc_type, array_t *args);
 def_id_t *find_id(char *name);
 
-/* lang.y stuff */
 typedef struct {
 	int side_effect, lval;
 	int type, direct_type;
@@ -31,15 +29,18 @@
 
 int check_operand(int operator, int opr1, int opr2);
 
-void do_addition(array_t *res, array_t *a1, array_t *a2);
-
 int get_fun_index(object_t *ob, char *fun);
 void add_variable(array_t *vars, int scope);
+void add_function(def_id_t *idp, int lineno, array_t *code);
+
+void redeclaration_error(def_id_t *id, int new_type);
+int compare_args(array_t *arg1, array_t *arg2);
 
 void new_block_level(void);
 array_t add_block(array_t *stmt);
 void end_block_level(void);
 
+
 /* Warnings and errors. */
 extern int compile_errors, compile_warnings;
 void display_error(char *s);
@@ -48,9 +49,4 @@
 #define comp_error(s) display_error(s); compile_errors++
 #define comp_warning(s) display_error("warning: "s); compile_warnings++
 
-/*object_t *load_object(char *fn);*/
-program_t *compile_prog(char *path);
-
-void *copy_nt_entry(void *voide);
 #endif
-

Index: interpret.h
===================================================================
RCS file: /cvsroot/agd/server/src/interpret.h,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- interpret.h	28 Mar 2004 17:58:16 -0000	1.10
+++ interpret.h	1 Apr 2004 19:17:14 -0000	1.11
@@ -7,7 +7,6 @@
 #define F_JMPF 2 /* Jump if false. Pops variable off the stack, jumps
 		    forward by <n> if it's false. */
 
-/* Used to be F_PUSH, separated them. */
 #define F_PUSH_INT 3
 #define F_PUSH_STRING 4
 #define F_PUSH_NULL_OBJECT 5
@@ -68,11 +67,15 @@
 
 typedef struct {
 	variable_t *sp, *fp;
+	int num_arg;
+	
 	int *cp;
 	array_t *code;
+	
+	int fun, line;
+	
 	object_t *this_ob, *previous_ob;
 	player_t *this_player;
-	int num_arg;
 } control_stack_t;
 
 extern control_stack_t *csp;

Index: compile_options.h
===================================================================
RCS file: /cvsroot/agd/server/src/compile_options.h,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- compile_options.h	21 Mar 2004 13:43:50 -0000	1.12
+++ compile_options.h	1 Apr 2004 19:17:14 -0000	1.13
@@ -43,7 +43,9 @@
 
 /* Define this if you want to allow root to run AGD,
  * BUT ONLY IF YOU REALLY KNOW WHAT YOU ARE DOING!
- * AGD is probably not very secure at this point. */
+ * AGD is probably not very secure at this point.
+ * I will not take responsibility for anything that happens
+ * because of this. */
 #undef ALLOW_ROOT
 
 #endif

Index: config.h.in
===================================================================
RCS file: /cvsroot/agd/server/src/config.h.in,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- config.h.in	12 Mar 2004 16:03:52 -0000	1.2
+++ config.h.in	1 Apr 2004 19:17:14 -0000	1.3
@@ -3,22 +3,13 @@
 /* Define to 1 if you have the <arpa/inet.h> header file. */
 #undef HAVE_ARPA_INET_H
 
-/* Define to 1 if you have the `atexit' function. */
-#undef HAVE_ATEXIT
-
 /* Define to 1 if you have the <dirent.h> header file, and it defines `DIR'.
    */
 #undef HAVE_DIRENT_H
 
-/* Define to 1 if you don't have `vprintf' but do have `_doprnt.' */
-#undef HAVE_DOPRNT
-
 /* Define to 1 if you have the <fcntl.h> header file. */
 #undef HAVE_FCNTL_H
 
-/* Define to 1 if you have the `floor' function. */
-#undef HAVE_FLOOR
-
 /* Define to 1 if you have the `getcwd' function. */
 #undef HAVE_GETCWD
 
@@ -28,16 +19,15 @@
 /* Define to 1 if you have the `m' library (-lm). */
 #undef HAVE_LIBM
 
+/* Define to 1 if you have the `nsl' library (-lnsl). */
+#undef HAVE_LIBNSL
+
 /* Define to 1 if you have the `socket' library (-lsocket). */
 #undef HAVE_LIBSOCKET
 
 /* Define to 1 if you have the <machine/types.h> header file. */
 #undef HAVE_MACHINE_TYPES_H
 
-/* Define to 1 if your system has a GNU libc compatible `malloc' function, and
-   to 0 otherwise. */
-#undef HAVE_MALLOC
-
 /* Define to 1 if you have the <memory.h> header file. */
 #undef HAVE_MEMORY_H
 
@@ -71,24 +61,15 @@
 /* Define to 1 if you have the <stdlib.h> header file. */
 #undef HAVE_STDLIB_H
 
-/* Define to 1 if you have the `strchr' function. */
-#undef HAVE_STRCHR
-
 /* Define to 1 if you have the `strerror' function. */
 #undef HAVE_STRERROR
 
-/* Define to 1 if you have the `strftime' function. */
-#undef HAVE_STRFTIME
-
 /* Define to 1 if you have the <strings.h> header file. */
 #undef HAVE_STRINGS_H
 
 /* Define to 1 if you have the <string.h> header file. */
 #undef HAVE_STRING_H
 
-/* Define to 1 if you have the `strstr' function. */
-#undef HAVE_STRSTR
-
 /* Define to 1 if you have the <sys/dir.h> header file, and it defines `DIR'.
    */
 #undef HAVE_SYS_DIR_H
@@ -112,8 +93,8 @@
 /* Define to 1 if you have the <unistd.h> header file. */
 #undef HAVE_UNISTD_H
 
-/* Define to 1 if you have the `vprintf' function. */
-#undef HAVE_VPRINTF
+/* Define to 1 if you have the <winsock.h> header file. */
+#undef HAVE_WINSOCK_H
 
 /* Define to 1 if your C compiler doesn't accept -c and -o together. */
 #undef NO_MINUS_C_MINUS_O
@@ -136,17 +117,6 @@
 /* Define to the version of this package. */
 #undef PACKAGE_VERSION
 
-/* Define to 1 if the C compiler supports function prototypes. */
-#undef PROTOTYPES
-
-/* Define as the return type of signal handlers (`int' or `void'). */
-#undef RETSIGTYPE
-
-/* Define to 1 if the `setvbuf' function takes the buffering type as its
-   second argument and the buffer pointer as the third, as on System V before
-   release 3. */
-#undef SETVBUF_REVERSED
-
 /* Define to 1 if you have the ANSI C header files. */
 #undef STDC_HEADERS
 
@@ -163,11 +133,5 @@
    `char[]'. */
 #undef YYTEXT_POINTER
 
-/* Define like PROTOTYPES; this can be used by system headers. */
-#undef __PROTOTYPES
-
 /* Define to empty if `const' does not conform to ANSI C. */
 #undef const
-
-/* Define to rpl_malloc if the replacement function should be used. */
-#undef malloc

Index: Makefile.in
===================================================================
RCS file: /cvsroot/agd/server/src/Makefile.in,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- Makefile.in	28 Mar 2004 18:08:51 -0000	1.10
+++ Makefile.in	1 Apr 2004 19:17:14 -0000	1.11
@@ -113,7 +113,7 @@
 
 AM_CFLAGS = -ansi
 
-AM_YFLAGS = -d 
+AM_YFLAGS = -d
 EXTRA_DIST = dfparse.h lang.h
 
 dist_pkgdata_DATA = options

Index: interpret.c
===================================================================
RCS file: /cvsroot/agd/server/src/interpret.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- interpret.c	28 Mar 2004 17:58:15 -0000	1.16
+++ interpret.c	1 Apr 2004 19:17:14 -0000	1.17
@@ -1,10 +1,17 @@
-#include "std.h"
-#include "lpc_incl.h"
-#include "dfuns.h"
+#include <stdlib.h>
 #include <stdarg.h>
 #include <setjmp.h>
+#include "compile_options.h"
+#include "sys.h"
+#include "array.h"
+#include "lpc.h"
+#include "object.h"
+#include "net.h"
+#include "interpret.h"
+#include "vars.h"
 
-char *opc_name(int i);
+extern player_t *this_player;
+extern object_t *this_ob, *previous_ob;
 
 jmp_buf error_context;
 int have_error_context;
@@ -13,8 +20,6 @@
 int dont_debug_interpreter;
 #endif
 
-static int lineno, funcno;
-
 /* This is the stack containing all local variables, function arguments
    and function return values. */
 variable_t value_stack[VALUE_STACK_SIZE];
@@ -37,7 +42,19 @@
 void call_function(object_t *ob, int index);
 void do_assign(variable_t *lval, variable_t *rval);
 void pop_control_stack(int pop_sp);
-void free_value(variable_t *v);
+char *opc_name(int i);
+
+void stack_trace(void)
+{
+	int i, len;
+	len = csp - &control_stack[0];
+	printf("Stack trace:\n");
+	for(i=len;i>1;i--) {
+		control_stack_t *p = &control_stack[i];
+		printf(" %s: function %d on line %d\n",
+			p->this_ob?p->this_ob->name:"unknown", p->fun, p->line);
+	}
+}
 
 /* Need the F_NEWLINE operation for this. */
 void runtime(char *s)
@@ -45,24 +62,24 @@
 	char *buf;
 	
 	if(!this_ob) {
-		printf("%s on line %d (function %d)\n", s, lineno, funcno);
+		printf("%s on line %d (function %d)\n", s, csp->line, csp->fun);
 		goto out;
 	}
 	
 	buf = xmalloc(strlen(this_ob->name) + strlen(s) + 64);
-	sprintf(buf, "%s: %s on line %d (function %d)\n", this_ob->name, s, lineno, funcno);
-
+	sprintf(buf, "%s: %s on line %d (function %d)\n", this_ob->name, s, csp->line, csp->fun);
 	printf(buf);
 	if(this_player) {
 		do_write(buf);
 		net_disconnect(this_player);
 	}
-
 	xfree(buf);
 
+/*	stack_trace();*/
+
 out:
 	if(csp > &control_stack[0]) {
-		/*pop_locals();*/
+		pop_locals();
 		pop_control_stack(1);
 	}
 	longjmp(error_context, 1);
@@ -125,31 +142,13 @@
 	if(v)
 		do_assign(sp, v);
 	else {
-		free_value(sp);
+		free_var(sp);
 		sp->type = 0;
 	}
 	sp++;
 	CHECK_SP()
 }
 
-void free_value(variable_t *v)
-{
-/*	if(v->name) {
-		xfree(v->name);
-	}*/
-
-	switch(v->type) {
-		case T_STRING:
-			if(v->string_type != ST_STATIC && v->u.s) {
-				xfree(v->u.s);
-			}
-			break;
-		case T_OBJECT:
-			unref_ob(v->u.ob, v);
-			break;
-	}
-}
-
 void do_assign(variable_t *lval, variable_t *rval)
 {
 	*lval = *rval;
@@ -167,7 +166,7 @@
 
 void do_assign_free(variable_t *lval, variable_t *rval)
 {
-	free_value(lval);
+	free_var(lval);
 	do_assign(lval, rval);
 }
 
@@ -198,11 +197,13 @@
 	}
 	putchar('\n');
 	printf("Control stack:\n");
-	for(i=0;i<=csp-&control_stack[0]+1;i++) {
-		printf("%d | cp: %d; fp: %d; sp: %d |\n", i,
-		control_stack[i].cp ? control_stack[i].cp - (csp->code ? (int *) csp->code->data : 0) : 0,
+	for(i=0;i<=csp-&control_stack[0];i++) {
+		printf("%d | cp: %d; fp: %d; sp: %d fun:%d line:%d |\n", i,
+		control_stack[i].cp ? control_stack[i].cp -
+			(control_stack[i].code ? (int *) control_stack[i].code->data : 0) : 0,
 		control_stack[i].fp ? control_stack[i].fp - &value_stack[0] : 0,
-		control_stack[i].sp ? control_stack[i].sp - &value_stack[0] : 0);
+		control_stack[i].sp ? control_stack[i].sp - &value_stack[0] : 0,
+		control_stack[i].fun, control_stack[i].line);
 	}
 }
 #else
@@ -212,7 +213,7 @@
 
 void push_control_stack(void)
 {
-/*	csp->previous_ob = previous_ob;*/
+	csp->previous_ob = previous_ob;
 	csp->this_ob = this_ob;
 	if(this_ob)
 		csp->this_player = this_ob->iaob;
@@ -237,7 +238,7 @@
 	cp = csp->cp;
 	code = csp->code;
 
-/*	previous_ob = csp->previous_ob;*/
+	previous_ob = csp->previous_ob;
 	this_ob = csp->this_ob;
 	if(this_ob && this_ob->iaob)
 		this_player = /*this_ob->iaob*/ csp->this_player;
@@ -247,17 +248,13 @@
 #define CHECK_OVERRUN() if((int *) cp >= (int *) code->data + code->length) {\
 	debug("interpret", "Ran over end of array: returning\n"); return; }
 
-/*#define GET_ARGS() tmpi = 0; while(tmpi < 2) { \
-	tmp = --sp; if(tmp->type == T_LVALUE) tmp = tmp->u.v;\
-	arg[tmpi] = tmp->u.i; tmpi++; free_value(sp); }*/
 #define GET_ARGS() arg[0] = sp[-1].u.i; pop_stack(); arg[1] = sp[-1].u.i; pop_stack();
 
-#define SETUP_CALL_FRAME() tmpi = *++cp; cp++; push_control_stack(); \
-			   csp->num_arg = *cp; fp = sp - csp->num_arg
-
 #define TAKE_SLICE() GET_ARGS() if(!sp[-1].u.s) runtime("taking substring of NULL string"); \
 	if(arg[1] >= strlen(sp[-1].u.s) || arg[1] < 0 || arg[1] > arg[0]) runtime("substring out of range"); \
 
+#define SETUP_FRAME() push_control_stack(); csp->num_arg = *cp; fp = sp - csp->num_arg;
+
 void eval_instruction(void)
 {
 	variable_t *tmpvp, tmpv;
@@ -408,7 +405,7 @@
 			} else {
 				cp++;
 			}
-			free_value(sp);
+			free_var(sp);
 			CHECK_OVERRUN()
 			break;
 		case F_JMP:
@@ -441,7 +438,7 @@
 		case F_NOT:
 			sp--;
 			tmpi = test_var(sp);
-			free_value(sp);
+			free_var(sp);
 			push_int(!tmpi);
 			break;
 		case F_GT:
@@ -461,12 +458,16 @@
 			push_int(arg[1] <= arg[0] ? 1 : 0);
 			break;
 		case F_CALL_LFUN:
-			SETUP_CALL_FRAME();
+			tmpi = *++cp;
+			cp++;
+			SETUP_FRAME();
 			call_function(this_ob, tmpi);
 			goto again;
 			break;
 		case F_CALL_DFUN:
-			SETUP_CALL_FRAME();
+			tmpi = *++cp;
+			cp++;
+			SETUP_FRAME();
 			dfptr[tmpi]();
 			pop_control_stack(0);
 			break;
@@ -490,10 +491,10 @@
 			}
 
 			tmpi = get_fun_index(tmpv.u.ob, tmps);
-			free_value(sp);
-			push_control_stack();
-			csp->num_arg = *cp;
-			fp = sp - csp->num_arg;
+			free_var(sp);
+			if(tmpi == -1)
+				runtime("function doesn't exist");
+			SETUP_FRAME();
 			call_function(tmpv.u.ob, tmpi);
 			goto again;
 			break;
@@ -526,7 +527,6 @@
 #ifdef DEBUG
 		debug("interpret", "this_ob destructed; returning\n");
 #endif
-		/* Should we pop to the bottom? */
 		pop_control_stack(1);
 		pop_locals();
 		return;
@@ -547,8 +547,8 @@
 		runtime(buf);
 	}
 
-/*	funcno = index;
-	lineno = f->lineno;*/
+	csp->line = f->lineno;
+	csp->fun = index;
 
 	i = f->args.length - csp->num_arg;
 	if(i > 0) {
@@ -561,7 +561,7 @@
 					push_object(NULL);
 					break;
 				case T_STRING:
-					push_string("0", ST_STATIC);
+					push_string("", ST_STATIC);
 					break;
 			}
 		}
@@ -570,15 +570,13 @@
 #ifdef DEBUG	
 	debug("interpret", "call_function %d on %s\n", index, ob->name);
 #endif
-/*	previous_ob = this_ob;*/
+	previous_ob = this_ob;
 	this_ob = ob;
 	if(this_ob->iaob)
 		this_player = this_ob->iaob;
 	
 	cp = (int *) &f->code.data[0];
 	code = &f->code;
-
-/*	funcno = 0;*/
 }
 
 void init_interpreter(void)
@@ -655,6 +653,7 @@
 		if(setjmp(error_context)) {
 			/* setjmp() returned a value, 
 			 * so we got here by longjmp(). */
+			have_error_context = 0;
 			return NULL;
 		}
 		have_error_context = 1;
@@ -667,6 +666,8 @@
 	gettimeofday(&tm2, NULL);
 	debug("lpc", "apply \"%s\" done in %d microseconds\n", fun, tm2.tv_usec - tm.tv_usec);
 #endif
+
+	have_error_context = 0;
 	return fp;
 }
 

Index: compile.c
===================================================================
RCS file: /cvsroot/agd/server/src/compile.c,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- compile.c	28 Mar 2004 17:54:29 -0000	1.18
+++ compile.c	1 Apr 2004 19:17:14 -0000	1.19
@@ -1,7 +1,16 @@
-#include "std.h"
+#include <stdio.h>
 #include <errno.h>
-#include "lex.h" /* for yylloc */
-#include "lpc_incl.h"
+#include "sys.h"
+#include "compile_options.h"
+#include "array.h"
+#include "lpc.h"
+#include "object.h"
+#include "compile.h"
+#include "net.h"
+#include "interpret.h"
+#include "lang.h"
+
+extern object_t *this_ob;
 
 static program_t *this_prog;
 static function_t *curr_f; /* TODO: rename to curr_fun. */
@@ -24,6 +33,8 @@
 
 static int start_with_newline;
 
+extern FILE *yyin;
+
 /* define_id functions. */
 void define_id(char *name, int type, int lpc_type, array_t *args)
 {
@@ -243,11 +254,6 @@
 			  are set in the code. */
 	operator_t *op;
 
-	if(opr1 == T_VOID) {
-		printf("valid_operand(): T_VOID\n");
-		return;
-	}
-	
 	if(!opr1)
 		return;
 
@@ -255,9 +261,11 @@
 	memset(buf, 0, sizeof buf);
 
 	op = &operator_table[operator-F_ADD];
+
 	if(op->valid[opr1-1] == 0 ||
 	   (op->num_operand == 2 && opr2
-	    && op->both_same_type && opr1 != opr2)) {
+	    && op->valid[opr2-1] == 0)
+	   || (op->both_same_type && opr1 != opr2)) {
 		switch(op->num_operand) {
 		case 1:
 			sprintf(buf, "wrong type argument to unary ");
@@ -494,7 +502,8 @@
 	}
 
 /*	buf = xmalloc(strlen(s) + 256);
-	s*/printf(/*buf, */"%s:%d:%d: %s\n", this_file, yylloc.line, yylloc.pos, s);
+	s*/printf(/*buf, */"%s:%d:%d: %s\n", this_file,
+			yylloc.first_line, yylloc.first_column, s);
 /*	do_write(buf);
 	xfree(buf);*/
 }
@@ -527,8 +536,7 @@
 	free_array(&local_ids, free_id);
 	init_array(&block_history);
 	
-	yylloc.pos = 0;
-	yylloc.line = 1;
+	yylloc.first_line = yylloc.first_column = 1;
 	yyreset();
 }
 
@@ -565,12 +573,12 @@
 	path = add_extension(path);
 	
 #ifdef DEBUG
-	if(conf.debuglevel > 1)
+	if(conf.debuglevel)
 		gettimeofday(&tm, NULL);
 #endif
 	
 	real_path = absolute_path(path);
-	printf("compiling %s...", path);
+	printf("compiling %s... ", path);
 	start_with_newline = 1;
 
 	yyin = fopen(real_path, "r");
@@ -616,18 +624,15 @@
 
 	ref_prog(prog);
 
-#ifdef DEBUG
 	printf("done");
-	if(conf.debuglevel > 1) {
+
+#ifdef DEBUG
+	if(conf.debuglevel) {
 		gettimeofday(&tm2, NULL);
 		printf(" in %d microseconds\n", abs(tm2.tv_usec - tm.tv_usec));
 	} else {
 		putchar('\n');
 	}
-#else
-	printf("done\n");
-#endif
-#ifdef DEBUG
 	if(conf.debuglevel > 1) {
 		printf("Printing code for program %s:\n", path);
 		printf("Globals: \n");
@@ -635,6 +640,8 @@
 		printf("\n");
 		print_code(prog);
 	}
+#else
+	putchar('\n');
 #endif
 
 out:

Index: dfdecl.in
===================================================================
RCS file: /cvsroot/agd/server/src/dfdecl.in,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- dfdecl.in	28 Mar 2004 17:59:23 -0000	1.10
+++ dfdecl.in	1 Apr 2004 19:17:14 -0000	1.11
@@ -20,7 +20,7 @@
 int write(string)
 void shout(string, object)
 void tell_object(object, string)
-int interactivep(object)
+int interactive(object)
 void input_to(string)
 int query_idle(object)
 string query_ip(object)

Index: lex.l
===================================================================
RCS file: /cvsroot/agd/server/src/lex.l,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- lex.l	28 Mar 2004 17:57:19 -0000	1.12
+++ lex.l	1 Apr 2004 19:17:14 -0000	1.13
@@ -8,56 +8,38 @@
 %x in_string in_string_backslash
 %x charconst charconstgotten charbackslash
 %x comment linecomment
-%option yylineno
 %{
 #include "compile_options.h"
 #include "lpc_incl.h"
+#include "compile.h"
 #include "lang.h"
-#include "lex.h" /* for yylloc */
 #include "sys.h" /* conf_t */
+#define pos yylloc.first_column
+#define line yylloc.first_line
 
-#undef USE_FUTUREPOS
-
-/* i'm not sure why can't use yylloc outside of the .y file
-	something to do with the --bison-locations option? */
-
-/* using custom struct for now, see lex.h */
-extern YYLTYPE yylloc;
-
-static int
-#ifdef USE_FUTUREPOS
-		futurepos,
-#endif
-		warned_newlines,
+static int	warned_newlines,
 		ignore_white_space,
 		warned_charconst;
 
 #ifdef DEBUG
 #define RET(type, value, tok) \
-		MOVE(yyleng); \
+		pos += yyleng; \
 		if(conf.debuglevel > 3) \
-			printf("yylex(): %"#type"; pos: %d\n", value, yylloc.pos); \
-		yylloc.line = yylineno; \
+			printf("yylex(): %"#type"; pos: %d\n", value, pos); \
 		return tok
 #else
-#define RET(type, value, tok) MOVE(yyleng); yylloc.line = yylineno; return tok
-#endif
-
-#ifdef USE_FUTUREPOS
-#define MOVE(x) yylloc.pos += futurepos; futurepos = x
-#else
-#define MOVE(x) yylloc.pos += x
+#define RET(type, value, tok) return tok
 #endif
 
-#define NEWLINE() yylloc.pos = 0; yylloc.line = yylineno
+#define NEWLINE() pos = 1; line++
 
 #define STRCHECK() if(string_buf_ptr - string_buf >= MAX_STRING_LENGTH) {\
 	comp_error("maximum string length exceeded!\n"); BEGIN(INITIAL); }
 
-#define STRING_PUTCHAR(x) STRCHECK() MOVE(1); *string_buf_ptr++ = x; BEGIN(in_string);
+#define STRING_PUTCHAR(x) STRCHECK() pos++; *string_buf_ptr++ = x; BEGIN(in_string);
 #define STRING_PUTWHITESPACE(x) STRCHECK() if(!ignore_white_space) \
-		*string_buf_ptr++ = yytext[0]; MOVE(x);
-#define STRING_PUTCHAR2(x, x2) STRCHECK() MOVE(1); *string_buf_ptr++ = x; *string_buf_ptr++ = x2; BEGIN(in_string);
+		*string_buf_ptr++ = yytext[0]; pos += x;
+#define STRING_PUTCHAR2(x, x2) STRCHECK() pos++; *string_buf_ptr++ = x; *string_buf_ptr++ = x2; BEGIN(in_string);
 %}
 	
 IDENTIFIER [a-zA-Z_][a-zA-Z0-9_]*
@@ -66,38 +48,31 @@
 	char *string_buf_ptr;
 %%
  /* comments */
-"/*"		MOVE(2); BEGIN(comment);
+"/*"		pos += 2; BEGIN(comment);
 "*/"		{
 		 comp_error("unmatched */");
+		 pos += 2;
 		 BEGIN(INITIAL);
 		}
 <comment>{
-	"*/"	MOVE(2); BEGIN(INITIAL);
-	.	MOVE(1);
-	\n	{
-		 NEWLINE();
-		}
+	"*/"	pos += 2; BEGIN(INITIAL);
+	.	pos++;
+	\n	NEWLINE();
 }
-"//"		MOVE(2); BEGIN(linecomment);
+"//"		pos += 2; BEGIN(linecomment);
 <linecomment>{
-	.	MOVE(1);
-	\n	{
-		 NEWLINE();
-		 BEGIN(INITIAL);
-		}
+	.	pos++;
+	\n	NEWLINE(); BEGIN(INITIAL);
 }
 
  /* strings */
 \"          {
 	       string_buf_ptr = string_buf;
-	       MOVE(1);
+	       pos++;
                BEGIN(in_string);
             }
 <in_string>{
-	\\ {
-		MOVE(1);
-		BEGIN(in_string_backslash);
-	}
+	\\ 	pos++; BEGIN(in_string_backslash);
 	\" {
 		*string_buf_ptr = '\0';
 		yylval.str = stringdup(string_buf);
@@ -111,7 +86,7 @@
 		if(ignore_white_space) 
 			ignore_white_space = 0;
 		*string_buf_ptr++ = yytext[0];
-		MOVE(1);
+		pos++;
 	}
 	\n	comp_error("multi-line string");
 }
@@ -133,7 +108,7 @@
 			char buf[128];
 			sprintf(buf, "invalid escape code (%c)", *yytext);
 			comp_error(buf);
-			MOVE(1);
+			pos++;
 			BEGIN(INITIAL);
 		}
 }
@@ -142,9 +117,7 @@
 '		BEGIN(charconst);
 <charconst>{
 	'	BEGIN(INITIAL);
-	\\	{
-			BEGIN(charbackslash);
-		}
+	\\	BEGIN(charbackslash);
 	.	{
 			yylval.i = *yytext;
 			BEGIN(charconstgotten);
@@ -159,7 +132,6 @@
 			BEGIN(INITIAL);
 		}
 	.	{
-			printf("anything\n");
 			warned_charconst = 1;
 			comp_error("multi-character character constant");
 		}
@@ -202,9 +174,9 @@
 			RET(c, '\f', L_INTEGER);
 		}
 	e	{
-			yylval.i = '\27';
+			yylval.i = '\33';
 			BEGIN(charconstgotten);
-			RET(c, '\27', L_INTEGER);
+			RET(c, '\33', L_INTEGER);
 		}
 	\\	{
 			yylval.i = '\\';
@@ -279,14 +251,14 @@
 		 yylval.str = str;
 		 RET(s, str, L_IDENTIFIER);
 		}
-" "		MOVE(1);
-\t		MOVE(8);
+" "		pos++;
+\t		pos += 8;
 \r		{
 		 if(!warned_newlines) {
 			comp_warning("non-Unix newlines"); 
 			warned_newlines = 1;
 		 }
-		 MOVE(1);
+		 pos++;
 		}
 \n		NEWLINE();
 .		RET(c, *yytext, *yytext);
@@ -295,9 +267,5 @@
 
 void yyreset(void)
 {
-	yylineno = 1;
 	warned_newlines = 0;
-#ifdef USE_FUTUREPOS
-	futurepos = 0;
-#endif
 }

Index: arch.h
===================================================================
RCS file: /cvsroot/agd/server/src/arch.h,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- arch.h	21 Mar 2004 16:37:06 -0000	1.7
+++ arch.h	1 Apr 2004 19:17:14 -0000	1.8
@@ -9,7 +9,7 @@
 
 #ifdef _WIN32
 #define OPSYS "Windows"
-#define WINSOCK
+/*#define WINSOCK*/
 #endif
 
 #ifdef __FreeBSD__

Index: array.c
===================================================================
RCS file: /cvsroot/agd/server/src/array.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- array.c	20 Mar 2004 20:26:36 -0000	1.11
+++ array.c	1 Apr 2004 19:17:14 -0000	1.12
@@ -7,9 +7,10 @@
 		Arrays also aren't linked lists of variable_t's anymore, this is a
 		generic data structure now.
 */
-
-#include "std.h"
-#include "lpc_incl.h"
+#include <stdlib.h>
+#include "compile_options.h"
+#include "sys.h"
+#include "array.h"
 
 void init_array(array_t *a)
 {

[agd-cvs] server BUGS,1.10,1.11 ChangeLog,1.16,1.17 Ideas,1.6,1.7 NEWS,1.10,1.11 README,1.6,1.7 TODO,1.17,1.18 configure,1.6,1.7 configure.ac,1.7,1.8

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19724

Modified Files:
	BUGS ChangeLog Ideas NEWS README TODO configure configure.ac 
Log Message:
Major cleanups.

Index: configure
===================================================================
RCS file: /cvsroot/agd/server/configure,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- configure	28 Mar 2004 18:01:14 -0000	1.6
+++ configure	1 Apr 2004 19:17:12 -0000	1.7
@@ -1,7 +1,7 @@
 #! /bin/sh
 # From configure.ac revision 0.08.
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.59 for AGD 0.0.2-3.
+# Generated by GNU Autoconf 2.59 for AGD 0.0.3.
 #
 # Report bugs to <so...@es...>.
 #
@@ -270,8 +270,8 @@
 # Identity of this package.
 PACKAGE_NAME='AGD'
 PACKAGE_TARNAME='agd'
-PACKAGE_VERSION='0.0.2-3'
-PACKAGE_STRING='AGD 0.0.2-3'
+PACKAGE_VERSION='0.0.3'
+PACKAGE_STRING='AGD 0.0.3'
 PACKAGE_BUGREPORT='so...@es...'
 
 ac_unique_file="src/dfparse.y"
@@ -782,7 +782,7 @@
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures AGD 0.0.2-3 to adapt to many kinds of systems.
+\`configure' configures AGD 0.0.3 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -844,7 +844,7 @@
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of AGD 0.0.2-3:";;
+     short | recursive ) echo "Configuration of AGD 0.0.3:";;
    esac
   cat <<\_ACEOF
 
@@ -968,7 +968,7 @@
 test -n "$ac_init_help" && exit 0
 if $ac_init_version; then
   cat <<\_ACEOF
-AGD configure 0.0.2-3
+AGD configure 0.0.3
 generated by GNU Autoconf 2.59
 
 Copyright (C) 2003 Free Software Foundation, Inc.
@@ -982,7 +982,7 @@
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by AGD $as_me 0.0.2-3, which was
+It was created by AGD $as_me 0.0.3, which was
 generated by GNU Autoconf 2.59.  Invocation command line was
 
   $ $0 $@
@@ -1593,7 +1593,7 @@
 
 # Define the identity of the package.
  PACKAGE='agd'
- VERSION='0.0.2-3'
+ VERSION='0.0.3'
 
 
 cat >>confdefs.h <<_ACEOF
@@ -3344,8 +3344,8 @@
 echo "${ECHO_T}no" >&6
 fi
 
-echo "$as_me:$LINENO: checking whether to enable Bison debuggigngigng" >&5
-echo $ECHO_N "checking whether to enable Bison debuggigngigng... $ECHO_C" >&6
+echo "$as_me:$LINENO: checking whether to enable Bison debugging" >&5
+echo $ECHO_N "checking whether to enable Bison debugging... $ECHO_C" >&6
 # Check whether --enable-bison-debug or --disable-bison-debug was given.
 if test "${enable_bison_debug+set}" = set; then
   enableval="$enable_bison_debug"
@@ -4427,7 +4427,8 @@
 
 
 
-for ac_header in arpa/inet.h fcntl.h netinet/in.h stddef.h sys/socket.h sys/time.h unistd.h
+
+for ac_header in arpa/inet.h fcntl.h netinet/in.h stddef.h sys/socket.h sys/time.h unistd.h winsock.h
 do
 as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh`
 if eval "test \"\${$as_ac_Header+set}\" = set"; then
@@ -5088,867 +5089,18 @@
 
 
 # Checks for library functions.
-
-for ac_header in stdlib.h
-do
-as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh`
-if eval "test \"\${$as_ac_Header+set}\" = set"; then
-  echo "$as_me:$LINENO: checking for $ac_header" >&5
-echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6
-if eval "test \"\${$as_ac_Header+set}\" = set"; then
-  echo $ECHO_N "(cached) $ECHO_C" >&6
-fi
-echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5
-echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6
-else
-  # Is the header compilable?
-echo "$as_me:$LINENO: checking $ac_header usability" >&5
-echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6
-cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-$ac_includes_default
-#include <$ac_header>
-_ACEOF
-rm -f conftest.$ac_objext
-if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
-  (eval $ac_compile) 2>conftest.er1
-  ac_status=$?
-  grep -v '^ *+' conftest.er1 >conftest.err
-  rm -f conftest.er1
-  cat conftest.err >&5
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } &&
-	 { ac_try='test -z "$ac_c_werror_flag"			 || test ! -s conftest.err'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; } &&
-	 { ac_try='test -s conftest.$ac_objext'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; }; then
-  ac_header_compiler=yes
-else
-  echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-ac_header_compiler=no
-fi
-rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
-echo "$as_me:$LINENO: result: $ac_header_compiler" >&5
-echo "${ECHO_T}$ac_header_compiler" >&6
-
-# Is the header present?
-echo "$as_me:$LINENO: checking $ac_header presence" >&5
-echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6
-cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-#include <$ac_header>
-_ACEOF
-if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5
-  (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1
-  ac_status=$?
-  grep -v '^ *+' conftest.er1 >conftest.err
-  rm -f conftest.er1
-  cat conftest.err >&5
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } >/dev/null; then
-  if test -s conftest.err; then
-    ac_cpp_err=$ac_c_preproc_warn_flag
-    ac_cpp_err=$ac_cpp_err$ac_c_werror_flag
-  else
-    ac_cpp_err=
-  fi
-else
-  ac_cpp_err=yes
-fi
-if test -z "$ac_cpp_err"; then
-  ac_header_preproc=yes
-else
-  echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-  ac_header_preproc=no
-fi
-rm -f conftest.err conftest.$ac_ext
-echo "$as_me:$LINENO: result: $ac_header_preproc" >&5
-echo "${ECHO_T}$ac_header_preproc" >&6
-
-# So?  What about this header?
-case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in
-  yes:no: )
-    { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5
-echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;}
-    { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5
-echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;}
-    ac_header_preproc=yes
-    ;;
-  no:yes:* )
-    { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5
-echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;}
-    { echo "$as_me:$LINENO: WARNING: $ac_header:     check for missing prerequisite headers?" >&5
-echo "$as_me: WARNING: $ac_header:     check for missing prerequisite headers?" >&2;}
-    { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5
-echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;}
-    { echo "$as_me:$LINENO: WARNING: $ac_header:     section \"Present But Cannot Be Compiled\"" >&5
-echo "$as_me: WARNING: $ac_header:     section \"Present But Cannot Be Compiled\"" >&2;}
-    { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5
-echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;}
-    { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5
-echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;}
-    (
-      cat <<\_ASBOX
-## --------------------------------- ##
-## Report this to so...@es... ##
-## --------------------------------- ##
-_ASBOX
-    ) |
-      sed "s/^/$as_me: WARNING:     /" >&2
-    ;;
-esac
-echo "$as_me:$LINENO: checking for $ac_header" >&5
-echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6
-if eval "test \"\${$as_ac_Header+set}\" = set"; then
-  echo $ECHO_N "(cached) $ECHO_C" >&6
-else
-  eval "$as_ac_Header=\$ac_header_preproc"
-fi
-echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5
-echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6
-
-fi
-if test `eval echo '${'$as_ac_Header'}'` = yes; then
-  cat >>confdefs.h <<_ACEOF
-#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-
-done
-
-echo "$as_me:$LINENO: checking for GNU libc compatible malloc" >&5
-echo $ECHO_N "checking for GNU libc compatible malloc... $ECHO_C" >&6
-if test "${ac_cv_func_malloc_0_nonnull+set}" = set; then
-  echo $ECHO_N "(cached) $ECHO_C" >&6
-else
-  if test "$cross_compiling" = yes; then
-  ac_cv_func_malloc_0_nonnull=no
-else
-  cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-#if STDC_HEADERS || HAVE_STDLIB_H
-# include <stdlib.h>
-#else
-char *malloc ();
-#endif
-
-int
-main ()
-{
-exit (malloc (0) ? 0 : 1);
-  ;
-  return 0;
-}
-_ACEOF
-rm -f conftest$ac_exeext
-if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-  (eval $ac_link) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } && { ac_try='./conftest$ac_exeext'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; }; then
-  ac_cv_func_malloc_0_nonnull=yes
-else
-  echo "$as_me: program exited with status $ac_status" >&5
-echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-( exit $ac_status )
-ac_cv_func_malloc_0_nonnull=no
-fi
-rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext
-fi
-fi
-echo "$as_me:$LINENO: result: $ac_cv_func_malloc_0_nonnull" >&5
-echo "${ECHO_T}$ac_cv_func_malloc_0_nonnull" >&6
-if test $ac_cv_func_malloc_0_nonnull = yes; then
-
-cat >>confdefs.h <<\_ACEOF
-#define HAVE_MALLOC 1
-_ACEOF
-
-else
-  cat >>confdefs.h <<\_ACEOF
-#define HAVE_MALLOC 0
-_ACEOF
-
-   case $LIBOBJS in
-    "malloc.$ac_objext"   | \
-  *" malloc.$ac_objext"   | \
-    "malloc.$ac_objext "* | \
-  *" malloc.$ac_objext "* ) ;;
-  *) LIBOBJS="$LIBOBJS malloc.$ac_objext" ;;
-esac
-
-
-cat >>confdefs.h <<\_ACEOF
-#define malloc rpl_malloc
-_ACEOF
-
-fi
-
-
-
-echo "$as_me:$LINENO: checking for function prototypes" >&5
-echo $ECHO_N "checking for function prototypes... $ECHO_C" >&6
-if test "$ac_cv_prog_cc_stdc" != no; then
-  echo "$as_me:$LINENO: result: yes" >&5
-echo "${ECHO_T}yes" >&6
-
-cat >>confdefs.h <<\_ACEOF
-#define PROTOTYPES 1
-_ACEOF
-
-
-cat >>confdefs.h <<\_ACEOF
-#define __PROTOTYPES 1
-_ACEOF
-
-else
-  echo "$as_me:$LINENO: result: no" >&5
-echo "${ECHO_T}no" >&6
-fi
-
-echo "$as_me:$LINENO: checking whether setvbuf arguments are reversed" >&5
-echo $ECHO_N "checking whether setvbuf arguments are reversed... $ECHO_C" >&6
-if test "${ac_cv_func_setvbuf_reversed+set}" = set; then
-  echo $ECHO_N "(cached) $ECHO_C" >&6
-else
-  ac_cv_func_setvbuf_reversed=no
-   cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-#include <stdio.h>
-#	  if PROTOTYPES
-	   int (setvbuf) (FILE *, int, char *, size_t);
-#	  endif
-int
-main ()
-{
-char buf; return setvbuf (stdout, _IOLBF, &buf, 1);
-  ;
-  return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-  (eval $ac_link) 2>conftest.er1
-  ac_status=$?
-  grep -v '^ *+' conftest.er1 >conftest.err
-  rm -f conftest.er1
-  cat conftest.err >&5
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } &&
-	 { ac_try='test -z "$ac_c_werror_flag"			 || test ! -s conftest.err'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; } &&
-	 { ac_try='test -s conftest$ac_exeext'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; }; then
-  cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-#include <stdio.h>
-#	     if PROTOTYPES
-	      int (setvbuf) (FILE *, int, char *, size_t);
-#	     endif
-int
-main ()
-{
-char buf; return setvbuf (stdout, &buf, _IOLBF, 1);
-  ;
-  return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-  (eval $ac_link) 2>conftest.er1
-  ac_status=$?
-  grep -v '^ *+' conftest.er1 >conftest.err
-  rm -f conftest.er1
-  cat conftest.err >&5
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } &&
-	 { ac_try='test -z "$ac_c_werror_flag"			 || test ! -s conftest.err'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; } &&
-	 { ac_try='test -s conftest$ac_exeext'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; }; then
-  # It compiles and links either way, so it must not be declared
-	 # with a prototype and most likely this is a K&R C compiler.
-	 # Try running it.
-	 if test "$cross_compiling" = yes; then
-  : # Assume setvbuf is not reversed when cross-compiling.
-else
-  cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-#include <stdio.h>
-int
-main ()
-{
-/* This call has the arguments reversed.
-		   A reversed system may check and see that the address of buf
-		   is not _IOLBF, _IONBF, or _IOFBF, and return nonzero.  */
-		char buf;
-		if (setvbuf (stdout, _IOLBF, &buf, 1) != 0)
-		  exit (1);
-		putchar ('\r');
-		exit (0); /* Non-reversed systems SEGV here.  */
-  ;
-  return 0;
-}
-_ACEOF
-rm -f conftest$ac_exeext
-if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-  (eval $ac_link) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } && { ac_try='./conftest$ac_exeext'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; }; then
-  ac_cv_func_setvbuf_reversed=yes
-else
-  echo "$as_me: program exited with status $ac_status" >&5
-echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-( exit $ac_status )
-rm -f core *.core
-fi
-rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext
-fi
-	ac_cv_func_setvbuf_reversed=yes
-else
-  echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-fi
-rm -f conftest.err conftest.$ac_objext \
-      conftest$ac_exeext conftest.$ac_ext
-else
-  echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-fi
-rm -f conftest.err conftest.$ac_objext \
-      conftest$ac_exeext conftest.$ac_ext
-fi
-echo "$as_me:$LINENO: result: $ac_cv_func_setvbuf_reversed" >&5
-echo "${ECHO_T}$ac_cv_func_setvbuf_reversed" >&6
-if test $ac_cv_func_setvbuf_reversed = yes; then
-
-cat >>confdefs.h <<\_ACEOF
-#define SETVBUF_REVERSED 1
-_ACEOF
-
-fi
-
-echo "$as_me:$LINENO: checking return type of signal handlers" >&5
-echo $ECHO_N "checking return type of signal handlers... $ECHO_C" >&6
-if test "${ac_cv_type_signal+set}" = set; then
-  echo $ECHO_N "(cached) $ECHO_C" >&6
-else
-  cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-#include <sys/types.h>
-#include <signal.h>
-#ifdef signal
-# undef signal
-#endif
-#ifdef __cplusplus
-extern "C" void (*signal (int, void (*)(int)))(int);
-#else
-void (*signal ()) ();
-#endif
-
-int
-main ()
-{
-int i;
-  ;
-  return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext
-if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
-  (eval $ac_compile) 2>conftest.er1
-  ac_status=$?
-  grep -v '^ *+' conftest.er1 >conftest.err
-  rm -f conftest.er1
-  cat conftest.err >&5
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } &&
-	 { ac_try='test -z "$ac_c_werror_flag"			 || test ! -s conftest.err'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; } &&
-	 { ac_try='test -s conftest.$ac_objext'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; }; then
-  ac_cv_type_signal=void
-else
-  echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-ac_cv_type_signal=int
-fi
-rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-echo "$as_me:$LINENO: result: $ac_cv_type_signal" >&5
-echo "${ECHO_T}$ac_cv_type_signal" >&6
-
-cat >>confdefs.h <<_ACEOF
-#define RETSIGTYPE $ac_cv_type_signal
-_ACEOF
-
-
-
-for ac_func in strftime
-do
-as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh`
-echo "$as_me:$LINENO: checking for $ac_func" >&5
-echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6
-if eval "test \"\${$as_ac_var+set}\" = set"; then
-  echo $ECHO_N "(cached) $ECHO_C" >&6
-else
-  cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-/* Define $ac_func to an innocuous variant, in case <limits.h> declares $ac_func.
-   For example, HP-UX 11i <limits.h> declares gettimeofday.  */
-#define $ac_func innocuous_$ac_func
-
-/* System header to define __stub macros and hopefully few prototypes,
-    which can conflict with char $ac_func (); below.
-    Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
-    <limits.h> exists even on freestanding compilers.  */
-
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
-
-#undef $ac_func
-
-/* Override any gcc2 internal prototype to avoid an error.  */
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-/* We use char because int might match the return type of a gcc2
-   builtin and then its argument prototype would still apply.  */
-char $ac_func ();
-/* The GNU C library defines this for functions which it implements
-    to always fail with ENOSYS.  Some functions are actually named
-    something starting with __ and the normal name is an alias.  */
-#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
-choke me
-#else
-char (*f) () = $ac_func;
-#endif
-#ifdef __cplusplus
-}
-#endif
-
-int
-main ()
-{
-return f != $ac_func;
-  ;
-  return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-  (eval $ac_link) 2>conftest.er1
-  ac_status=$?
-  grep -v '^ *+' conftest.er1 >conftest.err
-  rm -f conftest.er1
-  cat conftest.err >&5
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } &&
-	 { ac_try='test -z "$ac_c_werror_flag"			 || test ! -s conftest.err'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; } &&
-	 { ac_try='test -s conftest$ac_exeext'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; }; then
-  eval "$as_ac_var=yes"
-else
-  echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-eval "$as_ac_var=no"
-fi
-rm -f conftest.err conftest.$ac_objext \
-      conftest$ac_exeext conftest.$ac_ext
-fi
-echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5
-echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6
-if test `eval echo '${'$as_ac_var'}'` = yes; then
-  cat >>confdefs.h <<_ACEOF
-#define `echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-else
-  # strftime is in -lintl on SCO UNIX.
-echo "$as_me:$LINENO: checking for strftime in -lintl" >&5
-echo $ECHO_N "checking for strftime in -lintl... $ECHO_C" >&6
-if test "${ac_cv_lib_intl_strftime+set}" = set; then
-  echo $ECHO_N "(cached) $ECHO_C" >&6
-else
-  ac_check_lib_save_LIBS=$LIBS
-LIBS="-lintl  $LIBS"
-cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-
-/* Override any gcc2 internal prototype to avoid an error.  */
-#ifdef __cplusplus
-extern "C"
-#endif
-/* We use char because int might match the return type of a gcc2
-   builtin and then its argument prototype would still apply.  */
-char strftime ();
-int
-main ()
-{
-strftime ();
-  ;
-  return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-  (eval $ac_link) 2>conftest.er1
-  ac_status=$?
-  grep -v '^ *+' conftest.er1 >conftest.err
-  rm -f conftest.er1
-  cat conftest.err >&5
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } &&
-	 { ac_try='test -z "$ac_c_werror_flag"			 || test ! -s conftest.err'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; } &&
-	 { ac_try='test -s conftest$ac_exeext'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; }; then
-  ac_cv_lib_intl_strftime=yes
-else
-  echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-ac_cv_lib_intl_strftime=no
-fi
-rm -f conftest.err conftest.$ac_objext \
-      conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-echo "$as_me:$LINENO: result: $ac_cv_lib_intl_strftime" >&5
-echo "${ECHO_T}$ac_cv_lib_intl_strftime" >&6
-if test $ac_cv_lib_intl_strftime = yes; then
-  cat >>confdefs.h <<\_ACEOF
-#define HAVE_STRFTIME 1
-_ACEOF
-
-LIBS="-lintl $LIBS"
-fi
-
-fi
-done
-
-
-for ac_func in vprintf
-do
-as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh`
-echo "$as_me:$LINENO: checking for $ac_func" >&5
-echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6
-if eval "test \"\${$as_ac_var+set}\" = set"; then
-  echo $ECHO_N "(cached) $ECHO_C" >&6
-else
-  cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-/* Define $ac_func to an innocuous variant, in case <limits.h> declares $ac_func.
-   For example, HP-UX 11i <limits.h> declares gettimeofday.  */
-#define $ac_func innocuous_$ac_func
-
-/* System header to define __stub macros and hopefully few prototypes,
-    which can conflict with char $ac_func (); below.
-    Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
-    <limits.h> exists even on freestanding compilers.  */
-
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
-
-#undef $ac_func
-
-/* Override any gcc2 internal prototype to avoid an error.  */
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-/* We use char because int might match the return type of a gcc2
-   builtin and then its argument prototype would still apply.  */
-char $ac_func ();
-/* The GNU C library defines this for functions which it implements
-    to always fail with ENOSYS.  Some functions are actually named
-    something starting with __ and the normal name is an alias.  */
-#if defined (__stub_$ac_func) || defined (__stub___$ac_func)
-choke me
-#else
-char (*f) () = $ac_func;
-#endif
-#ifdef __cplusplus
-}
-#endif
-
-int
-main ()
-{
-return f != $ac_func;
-  ;
-  return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-  (eval $ac_link) 2>conftest.er1
-  ac_status=$?
-  grep -v '^ *+' conftest.er1 >conftest.err
-  rm -f conftest.er1
-  cat conftest.err >&5
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } &&
-	 { ac_try='test -z "$ac_c_werror_flag"			 || test ! -s conftest.err'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; } &&
-	 { ac_try='test -s conftest$ac_exeext'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; }; then
-  eval "$as_ac_var=yes"
-else
-  echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-eval "$as_ac_var=no"
-fi
-rm -f conftest.err conftest.$ac_objext \
-      conftest$ac_exeext conftest.$ac_ext
-fi
-echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5
-echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6
-if test `eval echo '${'$as_ac_var'}'` = yes; then
-  cat >>confdefs.h <<_ACEOF
-#define `echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-echo "$as_me:$LINENO: checking for _doprnt" >&5
-echo $ECHO_N "checking for _doprnt... $ECHO_C" >&6
-if test "${ac_cv_func__doprnt+set}" = set; then
-  echo $ECHO_N "(cached) $ECHO_C" >&6
-else
-  cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h.  */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h.  */
-/* Define _doprnt to an innocuous variant, in case <limits.h> declares _doprnt.
-   For example, HP-UX 11i <limits.h> declares gettimeofday.  */
-#define _doprnt innocuous__doprnt
-
-/* System header to define __stub macros and hopefully few prototypes,
-    which can conflict with char _doprnt (); below.
-    Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
-    <limits.h> exists even on freestanding compilers.  */
-
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
-
-#undef _doprnt
-
-/* Override any gcc2 internal prototype to avoid an error.  */
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-/* We use char because int might match the return type of a gcc2
-   builtin and then its argument prototype would still apply.  */
-char _doprnt ();
-/* The GNU C library defines this for functions which it implements
-    to always fail with ENOSYS.  Some functions are actually named
-    something starting with __ and the normal name is an alias.  */
-#if defined (__stub__doprnt) || defined (__stub____doprnt)
-choke me
-#else
-char (*f) () = _doprnt;
-#endif
-#ifdef __cplusplus
-}
-#endif
-
-int
-main ()
-{
-return f != _doprnt;
-  ;
-  return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5
-  (eval $ac_link) 2>conftest.er1
-  ac_status=$?
-  grep -v '^ *+' conftest.er1 >conftest.err
-  rm -f conftest.er1
-  cat conftest.err >&5
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); } &&
-	 { ac_try='test -z "$ac_c_werror_flag"			 || test ! -s conftest.err'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; } &&
-	 { ac_try='test -s conftest$ac_exeext'
-  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
-  (eval $ac_try) 2>&5
-  ac_status=$?
-  echo "$as_me:$LINENO: \$? = $ac_status" >&5
-  (exit $ac_status); }; }; then
-  ac_cv_func__doprnt=yes
-else
-  echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-ac_cv_func__doprnt=no
-fi
-rm -f conftest.err conftest.$ac_objext \
-      conftest$ac_exeext conftest.$ac_ext
-fi
-echo "$as_me:$LINENO: result: $ac_cv_func__doprnt" >&5
-echo "${ECHO_T}$ac_cv_func__doprnt" >&6
-if test $ac_cv_func__doprnt = yes; then
-
-cat >>confdefs.h <<\_ACEOF
-#define HAVE_DOPRNT 1
-_ACEOF
-
-fi
-
-fi
-done
-
-
-
-
-
-
+#AC_FUNC_MALLOC
+#AC_FUNC_SETVBUF_REVERSED
+#AC_TYPE_SIGNAL
+#AC_FUNC_STRFTIME
+#AC_FUNC_VPRINTF
+#AC_CHECK_FUNCS([atexit floor getcwd memset select socket strchr strerror strstr])
 
 
 
 
 
-for ac_func in atexit floor getcwd memset select socket strchr strerror strstr
+for ac_func in getcwd memset select socket strerror
 do
 as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh`
 echo "$as_me:$LINENO: checking for $ac_func" >&5
@@ -6432,7 +5584,7 @@
 } >&5
 cat >&5 <<_CSEOF
 
-This file was extended by AGD $as_me 0.0.2-3, which was
+This file was extended by AGD $as_me 0.0.3, which was
 generated by GNU Autoconf 2.59.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -6495,7 +5647,7 @@
 
 cat >>$CONFIG_STATUS <<_ACEOF
 ac_cs_version="\\
-AGD config.status 0.0.2-3
+AGD config.status 0.0.3
 configured by $0, generated by GNU Autoconf 2.59,
   with options \\"`echo "$ac_configure_args" | sed 's/[\\""\`\$]/\\\\&/g'`\\"
 

Index: ChangeLog
===================================================================
RCS file: /cvsroot/agd/server/ChangeLog,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- ChangeLog	28 Mar 2004 18:08:51 -0000	1.16
+++ ChangeLog	1 Apr 2004 19:17:12 -0000	1.17
@@ -1,7 +1,29 @@
+0.0.3:
+----------------------------------------------------------------------------
+2004-03-30
+	* dflex.l,lex.l,dfparse.y,lang.y: Removed lex.h and location_t,
+	  all of these now use Bison's YYLTYPE.
+	* Renamed dfun interactivep to interactive
+	* interpret.c: one more time.. runtime() now really, really
+	  clears the stack.
+	* compile.c: the logic in check_operand() was a bit twisted. Fixed,
+	  now checks for correct type of both sides.
+	* Fixed crash: call_other checks if function
+	  was found.
+	* runtimes now show line number and current function
+
+	* Cleaned up TODO a little.
+	* net.c: removed find_player_nr(), was repeating code in array.c
+	  already
+	* configure.ac, arch.h: configure checks for winsock.h, not arch.h.
+	  This suits the GNU idea that portability should be done by specific
+	  feature checks rather than checking for the platform.
+	* net.c,net.h: removed connection states
+	* sys.c,sys.h: Cleanups.
 0.0.2-3:
 ----------------------------------------------------------------------------
 2004-03-28
-	* some fixed for string ranges
+	* some fixes for string ranges
 	* renamed F_SUBSCR to F_INDEX, F_RANGE to F_SLICE
 	* fix crasher in df_strlen(): check for fp->u.s.
 2004-03-23

Index: Ideas
===================================================================
RCS file: /cvsroot/agd/server/Ideas,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- Ideas	28 Mar 2004 18:08:51 -0000	1.6
+++ Ideas	1 Apr 2004 19:17:12 -0000	1.7
@@ -1,6 +1,8 @@
 This file contains features that will be or will be not in AGD in the future.
 lpc:
 	* if(x == 1 || == 2 && != 3)
+ 	* default values for arguments
+ 	  int foo(int i, int j = 1);
 	* Argument type grouping
 	  int foo(int i, j, k, string s1, s2, s3, object ob1, ob2);
 	* null constants:

Index: BUGS
===================================================================
RCS file: /cvsroot/agd/server/BUGS,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- BUGS	28 Mar 2004 18:08:51 -0000	1.10
+++ BUGS	1 Apr 2004 19:17:12 -0000	1.11
@@ -1,37 +1,8 @@
 Currently known bugs:
-	- the future_pos system in lex.l is acting up.
 	- src/options and src/compile_options.h don't honor $prefix.
 	  Could use a shell script and sed to do substitutions.
-	- the define_id system is more or less not operational.
+	- the define_id system is known to have bugs, not sure what they are, though.
 		* int i; void foo(int i); should be valid with a warning
-
-	-
-	[lpc] apply "write_prompt" done in 410 microseconds
-	 
-	 Program received signal SIGINT, Interrupt.
-	 0x40119758 in select () from /lib/tls/libc.so.6
-	 (gdb) handle SIGINT pass
-	 SIGINT is used by the debugger.
-	 Are you sure you want to change it? (y or n) y
-	 Signal        Stop      Print   Pass to program Description
-	 SIGINT        Yes       Yes     Yes             Interrupt
-	 (gdb) c
-	 Continuing.
-	 Crashing: Interrupted
-	 [lpc] apply "crash" on "/sys/master.c"
-	 [interpret] call_function 0 on /sys/master.c
-	  
-	  Program received signal SIGSEGV, Segmentation fault.
-	  0x08055fe7 in net_send (buf=0x808d878 "Crashing on signal 2!\r\n", siz=24, p=0x80728c8) at net.c:164
-	  164             send(this_player->conn.socket, buf, siz, 0);
-	  (gdb) print this_player
-	  $1 = (player_t *) 0xa0d3000
-	  (gdb) print *this_player
-	  Cannot access memory at address 0xa0d3000
-	-
-		string s;
-		s = s + "abc";
-	  will result in "0abc"
 	- crashes on Solaris/SPARC with a SIGSEGV somewhere
 	  between lines 190 and 199 in net.c (don't have gdb
 	  on that host).

Index: configure.ac
===================================================================
RCS file: /cvsroot/agd/server/configure.ac,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- configure.ac	28 Mar 2004 18:00:43 -0000	1.7
+++ configure.ac	1 Apr 2004 19:17:13 -0000	1.8
@@ -1,5 +1,5 @@
 ## Process this file with autoconf to produce a configure script.
-AC_INIT(AGD, 0.0.2-3, [so...@es...])
+AC_INIT(AGD, 0.0.3, [so...@es...])
 AM_INIT_AUTOMAKE
 AC_CONFIG_SRCDIR(src/dfparse.y)
 AM_CONFIG_HEADER(src/config.h)
@@ -40,7 +40,7 @@
     AC_MSG_RESULT([no])
 fi
 
-AC_MSG_CHECKING(whether to enable Bison debuggigngigng)
+AC_MSG_CHECKING(whether to enable Bison debugging)
 AC_ARG_ENABLE(bison-debug,
 	      AC_HELP_STRING([--enable-bison-debug], [enable Bison debugging]), , enable_bison_debug="no")
 if test "x${enable_bison_debug}" != "xno"; then
@@ -74,7 +74,7 @@
 # Checks for header files.
 AC_HEADER_STDC
 AC_HEADER_DIRENT
-AC_CHECK_HEADERS([arpa/inet.h fcntl.h netinet/in.h stddef.h sys/socket.h sys/time.h unistd.h])
+AC_CHECK_HEADERS([arpa/inet.h fcntl.h netinet/in.h stddef.h sys/socket.h sys/time.h unistd.h winsock.h])
 # This is where u_int32_t is on MacOSX - needs to be included before dirent.h.
 AC_CHECK_HEADERS([machine/types.h])
 
@@ -85,11 +85,12 @@
 AC_STRUCT_TM
 
 # Checks for library functions.
-AC_FUNC_MALLOC
-AC_FUNC_SETVBUF_REVERSED
-AC_TYPE_SIGNAL
-AC_FUNC_STRFTIME
-AC_FUNC_VPRINTF
-AC_CHECK_FUNCS([atexit floor getcwd memset select socket strchr strerror strstr])
+#AC_FUNC_MALLOC
+#AC_FUNC_SETVBUF_REVERSED
+#AC_TYPE_SIGNAL
+#AC_FUNC_STRFTIME
+#AC_FUNC_VPRINTF
+#AC_CHECK_FUNCS([atexit floor getcwd memset select socket strchr strerror strstr])
+AC_CHECK_FUNCS([getcwd memset select socket strerror])
 
 AC_OUTPUT

Index: README
===================================================================
RCS file: /cvsroot/agd/server/README,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- README	28 Mar 2004 18:08:51 -0000	1.6
+++ README	1 Apr 2004 19:17:12 -0000	1.7
@@ -1,48 +1,22 @@
 --------------------------------------
  Adventure Game Driver
-	0.0.2-3, March 23, 2004
+	0.0.3, March 30, 2004
 	http://agd.sf.net
 	Peep Pullerits <so...@es...>
 --------------------------------------
 
 This is a small LPMUD driver, intended to run graphical MUDs
-with Sierra AGI-like graphics.
+with Sierra AGI-like graphics. 
 Currently no graphics are implemented, as even the LPC
 compiler/interpreter is a work-in-progress.
 It can act as a basic chat server with the default lib.
 If you write anything in LPC, I would be glad if you send it to me.
  
-1. Installing.
+* Installing.
 Follow the instructions in the INSTALL file that came with
 this package.
 
-2. Running.
-AGD comes with a default configuration in /usr/share/agd/options,
-and it will use this file if it isn't given a parameter.
-This, however, expects you to have done 'make install', but
-probably not everyone who wants to run this driver will have
-root access to their machine.
-So, you can copy the binary, options file and library to your
-home directory and provide a configuration file path as an argument
-each time you run the driver (using a shell script, for example).
-	
-So, in short:
-If you have root access, do 'make install' and run agd
-with 'agd'. AGD will use /usr/share/agd/options for the configuration.
-If you don't have root access, run agd with './agd options',
-assuming the 'agd' binary and the 'options' file are in the
-same directory.
-
-There might be a 'make userinstall' target in the future that
-will do this automatically.
-
-You might also want to separate stderr and stdout, by redirecting
-one or both of them to a file, because some lines don't have
-newlines, so stdout and stderr could get mixed up. Like this:
-  './agd >agd.out 2>agd.err'
-Or write a shell script to do it.
-
-3. Bugs.
+* Bugs.
 This is an alpha release. As such, it most probably is
 full of bugs.
 Please do try to break it, and report everything you find.

Index: NEWS
===================================================================
RCS file: /cvsroot/agd/server/NEWS,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- NEWS	28 Mar 2004 18:08:51 -0000	1.10
+++ NEWS	1 Apr 2004 19:17:12 -0000	1.11
@@ -1,4 +1,7 @@
-New things in this version (0.0.2-3) that you might find useful:
+Changes in 0.0.3:
+	* Renamed interactivep() to interactive()
+	
+Features in 0.0.2-3:
 	* Real string ranges like string[0..4]
 	* for()
 	* break; and continue; statements

Index: TODO
===================================================================
RCS file: /cvsroot/agd/server/TODO,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- TODO	28 Mar 2004 18:08:51 -0000	1.17
+++ TODO	1 Apr 2004 19:17:12 -0000	1.18
@@ -1,31 +1,78 @@
 Not necessarily in order of importance.
-Stuff with '!' is first-priority.
+'!' means first-priority,
+'?' means trivial and not really important.
+
+ - documentation:
+    * Small textbook about AGD's dialect of LPC
+    * Short text describing main differences between LPC and C
+    * Short text describing AGD and it's purposes, mainly for people coming
+      from the AGI community.
 
+ - syntax highlighting scripts for AGD's LPC
+    * for vim; Me (solicit) will give it a try
+    * for emacs; I'm counting on you, elver!
+    
  - the famous host lookup daemon, so gethostbyaddr() won't block
- - new define_name system, again.
-	- if a variable is shadowed inside a block, then it needs to be assigned a new index
+ - define_id system:
+	- if a variable is shadowed inside a block, then it needs to be
+	  assigned a new index (?)
 	- argument variants (both d- and lfuns)
- - a real malloc wrapper
- - Statistics and profiling
- ! better conf file handling (see src/log.c)
-	- change 'errorlog' to 'debuglog'?
- - lpc:
-	- inheritance
-	- better error recovery for lpc.y 
+ - New configuration parser.
+ 	- Change 'errorlog' to 'debuglog', or change debug() to be an error
+	  logging facility, or remove the option completely.
+	- Default error level option.
+	- For lib: option - if it doesn't end in /, add it.
+ - Hash tables (mappings) for define_id in compile.c and the function lookup
+   table (prog->nametable), for O(1) instead of O(n) lookup.
+ 
+ - allow both .c and .lpc for file extensions (/usr/bin/file could recognize LPC,
+   and editors can turn on syntax highlighting automatically)
+ - Runtime token positions (with the F_NEWLINE operator).
+ - Some work could be done on i18n. For example, allow for multilingual yyerror-messages.
+   One way would be a master::error_msg() apply that takes a numeric code of the error
+   message and should return the string. Mudlib coders can code in their own language.
+ - Interpreter.
+   - three versions of runtime()
+     - for dfuns (doesn't display line numbers)
+     - for dynamically allocated strings (automatically frees the string after runtiming)
+     - normal runtime
+   - display stack trace (with line numbers and functions) when getting a runtime error
+- keep interactive objects in a separate linked list, and make shout act on that list
+  Then change shout to take one argument, a string, and send to everyone except
+  this_player.
+ - destruct() - take object from all_objects and move to list_t *dested_objects;
+   then destruct_all() in net.c has less objects to traverse
+ - string table for each program, and F_PUSH_STRING takes index into the table
+   Repeated strings can be joined into one, and free_fun can free the strings.
+ - clean up includes, not everything needs everything in std.h and lpc_incl.h, etc.
+   Files that need it:
+   	debug.c object.c vars.c lex.l lang.y
+ - Build system.
+    * make maintainer-clean
+	should also remove src/dfparse.output and src/lang.output
+	shouldn't delete src/dfparse.h and src/lang.h
+    * make install should touch $prefix/agd/debug.log
+    * configure.ac: set YFLAGS to "--debug" or "-t" with ./configure --enable-bison-debug
+ - Compiler (lang.y):
+   - compile-time eval for < > <= >= == != ! (i.e. if(direct_type))
+   - repeated code for functions with and without explicit return type
+- LPC:
+	? Error recovery for lpc.y 
 	! arrays (T_ARRAY)
-	! foreach(), switch()
-	! all of the operators (/doc/lpc/operators)
-		- ',' - this takes some serious grammar-hacking
-	- mixed type
-	! string slices (ranges)
-		!! assigning to slices (F_SLICE_LVALUE etc.)
+	- foreach(), switch()
+	- all of the operators (/doc/lpc/operators)
+		- ',' - this takes some serious grammar-hacking, because
+		  comma as a function call argument is a separator for expressions.
+	? mixed type
+	- string slices (ranges)
+		! assigning to slices (F_SLICE_LVALUE etc.)
+		  - Check if assigning too long a string.
 		* m..
 		* ..n
-		* m..<
-		* <
 		* m..n,m..n
 		* !n
-	- allow to define locals inside statements
+	- inheritance
+	? allow to define locals inside statements
 	  like: create() { write("\n"); int i; i = 1; int j; j = 2; }
 	  And maybe disable this with #pragma traditional-lpc ?
  - lexer:
@@ -63,47 +110,20 @@
 	  - octal: \0onnn
 	  - hexadecimal: \0xnn
 	  - binary: \0bnnnnnnnn
- - better logging system
+	- multiline strings
+ ? better logging system
  	- print time using strftime()
  	- log using lib's facilities (master::log()?)
 	- different prefixes have different debuglevels
 	- save to different files
- - only report undeclared identifiers once
- - initialization of global variables
- - dfun overrides, :: operator
- - qsort&bsearch for define_id in compile.c (or maybe use a hashtable with O(1) lookup and insert)
- - qsort&bsearch for nametable, _again_
- - allow both .c and .lpc for file extensions (?)
- - runtime token positions.
- - if filename doesn't have a leading /, add one. (i.e. don't load /libfile.c, but /lib/file.c)
- - more user-friendly error messages (yyerrors)
- - check for lib root and folder of debug log with access() and exit gracefully if it fails.
- - set string_type of all new string variables
- - default values for arguments
- 	int foo(int i, int j = 1);
- - string table for each program, and F_PUSH_STRING takes index into the table
- - clean up includes, not everything needs everything in std.h and lpc_incl.h, etc.
- - make maintainer-clean:
-	should also remove src/dfparse.output and src/lang.output
-	shouldn't delete src/dfparse.h and src/lang.h
- - compile-time eval for < > <= >= == != !
- - lang.y:
-	compare_args(): 0 should be any valid type (shout("a", 0) should be ok)
-	 - or maybe use NULL or nil
- - if we crash while running apply(master::crash), then we should rerun with debugging on
- - IPv6 support?
- - realloc wrapper
- - some terminals don't support \t, find out if it is possible to check for it, and then
-   print out 8 spaces instead.
- - on 64-bit, increase cp as a void* type.
- - destruct() - take object from all_objects and move to list_t *dested_objects;
-   then destruct_all() in net.c has less objects to traverse
- - rename interactivep() to either
-   1) isinteractive()
-   2) isia()
-   3) interactive()
- - in the variable_t struct,
- 	char inited should be or'ed to the type (T_INITED | T_INT)
-	remove string_type and add types T_STRINGD, T_STRINGST (dynamic and static, later T_STRINGSH, shared.)
- - configure.ac: set YFLAGS to "--debug" or "-t" with ./configure --enable-bison-debug
- - display stack trace (with line numbers and functions) when getting a runtime error
+ ? only report undeclared identifiers once
+ ? initialization of global variables
+ ? dfun overrides, :: operator
+? check for lib root and folder of debug log with access() and exit gracefully if it fails.
+
+ ? if we crash while running apply(master::crash), then we should rerun with debugging on
+ ? realloc wrapper to check for out of memory errors
+ ! on 64-bit, increase cp properly (points to between two instructions)
+ ? IPv6 support?
+ ? Supply a malloc implementation with statistics (a la MudOS)?
+ ? Statistics and profiling

[agd-cvs] server/lib/sys master.c,1.12,1.13 player.c,1.12,1.13

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/lib/sys
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19724/lib/sys

Modified Files:
	master.c player.c 
Log Message:
Major cleanups.

Index: player.c
===================================================================
RCS file: /cvsroot/agd/server/lib/sys/player.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- player.c	28 Mar 2004 18:02:33 -0000	1.12
+++ player.c	1 Apr 2004 19:17:13 -0000	1.13
@@ -14,16 +14,19 @@
 }
 
 void write_help() {
-	write("Available commands:\n");
-	write("\t/help: Displays this text.\n");
-	write("\t/uptime: Shows for how long the driver has been running.\n");
-	write("\t/version: Shows AGD version information.\n");
-	write("\t/quit: Quits the game.\n");
-	write("\t/time: Shows current time.\n");
-	write("\t/.: Repeats last command.\n");
+	write("Available commands:\n"
+		"\t/help: Displays this text.\n"
+		"\t/uptime: Shows for how long the driver has been running.\n"
+		"\t/version: Shows AGD version information.\n"
+		"\t/quit: Quits the game.\n"
+		"\t/time: Shows current time.\n"
+		"\t/.: Repeats last command.\n");
 }
 
-/* Converts a time integer into a textual representation */
+/* Converts a time integer into a textual representation,
+ * but doesn't return a date like asctime(), but returns
+ * the length of the time period (61 = 1 minute and 1 second,
+ * 3600 = 1 hour etc. Can anyone describe this better?) */
 string ctime(int t) {
 	int secs, mins, hrs, days;
 	string ret;
@@ -42,7 +45,6 @@
 		}
 	}
 
-	ret = ""; /* :-( */
 	if(days) {
 		ret += days + " day" + days>1?"s":"";
 		if(hrs || mins || secs)
@@ -101,8 +103,6 @@
 		} else if(s == "update") {
 			/* No way of getting arguments. :(
 			 * Oh well, update all them bastards. */
-			write("Warning: master must be destroyed for its " 
-			      "update to take effect.\n");
 			do_update("/sys/master");
 			do_update("/sys/login");
 			do_update("/sys/player");
@@ -115,7 +115,7 @@
 			} else 
 				write("No last command.\n");
 		} else {
-			write("Unknown command.\n");
+			write("Unknown command. Try '/help'.\n");
 		}
 	}
 	if(cmd != "/.") {

Index: master.c
===================================================================
RCS file: /cvsroot/agd/server/lib/sys/master.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- master.c	28 Mar 2004 18:02:33 -0000	1.12
+++ master.c	1 Apr 2004 19:17:13 -0000	1.13
@@ -1,4 +1,5 @@
 string banner;
+int biggest;
  
 int crash(int signal) {
 	if(signal == 11) {
@@ -15,9 +16,7 @@
 }
 
 void write_version() {
-	int biggest;
 	string b;
-	biggest = atoi(read_file("/doc/login/biggest"));
 	b = read_file("/doc/login/" + random(biggest));
 	write(b + banner);
 }
@@ -30,6 +29,7 @@
 }
 
 void create(void) {
-	banner = "\t" + version() + " / " + platform() + "\n"
-		 + "\thttp://agd.sf.net\n\tag...@li...\n";
+	banner = "\n\t" + version() + " / " + platform() + "\n"
+	  + "\thttp://agd.sf.net\n\tag...@li...\n";
+	biggest = atoi(read_file("/doc/login/biggest"));
 }