/*
=======================================
TGL IEL1 文件读取
=======================================
*/
CR_API sFMT_DAT*
load_tgl_iel1 (
__CR_IO__ iDATIN* datin,
__CR_IN__ const sLOADER* param
)
{
leng_t pksz;
leng_t unsz;
void_t* data;
void_t* temp;
sFMT_DAT* rett;
sIEL1_HDR head;
/* 这个参数可能为空 */
if (datin == NULL)
return (NULL);
/* 读取 & 检查头部 */
if (!(CR_VCALL(datin)->geType(datin, &head, sIEL1_HDR)))
return (NULL);
if (head.magic != mk_tag4("IEL1"))
return (NULL);
/* 读取所有后续数据 */
temp = CR_VCALL(datin)->get(datin, &pksz, FALSE);
if (temp == NULL)
return (NULL);
/* 分配目标数据缓冲 */
head.unsize = DWORD_LE(head.unsize);
data = mem_malloc32(head.unsize);
if (data == NULL) {
mem_free(temp);
return (NULL);
}
unsz = (leng_t)(head.unsize);
pksz = uncompr_lzss(data, unsz, temp, pksz, 0);
mem_free(temp);
if (pksz != unsz)
goto _failure;
/* 返回读取的文件数据 */
rett = struct_new(sFMT_DAT);
if (rett == NULL)
goto _failure;
CR_NOUSE(param);
rett->type = CR_FMTZ_DEC;
rett->unsz = unsz;
rett->pksz = dati_get_size(datin);
rett->data = data;
rett->infor = "TGL LZSS Compressed file (IEL1)";
return (rett);
_failure:
mem_free(data);
return (NULL);
}
/*
=======================================
SZ20 文件读取
=======================================
*/
CR_API sFMT_DAT*
load_ms_sz20 (
__CR_IO__ iDATIN* datin,
__CR_IN__ const sLOADER* param
)
{
leng_t pksz;
leng_t unsz;
void_t* data;
void_t* temp;
sFMT_DAT* rett;
sSZ20_HDR head;
/* 这个参数可能为空 */
if (datin == NULL)
return (NULL);
/* 读取 & 检查头部 */
if (!(CR_VCALL(datin)->geType(datin, &head, sSZ20_HDR)))
return (NULL);
if (mem_cmp(head.tag, "SZ\x20\x88\xF0\x27\x33\xD1", 8) != 0)
return (NULL);
/* 读取所有后续数据 */
temp = CR_VCALL(datin)->get(datin, &pksz, FALSE);
if (temp == NULL)
return (NULL);
/* 分配目标数据缓冲 */
head.unsize = DWORD_LE(head.unsize);
data = mem_malloc32(head.unsize);
if (data == NULL) {
mem_free(temp);
return (NULL);
}
unsz = (leng_t)(head.unsize);
pksz = uncompr_lzss(data, unsz, temp, pksz, 0x20);
mem_free(temp);
if (pksz != unsz)
goto _failure;
/* 返回读取的文件数据 */
rett = struct_new(sFMT_DAT);
if (rett == NULL)
goto _failure;
CR_NOUSE(param);
rett->type = CR_FMTZ_DEC;
rett->unsz = unsz;
rett->pksz = dati_get_size(datin);
rett->data = data;
rett->infor = "Microsoft Compressed (SZ20) file";
return (rett);
_failure:
mem_free(data);
return (NULL);
}
/*
=======================================
PNG 文件读取
=======================================
*/
CR_API sFMT_PIC*
load_cr_png (
__CR_IO__ iDATIN* datin,
__CR_IN__ const sLOADER* param
)
{
leng_t nbpl;
leng_t sbpp;
leng_t dptr;
uint_t fcrh;
uint_t index;
uchar* image;
uchar* sdata;
uchar* ddata;
leng_t dsize;
int32u ssize;
uint_t ww, hh;
byte_t pal[768];
/* ----------- */
fsize_t fsze;
sPNG_HDR head;
sFMT_PIC* rett;
sFMT_FRAME temp;
/* 这个参数可能为空 */
if (datin == NULL)
return (NULL);
/* 读取 & 检查头部 */
if (!(CR_VCALL(datin)->geType(datin, &head, sPNG_HDR)))
return (NULL);
if (mem_cmp(&head, "\x89PNG\r\n\x1A\n\0\0\0\x0DIHDR", 16) != 0)
return (NULL);
if (head.info.compr != 0 || head.info.filter != 0 ||
head.info.interlace != 0)
return (NULL);
/* 对宽高的截断检查 */
if (cut_int32_u(&ww, DWORD_BE(head.info.w)))
return (NULL);
if (cut_int32_u(&hh, DWORD_BE(head.info.h)))
return (NULL);
/* 生成图片对象 */
mem_zero(temp.wh, sizeof(temp.wh));
switch (head.info.color)
{
case 0: /* 灰度图像 */
if (head.info.depth != 1 &&
head.info.depth != 2 &&
head.info.depth != 4 &&
head.info.depth != 8 &&
head.info.depth != 16)
return (NULL);
fcrh = CR_INDEX8;
temp.fmt = CR_PIC_GREY;
temp.bpp = head.info.depth;
temp.clr = "I";
temp.wh[0] = head.info.depth;
break;
case 2: /* 真彩图像 */
if (head.info.depth != 8 &&
head.info.depth != 16)
return (NULL);
fcrh = CR_ARGB888;
temp.fmt = CR_PIC_ARGB;
temp.bpp = head.info.depth * 3;
temp.clr = "BGR";
temp.wh[0] = head.info.depth;
temp.wh[1] = head.info.depth;
temp.wh[2] = head.info.depth;
break;
case 3: /* 索引图像 */
if (head.info.depth != 1 &&
head.info.depth != 2 &&
head.info.depth != 4 &&
head.info.depth != 8)
return (NULL);
fcrh = CR_INDEX8;
temp.fmt = CR_PIC_PALS;
temp.bpp = head.info.depth;
temp.clr = "P";
temp.wh[0] = head.info.depth;
break;
case 4: /* α灰度图像 */
if (head.info.depth != 8 &&
head.info.depth != 16)
return (NULL);
fcrh = CR_ARGB8888;
temp.fmt = CR_PIC_GREY;
temp.bpp = head.info.depth * 2;
temp.clr = "AI";
temp.wh[0] = head.info.depth;
temp.wh[1] = head.info.depth;
break;
case 6: /* α真彩图像 */
if (head.info.depth != 8 &&
head.info.depth != 16)
return (NULL);
fcrh = CR_ARGB8888;
temp.fmt = CR_PIC_ARGB;
temp.bpp = head.info.depth * 4;
temp.clr = "ABGR";
temp.wh[0] = head.info.depth;
temp.wh[1] = head.info.depth;
temp.wh[2] = head.info.depth;
temp.wh[3] = head.info.depth;
break;
default:
return (NULL);
}
sbpp = (temp.bpp - 1) / 8 + 1;
temp.pic = image_new(0, 0, ww, hh, fcrh, FALSE, 4);
if (temp.pic == NULL)
return (NULL);
/* 生成灰度调色板 */
if (temp.fmt == CR_PIC_GREY)
pal_set_gray8(temp.pic->pal, 256);
/* 分配 IDAT 的内存 */
fsze = dati_get_size(datin);
if (fsze <= sizeof(sPNG_HDR) + sizeof(sIEND) * 2)
goto _failure1;
fsze -= sizeof(sPNG_HDR) + sizeof(sIEND) * 2;
ddata = (byte_t*)mem_malloc64(fsze);
if (ddata == NULL)
goto _failure1;
dsize = (leng_t)fsze;
/* 读取数据块 */
dptr = 0;
fcrh = 256; /* 这个保存调色板颜色数 */
do
{
/* 数据块大小 */
if (!(CR_VCALL(datin)->geType(datin, &head.info, sCHUNK)))
goto _failure2;
ssize = DWORD_BE(head.info.head.size);
if (ssize > fsze)
goto _failure2;
if (head.info.head.name == mk_tag4("PLTE"))
{
/* 调色板, 安全检查 */
if (ssize > 768 || ssize % 3 != 0)
goto _failure2;
if (CR_VCALL(datin)->read(datin, pal, ssize) != ssize)
goto _failure2;
/* 转换到 4B 格式 */
fcrh = (uint_t)ssize / 3;
pal_3b_to_4b_sw(temp.pic->pal, pal, fcrh);
}
else
if (head.info.head.name == mk_tag4("IDAT"))
{
/* 检查缓冲溢出 */
if (dsize < ssize)
goto _failure2;
if (CR_VCALL(datin)->read(datin, ddata + dptr, ssize) != ssize)
goto _failure2;
dptr += ssize;
dsize -= ssize;
}
else
if (head.info.head.name == mk_tag4("tRNS"))
{
/* 透明数据 */
if (head.info.color == 0) {
if (ssize != 2)
goto _failure2;
if (CR_VCALL(datin)->read(datin, pal, 2) != 2)
goto _failure2;
/* 调色板的这个颜色为透明色 */
if (head.info.depth != 16)
temp.pic->pal[pal[1]] &= CDWORD_LE(0x00FFFFFFUL);
}
else
if (head.info.color == 2) {
if (ssize != 6)
goto _failure2;
if (CR_VCALL(datin)->read(datin, pal, 6) != 6)
goto _failure2;
/* 这个颜色为透明色, 这里只能展开来写
否则 C++Builder 2010 编译器编译时会崩溃 */
if (head.info.depth != 16) {
temp.pic->keycolor = pal[1];
temp.pic->keycolor <<= 8;
temp.pic->keycolor |= pal[3];
temp.pic->keycolor <<= 8;
temp.pic->keycolor |= pal[5];
temp.pic->keycolor |= 0xFF000000UL;
temp.pic->keycolor = DWORD_LE(temp.pic->keycolor);
}
}
else
if (head.info.color == 3) {
if (ssize > fcrh)
goto _failure2;
if (CR_VCALL(datin)->read(datin, pal, ssize) != ssize)
goto _failure2;
/* 设置调色板的 Alpha 通道 */
for (fcrh = (uint_t)ssize, index = 0; index < fcrh; index++)
((uchar*)temp.pic->pal)[index * 4 + 3] = pal[index];
}
else {
goto _failure2;
}
}
else
{
/* 跳过其他数据块 */
if (!CR_VCALL(datin)->seek(datin, ssize, SEEK_CUR))
goto _failure2;
}
/* 跳过 CRC-32 */
if (!CR_VCALL(datin)->seek(datin, 4, SEEK_CUR))
goto _failure2;
} while (head.info.head.name != mk_tag4("IEND"));
/* 无 IDAT 块 */
if (dptr == 0)
goto _failure2;
/* 分配带 filter 的图形内存 */
if (cut_mad(&dsize, ww, sbpp * hh, hh))
goto _failure2;
sdata = (byte_t*)mem_malloc(dsize);
if (sdata == NULL)
goto _failure2;
/* 解压图形数据 */
dptr = uncompr_zlib(sdata, dsize, ddata, dptr);
mem_free(ddata);
ddata = sdata;
if (dptr <= hh)
goto _failure2;
image = temp.pic->data;
/* 文件解码完毕, 解析图片的像素数据 */
if (temp.pic->fmt == CR_INDEX8)
{
switch (head.info.depth)
{
case 1:
if (ww % 8 == 0)
nbpl = ww / 8;
else
nbpl = ww / 8 + 1;
if (!png_filter(ddata, nbpl, 1, hh, dptr))
goto _failure2;
for (index = hh; index != 0; index--) {
sdata = (uchar*)font1_h2l(image, sdata, ww);
image += temp.pic->bpl;
}
break;
case 2:
if (ww % 4 == 0)
nbpl = ww / 4;
else
nbpl = ww / 4 + 1;
if (!png_filter(ddata, nbpl, 1, hh, dptr))
goto _failure2;
for (index = hh; index != 0; index--) {
sdata = (uchar*)font2_h2l(image, sdata, ww);
image += temp.pic->bpl;
}
break;
case 4:
if (ww % 2 == 0)
nbpl = ww / 2;
else
nbpl = ww / 2 + 1;
if (!png_filter(ddata, nbpl, 1, hh, dptr))
goto _failure2;
for (index = hh; index != 0; index--) {
sdata = (uchar*)font4_h2l(image, sdata, ww);
image += temp.pic->bpl;
}
break;
case 8:
nbpl = ww;
if (!png_filter(ddata, nbpl, 1, hh, dptr))
goto _failure2;
for (index = hh; index != 0; index--) {
mem_cpy(image, sdata, nbpl);
sdata += nbpl;
image += temp.pic->bpl;
}
break;
default:
case 16:
nbpl = ww;
nbpl *= 2;
if (!png_filter(ddata, nbpl, 2, hh, dptr))
goto _failure2;
for (index = hh; index != 0; index--) {
for (fcrh = 0; fcrh < ww; fcrh++, sdata += 2)
image[fcrh] = sdata[0];
image += temp.pic->bpl;
}
break;
}
}
else
{
nbpl = ww * sbpp;
if (!png_filter(ddata, nbpl, sbpp, hh, dptr))
goto _failure2;
nbpl = ww * temp.pic->bpc;
switch (head.info.color)
{
case 2:
if (head.info.depth == 8)
{
/* 直接逐行复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 3) {
image[dsize + 0] = sdata[2];
image[dsize + 1] = sdata[1];
image[dsize + 2] = sdata[0];
sdata += 3;
}
image += temp.pic->bpl;
}
}
else
{
/* 跳开一个像素复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 3) {
image[dsize + 0] = sdata[4];
image[dsize + 1] = sdata[2];
image[dsize + 2] = sdata[0];
sdata += 6;
}
image += temp.pic->bpl;
}
}
break;
case 4:
if (head.info.depth == 8)
{
/* 直接逐行复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 4) {
image[dsize + 0] = sdata[0];
image[dsize + 1] = sdata[0];
image[dsize + 2] = sdata[0];
image[dsize + 3] = sdata[1];
sdata += 2;
}
image += temp.pic->bpl;
}
}
else
{
/* 跳开一个像素复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 4) {
image[dsize + 0] = sdata[0];
image[dsize + 1] = sdata[0];
image[dsize + 2] = sdata[0];
image[dsize + 3] = sdata[2];
sdata += 4;
}
image += temp.pic->bpl;
}
}
break;
default:
case 6:
if (head.info.depth == 8)
{
/* 直接逐行复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 4) {
image[dsize + 0] = sdata[2];
image[dsize + 1] = sdata[1];
image[dsize + 2] = sdata[0];
image[dsize + 3] = sdata[3];
sdata += 4;
}
image += temp.pic->bpl;
}
}
else
{
/* 跳开一个像素复制 */
for (index = hh; index != 0; index--) {
for (dsize = 0; dsize < nbpl; dsize += 4) {
image[dsize + 0] = sdata[4];
image[dsize + 1] = sdata[2];
image[dsize + 2] = sdata[0];
image[dsize + 3] = sdata[6];
sdata += 8;
}
image += temp.pic->bpl;
}
}
break;
}
}
mem_free(ddata);
/* 返回读取的文件数据 */
rett = struct_new(sFMT_PIC);
if (rett == NULL)
goto _failure1;
rett->frame = struct_dup(&temp, sFMT_FRAME);
if (rett->frame == NULL) {
mem_free(rett);
goto _failure1;
}
CR_NOUSE(param);
rett->type = CR_FMTZ_PIC;
rett->count = 1;
rett->infor = "Portable Network Graphics (PNG)";
return (rett);
_failure2:
mem_free(ddata);
_failure1:
image_del(temp.pic);
return (NULL);
}
/*
=======================================
TGL CGR 文件读取
=======================================
*/
CR_API sFMT_PIC*
load_tgl_cgr (
__CR_IO__ iDATIN* datin,
__CR_IN__ const sLOADER* param
)
{
int32u wnh[2];
uint_t ww, hh;
/*************/
byte_t* line;
fsize_t size;
sFMT_PIC* rett;
sFMT_FRAME temp;
/* 这个参数可能为空 */
if (datin == NULL)
return (NULL);
/* 只能根据文件大小来判断 */
size = dati_get_size(datin);
if (size <= 0x600 + 12)
return (NULL);
if (!CR_VCALL(datin)->seek(datin, 0x600, SEEK_SET))
return (NULL);
if (CR_VCALL(datin)->read(datin, wnh, 8) != 8)
return (NULL);
wnh[0] = DWORD_LE(wnh[0]);
wnh[1] = DWORD_LE(wnh[1]);
size = wnh[0];
size *= wnh[1];
size += 0x600 + 12;
if (size != dati_get_size(datin))
return (NULL);
/* 对宽高的截断检查 */
if (cut_int32_u(&ww, wnh[0]))
return (NULL);
if (cut_int32_u(&hh, wnh[1]))
return (NULL);
/* 定位到调色板 */
if (!CR_VCALL(datin)->rewind(datin))
return (NULL);
/* 生成图片对象 */
mem_zero(temp.wh, sizeof(temp.wh));
temp.fmt = CR_PIC_PALS;
temp.bpp = 8;
temp.clr = "P";
temp.wh[0] = 8;
temp.pic = image_new(0, 0, ww, hh, CR_INDEX8, FALSE, 4);
if (temp.pic == NULL)
return (NULL);
/* 读取调色板数据 */
if (CR_VCALL(datin)->read(datin, temp.pic->pal, 1024) != 1024)
goto _failure;
line = temp.pic->data;
pal_4b_alp_sw(temp.pic->pal, TRUE, 0xFF, 256);
/* 定位到图片数据 */
if (!CR_VCALL(datin)->seek(datin, 0x600 + 12, SEEK_SET))
goto _failure;
/* 读取图片数据 */
for (; hh != 0; hh--) {
if (CR_VCALL(datin)->read(datin, line, ww) != ww)
goto _failure;
line += temp.pic->bpl;
}
/* 返回读取的文件数据 */
rett = struct_new(sFMT_PIC);
if (rett == NULL)
goto _failure;
rett->frame = struct_dup(&temp, sFMT_FRAME);
if (rett->frame == NULL) {
mem_free(rett);
goto _failure;
}
CR_NOUSE(param);
rett->type = CR_FMTZ_PIC;
rett->count = 1;
rett->infor = "TGL CGR Image File (CGR)";
return (rett);
_failure:
image_del(temp.pic);
return (NULL);
}
