/**

 * fs.c

 *

 * copyright 2013 - joseph werle <joseph.werle@gmail.com>

 */

#define _POSIX_C_SOURCE 200809L

#include <stdlib.h>

#include <stdio.h>

#include <dirent.h>

#include <string.h>

#include <errno.h>

#include <sys/types.h>

#include <sys/stat.h>

#include <unistd.h>

#include <fcntl.h>

#include "fs.h"

void

fs_error (const char *prefix) {

  char fmt[256];

  sprintf(fmt, "fs: %s: error", prefix);

  perror(fmt);

}

FILE *

fs_open (const char *path, const char *flags) {

  return fopen(path, flags);

}

int

fs_close (FILE *file) {

  return fclose(file);

}

int

fs_rename (const char *from, const char *to) {

  return rename(from, to);

}

fs_stats *

fs_stat (const char *path) {

  fs_stats *stats = (fs_stats*) malloc(sizeof(fs_stats));

  int e = stat(path, stats);

  if (-1 == e) {

    free(stats);

    return NULL;

  }

  return stats;

}

fs_stats *

fs_fstat (FILE *file) {

  if (NULL == file) return NULL;

  fs_stats *stats = (fs_stats*) malloc(sizeof(fs_stats));

  int fd = fileno(file);

  int e = fstat(fd, stats);

  if (-1 == e) {

    free(stats);

    return NULL;

  }

  return stats;

}

fs_stats *

fs_lstat (const char *path) {

  fs_stats *stats = (fs_stats*) malloc(sizeof(fs_stats));

#ifdef _WIN32

  int e = stat(path, stats);

#else

  int e = lstat(path, stats);

#endif

  if (-1 == e) {

    free(stats);

    return NULL;

  }

  return stats;

}

int

fs_ftruncate (FILE *file, int len) {

  int fd = fileno(file);

  return ftruncate(fd, (off_t) len);

}

int

fs_truncate (const char *path, int len) {

#ifdef _WIN32

  int ret = -1;

  int fd = open(path, O_RDWR | O_CREAT, S_IREAD | S_IWRITE);

  if (fd != -1) {

    ret = ftruncate(fd, (off_t) len);

    close(fd);

  }

  return ret;

#else

  return truncate(path, (off_t) len);

#endif

}

int

fs_chown (const char *path, int uid, int gid) {

#ifdef _WIN32

  errno = ENOSYS;

  return -1;

#else

  return chown(path, (uid_t) uid, (gid_t) gid);

#endif

}

int

fs_fchown (FILE *file, int uid, int gid) {

#ifdef _WIN32

  errno = ENOSYS;

  return -1;

#else

  int fd = fileno(file);

  return fchown(fd, (uid_t) uid, (gid_t) gid);

#endif

}

int

fs_lchown (const char *path, int uid, int gid) {

#ifdef _WIN32

  errno = ENOSYS;

  return -1;

#else

  return lchown(path, (uid_t) uid, (gid_t) gid);

#endif

}

size_t

fs_size (const char *path) {

  size_t size;

  FILE *file = fs_open(path, FS_OPEN_READ);

  if (NULL == file) return -1;

  fseek(file, 0, SEEK_END);

  size = ftell(file);

  fs_close(file);

  return size;

}

size_t

fs_fsize (FILE *file) {

  // store current position

  unsigned long pos = ftell(file);

  rewind(file);

  fseek(file, 0, SEEK_END);

  size_t size = ftell(file);

  fseek(file, pos, SEEK_SET);

  return size;

}

char *

fs_read (const char *path) {

  FILE *file = fs_open(path, FS_OPEN_READ);

  if (NULL == file) return NULL;

  char *data = fs_fread(file);

  fclose(file);

  return data;

}

char *

fs_nread (const char *path, int len) {

  FILE *file = fs_open(path, FS_OPEN_READ);

  if (NULL == file) return NULL;

  char *buffer = fs_fnread(file, len);

  fs_close(file);

  return buffer;

}

char *

fs_fread (FILE *file) {

  size_t fsize = fs_fsize(file);

  return fs_fnread(file, fsize);

}

char *

fs_fnread (FILE *file, int len) {

  char *buffer = (char*) malloc(sizeof(char) * (len + 1));

  size_t n = fread(buffer, 1, len, file);

  buffer[n] = '\0';

  return buffer;

}

int

fs_write (const char *path, const char *buffer) {

  return fs_nwrite(path, buffer, strlen(buffer));

}

int

fs_nwrite (const char *path, const char *buffer, int len) {

  FILE *file = fs_open(path, FS_OPEN_WRITE);

  if (NULL == file) return -1;

  int result = fs_fnwrite(file, buffer, len);

  fclose(file);

  return result;

}

int

fs_fwrite (FILE *file, const char *buffer) {

  return fs_fnwrite(file, buffer, strlen(buffer));

}

int

fs_fnwrite (FILE *file, const char *buffer, int len) {

  return (int) fwrite(buffer, 1, len, file);

}

int

fs_mkdir (const char *path, int mode) {

#ifdef _WIN32

  return mkdir(path);

#else

  return mkdir(path, (mode_t) mode);

#endif

}

int

fs_rmdir (const char *path) {

  return rmdir(path);

}

int

fs_exists (const char *path) {

  struct stat b;

  return stat(path, &b);

}