312 lines
6.8 KiB
C++
312 lines
6.8 KiB
C++
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <memory.h>
|
|
|
|
#pragma pack(1)
|
|
|
|
#define TRUE 1
|
|
#define FALSE 0
|
|
|
|
typedef unsigned char BYTE;
|
|
typedef unsigned short WORD;
|
|
typedef unsigned int DWORD;
|
|
typedef unsigned char BOOL;
|
|
|
|
#define ARC_MAX_BITS 12
|
|
|
|
#define CT_NONE 1
|
|
#define CT_7_BIT 2
|
|
#define CT_8_BIT 3
|
|
|
|
class CArcEntry
|
|
{ public:
|
|
CArcEntry *next;
|
|
WORD basecode;
|
|
BYTE ch,pad;
|
|
};
|
|
|
|
class CArcCtrl //control structure
|
|
{ public:
|
|
DWORD src_pos,src_size,
|
|
dst_pos,dst_size;
|
|
BYTE *src_buf,*dst_buf;
|
|
DWORD min_bits,min_table_entry;
|
|
CArcEntry *cur_entry,*next_entry;
|
|
DWORD cur_bits_in_use,next_bits_in_use;
|
|
BYTE *stk_ptr,*stk_base;
|
|
DWORD free_idx,free_limit,
|
|
saved_basecode,
|
|
entry_used,
|
|
last_ch;
|
|
CArcEntry compress[1<<ARC_MAX_BITS],
|
|
*hash[1<<ARC_MAX_BITS];
|
|
};
|
|
|
|
class CArcCompress
|
|
{ public:
|
|
DWORD compressed_size,compressed_size_hi,
|
|
expanded_size,expanded_size_hi;
|
|
BYTE compression_type;
|
|
BYTE body[1];
|
|
};
|
|
|
|
int Bt(int bit_num, BYTE *bit_field)
|
|
{
|
|
bit_field+=bit_num>>3;
|
|
bit_num&=7;
|
|
return (*bit_field & (1<<bit_num)) ? 1:0;
|
|
}
|
|
|
|
int Bts(int bit_num, BYTE *bit_field)
|
|
{
|
|
int res;
|
|
bit_field+=bit_num>>3;
|
|
bit_num&=7;
|
|
res=*bit_field & (1<<bit_num);
|
|
*bit_field|=(1<<bit_num);
|
|
return (res) ? 1:0;
|
|
}
|
|
|
|
DWORD BFieldExtU32(BYTE *src,DWORD pos,DWORD bits)
|
|
{
|
|
DWORD i,res=0;
|
|
for (i=0;i<bits;i++)
|
|
if (Bt(pos+i,src))
|
|
Bts(i,(BYTE *)&res);
|
|
return res;
|
|
}
|
|
|
|
void ArcEntryGet(CArcCtrl *c)
|
|
{
|
|
DWORD i;
|
|
CArcEntry *tmp,*tmp1;
|
|
|
|
if (c->entry_used) {
|
|
i=c->free_idx;
|
|
|
|
c->entry_used=FALSE;
|
|
c->cur_entry=c->next_entry;
|
|
c->cur_bits_in_use=c->next_bits_in_use;
|
|
if (c->next_bits_in_use<ARC_MAX_BITS) {
|
|
c->next_entry = &c->compress[i++];
|
|
if (i==c->free_limit) {
|
|
c->next_bits_in_use++;
|
|
c->free_limit=1<<c->next_bits_in_use;
|
|
}
|
|
} else {
|
|
do if (++i==c->free_limit) i=c->min_table_entry;
|
|
while (c->hash[i]);
|
|
tmp=&c->compress[i];
|
|
c->next_entry=tmp;
|
|
tmp1=(CArcEntry *)&c->hash[tmp->basecode];
|
|
while (tmp1 && tmp1->next!=tmp)
|
|
tmp1=tmp1->next;
|
|
if (tmp1)
|
|
tmp1->next=tmp->next;
|
|
}
|
|
c->free_idx=i;
|
|
}
|
|
}
|
|
|
|
void ArcExpandBuf(CArcCtrl *c)
|
|
{
|
|
BYTE *dst_ptr,*dst_limit;
|
|
DWORD basecode,lastcode,code;
|
|
CArcEntry *tmp,*tmp1;
|
|
|
|
dst_ptr=c->dst_buf+c->dst_pos;
|
|
dst_limit=c->dst_buf+c->dst_size;
|
|
|
|
while (dst_ptr<dst_limit && c->stk_ptr!=c->stk_base)
|
|
*dst_ptr++ = * -- c->stk_ptr;
|
|
|
|
if (c->stk_ptr==c->stk_base && dst_ptr<dst_limit) {
|
|
if (c->saved_basecode==0xFFFFFFFFl) {
|
|
lastcode=BFieldExtU32(c->src_buf,c->src_pos,
|
|
c->next_bits_in_use);
|
|
c->src_pos=c->src_pos+c->next_bits_in_use;
|
|
*dst_ptr++=lastcode;
|
|
ArcEntryGet(c);
|
|
c->last_ch=lastcode;
|
|
} else
|
|
lastcode=c->saved_basecode;
|
|
while (dst_ptr<dst_limit && c->src_pos+c->next_bits_in_use<=c->src_size) {
|
|
basecode=BFieldExtU32(c->src_buf,c->src_pos,
|
|
c->next_bits_in_use);
|
|
c->src_pos=c->src_pos+c->next_bits_in_use;
|
|
if (c->cur_entry==&c->compress[basecode]) {
|
|
*c->stk_ptr++=c->last_ch;
|
|
code=lastcode;
|
|
} else
|
|
code=basecode;
|
|
while (code>=c->min_table_entry) {
|
|
*c->stk_ptr++=c->compress[code].ch;
|
|
code=c->compress[code].basecode;
|
|
}
|
|
*c->stk_ptr++=code;
|
|
c->last_ch=code;
|
|
|
|
c->entry_used=TRUE;
|
|
tmp=c->cur_entry;
|
|
tmp->basecode=lastcode;
|
|
tmp->ch=c->last_ch;
|
|
tmp1=(CArcEntry *)&c->hash[lastcode];
|
|
tmp->next=tmp1->next;
|
|
tmp1->next=tmp;
|
|
|
|
ArcEntryGet(c);
|
|
while (dst_ptr<dst_limit && c->stk_ptr!=c->stk_base)
|
|
*dst_ptr++ = * -- c->stk_ptr;
|
|
lastcode=basecode;
|
|
}
|
|
c->saved_basecode=lastcode;
|
|
}
|
|
c->dst_pos=dst_ptr-c->dst_buf;
|
|
}
|
|
|
|
CArcCtrl *ArcCtrlNew(DWORD expand,DWORD compression_type)
|
|
{
|
|
CArcCtrl *c;
|
|
c=(CArcCtrl *)malloc(sizeof(CArcCtrl));
|
|
memset(c,0,sizeof(CArcCtrl));
|
|
if (expand) {
|
|
c->stk_base=(BYTE *)malloc(1<<ARC_MAX_BITS);
|
|
c->stk_ptr=c->stk_base;
|
|
}
|
|
if (compression_type==CT_7_BIT)
|
|
c->min_bits=7;
|
|
else
|
|
c->min_bits=8;
|
|
c->min_table_entry=1<<c->min_bits;
|
|
c->free_idx=c->min_table_entry;
|
|
c->next_bits_in_use=c->min_bits+1;
|
|
c->free_limit=1<<c->next_bits_in_use;
|
|
c->saved_basecode=0xFFFFFFFFl;
|
|
c->entry_used=TRUE;
|
|
ArcEntryGet(c);
|
|
c->entry_used=TRUE;
|
|
return c;
|
|
}
|
|
|
|
void ArcCtrlDel(CArcCtrl *c)
|
|
{
|
|
free(c->stk_base);
|
|
free(c);
|
|
}
|
|
|
|
BYTE *ExpandBuf(CArcCompress *arc)
|
|
{
|
|
CArcCtrl *c;
|
|
BYTE *res;
|
|
|
|
if (!(CT_NONE<=arc->compression_type && arc->compression_type<=CT_8_BIT) ||
|
|
arc->expanded_size>=0x20000000l)
|
|
return NULL;
|
|
|
|
res=(BYTE *)malloc(arc->expanded_size+1);
|
|
res[arc->expanded_size]=0; //terminate
|
|
switch (arc->compression_type) {
|
|
case CT_NONE:
|
|
memcpy(res,arc->body,arc->expanded_size);
|
|
break;
|
|
case CT_7_BIT:
|
|
case CT_8_BIT:
|
|
c=ArcCtrlNew(TRUE,arc->compression_type);
|
|
c->src_size=arc->compressed_size*8;
|
|
c->src_pos=(sizeof(CArcCompress)-1)*8;
|
|
c->src_buf=(BYTE *)arc;
|
|
c->dst_size=arc->expanded_size;
|
|
c->dst_buf=res;
|
|
c->dst_pos=0;
|
|
ArcExpandBuf(c);
|
|
ArcCtrlDel(c);
|
|
break;
|
|
}
|
|
return res;
|
|
}
|
|
|
|
long FSize(FILE *f)
|
|
{
|
|
long res,original=ftell(f);
|
|
fseek(f,0,SEEK_END);
|
|
res=ftell(f);
|
|
fseek(f,original,SEEK_SET);
|
|
return res;
|
|
}
|
|
|
|
BOOL Cvt(char *in_name,char *out_name,BOOL cvt_ascii)
|
|
{
|
|
DWORD out_size,i,j,in_size;
|
|
CArcCompress *arc;
|
|
BYTE *out_buf;
|
|
FILE *io_file;
|
|
BOOL okay=FALSE;
|
|
if (io_file=fopen(in_name,"rb")) {
|
|
in_size=FSize(io_file);
|
|
arc=(CArcCompress *)malloc(in_size);
|
|
fread(arc,1,in_size,io_file);
|
|
out_size=arc->expanded_size;
|
|
printf("%-45s %d-->%d\r\n",in_name,(DWORD) in_size,out_size);
|
|
fclose(io_file);
|
|
if (arc->compressed_size==in_size &&
|
|
arc->compression_type && arc->compression_type<=3) {
|
|
if (out_buf=ExpandBuf(arc)) {
|
|
if (cvt_ascii) {
|
|
j=0;
|
|
for (i=0;i<out_size;i++)
|
|
if (out_buf[i]==31)
|
|
out_buf[j++]=32;
|
|
else if (out_buf[i]!=5)
|
|
out_buf[j++]=out_buf[i];
|
|
out_size=j;
|
|
}
|
|
if (io_file=fopen(out_name,"wb")) {
|
|
fwrite(out_buf,1,out_size,io_file);
|
|
fclose(io_file);
|
|
okay=TRUE;
|
|
}
|
|
free(out_buf);
|
|
}
|
|
}
|
|
free(arc);
|
|
}
|
|
return okay;
|
|
}
|
|
|
|
int main(int argc, char* argv[])
|
|
{
|
|
char *in_name,*out_name,buf[256];
|
|
BOOL cvt_ascii,del_in=FALSE;
|
|
int i=1,l;
|
|
if (argc>i && !strcmp(argv[i],"-ascii")) {
|
|
cvt_ascii=TRUE;
|
|
i++;
|
|
} else
|
|
cvt_ascii=FALSE;
|
|
if (argc>i) {
|
|
in_name=argv[i++];
|
|
if (argc>i)
|
|
out_name=argv[i++];
|
|
else {
|
|
strcpy(buf,in_name);
|
|
l=strlen(buf);
|
|
if (l>2 && buf[l-1]=='Z' && buf[l-2]=='.') {
|
|
buf[l-2]=0;
|
|
del_in=TRUE;
|
|
}
|
|
out_name=buf;
|
|
}
|
|
if (Cvt(in_name,out_name,cvt_ascii)) {
|
|
if (del_in) {
|
|
sprintf(buf,"rm %s",in_name);
|
|
system(buf);
|
|
}
|
|
} else
|
|
printf("Fail: %s %s\r\n",in_name,out_name);
|
|
} else
|
|
puts("TOSZ [-ascii] in_name [out_name]\r\n\r\n"
|
|
"TOSZ expands a single TempleOS file. The -ascii flag will convert "
|
|
"nonstandard TempleOS ASCII characters to regular ASCII.\r\n");
|
|
return EXIT_SUCCESS;
|
|
}
|