/*
 * RCS_ID_C="$Id: _write.c,v 4.1 1994/09/29 23:09:02 jraja Exp $";
 *	_write.c - write() for both files and sockets (SAS/C)
 *
 *	Copyright © 1994 AmiTCP/IP Group,
 *			 Network Solutions Development Inc.
 *			 All rights reserved.
 */
#define KERNEL
#define _INTERNAL_FILE
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <dos/dos.h>
#include <proto/dos.h>
#include <sys/file.h>
#include <fcntl.h>
#include <bsdsocket.h>
#include <sys/syslog.h>

extern int __ioerr_to_errno(long);
extern int errno;

int
__tcpwrite(struct file *ufb, char *buffer, unsigned int length)
{
  int	      count, totcount;
  char	     *ptr;

    if (ufb->f_type != DTYPE_SOCKET) {
	syslog(LOG_ERR,"__tcpwrite found a nonsocket.");
	errno = EBADF;
	return -1;
    }

    /*
     * Check if write is allowed
     */
    if (!(ufb->f_flags & FWRITE)) {
	errno = EIO;
	return -1;
    }

    /*
     * Check if translation is not needed
     */
    if (!(ufb->f_flags & O_XLATE) ||
	(ptr = memchr(buffer, 0x0A, length)) == NULL) {
	if ((count = TCP_Send((LONG)ufb->f_so, (char *)buffer, length, 0)) < 0)
	    return -1;
	return count;
    }

    totcount = length;

    /*
     * Translate, ie., append CR before each LF
     */
    do {
	count = ptr - (char *)buffer;
	if (TCP_Send((LONG)ufb->f_so, (char *)buffer, count, 0) < 0)
	    return -1;
	if (TCP_Send((LONG)ufb->f_so, "\015"/* CR */, 1, 0) < 0)
	    return -1;

	length -= count;
	buffer = ptr;
    } while ((ptr = memchr((char *)buffer + 1, 0x0A, length)) != NULL);

    if ((count = TCP_Send((LONG)ufb->f_so, (char *)buffer, length, 0)) < 0)
	return -1;

    return totcount;
}