#include <config.h>
#include <errno.h>
#include <sys/types.h>
#include <unistd.h>
#include <stdio.h>
#include <string.h>


#include "utilvfs.h"

#include "vfs.h"
#include "local.h"

/* Note: Some of this functions are not static. This has rather good
 * reason: exactly same functions would have to appear in sfs.c. This
 * saves both computer's memory and my work.  <pavel@ucw.cz>
 * */
    
static struct vfs_class vfs_local_ops;

static void *
local_open (struct vfs_class *me, char *file, int flags, int mode)
{
    int *local_info;
    int fd;

    fd = open (file, NO_LINEAR(flags), mode);
    if (fd == -1)
	return 0;

    local_info = g_new (int, 1);
    *local_info = fd;
    
    return local_info;
}

int
local_read (void *data, char *buffer, int count)
{
    int n;

    if (!data)
	return -1;
    
    while ((n = read (*((int *) data), buffer, count)) == -1){
#ifdef EAGAIN
	if (errno == EAGAIN) continue;
#endif
#ifdef EINTR
	if (errno == EINTR) continue;
#endif
	return -1;
    }
    return n;
}

int
local_close (void *data)
{
    int fd;

    if (!data)
	return -1;
    
    fd =  *(int *) data;
    g_free (data);
    return close (fd);
}

int
local_errno (struct vfs_class *me)
{
    return errno;
}

static void *
local_opendir (struct vfs_class *me, char *dirname)
{
    DIR **local_info;
    DIR *dir;

    dir = opendir (dirname);
    if (!dir)
	return 0;

    local_info = (DIR **) g_new (DIR *, 1);
    *local_info = dir;
    
    return local_info;
}

static int
local_telldir (void *data)
{
#ifdef HAVE_TELLDIR
    return telldir( *(DIR **) data );
#else
 #warning "Native telldir() not available, emulation not implemented"
    abort();
    return 0; /* for dumb compilers */
#endif /* !HAVE_TELLDIR */
}

static void
local_seekdir (void *data, int offset)
{
#ifdef HAVE_SEEKDIR
    seekdir( *(DIR **) data, offset );
#else
 #warning "Native seekdir() not available, emulation not implemented"
    abort();
#endif /* !HAVE_SEEKDIR */
}

static void *
local_readdir (void *data)
{
    return readdir (*(DIR **) data);
}

static int
local_closedir (void *data)
{
    int i;

    i = closedir (* (DIR **) data);
    if (data)
	g_free (data);
    return i;
}

static int
local_stat (struct vfs_class *me, char *path, struct stat *buf)
{
    return stat (path, buf);
}

static int
local_lstat (struct vfs_class *me, char *path, struct stat *buf)
{
#ifndef HAVE_STATLSTAT
    return lstat (path,buf);
#else
    return statlstat (path, buf);
#endif
}

int
local_fstat (void *data, struct stat *buf)
{
    return fstat (*((int *) data), buf);    
}

static int
local_chmod (struct vfs_class *me, char *path, int mode)
{
    return chmod (path, mode);
}

static int
local_chown (struct vfs_class *me, char *path, int owner, int group)
{
    return chown (path, owner, group);
}

static int
local_utime (struct vfs_class *me, char *path, struct utimbuf *times)
{
    return utime (path, times);
}

static int
local_readlink (struct vfs_class *me, char *path, char *buf, int size)
{
    return readlink (path, buf, size);
}

static int
local_unlink (struct vfs_class *me, char *path)
{
    return unlink (path);
}

static int
local_symlink (struct vfs_class *me, char *n1, char *n2)
{
    return symlink (n1, n2);
}

static int
local_write (void *data, char *buf, int nbyte)
{
    int fd;
    int n;

    if (!data)
	return -1;
    
    fd = * (int *) data;
    while ((n = write (fd, buf, nbyte)) == -1){
#ifdef EAGAIN
	if (errno == EAGAIN) continue;
#endif
#ifdef EINTR
	if (errno == EINTR) continue;
#endif
	break;
    }
    return n;
}

