You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

135 lines
2.7 KiB
C

#include <io_internal.h>
#include <iob.h>
#include <unistd.h>
#include <sys/types.h>
#ifdef __MINGW32__
#include <windows.h>
#else
#include <sys/mman.h>
#endif
#include <errno.h>
#include "havepread.h"
#define BUFSIZE 16384
int64 io_mmapwritefile(int64 out,int64 in,uint64 off,uint64 bytes,io_write_callback writecb) {
char buf[BUFSIZE];
ssize_t n,m;
uint64 sent=0;
io_entry* e=iarray_get(&io_fds,out);
if (e) {
const char* c;
unsigned long left;
#ifdef __MINGW32__
if (!e->mh) e->mh=CreateFileMapping(in,0,PAGE_READONLY,0,0,NULL);
if (!e->mh) goto readwrite;
#endif
do {
if (e->mmapped) {
/* did we already map the right chunk? */
if (off>=e->mapofs && off<e->mapofs+e->maplen)
goto mapok; /* ok; mmapped the right chunk*/
#ifdef __MINGW32__
UnmapViewOfFile(e->mmapped);
#else
munmap(e->mmapped,e->maplen);
#endif
}
e->mapofs=off&0xffffffffffff0000ull;
if (e->mapofs+0x10000>off+bytes)
e->maplen=off+bytes-e->mapofs;
else
e->maplen=0x10000;
#ifdef __MINGW32__
if ((e->mmapped=MapViewOfFile(e->mh,FILE_MAP_READ,(DWORD)(e->mapofs>>32),
(DWORD)e->mapofs,e->maplen))==0)
#else
if ((e->mmapped=mmap(0,e->maplen,PROT_READ,MAP_SHARED,in,e->mapofs))==MAP_FAILED)
#endif
{
e->mmapped=0;
goto readwrite;
}
mapok:
c=(const char*)(e->mmapped)+(off&0xffff);
left=e->maplen-(off&0xffff);
if (left>bytes) left=bytes;
while (left>0) {
m=writecb(out,c,left);
if (m<0) {
io_eagain_write(out);
if (errno!=EAGAIN) {
#ifdef __MINGW32__
UnmapViewOfFile(e->mmapped);
#else
munmap(e->mmapped,e->maplen);
#endif
e->mmapped=0;
return -3;
}
return sent?(int64)sent:-1;
}
if (m==0) return sent;
sent+=m;
left-=m;
bytes-=m;
off+=m;
c+=m;
if (e && left>0) {
e->canwrite=0;
e->next_write=-1;
return sent;
}
}
} while (bytes);
if (e->mmapped) {
#ifdef __MINGW32__
UnmapViewOfFile(e->mmapped);
#else
munmap(e->mmapped,e->maplen);
#endif
e->mmapped=0;
}
return sent;
}
readwrite:
#ifndef HAVE_PREAD
if (lseek(in,off,SEEK_SET) != (off_t)off)
return -1;
#endif
while (bytes>0) {
char* tmp=buf;
#ifdef HAVE_PREAD
if ((n=pread(in,tmp,(bytes<BUFSIZE)?bytes:BUFSIZE,off))<=0)
return (sent?(int64)sent:-1);
off+=n;
#else
if ((n=read(in,tmp,(bytes<BUFSIZE)?bytes:BUFSIZE))<=0)
return (sent?(int64)sent:-1);
#endif
while (n>0) {
if ((m=writecb(out,tmp,n))<0) {
if (m==-1) {
if (e) {
e->canwrite=0;
e->next_write=-1;
}
return errno==EAGAIN?(sent?(int64)sent:-1):-3;
}
goto abort;
}
sent+=m;
n-=m;
bytes-=m;
tmp+=m;
if (e && m!=n) {
e->canwrite=0;
e->next_write=-1;
goto abort;
}
}
}
abort:
return sent;
}