/* Stream handling functions.

   Copyright (C) 1993-1998 Sebastiano Vigna 
   Copyright (C) 1999-2018 Todd M. Lewis and Sebastiano Vigna

   This file is part of ne, the nice editor.

   This library is free software; you can redistribute it and/or modify it
   under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3 of the License, or (at your
   option) any later version.

   This library is distributed in the hope that it will be useful, but
   WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
   for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, see <http://www.gnu.org/licenses/>.  */


#include "ne.h"

/* This is the least increment with which a char_stream is reallocated. */

#define CHAR_STREAM_SIZE_INC (2048)


/* Allocates a stream of size bytes. Note that a size of 0 is legal, in which
   case a char_stream structure is allocated, but its stream pointer is left
   NULL. */

char_stream *alloc_char_stream(const int64_t size) {
	char_stream * const cs = calloc(1, sizeof *cs);
	if (cs) {
		if (!size || (cs->stream = calloc(size, sizeof *cs->stream))) {
			cs->size = size;

			assert_char_stream(cs);

			return cs;
		}
		free(cs);
	}
	return NULL;
}

/* Frees a stream. */

void free_char_stream(char_stream * const cs) {
	if (!cs) return;
	assert_char_stream(cs);
	free(cs->stream);
	free(cs);
}


/* Reallocates a stream. If cs is NULL, it is equivalent to
   alloc_char_stream(). Otherwise, the memory pointed by stream is
   realloc()ated to size bytes. If the reallocation is successfull, cs is
   returned, otherwise NULL. */

char_stream *realloc_char_stream(char_stream * const cs, const int64_t size) {

	if (!cs) return alloc_char_stream(size);

	assert_char_stream(cs);

	if (!size) {
		free(cs->stream);
		cs->stream = NULL;
		cs->len = cs->size = 0;
		return cs;
	}

	if (cs->stream = realloc(cs->stream, size * sizeof *cs->stream)) {
		cs->size = size;
		if (cs->len > size) cs->len = size;
		return cs;
	}
	return NULL;
}



/* Concatenates a block of len bytes pointed to by s to a stream. The stream is
   extended if necessary. Returns an error code. */

int add_to_stream(char_stream * const cs, const char * const s, const int64_t len) {

	if (!s) return OK;

	if (!cs) return ERROR;

	if (cs->size - cs->len < len && !realloc_char_stream(cs, cs->len + len + CHAR_STREAM_SIZE_INC)) return OUT_OF_MEMORY;

	memcpy(cs->stream + cs->len, s, len);
	cs->len += len;

	return OK;
}



/* Inserts a block of len bytes pointed to by s into a stream at offset pos. The
   stream is extended if necessary. Returns an error code. */

int insert_in_stream(char_stream *cs, const char *s, const int64_t pos, const int64_t len) {
	int64_t tail;

	if (!s || !len ) return OK;

	if (!cs) return ERROR;

	if (pos > cs->len) return ERROR;

	tail = cs->len - pos;

	if (cs->size - cs->len < len && !realloc_char_stream(cs, cs->len + len + CHAR_STREAM_SIZE_INC)) return OUT_OF_MEMORY;

	if (tail > 0) memmove(cs->stream + pos + len, cs->stream + pos, tail);
	memcpy(cs->stream + pos, s, len);
	cs->len += len;

	return OK;
}



/* Deletes a block of len bytes from stream cs at offset p. The stream size
   does not change. Returns an error code. */

int delete_from_stream(char_stream * const cs, const int64_t pos, int64_t len) {

	if (!len) return OK;

	if (!cs) return ERROR;
	if (len > cs->len) len = cs->len;

	memmove(cs->stream + pos, cs->stream + pos + len, cs->len - (pos + len));
	cs->len -= len;

	return OK;
}



/* Resets a character stream. If cs is NULL, an empty character stream is
   returned. If it is non-NULL, everything inside it is freed. The stream
   memory is deallocated, unless its size is smaller or equal to
   2*CHAR_STREAM_SIZE_INC (so that we won't continously allocate and deallocate
   small streams). */

char_stream *reset_stream(char_stream * const cs) {

	if (!cs) return alloc_char_stream(0);

	assert_char_stream(cs);

	cs->len = 0;

	if (cs->size > 2 * CHAR_STREAM_SIZE_INC) {
		cs->size = 0;
		free(cs->stream);
		cs->stream = NULL;
	}

	return cs;
}


