PPC: E500: Implement msgclr
[qemu.git] / bsd-user / strace.c
1 #include <stdio.h>
2 #include <errno.h>
3 #include <sys/select.h>
4 #include <sys/types.h>
5 #include <unistd.h>
6 #include <sys/syscall.h>
7 #include "qemu.h"
8
9 int do_strace=0;
10
11 struct syscallname {
12 int nr;
13 const char *name;
14 const char *format;
15 void (*call)(const struct syscallname *,
16 abi_long, abi_long, abi_long,
17 abi_long, abi_long, abi_long);
18 void (*result)(const struct syscallname *, abi_long);
19 };
20
21 /*
22 * Utility functions
23 */
24
25 static void
26 print_execve(const struct syscallname *name,
27 abi_long arg1, abi_long arg2, abi_long arg3,
28 abi_long arg4, abi_long arg5, abi_long arg6)
29 {
30 abi_ulong arg_ptr_addr;
31 char *s;
32
33 if (!(s = lock_user_string(arg1)))
34 return;
35 gemu_log("%s(\"%s\",{", name->name, s);
36 unlock_user(s, arg1, 0);
37
38 for (arg_ptr_addr = arg2; ; arg_ptr_addr += sizeof(abi_ulong)) {
39 abi_ulong *arg_ptr, arg_addr;
40
41 arg_ptr = lock_user(VERIFY_READ, arg_ptr_addr, sizeof(abi_ulong), 1);
42 if (!arg_ptr)
43 return;
44 arg_addr = tswapl(*arg_ptr);
45 unlock_user(arg_ptr, arg_ptr_addr, 0);
46 if (!arg_addr)
47 break;
48 if ((s = lock_user_string(arg_addr))) {
49 gemu_log("\"%s\",", s);
50 unlock_user(s, arg_addr, 0);
51 }
52 }
53
54 gemu_log("NULL})");
55 }
56
57 /*
58 * Variants for the return value output function
59 */
60
61 static void
62 print_syscall_ret_addr(const struct syscallname *name, abi_long ret)
63 {
64 if( ret == -1 ) {
65 gemu_log(" = -1 errno=%d (%s)\n", errno, strerror(errno));
66 } else {
67 gemu_log(" = 0x" TARGET_ABI_FMT_lx "\n", ret);
68 }
69 }
70
71 #if 0 /* currently unused */
72 static void
73 print_syscall_ret_raw(struct syscallname *name, abi_long ret)
74 {
75 gemu_log(" = 0x" TARGET_ABI_FMT_lx "\n", ret);
76 }
77 #endif
78
79 /*
80 * An array of all of the syscalls we know about
81 */
82
83 static const struct syscallname freebsd_scnames[] = {
84 #include "freebsd/strace.list"
85 };
86 static const struct syscallname netbsd_scnames[] = {
87 #include "netbsd/strace.list"
88 };
89 static const struct syscallname openbsd_scnames[] = {
90 #include "openbsd/strace.list"
91 };
92
93 static void
94 print_syscall(int num, const struct syscallname *scnames, unsigned int nscnames,
95 abi_long arg1, abi_long arg2, abi_long arg3,
96 abi_long arg4, abi_long arg5, abi_long arg6)
97 {
98 unsigned int i;
99 const char *format="%s(" TARGET_ABI_FMT_ld "," TARGET_ABI_FMT_ld ","
100 TARGET_ABI_FMT_ld "," TARGET_ABI_FMT_ld "," TARGET_ABI_FMT_ld ","
101 TARGET_ABI_FMT_ld ")";
102
103 gemu_log("%d ", getpid() );
104
105 for (i = 0; i < nscnames; i++)
106 if (scnames[i].nr == num) {
107 if (scnames[i].call != NULL) {
108 scnames[i].call(&scnames[i], arg1, arg2, arg3, arg4, arg5,
109 arg6);
110 } else {
111 /* XXX: this format system is broken because it uses
112 host types and host pointers for strings */
113 if (scnames[i].format != NULL)
114 format = scnames[i].format;
115 gemu_log(format, scnames[i].name, arg1, arg2, arg3, arg4,
116 arg5, arg6);
117 }
118 return;
119 }
120 gemu_log("Unknown syscall %d\n", num);
121 }
122
123 static void
124 print_syscall_ret(int num, abi_long ret, const struct syscallname *scnames,
125 unsigned int nscnames)
126 {
127 unsigned int i;
128
129 for (i = 0; i < nscnames; i++)
130 if (scnames[i].nr == num) {
131 if (scnames[i].result != NULL) {
132 scnames[i].result(&scnames[i], ret);
133 } else {
134 if( ret < 0 ) {
135 gemu_log(" = -1 errno=" TARGET_ABI_FMT_ld " (%s)\n", -ret,
136 strerror(-ret));
137 } else {
138 gemu_log(" = " TARGET_ABI_FMT_ld "\n", ret);
139 }
140 }
141 break;
142 }
143 }
144
145 /*
146 * The public interface to this module.
147 */
148 void
149 print_freebsd_syscall(int num,
150 abi_long arg1, abi_long arg2, abi_long arg3,
151 abi_long arg4, abi_long arg5, abi_long arg6)
152 {
153 print_syscall(num, freebsd_scnames, ARRAY_SIZE(freebsd_scnames),
154 arg1, arg2, arg3, arg4, arg5, arg6);
155 }
156
157 void
158 print_freebsd_syscall_ret(int num, abi_long ret)
159 {
160 print_syscall_ret(num, ret, freebsd_scnames, ARRAY_SIZE(freebsd_scnames));
161 }
162
163 void
164 print_netbsd_syscall(int num,
165 abi_long arg1, abi_long arg2, abi_long arg3,
166 abi_long arg4, abi_long arg5, abi_long arg6)
167 {
168 print_syscall(num, netbsd_scnames, ARRAY_SIZE(netbsd_scnames),
169 arg1, arg2, arg3, arg4, arg5, arg6);
170 }
171
172 void
173 print_netbsd_syscall_ret(int num, abi_long ret)
174 {
175 print_syscall_ret(num, ret, netbsd_scnames, ARRAY_SIZE(netbsd_scnames));
176 }
177
178 void
179 print_openbsd_syscall(int num,
180 abi_long arg1, abi_long arg2, abi_long arg3,
181 abi_long arg4, abi_long arg5, abi_long arg6)
182 {
183 print_syscall(num, openbsd_scnames, ARRAY_SIZE(openbsd_scnames),
184 arg1, arg2, arg3, arg4, arg5, arg6);
185 }
186
187 void
188 print_openbsd_syscall_ret(int num, abi_long ret)
189 {
190 print_syscall_ret(num, ret, openbsd_scnames, ARRAY_SIZE(openbsd_scnames));
191 }