Initial (manual) import
This commit is contained in:
minexew committed
1 parent
f39611c506
commit
895fe109de
661 files changed
+245862
No files matched your search
@@ -0,0 +1,311 @@
|
||||
#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;
|
||||
}
|
||||
Reference in new issue
Block a user