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

   1 /*
   2  * Copyright (c) 1991, 1992 Paul Kranenburg <pk@cs.few.eur.nl>
   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) 2005-2007 Roland McGrath <roland@redhat.com>
   7  * Copyright (c) 2006-2007 Ulrich Drepper <drepper@redhat.com>
   8  * Copyright (c) 2009-2013 Denys Vlasenko <dvlasenk@redhat.com>
   9  * Copyright (c) 2005-2015 Dmitry V. Levin <ldv@altlinux.org>
  10  * All rights reserved.
  11  *
  12  * Redistribution and use in source and binary forms, with or without
  13  * modification, are permitted provided that the following conditions
  14  * are met:
  15  * 1. Redistributions of source code must retain the above copyright
  16  *    notice, this list of conditions and the following disclaimer.
  17  * 2. Redistributions in binary form must reproduce the above copyright
  18  *    notice, this list of conditions and the following disclaimer in the
  19  *    documentation and/or other materials provided with the distribution.
  20  * 3. The name of the author may not be used to endorse or promote products
  21  *    derived from this software without specific prior written permission.
  22  *
  23  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  24  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  25  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  26  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  27  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  28  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  29  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  30  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  31  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  32  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  33  */
  34
  35 #include "defs.h"
  36
  37 #include <fcntl.h>
  38
  39 #ifdef O_LARGEFILE
  40 # if O_LARGEFILE == 0          /* biarch platforms in 64-bit mode */
  41 #  undef O_LARGEFILE
  42 #  ifdef SPARC64
  43 #   define O_LARGEFILE 0x40000
  44 #  elif defined X86_64 || defined S390X
  45 #   define O_LARGEFILE 0100000
  46 #  endif
  47 # endif
  48 #endif
  49
  50 #include "xlat/open_access_modes.h"
  51 #include "xlat/open_mode_flags.h"
  52
  53 #ifndef AT_FDCWD
  54 # define AT_FDCWD                -100
  55 #endif
  56
  57 /* The fd is an "int", so when decoding x86 on x86_64, we need to force sign
  58  * extension to get the right value.  We do this by declaring fd as int here.
  59  */
  60 void
  61 print_dirfd(struct tcb *tcp, int fd)
  62 {
  63         if (fd == AT_FDCWD)
  64                 tprints("AT_FDCWD, ");
  65         else {
  66                 printfd(tcp, fd);
  67                 tprints(", ");
  68         }
  69 }
  70
  71 /*
  72  * low bits of the open(2) flags define access mode,
  73  * other bits are real flags.
  74  */
  75 const char *
  76 sprint_open_modes(unsigned int flags)
  77 {
  78         static char outstr[(1 + ARRAY_SIZE(open_mode_flags)) * sizeof("O_LARGEFILE")];
  79         char *p;
  80         char sep;
  81         const char *str;
  82         const struct xlat *x;
  83
  84         sep = ' ';
  85         p = stpcpy(outstr, "flags");
  86         str = xlookup(open_access_modes, flags & 3);
  87         if (str) {
  88                 *p++ = sep;
  89                 p = stpcpy(p, str);
  90                 flags &= ~3;
  91                 if (!flags)
  92                         return outstr;
  93                 sep = '|';
  94         }
  95
  96         for (x = open_mode_flags; x->str; x++) {
  97                 if ((flags & x->val) == x->val) {
  98                         *p++ = sep;
  99                         p = stpcpy(p, x->str);
 100                         flags &= ~x->val;
 101                         if (!flags)
 102                                 return outstr;
 103                         sep = '|';
 104                 }
 105         }
 106         /* flags is still nonzero */
 107         *p++ = sep;
 108         sprintf(p, "%#x", flags);
 109         return outstr;
 110 }
 111
 112 void
 113 tprint_open_modes(unsigned int flags)
 114 {
 115         tprints(sprint_open_modes(flags) + sizeof("flags"));
 116 }
 117
 118 static int
 119 decode_open(struct tcb *tcp, int offset)
 120 {
 121         printpath(tcp, tcp->u_arg[offset]);
 122         tprints(", ");
 123         /* flags */
 124         tprint_open_modes(tcp->u_arg[offset + 1]);
 125         if (tcp->u_arg[offset + 1] & O_CREAT) {
 126                 /* mode */
 127                 tprints(", ");
 128                 print_numeric_umode_t(tcp->u_arg[offset + 2]);
 129         }
 130
 131         return RVAL_DECODED | RVAL_FD;
 132 }
 133
 134 SYS_FUNC(open)
 135 {
 136         return decode_open(tcp, 0);
 137 }
 138
 139 SYS_FUNC(openat)
 140 {
 141         print_dirfd(tcp, tcp->u_arg[0]);
 142         return decode_open(tcp, 1);
 143 }
 144
 145 SYS_FUNC(creat)
 146 {
 147         printpath(tcp, tcp->u_arg[0]);
 148         tprints(", ");
 149         print_numeric_umode_t(tcp->u_arg[1]);
 150
 151         return RVAL_DECODED | RVAL_FD;
 152 }