/*****************************************************************************
*   "Gif-Lib" - Yet another gif library.				     *
*									     *
* Written by:  Gershon Elber			IBM PC Ver 0.1, Jul. 1989    *
******************************************************************************
* Program to read stdin, and save it into the specified file iff the result  *
* and inspired by the rle utah tool kit I decided to implement and add it.   *
* -s minsize : the minimum file size to keep it.			     *
* -h : on line help.							     *
******************************************************************************
* History:								     *
* 7 Jul 89 - Version 1.0 by Gershon Elber.				     *
*****************************************************************************/

#include <io.h>
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <alloc.h>
#include <string.h>
#include "gif_lib.h"
#include "getarg.h"

#define PROGRAM_NAME	"GifInto"
#define VERSION		"á Version 1.0, "

#define DEFAULT_MIN_FILE_SIZE	14     /* More than GIF stamp + screen desc. */
#define	DEFAULT_OUT_NAME	"GifInto.Gif"

extern unsigned int
    _stklen = 16384;			      /* Increase default stack size */

static char
    *VersionStr =
	PROGRAM_NAME
	"	IBMPC "
	VERSION
	"	Gershon Elber,	"
	__DATE__ ",   " __TIME__ "\n"
	"(C) Copyright 1989 Gershon Elber, Non commercial use only.\n";
static char
    *CtrlStr =
	PROGRAM_NAME
	" s%-MinFileSize!d h%- GifFile!*s";
static char
    *ProgramName;
static int
    MinFileSize = DEFAULT_MIN_FILE_SIZE;

/******************************************************************************
* The is simply: read until EOF, then close the output, test its length, and  *
* if non zero then rename it.						      *
******************************************************************************/
void main(int argc, char **argv)
{
    int	Error, NumFiles,
	MinSizeFlag = FALSE, HelpFlag = FALSE;
    char **FileName = NULL, FoutTmpName[80], FullPath[80], DefaultName[80],
	s[80], *p;
    FILE *Fin, *Fout;

    if (strlen(ProgramName = argv[0]) == 0)		    /* DOS 3.x only! */
	ProgramName = PROGRAM_NAME;	  /* Do something reasonable for 2.x */

    if ((Error = GAGetArgs(argc, argv, CtrlStr,
		&MinSizeFlag, &MinFileSize, &HelpFlag,
		&NumFiles, &FileName)) != FALSE ||
		(NumFiles > 1 && !HelpFlag)) {
	if (Error) GAPrintErrMsg(Error);
	else
	if (NumFiles != 1)
	    MESSAGE("Error in command line parsing - one GIF file please\n");
	GAPrintHowTo(CtrlStr);
	exit(1);
    }

    if (HelpFlag) {
	fprintf(stderr, VersionStr);
	GAPrintHowTo(CtrlStr);
	exit(0);
    }

    /* Open the stdin in binary mode and increase its buffer size: */
    setmode(0, O_BINARY);		   /* Make sure it is in binary mode */
    if ((Fin = fdopen(0, "rb")) == NULL) 	   /* Make it into a stream: */
	EXIT("Failed to open input\n");
    if (setvbuf(Fin, NULL, _IOFBF, FILE_BUFFER_SIZE))    /* Incr. stream buf */
	EXIT("Failed to open input\n");

    /* Isolate the directory where our destination is, and set tmp file name */
    /* in the very same directory.					     */
    strcpy(FullPath, *FileName);
    if ((p = strrchr(FullPath, '/')) != NULL ||
	(p = strrchr(FullPath, '\\')) != NULL) p[1] = 0;
    else
    if ((p = strrchr(FullPath, ':')) != NULL) p[1] = 0;
    else FullPath[0] = 0;		   /* No directory or disk specified */

    strcpy(FoutTmpName, FullPath);    /* Generate destination temporary name */
    strcat(FoutTmpName, tmpnam(NULL));

    if ((Fout = fopen(FoutTmpName, "wb")) == NULL)
	EXIT("Failed to open output\n");
    if (setvbuf(Fout, NULL, _IOFBF, FILE_BUFFER_SIZE))   /* Incr. stream buf */
	EXIT("Failed to open output\n");

    while (!feof(Fin)) {
	if (putc(getc(Fin), Fout) == EOF)
	    EXIT("Failed to write output\n");
    }

    fclose(Fin);
    if (ftell(Fout) >= (long) MinFileSize) {
	fclose(Fout);
	unlink(*FileName);
	if (rename(FoutTmpName, *FileName) != 0) {
	    strcpy(DefaultName, FullPath);
	    strcat(DefaultName, DEFAULT_OUT_NAME);
	    if (rename(FoutTmpName, DefaultName) == 0) {
		sprintf(s, "Failed to rename out file - left as %s\n",
								DefaultName);
		MESSAGE(s);
	    }
	    else {
		unlink(FoutTmpName);
		MESSAGE("Failed to rename out file - deleted\n");
	    }
	}
    }
    else {
	fclose(Fout);
	unlink(FoutTmpName);
	MESSAGE("File too small - not renamed\n");
    }
}