Function db_set_cmd

freebsd/ddb/db_variables.c:131–171

}

void
db_set_cmd(db_expr_t dummy1, bool dummy2, db_expr_t dummy3, char *dummy4)
{
	struct db_variable *vp;
	db_expr_t value;
	int t;

	t = db_read_token();
	if (t == tEOL) {
		for (vp = db_vars; vp < db_evars; vp++) {
			if (!db_read_variable(vp, &value)) {
				db_printf("$%s\n", vp->name);
				continue;
			}
			db_printf("$%-8s = %ld\n",
			    vp->name, (unsigned long)value);
		}
		return;
	}
	if (t != tDOLLAR) {
		db_error("Unknown variable\n");
		return;
	}
	if (!db_find_variable(&vp)) {
		db_error("Unknown variable\n");
		return;
	}

	t = db_read_token();
	if (t != tEQ)
		db_unread_token(t);

	if (!db_expression(&value)) {
		db_error("No value\n");
		return;
	}
	if (db_read_token() != tEOL)
		db_error("?\n");

	db_write_variable(vp, value);
}