initial import of NetBSD tree

1 files changed, 164 insertions, 0 deletions

diff --git a/sys/ddb/db_variables.c b/sys/ddb/db_variables.c
new file mode 100644
index 00000000000..21e6bcbf812
--- /dev/null
+++ b/sys/ddb/db_variables.c
@@ -0,0 +1,164 @@
+/*	$NetBSD: db_variables.c,v 1.7 1994/10/09 08:56:28 mycroft Exp $	*/
+
+/* 
+ * Mach Operating System
+ * Copyright (c) 1991,1990 Carnegie Mellon University
+ * All Rights Reserved.
+ * 
+ * Permission to use, copy, modify and distribute this software and its
+ * documentation is hereby granted, provided that both the copyright
+ * notice and this permission notice appear in all copies of the
+ * software, derivative works or modified versions, and any portions
+ * thereof, and that both notices appear in supporting documentation.
+ * 
+ * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS 
+ * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
+ * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
+ * 
+ * Carnegie Mellon requests users of this software to return to
+ * 
+ *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
+ *  School of Computer Science
+ *  Carnegie Mellon University
+ *  Pittsburgh PA 15213-3890
+ * 
+ * any improvements or extensions that they make and grant Carnegie the
+ * rights to redistribute these changes.
+ */
+
+#include <sys/param.h>
+#include <sys/proc.h>
+
+#include <machine/db_machdep.h>
+
+#include <ddb/db_lex.h>
+#include <ddb/db_variables.h>
+
+extern unsigned int	db_maxoff;
+
+extern int	db_radix;
+extern int	db_max_width;
+extern int	db_tab_stop_width;
+extern int	db_max_line;
+
+struct db_variable db_vars[] = {
+	{ "radix",	&db_radix, FCN_NULL },
+	{ "maxoff",	(int *)&db_maxoff, FCN_NULL },
+	{ "maxwidth",	&db_max_width, FCN_NULL },
+	{ "tabstops",	&db_tab_stop_width, FCN_NULL },
+	{ "lines",	&db_max_line, FCN_NULL },
+};
+struct db_variable *db_evars = db_vars + sizeof(db_vars)/sizeof(db_vars[0]);
+
+int
+db_find_variable(varp)
+	struct db_variable	**varp;
+{
+	int	t;
+	struct db_variable *vp;
+
+	t = db_read_token();
+	if (t == tIDENT) {
+	    for (vp = db_vars; vp < db_evars; vp++) {
+		if (!strcmp(db_tok_string, vp->name)) {
+		    *varp = vp;
+		    return (1);
+		}
+	    }
+	    for (vp = db_regs; vp < db_eregs; vp++) {
+		if (!strcmp(db_tok_string, vp->name)) {
+		    *varp = vp;
+		    return (1);
+		}
+	    }
+	}
+	db_error("Unknown variable\n");
+	/*NOTREACHED*/
+}
+
+int
+db_get_variable(valuep)
+	db_expr_t	*valuep;
+{
+	struct db_variable *vp;
+
+	if (!db_find_variable(&vp))
+	    return (0);
+
+	db_read_variable(vp, valuep);
+
+	return (1);
+}
+
+int
+db_set_variable(value)
+	db_expr_t	value;
+{
+	struct db_variable *vp;
+
+	if (!db_find_variable(&vp))
+	    return (0);
+
+	db_write_variable(vp, &value);
+
+	return (1);
+}
+
+
+db_read_variable(vp, valuep)
+	struct db_variable *vp;
+	db_expr_t	*valuep;
+{
+	int	(*func)() = vp->fcn;
+
+	if (func == FCN_NULL)
+	    *valuep = *(vp->valuep);
+	else
+	    (*func)(vp, valuep, DB_VAR_GET);
+}
+
+db_write_variable(vp, valuep)
+	struct db_variable *vp;
+	db_expr_t	*valuep;
+{
+	int	(*func)() = vp->fcn;
+
+	if (func == FCN_NULL)
+	    *(vp->valuep) = *valuep;
+	else
+	    (*func)(vp, valuep, DB_VAR_SET);
+}
+
+void
+db_set_cmd()
+{
+	db_expr_t	value;
+	int	(*func)();
+	struct db_variable *vp;
+	int	t;
+
+	t = db_read_token();
+	if (t != tDOLLAR) {
+	    db_error("Unknown variable\n");
+	    /*NOTREACHED*/
+	}
+	if (!db_find_variable(&vp)) {
+	    db_error("Unknown variable\n");
+	    /*NOTREACHED*/
+	}
+
+	t = db_read_token();
+	if (t != tEQ)
+	    db_unread_token(t);
+
+	if (!db_expression(&value)) {
+	    db_error("No value\n");
+	    /*NOTREACHED*/
+	}
+	if (db_read_token() != tEOL) {
+	    db_error("?\n");
+	    /*NOTREACHED*/
+	}
+
+	db_write_variable(vp, &value);
+}