home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
ARCHIVERS
/
lha208src.lzh
/
LHA
/
SRC
/
append.c
next >
Wrap
Text File
|
1994-06-09
|
3KB
|
158 lines
/***********************************************************
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[77] = {
" "
};
#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)+18]);
write(1,omsg,strlen(omsg));
#else
printf ("\r%s\t- %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);
}