my_pread.c 6.08 KB
Newer Older
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
1 2 3 4
/* Copyright (C) 2000 MySQL AB

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
5
   the Free Software Foundation; version 2 of the License.
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
6 7

   This program is distributed in the hope that it will be useful,
bk@work.mysql.com's avatar
bk@work.mysql.com committed
8
   but WITHOUT ANY WARRANTY; without even the implied warranty of
monty@hundin.mysql.fi's avatar
monty@hundin.mysql.fi committed
9 10 11 12 13 14
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
15 16 17 18 19 20 21 22 23 24 25 26 27 28

#include "mysys_priv.h"
#include "mysys_err.h"
#include <errno.h>
#ifdef HAVE_PREAD
#include <unistd.h>
#endif

	/* Read a chunk of bytes from a file  */

uint my_pread(File Filedes, byte *Buffer, uint Count, my_off_t offset,
	      myf MyFlags)
{
  uint readbytes;
29
  int error= 0;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
30
  DBUG_ENTER("my_pread");
31
  DBUG_PRINT("my",("Fd: %d  Seek: %lu  Buffer: 0x%lx  Count: %u  MyFlags: %d",
32
		   Filedes, (ulong) offset, (long) Buffer, Count, MyFlags));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
33 34 35 36 37 38 39

  for (;;)
  {
#ifndef __WIN__
    errno=0;					/* Linux doesn't reset this */
#endif
#ifndef HAVE_PREAD
40
    os_off_t old_offset;
41

42
    pthread_mutex_lock(&my_file_info[Filedes].mutex);
43 44 45 46 47
    /*
      As we cannot change the file pointer, we save the old position,
      before seeking to the given offset
    */

48
    error= (old_offset= lseek(Filedes, 0L, MY_SEEK_CUR)) == -1L ||
49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
           lseek(Filedes, offset, MY_SEEK_SET) == -1L;

    if (!error)                                 /* Seek was successful */
    {
      if ((readbytes = (uint) read(Filedes, Buffer, Count)) == -1L)
        my_errno= errno;

      /*
        We should seek back, even if read failed. If this fails,
        we will return an error. If read failed as well, we will
        save the errno from read, not from lseek().
      */
      if ((error= (lseek(Filedes, old_offset, MY_SEEK_SET) == -1L)) &&
          readbytes != -1L)
        my_errno= errno;
    }

66
    pthread_mutex_unlock(&my_file_info[Filedes].mutex);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
67
#else
petr@mysql.com's avatar
petr@mysql.com committed
68 69 70
    if ((error= ((readbytes =
                  (uint) pread(Filedes, Buffer, Count, offset)) != Count)))
      my_errno= errno;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
71
#endif
72
    if (error || readbytes != Count)
73
    {
74 75
      DBUG_PRINT("warning",("Read only %d bytes off %u from %d, errno: %d",
			    (int) readbytes, Count,Filedes,my_errno));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
76
#ifdef THREAD
77 78 79 80 81 82
      if ((readbytes == 0 || (int) readbytes == -1) && errno == EINTR)
      {
        DBUG_PRINT("debug", ("my_pread() was interrupted and returned %d",
                             (int) readbytes));
        continue;                              /* Interrupted */
      }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
83
#endif
84 85 86 87 88 89 90 91
      if (MyFlags & (MY_WME | MY_FAE | MY_FNABP))
      {
	if ((int) readbytes == -1)
	  my_error(EE_READ, MYF(ME_BELL+ME_WAITTANG),
		   my_filename(Filedes),my_errno);
	else if (MyFlags & (MY_NABP | MY_FNABP))
	  my_error(EE_EOFERR, MYF(ME_BELL+ME_WAITTANG),
		   my_filename(Filedes),my_errno);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
92
      }
93
      if ((int) readbytes == -1 || (MyFlags & (MY_FNABP | MY_NABP)))
94
	DBUG_RETURN(MY_FILE_ERROR);		/* Return with error */
95
    }
bk@work.mysql.com's avatar
bk@work.mysql.com committed
96
    if (MyFlags & (MY_NABP | MY_FNABP))
97 98
      DBUG_RETURN(0);				/* Read went ok; Return 0 */
    DBUG_RETURN(readbytes);			/* purecov: inspected */
bk@work.mysql.com's avatar
bk@work.mysql.com committed
99 100 101 102 103 104 105 106 107 108 109 110
  }
} /* my_pread */


	/* Write a chunk of bytes to a file */

