1 /*
2  * Copyright (c) 1993 Ulrich Pegelow <pegelow@moorea.uni-muenster.de>
3  * Copyright (c) 1993 Branko Lankester <branko@hacktic.nl>
4  * Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com>
5  * Copyright (c) 1996-1999 Wichert Akkerman <wichert@cistron.nl>
6  * Copyright (c) 2003-2006 Roland McGrath <roland@redhat.com>
7  * Copyright (c) 2006-2015 Dmitry V. Levin <ldv@altlinux.org>
8  * Copyright (c) 2015-2017 The strace developers.
9  * All rights reserved.
10  *
11  * Redistribution and use in source and binary forms, with or without
12  * modification, are permitted provided that the following conditions
13  * are met:
14  * 1. Redistributions of source code must retain the above copyright
15  *    notice, this list of conditions and the following disclaimer.
16  * 2. Redistributions in binary form must reproduce the above copyright
17  *    notice, this list of conditions and the following disclaimer in the
18  *    documentation and/or other materials provided with the distribution.
19  * 3. The name of the author may not be used to endorse or promote products
20  *    derived from this software without specific prior written permission.
21  *
22  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
23  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
24  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
25  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
26  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
27  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
28  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
29  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
30  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
31  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32  */
33 
34 #include "defs.h"
35 
36 #include DEF_MPERS_TYPE(shmid_ds_t)
37 
38 #include "ipc_defs.h"
39 
40 #ifdef HAVE_SYS_SHM_H
41 /* The C library generally exports the struct the current kernel expects. */
42 # include <sys/shm.h>
43 typedef struct shmid_ds shmid_ds_t;
44 #elif defined HAVE_LINUX_SHM_H
45 /* The linux header might provide the right struct. */
46 # include <linux/shm.h>
47 typedef struct shmid64_ds shmid_ds_t;
48 #endif
49 
50 #include MPERS_DEFS
51 
52 #include "xlat/shmctl_flags.h"
53 
54 static void
print_shmid_ds(struct tcb * const tcp,const kernel_ulong_t addr,int cmd)55 print_shmid_ds(struct tcb *const tcp, const kernel_ulong_t addr, int cmd)
56 {
57 	/* TODO: We don't properly decode old compat ipc calls. */
58 	if (cmd & IPC_64)
59 		cmd &= ~IPC_64;
60 	shmid_ds_t shmid_ds;
61 	switch (cmd) {
62 	case IPC_SET:
63 	case IPC_STAT:
64 		if (umove_or_printaddr(tcp, addr, &shmid_ds))
65 			return;
66 
67 		tprints("{shm_perm={");
68 		printuid("uid=", shmid_ds.shm_perm.uid);
69 		printuid(", gid=", shmid_ds.shm_perm.gid);
70 		tprints(", mode=");
71 		print_numeric_umode_t(shmid_ds.shm_perm.mode);
72 
73 		if (cmd != IPC_STAT) {
74 			tprints("}, ...}");
75 			break;
76 		}
77 
78 		tprintf(", key=%u", (unsigned) shmid_ds.shm_perm.__key);
79 		printuid(", cuid=", shmid_ds.shm_perm.cuid);
80 		printuid(", cgid=", shmid_ds.shm_perm.cgid);
81 		tprints("}");
82 		tprintf(", shm_segsz=%u", (unsigned) shmid_ds.shm_segsz);
83 		tprintf(", shm_cpid=%u", (unsigned) shmid_ds.shm_cpid);
84 		tprintf(", shm_lpid=%u", (unsigned) shmid_ds.shm_lpid);
85 		tprintf(", shm_nattch=%u", (unsigned) shmid_ds.shm_nattch);
86 		tprintf(", shm_atime=%u", (unsigned) shmid_ds.shm_atime);
87 		tprintf(", shm_dtime=%u", (unsigned) shmid_ds.shm_dtime);
88 		tprintf(", shm_ctime=%u", (unsigned) shmid_ds.shm_ctime);
89 		tprints("}");
90 		break;
91 
92 	default:
93 		printaddr(addr);
94 		break;
95 	}
96 }
97 
SYS_FUNC(shmctl)98 SYS_FUNC(shmctl)
99 {
100 	if (entering(tcp)) {
101 		tprintf("%d, ", (int) tcp->u_arg[0]);
102 		PRINTCTL(shmctl_flags, tcp->u_arg[1], "SHM_???");
103 		tprints(", ");
104 	} else {
105 		const kernel_ulong_t addr = tcp->u_arg[indirect_ipccall(tcp) ? 3 : 2];
106 		print_shmid_ds(tcp, addr, tcp->u_arg[1]);
107 	}
108 	return 0;
109 }
110