1/*-
2 * SPDX-License-Identifier: MIT-CMU
3 *
4 * Mach Operating System
5 * Copyright (c) 1991,1990 Carnegie Mellon University
6 * All Rights Reserved.
7 *
8 * Permission to use, copy, modify and distribute this software and its
9 * documentation is hereby granted, provided that both the copyright
10 * notice and this permission notice appear in all copies of the
11 * software, derivative works or modified versions, and any portions
12 * thereof, and that both notices appear in supporting documentation.
13 *
14 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS
15 * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
16 * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
17 *
18 * Carnegie Mellon requests users of this software to return to
19 *
20 *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
21 *  School of Computer Science
22 *  Carnegie Mellon University
23 *  Pittsburgh PA 15213-3890
24 *
25 * any improvements or extensions that they make and grant Carnegie the
26 * rights to redistribute these changes.
27 */
28/*
29 *	Author: David B. Golub,  Carnegie Mellon University
30 *	Date:	7/90
31 */
32
33#include <sys/param.h>
34
35#include <ddb/ddb.h>
36#include <ddb/db_access.h>
37#include <ddb/db_command.h>
38#include <ddb/db_sym.h>
39
40/*
41 * Write to file.
42 */
43/*ARGSUSED*/
44void
45db_write_cmd(db_expr_t address, bool have_addr, db_expr_t count,
46    char * modif)
47{
48	db_addr_t	addr;
49	db_expr_t	old_value;
50	db_expr_t	new_value;
51	int		size;
52	bool		wrote_one = false;
53
54	addr = (db_addr_t) address;
55
56	switch (modif[0]) {
57	    case 'b':
58		size = 1;
59		break;
60	    case 'h':
61		size = 2;
62		break;
63	    case 'l':
64	    case '\0':
65		size = 4;
66		break;
67	    default:
68		db_error("Unknown size\n");
69		return;
70	}
71
72	while (db_expression(&new_value)) {
73	    old_value = db_get_value(addr, size, false);
74	    db_printsym(addr, DB_STGY_ANY);
75	    db_printf("\t\t%#8lr\t=\t%#8lr\n", (long)old_value,(long)new_value);
76	    db_put_value(addr, size, new_value);
77	    addr += size;
78
79	    wrote_one = true;
80	}
81
82	if (!wrote_one)
83	    db_error("Nothing written.\n");
84
85	db_next = addr;
86	db_prev = addr - size;
87
88	db_skip_to_eol();
89}
90