// Copyright (c) 2011, the Dart project authors.  Please see the AUTHORS file
// for details. All rights reserved. Use of this source code is governed by a
// BSD-style license that can be found in the LICENSE file.

#include <errno.h>
#include <fcntl.h>
#include <unistd.h>
#include <sys/ioctl.h>

#include "bin/fdutils.h"


bool FDUtils::SetNonBlocking(intptr_t fd) {
  intptr_t status;
  status = fcntl(fd, F_GETFL);
  if (status < 0) {
    perror("fcntl F_GETFL failed");
    return false;
  }
  status = (status | O_NONBLOCK);
  if (fcntl(fd, F_SETFL, status) < 0) {
    perror("fcntl F_SETFL failed");
    return false;
  }
  return true;
}


bool FDUtils::IsBlocking(intptr_t fd, bool* is_blocking) {
  intptr_t status;
  status = fcntl(fd, F_GETFL);
  if (status < 0) {
    perror("fcntl F_GETFL failed");
    return false;
  }
  *is_blocking = (status & O_NONBLOCK) == 0;
  return true;
}


intptr_t FDUtils::AvailableBytes(intptr_t fd) {
  size_t available;
  int result = ioctl(fd, FIONREAD, &available);
  if (result < 0) {
    return result;
  }
  return available;
}


ssize_t FDUtils::ReadFromBlocking(int fd, void* buffer, size_t count) {
#ifdef DEBUG
  bool is_blocking = false;
  ASSERT(FDUtils::IsBlocking(fd, &is_blocking));
  ASSERT(is_blocking);
#endif
  size_t remaining = count;
  char* buffer_pos = reinterpret_cast<char*>(buffer);
  while (remaining > 0) {
    ssize_t bytes_read = read(fd, buffer_pos, remaining);
    if (bytes_read == 0) {
      return count - remaining;
    } else if (bytes_read == -1 && errno != EINTR) {
      // Error codes EAGAIN and EWOULDBLOCK should only happen for non
      // blocking file descriptors.
      ASSERT(errno != EAGAIN && errno != EWOULDBLOCK);
      return -1;
    } else if (bytes_read > 0) {
      remaining -= bytes_read;
      buffer_pos += bytes_read;
    } else {
      ASSERT(errno == EINTR);
    }
  }
  return count;
}


ssize_t FDUtils::WriteToBlocking(int fd, const void* buffer, size_t count) {
#ifdef DEBUG
  bool is_blocking = false;
  ASSERT(FDUtils::IsBlocking(fd, &is_blocking));
  ASSERT(is_blocking);
#endif
  size_t remaining = count;
  char* buffer_pos = const_cast<char*>(reinterpret_cast<const char*>(buffer));
  while (remaining > 0) {
    ssize_t bytes_written = write(fd, buffer_pos, remaining);
    if (bytes_written == 0) {
      return count - remaining;
    } else if (bytes_written == -1 && errno != EINTR) {
      // Error codes EAGAIN and EWOULDBLOCK should only happen for non
      // blocking file descriptors.
      ASSERT(errno != EAGAIN && errno != EWOULDBLOCK);
      return -1;
    } else if (bytes_written > 0) {
      remaining -= bytes_written;
      buffer_pos += bytes_written;
    } else {
      ASSERT(errno == EINTR);
    }
  }
  return count;
}