/***********************************************************
    append.c -- append to archive
***********************************************************/
#include "lharc.h"
#include "intrface.h"

#ifdef NEED_INCREMENTAL_INDICATOR
#define MAX_INDICATOR_COUNT    64
long indicator_count;
long indicator_threshold;
#endif

#ifdef OSK
char omsg[256];
char clr_str[65] = {
	"                                                                "
};
#endif

extern int quiet;
extern int compress_method;
extern long int reading_size;
extern unsigned    short dicbit;

struct interfacing interface;

int encode_lzhuf (infp, outfp, size, original_size_var, packed_size_var,
name,hdr_method)
FILE *infp;
FILE *outfp;
long size;
long *original_size_var;
long *packed_size_var;
char *name;
char *hdr_method;
{
    static int method = -1;

    if (method < 0) {
        method = compress_method;
        if (method > 0) method = encode_alloc(method);
    }

    interface.method = method;

    if (interface.method > 0) {
        interface.infile = infp;
        interface.outfile = outfp;
        start_indicator (name, size, "Freezing",1<<dicbit);
        encode(&interface);
        *packed_size_var = interface.packed;
        *original_size_var = interface.original;
    } 
    else {
        copyfile(infp, outfp, size, 1);
        *packed_size_var = *original_size_var = size;
    }
    bcopy ("-lh -", hdr_method, 5);
    hdr_method[3] = interface.method + '0';

    finish_indicator2 (name, "Frozen",
    (int)((*packed_size_var * 100L) / *original_size_var ));
    return mcrc;
}

void
start_indicator (name, size, msg, def_indicator_threshold)
char *name;
long size;
char *msg;
long def_indicator_threshold;
{
#ifdef NEED_INCREMENTAL_INDICATOR
    long   i;
    int    m;
#endif

    if (quiet)
        return;

#ifdef NEED_INCREMENTAL_INDICATOR
    m = MAX_INDICATOR_COUNT - strlen (name);
    if (m < 0)
        m = 3;        /* (^_^) */
#ifdef OSK
    sprintf (omsg,"\r%s - %s :  ", name, msg);
    write(1,omsg,strlen(omsg));
#else
    printf ("\r%s\t- %s :  ", name, msg);
#endif
        indicator_threshold = ((size  + (m * def_indicator_threshold - 1)) /
        (m * def_indicator_threshold) * def_indicator_threshold);
    if ( indicator_threshold )
        i = ((size + (indicator_threshold - 1)) / indicator_threshold);
    else
        i = 0;
    while (i--)
#ifdef OSK
        write(1,".",1);
#else
        putchar ('.');
#endif
    indicator_count = 0;
#ifdef OSK
    sprintf (omsg,"\r%s - %s :  ", name, msg);
    write(1,omsg,strlen(omsg));
#else
    printf ("\r%s\t- %s :  ", name, msg);
#endif

#else
    printf ("%s\t- ", name);
#endif
    fflush (stdout);
    reading_size = 0L;
}

void
finish_indicator2 (name, msg, pcnt)
char *name;
char *msg;
int pcnt;
{
    if (quiet)
        return;

    if (pcnt > 100) pcnt = 100;    /* (^_^) */
#ifdef OSK
    sprintf (omsg,"\r%s - %s (%d%%)%s\n\l", \
        name, msg, pcnt, &clr_str[strlen(name)+16]);
    write(1,omsg,strlen(omsg));
#else
    printf ("\r%s - %s(%d%%)\n", name, msg, pcnt);
#endif
    fflush (stdout);
}

void
finish_indicator (name, msg)
char *name;
char *msg;
{
    if (quiet)
        return;

#ifdef NEED_INCREMENTAL_INDICATOR
#ifdef OSK
    sprintf (omsg,"\r%s - %s%s\l\n", name, msg, &clr_str[strlen(name)+9]);
    write(1,omsg,strlen(omsg));
#else
    printf ("\r%s\t- %s \n", name, msg);
#endif
#else
    printf ("%s\n", msg);
#endif
    fflush (stdout);
}