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