granicus.if.org Git - strace/blob - ipc_shmctl.c

   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  * All rights reserved.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  * 3. The name of the author may not be used to endorse or promote products
  19  *    derived from this software without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  22  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  23  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  24  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  25  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  26  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  27  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  28  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  29  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  30  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  31  */
  32
  33 #include "defs.h"
  34 #include "ipc_defs.h"
  35
  36 #include <sys/shm.h>
  37
  38 #include DEF_MPERS_TYPE(shmid_ds_t)
  39 #include <sys/shm.h>
  40 typedef struct shmid_ds shmid_ds_t;
  41 #include MPERS_DEFS
  42
  43 #include "xlat/shmctl_flags.h"
  44
  45 static void
  46 print_shmid_ds(struct tcb *tcp, const long addr, int cmd)
  47 {
  48         if (cmd & IPC_64)
  49                 cmd &= ~IPC_64;
  50         shmid_ds_t shmid_ds;
  51         switch (cmd) {
  52         case IPC_SET:
  53         case IPC_STAT:
  54                 if (umove_or_printaddr(tcp, addr, &shmid_ds))
  55                         return;
  56
  57                 tprints("{shm_perm={");
  58                 printuid("uid=", shmid_ds.shm_perm.uid);
  59                 printuid(", gid=", shmid_ds.shm_perm.gid);
  60                 tprints(", mode=");
  61                 tprints(sprintmode(shmid_ds.shm_perm.mode));
  62
  63                 if (cmd != IPC_STAT) {
  64                         tprints("}, ...}");
  65                         break;
  66                 }
  67
  68                 tprintf(", key=%u", (unsigned) shmid_ds.shm_perm.__key);
  69                 printuid(", cuid=", shmid_ds.shm_perm.cuid);
  70                 printuid(", cgid=", shmid_ds.shm_perm.cgid);
  71                 tprints("}");
  72                 tprintf(", shm_segsz=%u", (unsigned) shmid_ds.shm_segsz);
  73                 tprintf(", shm_cpid=%u", (unsigned) shmid_ds.shm_cpid);
  74                 tprintf(", shm_lpid=%u", (unsigned) shmid_ds.shm_lpid);
  75                 tprintf(", shm_nattch=%u", (unsigned) shmid_ds.shm_nattch);
  76                 tprintf(", shm_atime=%u", (unsigned) shmid_ds.shm_atime);
  77                 tprintf(", shm_dtime=%u", (unsigned) shmid_ds.shm_dtime);
  78                 tprintf(", shm_ctime=%u", (unsigned) shmid_ds.shm_ctime);
  79                 tprints("}");
  80                 break;
  81
  82         default:
  83                 printaddr(addr);
  84                 break;
  85         }
  86 }
  87
  88 SYS_FUNC(shmctl)
  89 {
  90         if (entering(tcp)) {
  91                 tprintf("%lu, ", tcp->u_arg[0]);
  92                 PRINTCTL(shmctl_flags, tcp->u_arg[1], "SHM_???");
  93                 tprints(", ");
  94         } else {
  95                 const long addr = tcp->u_arg[indirect_ipccall(tcp) ? 3 : 2];
  96                 print_shmid_ds(tcp, addr, tcp->u_arg[1]);
  97         }
  98         return 0;
  99 }