static int
local_rename (struct vfs_class *me, char *a, char *b)
{
    return rename (a, b);
}

static int
local_chdir (struct vfs_class *me, char *path)
{
    return chdir (path);
}

int
local_lseek (void *data, off_t offset, int whence)
{
    int fd = * (int *) data;

    return lseek (fd, offset, whence);
}

static int
local_mknod (struct vfs_class *me, char *path, int mode, int dev)
{
    return mknod (path, mode, dev);
}

static int
local_link (struct vfs_class *me, char *p1, char *p2)
{
    return link (p1, p2);
}

static int
local_mkdir (struct vfs_class *me, char *path, mode_t mode)
{
    return mkdir (path, mode);
}

static int
local_rmdir (struct vfs_class *me, char *path)
{
    return rmdir (path);
}

static vfsid
local_getid (struct vfs_class *me, const char *path, struct vfs_stamping **parent)
{
    *parent = NULL;
    return (vfsid) -1; /* We do not free local fs stuff at all */
}

static int
local_nothingisopen (vfsid id)
{
    return 0;
}

static void
local_free (vfsid id)
{
}

static char *
local_getlocalcopy (struct vfs_class *me, char *path)
{
    return g_strdup (path);
}

static int
local_ungetlocalcopy (struct vfs_class *me, char *path, char *local, int has_changed)
{
    return 0;
}

#ifdef HAVE_MMAP
caddr_t
local_mmap (struct vfs_class *me, caddr_t addr, size_t len, int prot, int flags, void *data, off_t offset)
{
    int fd = * (int *)data;

    return mmap (addr, len, prot, flags, fd, offset);
}

int
local_munmap (struct vfs_class *me, caddr_t addr, size_t len, void *data)
{
    return munmap (addr, len);
}
#endif

static int
local_which (struct vfs_class *me, char *path)
{
    return 0;		/* Every path which other systems do not like is expected to be ours */
}

void
init_localfs (void)
{
    vfs_local_ops.name = "localfs";
    vfs_local_ops.flags = VFSF_LOCAL;
    vfs_local_ops.which = local_which;
    vfs_local_ops.open = local_open;
    vfs_local_ops.close = local_close;
    vfs_local_ops.read = local_read;
    vfs_local_ops.write = local_write;
    vfs_local_ops.opendir = local_opendir;
    vfs_local_ops.readdir = local_readdir;
    vfs_local_ops.closedir = local_closedir;
    vfs_local_ops.telldir = local_telldir;
    vfs_local_ops.seekdir = local_seekdir;
    vfs_local_ops.stat = local_stat;
    vfs_local_ops.lstat = local_lstat;
    vfs_local_ops.fstat = local_fstat;
    vfs_local_ops.chmod = local_chmod;
    vfs_local_ops.chown = local_chown;
    vfs_local_ops.utime = local_utime;
    vfs_local_ops.readlink = local_readlink;
    vfs_local_ops.symlink = local_symlink;
    vfs_local_ops.link = local_link;
    vfs_local_ops.unlink = local_unlink;
    vfs_local_ops.rename = local_rename;
    vfs_local_ops.chdir = local_chdir;
    vfs_local_ops.ferrno = local_errno;
    vfs_local_ops.lseek = local_lseek;
    vfs_local_ops.mknod = local_mknod;
    vfs_local_ops.getid = local_getid;
    vfs_local_ops.nothingisopen = local_nothingisopen;
    vfs_local_ops.free = local_free;
    vfs_local_ops.getlocalcopy = local_getlocalcopy;
    vfs_local_ops.ungetlocalcopy = local_ungetlocalcopy;
    vfs_local_ops.mkdir = local_mkdir;
    vfs_local_ops.rmdir = local_rmdir;
    vfs_local_ops.mmap = local_mmap;
    vfs_local_ops.munmap = local_munmap;
    vfs_register_class (&vfs_local_ops);
}