granicus.if.org Git - strace/blob - io.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  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. The name of the author may not be used to endorse or promote products
  17  *    derived from this software without specific prior written permission.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  20  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  21  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  22  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  23  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  24  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  25  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  26  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  27  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  28  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  29  *
  30  *      $Id$
  31  */
  32
  33 #include "defs.h"
  34
  35 #include <fcntl.h>
  36 #if HAVE_SYS_UIO_H
  37 #include <sys/uio.h>
  38 #endif
  39
  40 #ifdef HAVE_LONG_LONG_OFF_T
  41 /*
  42  * Hacks for systems that have a long long off_t
  43  */
  44
  45 #define sys_pread64     sys_pread
  46 #define sys_pwrite64    sys_pwrite
  47 #endif
  48
  49 int
  50 sys_read(tcp)
  51 struct tcb *tcp;
  52 {
  53         if (entering(tcp)) {
  54                 tprintf("%ld, ", tcp->u_arg[0]);
  55         } else {
  56                 if (syserror(tcp))
  57                         tprintf("%#lx", tcp->u_arg[1]);
  58                 else
  59                         printstr(tcp, tcp->u_arg[1], tcp->u_rval);
  60                 tprintf(", %lu", tcp->u_arg[2]);
  61         }
  62         return 0;
  63 }
  64
  65 int
  66 sys_write(tcp)
  67 struct tcb *tcp;
  68 {
  69         if (entering(tcp)) {
  70                 tprintf("%ld, ", tcp->u_arg[0]);
  71                 printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
  72                 tprintf(", %lu", tcp->u_arg[2]);
  73         }
  74         return 0;
  75 }
  76
  77 #if HAVE_SYS_UIO_H
  78 void
  79 tprint_iov(tcp, len, addr)
  80 struct tcb * tcp;
  81 int len;
  82 long addr;
  83 {
  84         struct iovec *iov;
  85         int i;
  86
  87
  88         if (!len) {
  89                 tprintf("[]");
  90                 return;
  91         }
  92
  93         if ((iov = (struct iovec *) malloc(len * sizeof *iov)) == NULL) {
  94                 fprintf(stderr, "No memory");
  95                 return;
  96         }
  97         if (umoven(tcp, addr,
  98                    len * sizeof *iov, (char *) iov) < 0) {
  99                 tprintf("%#lx", tcp->u_arg[1]);
 100         } else {
 101                 tprintf("[");
 102                 for (i = 0; i < len; i++) {
 103                         if (i)
 104                                 tprintf(", ");
 105                         tprintf("{");
 106                         printstr(tcp, (long) iov[i].iov_base,
 107                                 iov[i].iov_len);
 108                         tprintf(", %lu}", (unsigned long)iov[i].iov_len);
 109                 }
 110                 tprintf("]");
 111         }
 112         free((char *) iov);
 113 }
 114
 115 int
 116 sys_readv(tcp)
 117 struct tcb *tcp;
 118 {
 119         if (entering(tcp)) {
 120                 tprintf("%ld, ", tcp->u_arg[0]);
 121         } else {
 122                 if (syserror(tcp)) {
 123                         tprintf("%#lx, %lu",
 124                                         tcp->u_arg[1], tcp->u_arg[2]);
 125                         return 0;
 126                 }
 127                 tprint_iov(tcp, tcp->u_arg[2], tcp->u_arg[1]);
 128                 tprintf(", %lu", tcp->u_arg[2]);
 129         }
 130         return 0;
 131 }
 132
 133 int
 134 sys_writev(tcp)
 135 struct tcb *tcp;
 136 {
 137         if (entering(tcp)) {
 138                 tprintf("%ld, ", tcp->u_arg[0]);
 139                 tprint_iov(tcp, tcp->u_arg[2], tcp->u_arg[1]);
 140                 tprintf(", %lu", tcp->u_arg[2]);
 141         }
 142         return 0;
 143 }
 144 #endif
 145
 146 #if defined(SVR4)
 147
 148 int
 149 sys_pread(tcp)
 150 struct tcb *tcp;
 151 {
 152         if (entering(tcp)) {
 153                 tprintf("%ld, ", tcp->u_arg[0]);
 154         } else {
 155                 if (syserror(tcp))
 156                         tprintf("%#lx", tcp->u_arg[1]);
 157                 else
 158                         printstr(tcp, tcp->u_arg[1], tcp->u_rval);
 159 #if UNIXWARE
 160                 /* off_t is signed int */
 161                 tprintf(", %lu, %ld", tcp->u_arg[2], tcp->u_arg[3]);
 162 #else
 163                 tprintf(", %lu, %llu", tcp->u_arg[2],
 164                                 (((unsigned long long) tcp->u_arg[4]) << 32
 165                                  | (unsigned) tcp->u_arg[3]));
 166 #endif
 167         }
 168         return 0;
 169 }
 170
 171 int
 172 sys_pwrite(tcp)
 173 struct tcb *tcp;
 174 {
 175         if (entering(tcp)) {
 176                 tprintf("%ld, ", tcp->u_arg[0]);
 177                 printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
 178 #if UNIXWARE
 179                 /* off_t is signed int */
 180                 tprintf(", %lu, %ld", tcp->u_arg[2], tcp->u_arg[3]);
 181 #else
 182                 tprintf(", %lu, %llu", tcp->u_arg[2],
 183                                 (((unsigned long long) tcp->u_arg[4]) << 32
 184                                  | (unsigned) tcp->u_arg[3]));
 185 #endif
 186         }
 187         return 0;
 188 }
 189 #endif /* SVR4 */
 190
 191 #ifdef FREEBSD
 192 #include <sys/types.h>
 193 #include <sys/socket.h>
 194
 195 int
 196 sys_sendfile(tcp)
 197 struct tcb *tcp;
 198 {
 199         if (entering(tcp)) {
 200                 tprintf("%ld, %ld, %llu, %lu", tcp->u_arg[0], tcp->u_arg[1],
 201                         (((unsigned long long) tcp->u_arg[3]) << 32 |
 202                          (unsigned) tcp->u_arg[2]), tcp->u_arg[4]);
 203         } else {
 204                 off_t offset;
 205
 206                 if (!tcp->u_arg[5])
 207                         tprintf(", NULL");
 208                 else {
 209                         struct sf_hdtr hdtr;
 210
 211                         if (umove(tcp, tcp->u_arg[5], &hdtr) < 0)
 212                                 tprintf(", %#lx", tcp->u_arg[5]);
 213                         else {
 214                                 tprintf(", { ");
 215                                 tprint_iov(tcp, hdtr.hdr_cnt, hdtr.headers);
 216                                 tprintf(", %u, ", hdtr.hdr_cnt);
 217                                 tprint_iov(tcp, hdtr.trl_cnt, hdtr.trailers);
 218                                 tprintf(", %u }", hdtr.hdr_cnt);
 219                         }
 220                 }
 221                 if (!tcp->u_arg[6])
 222                         tprintf(", NULL");
 223                 else if (umove(tcp, tcp->u_arg[6], &offset) < 0)
 224                         tprintf(", %#lx", tcp->u_arg[6]);
 225                 else
 226                         tprintf(", [%llu]", offset);
 227                 tprintf(", %lu", tcp->u_arg[7]);
 228         }
 229         return 0;
 230 }
 231 #endif /* FREEBSD */
 232
 233 #ifdef LINUX
 234 int
 235 sys_pread(tcp)
 236 struct tcb *tcp;
 237 {
 238         if (entering(tcp)) {
 239                 tprintf("%ld, ", tcp->u_arg[0]);
 240         } else {
 241                 if (syserror(tcp))
 242                         tprintf("%#lx", tcp->u_arg[1]);
 243                 else
 244                         printstr(tcp, tcp->u_arg[1], tcp->u_rval);
 245                 tprintf(", %lu, %llu", tcp->u_arg[2],
 246                         *(unsigned long long *)&tcp->u_arg[3]);
 247         }
 248         return 0;
 249 }
 250
 251 int
 252 sys_pwrite(tcp)
 253 struct tcb *tcp;
 254 {
 255         if (entering(tcp)) {
 256                 tprintf("%ld, ", tcp->u_arg[0]);
 257                 printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
 258                 tprintf(", %lu, %llu", tcp->u_arg[2],
 259                         *(unsigned long long *)&tcp->u_arg[3]);
 260         }
 261         return 0;
 262 }
 263
 264 int
 265 sys_sendfile(tcp)
 266 struct tcb *tcp;
 267 {
 268         if (entering(tcp)) {
 269                 off_t offset;
 270
 271                 tprintf("%ld, %ld, ", tcp->u_arg[0], tcp->u_arg[1]);
 272                 if (!tcp->u_arg[2])
 273                         tprintf("NULL");
 274                 else if (umove(tcp, tcp->u_arg[2], &offset) < 0)
 275                         tprintf("%#lx", tcp->u_arg[2]);
 276                 else
 277                         tprintf("[%lu]", offset);
 278                 tprintf(", %lu", tcp->u_arg[3]);
 279         }
 280         return 0;
 281 }
 282
 283 int
 284 sys_sendfile64(tcp)
 285 struct tcb *tcp;
 286 {
 287         if (entering(tcp)) {
 288                 loff_t offset;
 289
 290                 tprintf("%ld, %ld, ", tcp->u_arg[0], tcp->u_arg[1]);
 291                 if (!tcp->u_arg[2])
 292                         tprintf("NULL");
 293                 else if (umove(tcp, tcp->u_arg[2], &offset) < 0)
 294                         tprintf("%#lx", tcp->u_arg[2]);
 295                 else
 296                         tprintf("[%llu]", (unsigned long long int) offset);
 297                 tprintf(", %lu", tcp->u_arg[3]);
 298         }
 299         return 0;
 300 }
 301
 302 #endif /* LINUX */
 303
 304 #if _LFS64_LARGEFILE || HAVE_LONG_LONG_OFF_T
 305 int
 306 sys_pread64(tcp)
 307 struct tcb *tcp;
 308 {
 309         if (entering(tcp)) {
 310                 tprintf("%ld, ", tcp->u_arg[0]);
 311         } else {
 312                 ALIGN64 (tcp, 3);
 313                 if (syserror(tcp))
 314                         tprintf("%#lx", tcp->u_arg[1]);
 315                 else
 316                         printstr(tcp, tcp->u_arg[1], tcp->u_rval);
 317                 tprintf(", %lu, %#llx", tcp->u_arg[2],
 318                         LONG_LONG(tcp->u_arg[3], tcp->u_arg[4]));
 319         }
 320         return 0;
 321 }
 322
 323 int
 324 sys_pwrite64(tcp)
 325 struct tcb *tcp;
 326 {
 327         if (entering(tcp)) {
 328                 ALIGN64 (tcp, 3);
 329                 tprintf("%ld, ", tcp->u_arg[0]);
 330                 printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
 331                 tprintf(", %lu, %#llx", tcp->u_arg[2],
 332                         LONG_LONG(tcp->u_arg[3], tcp->u_arg[4]));
 333         }
 334         return 0;
 335 }
 336 #endif
 337
 338 int
 339 sys_ioctl(tcp)
 340 struct tcb *tcp;
 341 {
 342         char *symbol;
 343
 344         if (entering(tcp)) {
 345                 tprintf("%ld, ", tcp->u_arg[0]);
 346                 symbol = ioctl_lookup(tcp->u_arg[1]);
 347                 if (symbol)
 348                         tprintf("%s", symbol);
 349                 else
 350                         tprintf("%#lx", tcp->u_arg[1]);
 351                 ioctl_decode(tcp, tcp->u_arg[1], tcp->u_arg[2]);
 352         }
 353         else {
 354                 int ret;
 355                 if (!(ret = ioctl_decode(tcp, tcp->u_arg[1], tcp->u_arg[2])))
 356                         tprintf(", %#lx", tcp->u_arg[2]);
 357                 else
 358                         return ret - 1;
 359         }
 360         return 0;
 361 }