/* Sets the encoding of this stream by guessing it. The source type is used to
   avoid guessing UTF-8 when the source of this clip is ENC_8_BIT. */

void set_stream_encoding(char_stream * const cs, const encoding_type source) {
	cs->encoding = detect_encoding(cs->stream, cs->len);
	if (source == ENC_8_BIT && cs->encoding == ENC_UTF8) cs->encoding = ENC_8_BIT;
}


/* These two functions load a stream in memory. Carriage returns and line feeds
   are converted to NULLs. You can pass NULL for cs, and a char stream will be
   allocated for you. If preserve_cr is true, CRs are preserved. If binary 
   is true, the stream is filled exactly with the file content. */

char_stream *load_stream(char_stream * cs, const char *name, const bool preserve_cr, const bool binary) {

	assert_char_stream(cs);

	assert(name != NULL);

	name = tilde_expand(name);

	if (is_directory(name) || is_migrated(name)) return NULL;

	const int fd = open(name, READ_FLAGS);
	cs = load_stream_from_fd(cs, fd, preserve_cr, binary);
	if (fd >= 0) close(fd);

	return cs;
}

char_stream *load_stream_from_fd(char_stream *cs, const int fd, const bool preserve_cr, const bool binary) {
	if (fd < 0) return NULL;

	char terminators[] = { 0x0d, 0x0a };
	if (preserve_cr) terminators[0] = 0;

	assert_char_stream(cs);

	off_t len = lseek(fd, 0, SEEK_END);

	if (len < 0) return NULL;

	lseek(fd, 0, SEEK_SET);

	if (!(cs = realloc_char_stream(cs, len))) return NULL;

	if (read_safely(fd, cs->stream, len) < len) {
		free_char_stream(cs);
		return NULL;
	}

	if (binary) {
		cs->len = len;
		assert_char_stream(cs);
		return cs;
	}

	int64_t j;
	for(int64_t i = j = 0; i < len; i++, j++) {
		if (i < len - 1 && !preserve_cr && cs->stream[i] == '\r' && cs->stream[i + 1] == '\n') i++;
		cs->stream[j] = cs->stream[i];

		if (cs->stream[j] == terminators[0] || cs->stream[j] == terminators[1]) cs->stream[j] = 0;
	}

	memset(cs->stream + j, 0, len - j);

	cs->len = j;

	assert_char_stream(cs);

	return cs;
}



/* These two functions save a stream to file. NULLs are converted to line
   feeds. If CRLF is true, we save CR/LF pairs as line terminators. If binary 
   is true, the stream is dump literally. We return an error code. */

int save_stream(const char_stream *const cs, const char *name, const bool CRLF, const bool binary) {
	if (!cs) return ERROR;

	assert_char_stream(cs);

	assert(name != NULL);

	name = tilde_expand(name);

	if (is_directory(name)) return  FILE_IS_DIRECTORY ;
	if (is_migrated(name)) return  FILE_IS_MIGRATED ;

	const int fd = open(name, WRITE_FLAGS, S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH | S_IWOTH);
	if (fd >= 0) {
		const int error = save_stream_to_fd(cs, fd, CRLF, binary);
		close(fd);
		return error;
	}

	return CANT_OPEN_FILE;
}


int save_stream_to_fd(const char_stream *const cs, const int fd, const bool CRLF, const bool binary) {

	if (!cs) return ERROR;

	assert_char_stream(cs);

	if (binary) {
		if (write(fd, cs->stream, cs->len) < cs->len) return ERROR_WHILE_WRITING;
		return OK;
	}

	for(int64_t pos = 0; pos < cs->len; ) {
		const int64_t len = strnlen_ne(cs->stream + pos, cs->len - pos);

		/* ALERT: must fraction this and other write/read in gigabyte batches. */
		if (write(fd, cs->stream + pos, len) < len) return ERROR_WHILE_WRITING;

		if (pos + len < cs->len) {
			if (CRLF && write(fd, "\r", 1) < 1) return ERROR_WHILE_WRITING;
			if (write(fd, "\n", 1) < 1) return ERROR_WHILE_WRITING;
		}
		
		pos += len + 1;
	}

	return OK;
}

