1 /*
2  * This file is part of ltrace.
3  * Copyright (C) 2012 Petr Machata, Red Hat Inc.
4  * Copyright (C) 2003,2008,2009 Juan Cespedes
5  * Copyright (C) 2006 Ian Wienand
6  *
7  * This program is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU General Public License as
9  * published by the Free Software Foundation; either version 2 of the
10  * License, or (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
20  * 02110-1301 USA
21  */
22 
23 #include <stdio.h>
24 #include <stdarg.h>
25 
26 #include "common.h"
27 #include "backend.h"
28 
29 void
debug_(int level,const char * file,int line,const char * fmt,...)30 debug_(int level, const char *file, int line, const char *fmt, ...) {
31 	char buf[1024];
32 	va_list args;
33 
34 	if (!(options.debug & level)) {
35 		return;
36 	}
37 	va_start(args, fmt);
38 	vsnprintf(buf, 1024, fmt, args);
39 	va_end(args);
40 
41 	output_line(NULL, "DEBUG: %s:%d: %s", file, line, buf);
42 	fflush(options.output);
43 }
44 
45 static int
xwritedump(long * ptr,arch_addr_t addr,size_t count)46 xwritedump(long *ptr, arch_addr_t addr, size_t count)
47 {
48 	size_t i;
49 	for (i = 0; i < count; ++i) {
50 		if (fprintf(stderr, "%p->%0*lx\n",
51 			    addr, 2 * (int)sizeof(long), ptr[i]) < 0)
52 			return -1;
53 		addr += sizeof(long);
54 	}
55 
56 	return 0;
57 }
58 
59 int
xinfdump(struct process * proc,arch_addr_t addr,size_t length)60 xinfdump(struct process *proc, arch_addr_t addr, size_t length)
61 {
62 	unsigned char buf[length];
63 	size_t got = umovebytes(proc, addr, buf, length);
64 	if (got == (size_t)-1)
65 		return -1;
66 	return xwritedump((long *)buf, addr, got / sizeof(long));
67 }
68