uint my_pwrite(int Filedes, const byte *Buffer, uint Count, my_off_t offset,
	       myf MyFlags)
{
  uint writenbytes,errors;
  ulong written;
  DBUG_ENTER("my_pwrite");
111
  DBUG_PRINT("my",("Fd: %d  Seek: %lu  Buffer: 0x%lx  Count: %d  MyFlags: %d",
112
		   Filedes, (ulong) offset, (long) Buffer, Count, MyFlags));
bk@work.mysql.com's avatar
bk@work.mysql.com committed
113 114 115 116 117
  errors=0; written=0L;

  for (;;)
  {
#ifndef HAVE_PREAD
118
    int error= 0;
119
    os_off_t old_offset;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
120
    writenbytes= (uint) -1;
121
    pthread_mutex_lock(&my_file_info[Filedes].mutex);
122 123 124 125 126

    /*
      As we cannot change the file pointer, we save the old position,
      before seeking to the given offset
    */
127
    error= ((old_offset= lseek(Filedes, 0L, MY_SEEK_CUR)) == -1L ||
128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
            lseek(Filedes, offset, MY_SEEK_SET) == -1L);

    if (!error)                                 /* Seek was successful */
    {
      if ((writenbytes = (uint) write(Filedes, Buffer, Count)) == -1L)
        my_errno= errno;

      /*
        We should seek back, even if write failed. If this fails,
        we will return an error. If write failed as well, we will
        save the errno from write, not from lseek().
      */
      if ((error= (lseek(Filedes, old_offset, MY_SEEK_SET) == -1L)) &&
          writenbytes != -1L)
        my_errno= errno;
    }
144
    pthread_mutex_unlock(&my_file_info[Filedes].mutex);
145 146

    if (!error && writenbytes == Count)
147
      break;
bk@work.mysql.com's avatar
bk@work.mysql.com committed
148 149 150
#else
    if ((writenbytes = (uint) pwrite(Filedes, Buffer, Count,offset)) == Count)
      break;
petr@mysql.com's avatar
petr@mysql.com committed
151 152
    else
      my_errno= errno;
153
#endif
bk@work.mysql.com's avatar
bk@work.mysql.com committed
154 155 156 157 158 159 160 161 162 163 164 165 166
    if ((int) writenbytes != -1)
    {					/* Safegueard */
      written+=writenbytes;
      Buffer+=writenbytes;
      Count-=writenbytes;
      offset+=writenbytes;
    }
    DBUG_PRINT("error",("Write only %d bytes",writenbytes));
#ifndef NO_BACKGROUND
#ifdef THREAD
    if (my_thread_var->abort)
      MyFlags&= ~ MY_WAIT_IF_FULL;		/* End if aborted by user */
#endif
167 168
    if ((my_errno == ENOSPC || my_errno == EDQUOT) &&
        (MyFlags & MY_WAIT_IF_FULL))
bk@work.mysql.com's avatar
bk@work.mysql.com committed
169 170 171
    {
      if (!(errors++ % MY_WAIT_GIVE_USER_A_MESSAGE))
	my_error(EE_DISK_FULL,MYF(ME_BELL | ME_NOREFRESH),
172
		 my_filename(Filedes),my_errno,MY_WAIT_FOR_USER_TO_FIX_PANIC);
bk@work.mysql.com's avatar
bk@work.mysql.com committed
173 174 175
      VOID(sleep(MY_WAIT_FOR_USER_TO_FIX_PANIC));
      continue;
    }
176 177
    if ((writenbytes > 0 && (uint) writenbytes != (uint) -1) ||
        my_errno == EINTR)
bk@work.mysql.com's avatar
bk@work.mysql.com committed
178 179 180 181 182 183
      continue;					/* Retry */
#endif
    if (MyFlags & (MY_NABP | MY_FNABP))
    {
      if (MyFlags & (MY_WME | MY_FAE | MY_FNABP))
      {
184
	my_error(EE_WRITE, MYF(ME_BELL | ME_WAITTANG),
bk@work.mysql.com's avatar
bk@work.mysql.com committed
185 186 187 188 189 190 191 192 193 194
		 my_filename(Filedes),my_errno);
      }
      DBUG_RETURN(MY_FILE_ERROR);		/* Error on read */
    }
    else
      break;					/* Return bytes written */
  }
  if (MyFlags & (MY_NABP | MY_FNABP))
    DBUG_RETURN(0);			/* Want only errors */
  DBUG_RETURN(writenbytes+written); /* purecov: inspected */
195
} /* my_pwrite */