WebSVN – Kolibri OS – Diff – /contrib/other/kpm/7z/7z.c


#include 
#include 
#include "7z.h"
#include "7zAlloc.h"
#include "7zBuf.h"
#include "7zCrc.h"
#include "7zFile.h"
#include "7zVersion.h"
#include "http.h"
#include "package.h"
 
#define PERIOD_4 (4 * 365 + 1)
#define PERIOD_100 (PERIOD_4 * 25 - 1)
#define PERIOD_400 (PERIOD_100 * 4 + 1)
 
#define _UTF8_START(n) (0x100 - (1 << (7 - (n))))
 
#define _UTF8_RANGE(n) (((UInt32)1) << ((n) * 5 + 6))
 
#define _UTF8_HEAD(n, val) ((Byte)(_UTF8_START(n) + (val >> (6 * (n)))))
#define _UTF8_CHAR(n, val) ((Byte)(0x80 + (((val) >> (6 * (n))) & 0x3F)))
 
#define MY_FILE_CODE_PAGE_PARAM
 
static ISzAlloc g_Alloc = { SzAlloc, SzFree };
 
static int Buf_EnsureSize(CBuf *dest, size_t size)
{
    if (dest->size >= size)
        return 1;
    Buf_Free(dest, &g_Alloc);
    return Buf_Create(dest, size, &g_Alloc);
}
 
 
int test_archive(const char *path)
{
    CFileInStream archiveStream;
    CLookToRead lookStream;
    CSzArEx db;
    SRes res;
    ISzAlloc allocImp;
    ISzAlloc allocTempImp;
    UInt16 *temp = NULL;
 
    allocImp.Alloc = SzAlloc;
    allocImp.Free = SzFree;
 
    allocTempImp.Alloc = SzAllocTemp;
    allocTempImp.Free = SzFreeTemp;
 
    if (InFile_Open(&archiveStream.file, path))
    {
        printf("can not open input file");
        return -1;
    }
 
    FileInStream_CreateVTable(&archiveStream);
    LookToRead_CreateVTable(&lookStream, False);
 
    lookStream.realStream = &archiveStream.s;
    LookToRead_Init(&lookStream);
 
    CrcGenerateTable();
 
    SzArEx_Init(&db);
 
    res = SzArEx_Open(&db, &lookStream.s, &allocImp, &allocTempImp);
 
    SzArEx_Free(&db, &allocImp);
    SzFree(NULL, temp);
 
    File_Close(&archiveStream.file);
 
    if (res == SZ_OK)
        return 0;
    else return -1;
};
 
static size_t Utf16_To_Utf8_Calc(const UInt16 *src, const UInt16 *srcLim)
{
    size_t size = 0;
    for (;;)
    {
        UInt32 val;
        if (src == srcLim)
            return size;
 
        size++;
        val = *src++;
 
        if (val < 0x80)
            continue;
 
        if (val < _UTF8_RANGE(1))
        {
            size++;
            continue;
        }
 
        if (val >= 0xD800 && val < 0xDC00 && src != srcLim)
        {
            UInt32 c2 = *src;
            if (c2 >= 0xDC00 && c2 < 0xE000)
            {
                src++;
                size += 3;
                continue;
            }
        }
 
        size += 2;
    }
}
 
static Byte *Utf16_To_Utf8(Byte *dest, const UInt16 *src, const UInt16 *srcLim)
{
    for (;;)
    {
        UInt32 val;
        if (src == srcLim)
            return dest;
 
        val = *src++;
 
        if (val < 0x80)
        {
            *dest++ = (char)val;
            continue;
        }
 
        if (val < _UTF8_RANGE(1))
        {
            dest[0] = _UTF8_HEAD(1, val);
            dest[1] = _UTF8_CHAR(0, val);
            dest += 2;
            continue;
        }
 
        if (val >= 0xD800 && val < 0xDC00 && src != srcLim)
        {
            UInt32 c2 = *src;
            if (c2 >= 0xDC00 && c2 < 0xE000)
            {
                src++;
                val = (((val - 0xD800) << 10) | (c2 - 0xDC00)) + 0x10000;
                dest[0] = _UTF8_HEAD(3, val);
                dest[1] = _UTF8_CHAR(2, val);
                dest[2] = _UTF8_CHAR(1, val);
                dest[3] = _UTF8_CHAR(0, val);
                dest += 4;
                continue;
            }
        }
 
        dest[0] = _UTF8_HEAD(2, val);
        dest[1] = _UTF8_CHAR(1, val);
        dest[2] = _UTF8_CHAR(0, val);
        dest += 3;
    }
}
 
static SRes Utf16_To_Utf8Buf(CBuf *dest, const UInt16 *src, size_t srcLen)
{
    size_t destLen = Utf16_To_Utf8_Calc(src, src + srcLen);
    destLen += 1;
    if (!Buf_EnsureSize(dest, destLen))
        return SZ_ERROR_MEM;
    *Utf16_To_Utf8(dest->data, src, src + srcLen) = 0;
    return SZ_OK;
}
 
static void GetAttribString(UInt32 wa, Bool isDir, char *s)
{
    s[0] = (char)(((wa & (1 << 4)) != 0 || isDir) ? 'D' : '.');
    s[1] = 0;
}
 
static void UInt64ToStr(UInt64 value, char *s)
{
    char temp[32];
    int pos = 0;
    do
    {
        temp[pos++] = (char)('0' + (unsigned)(value % 10));
        value /= 10;
    }
    while (value != 0);
    do
        *s++ = temp[--pos];
    while (pos);
    *s = '\0';
}
 
static SRes Utf16_To_Char(CBuf *buf, const UInt16 *s)
{
    unsigned len = 0;
    for (len = 0; s[len] != 0; len++);
 
    return Utf16_To_Utf8Buf(buf, s, len);
}
 
static char *UIntToStr(char *s, unsigned value, int numDigits)
{
    char temp[16];
    int pos = 0;
    do
        temp[pos++] = (char)('0' + (value % 10));
    while (value /= 10);
    for (numDigits -= pos; numDigits > 0; numDigits--)
        *s++ = '0';
    do
        *s++ = temp[--pos];
    while (pos);
    *s = '\0';
    return s;
}
 
static void UIntToStr_2(char *s, unsigned value)
{
    s[0] = (char)('0' + (value / 10));
    s[1] = (char)('0' + (value % 10));
}
 
static WRes OutFile_OpenUtf16(CSzFile *p, const UInt16 *name)
{
  CBuf buf;
  WRes res;
  Buf_Init(&buf);
  RINOK(Utf16_To_Char(&buf, name MY_FILE_CODE_PAGE_PARAM));
  printf("open file %s\n", (const char *)buf.data);
  res = OutFile_Open(p, (const char *)buf.data);
  Buf_Free(&buf, &g_Alloc);
  return res;
}
 
int create_dir(const char *path)
{
     int retval;
     __asm__ __volatile__ (
     "pushl $0 \n\t"
     "pushl $0 \n\t"
     "movl %1, 1(%%esp) \n\t"
     "pushl $0 \n\t"
     "pushl $0 \n\t"
     "pushl $0 \n\t"
     "pushl $0 \n\t"
     "pushl $9 \n\t"
     "movl %%esp, %%ebx \n\t"
     "movl $70, %%eax \n\t"
     "int $0x40 \n\t"
     "addl $28, %%esp \n\t"
     :"=a" (retval)
     :"r" (path)
     :"ebx");
  return retval;
};
 
static WRes MyCreateDir(const UInt16 *name)
{
  CBuf buf;
  WRes res;
  Buf_Init(&buf);
  RINOK(Utf16_To_Char(&buf, name MY_FILE_CODE_PAGE_PARAM));
 
  res = create_dir((const char *)buf.data) == 0 ? 0 : -1;
  Buf_Free(&buf, &g_Alloc);
  return res;
}
 
static SRes PrintString(const UInt16 *s)
{
    CBuf buf;
    SRes res;
    Buf_Init(&buf);
    res = Utf16_To_Char(&buf, s);
    if (res == SZ_OK)
        fputs((const char *)buf.data, stdout);
    Buf_Free(&buf, &g_Alloc);
    return res;
}
 
void PrintError(char *sz)
{
    printf("\nERROR: %s\n", sz);
}
 
static void ConvertFileTimeToString(const CNtfsFileTime *nt, char *s)
{
    unsigned year, mon, hour, min, sec;
    Byte ms[] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
    unsigned t;
    UInt32 v;
    UInt64 v64 = nt->Low | ((UInt64)nt->High << 32);
    v64 /= 10000000;
    sec = (unsigned)(v64 % 60); v64 /= 60;
    min = (unsigned)(v64 % 60); v64 /= 60;
    hour = (unsigned)(v64 % 24); v64 /= 24;
 
    v = (UInt32)v64;
 
    year = (unsigned)(1601 + v / PERIOD_400 * 400);
    v %= PERIOD_400;
 
    t = v / PERIOD_100; if (t ==  4) t =  3; year += t * 100; v -= t * PERIOD_100;
    t = v / PERIOD_4;   if (t == 25) t = 24; year += t * 4;   v -= t * PERIOD_4;
    t = v / 365;        if (t ==  4) t =  3; year += t;       v -= t * 365;
 
    if (year % 4 == 0 && (year % 100 != 0 || year % 400 == 0))
        ms[1] = 29;
    for (mon = 0;; mon++)
    {
        unsigned s = ms[mon];
        if (v < s)
            break;
        v -= s;
    }
    s = UIntToStr(s, year, 4); *s++ = '-';
    UIntToStr_2(s, mon + 1); s[2] = '-'; s += 3;
    UIntToStr_2(s, (unsigned)v + 1); s[2] = ' '; s += 3;
    UIntToStr_2(s, hour); s[2] = ':'; s += 3;
    UIntToStr_2(s, min); s[2] = ':'; s += 3;
    UIntToStr_2(s, sec); s[2] = 0;
}
 
 
 
void do_7z_unpack(const char *srcpath)
{
    CFileInStream archiveStream;
    CLookToRead lookStream;
 
    CSzArEx db;
    SRes res;
    ISzAlloc allocImp;
    ISzAlloc allocTempImp;
    UInt16 *temp = NULL;
    size_t tempSize = 0;
 
 
    memset(&lookStream,0,sizeof(lookStream));
 
    allocImp.Alloc = SzAlloc;
    allocImp.Free = SzFree;
 
    allocTempImp.Alloc = SzAllocTemp;
    allocTempImp.Free = SzFreeTemp;
 
 
 
 
 
    if (InFile_Open(&archiveStream.file, srcpath))
        return;
 
    FileInStream_CreateVTable(&archiveStream);
    LookToRead_CreateVTable(&lookStream, False);
 
    lookStream.realStream = &archiveStream.s;
    LookToRead_Init(&lookStream);
 
    CrcGenerateTable();
    SzArEx_Init(&db);
 
    res = SzArEx_Open(&db, &lookStream.s, &allocImp, &allocTempImp);
 
    if (res == SZ_OK)
    {
        UInt32 i;
        UInt32 blockIndex    = 0xFFFFFFFF;  /* it can have any value before first call (if outBuffer = 0) */
        Byte *outBuffer      = 0;           /* it must be 0 before first call for each new archive. */
        size_t outBufferSize = 0;           /* it can have any value before first call (if outBuffer = 0) */
 
        for (i = 0; i < db.NumFiles; i++)
        {
            size_t offset = 0;
            size_t outSizeProcessed = 0;
            size_t len;
            unsigned isDir = SzArEx_IsDir(&db, i);
 
            if ( isDir )
                continue;
 
            len = SzArEx_GetFileNameUtf16(&db, i, NULL);
 
            if (len > tempSize)
            {
                SzFree(NULL, temp);
                tempSize = len;
                temp = (UInt16 *)SzAlloc(NULL, tempSize * sizeof(temp[0]));
                if (!temp)
                {
                    res = SZ_ERROR_MEM;
                    break;
                }
            }
 
            SzArEx_GetFileNameUtf16(&db, i, temp);
            res = PrintString(temp);
            if (res != SZ_OK)
                break;
            printf("\n");
 
            if (isDir)
                printf("/");
            else
            {
                res = SzArEx_Extract(&db, &lookStream.s, i,
                      &blockIndex, &outBuffer, &outBufferSize,
                      &offset, &outSizeProcessed,
                       &allocImp, &allocTempImp);
                if (res != SZ_OK)
                    break;
            }
 
            if (1)
            {
                CSzFile outFile;
                size_t processedSize;
                size_t j;
                UInt16 *name = (UInt16 *)temp;
                const UInt16 *destPath = (const UInt16 *)name;
 
                for (j = 0; name[j] != 0; j++)
                    if (name[j] == '/')
                {
 
 
                    name[j] = 0;
                    MyCreateDir(name);
                    name[j] = CHAR_PATH_SEPARATOR;
                }
 
 
 
 
                if (isDir)
                {
                    MyCreateDir(destPath);
                    printf("\n");
                    continue;
                }
                else if (OutFile_OpenUtf16(&outFile, destPath))
                {
                    PrintError("can not open output file");
                    res = SZ_ERROR_FAIL;
                    break;
                }
 
                processedSize = outSizeProcessed;
 
                if (File_Write(&outFile, outBuffer + offset, &processedSize) != 0 || processedSize != outSizeProcessed)
                {
                    PrintError("can not write output file\n");
                    res = SZ_ERROR_FAIL;
                    break;
                }
 
                if (File_Close(&outFile))
                {
                    PrintError("can not close output file\n");
                    res = SZ_ERROR_FAIL;
                    break;
                }
            };
 
        };
        IAlloc_Free(&allocImp, outBuffer);
    };
    SzArEx_Free(&db, &allocImp);
    SzFree(NULL, temp);
 
    File_Close(&archiveStream.file);
};
 
void do_install(list_t *install)
{
    package_t   *pkg, *tmp;
    char        *cache_path;
 
    list_for_each_entry_safe(pkg, tmp, install, list)
    {
        cache_path = make_cache_path(pkg->filename);
 
        sprintf(conbuf,"install package %s-%s\n", pkg->name, pkg->version);
        con_write_asciiz(conbuf);
 
        do_7z_unpack(cache_path);
        list_del_pkg(pkg);
    };
};

Rev 5729	Rev 5809
1	#include	1	#include
2	#include	2	#include
3	#include "7z.h"	3	#include "7z.h"
4	#include "7zAlloc.h"	4	#include "7zAlloc.h"
5	#include "7zBuf.h"	5	#include "7zBuf.h"
6	#include "7zCrc.h"	6	#include "7zCrc.h"
7	#include "7zFile.h"	7	#include "7zFile.h"
8	#include "7zVersion.h"	8	#include "7zVersion.h"
-		9	#include "http.h"
9	#include "package.h"	10	#include "package.h"
10		11
11	#define PERIOD_4 (4 * 365 + 1)	12	#define PERIOD_4 (4 * 365 + 1)
12	#define PERIOD_100 (PERIOD_4 * 25 - 1)	13	#define PERIOD_100 (PERIOD_4 * 25 - 1)
13	#define PERIOD_400 (PERIOD_100 * 4 + 1)	14	#define PERIOD_400 (PERIOD_100 * 4 + 1)
14		15
15	#define _UTF8_START(n) (0x100 - (1 << (7 - (n))))	16	#define _UTF8_START(n) (0x100 - (1 << (7 - (n))))
16		17
17	#define _UTF8_RANGE(n) (((UInt32)1) << ((n) * 5 + 6))	18	#define _UTF8_RANGE(n) (((UInt32)1) << ((n) * 5 + 6))
18		19
19	#define _UTF8_HEAD(n, val) ((Byte)(_UTF8_START(n) + (val >> (6 * (n)))))	20	#define _UTF8_HEAD(n, val) ((Byte)(_UTF8_START(n) + (val >> (6 * (n)))))
20	#define _UTF8_CHAR(n, val) ((Byte)(0x80 + (((val) >> (6 * (n))) & 0x3F)))	21	#define _UTF8_CHAR(n, val) ((Byte)(0x80 + (((val) >> (6 * (n))) & 0x3F)))
21		22
22	#define MY_FILE_CODE_PAGE_PARAM	23	#define MY_FILE_CODE_PAGE_PARAM
23		24
24	static ISzAlloc g_Alloc = { SzAlloc, SzFree };	25	static ISzAlloc g_Alloc = { SzAlloc, SzFree };
25		26
26	static int Buf_EnsureSize(CBuf *dest, size_t size)	27	static int Buf_EnsureSize(CBuf *dest, size_t size)
27	{	28	{
28	if (dest->size >= size)	29	if (dest->size >= size)
29	return 1;	30	return 1;
30	Buf_Free(dest, &g_Alloc);	31	Buf_Free(dest, &g_Alloc);
31	return Buf_Create(dest, size, &g_Alloc);	32	return Buf_Create(dest, size, &g_Alloc);
32	}	33	}
33		34
34		35
35	int test_archive(const char *path)	36	int test_archive(const char *path)
36	{	37	{
37	CFileInStream archiveStream;	38	CFileInStream archiveStream;
38	CLookToRead lookStream;	39	CLookToRead lookStream;
39	CSzArEx db;	40	CSzArEx db;
40	SRes res;	41	SRes res;
41	ISzAlloc allocImp;	42	ISzAlloc allocImp;
42	ISzAlloc allocTempImp;	43	ISzAlloc allocTempImp;
43	UInt16 *temp = NULL;	44	UInt16 *temp = NULL;
44		45
45	allocImp.Alloc = SzAlloc;	46	allocImp.Alloc = SzAlloc;
46	allocImp.Free = SzFree;	47	allocImp.Free = SzFree;
47		48
48	allocTempImp.Alloc = SzAllocTemp;	49	allocTempImp.Alloc = SzAllocTemp;
49	allocTempImp.Free = SzFreeTemp;	50	allocTempImp.Free = SzFreeTemp;
50		51
51	if (InFile_Open(&archiveStream.file, path))	52	if (InFile_Open(&archiveStream.file, path))
52	{	53	{
53	printf("can not open input file");	54	printf("can not open input file");
54	return -1;	55	return -1;
55	}	56	}
56		57
57	FileInStream_CreateVTable(&archiveStream);	58	FileInStream_CreateVTable(&archiveStream);
58	LookToRead_CreateVTable(&lookStream, False);	59	LookToRead_CreateVTable(&lookStream, False);
59		60
60	lookStream.realStream = &archiveStream.s;	61	lookStream.realStream = &archiveStream.s;
61	LookToRead_Init(&lookStream);	62	LookToRead_Init(&lookStream);
62		63
63	CrcGenerateTable();	64	CrcGenerateTable();
64		65
65	SzArEx_Init(&db);	66	SzArEx_Init(&db);
66		67
67	res = SzArEx_Open(&db, &lookStream.s, &allocImp, &allocTempImp);	68	res = SzArEx_Open(&db, &lookStream.s, &allocImp, &allocTempImp);
68		69
69	SzArEx_Free(&db, &allocImp);	70	SzArEx_Free(&db, &allocImp);
70	SzFree(NULL, temp);	71	SzFree(NULL, temp);
71		72
72	File_Close(&archiveStream.file);	73	File_Close(&archiveStream.file);
73		74
74	if (res == SZ_OK)	75	if (res == SZ_OK)
75	return 0;	76	return 0;
76	else return -1;	77	else return -1;
77	};	78	};
78		79
79	static size_t Utf16_To_Utf8_Calc(const UInt16 src, const UInt16 srcLim)	80	static size_t Utf16_To_Utf8_Calc(const UInt16 src, const UInt16 srcLim)
80	{	81	{
81	size_t size = 0;	82	size_t size = 0;
82	for (;;)	83	for (;;)
83	{	84	{
84	UInt32 val;	85	UInt32 val;
85	if (src == srcLim)	86	if (src == srcLim)
86	return size;	87	return size;
87		88
88	size++;	89	size++;
89	val = *src++;	90	val = *src++;
90		91
91	if (val < 0x80)	92	if (val < 0x80)
92	continue;	93	continue;
93		94
94	if (val < _UTF8_RANGE(1))	95	if (val < _UTF8_RANGE(1))
95	{	96	{
96	size++;	97	size++;
97	continue;	98	continue;
98	}	99	}
99		100
100	if (val >= 0xD800 && val < 0xDC00 && src != srcLim)	101	if (val >= 0xD800 && val < 0xDC00 && src != srcLim)
101	{	102	{
102	UInt32 c2 = *src;	103	UInt32 c2 = *src;
103	if (c2 >= 0xDC00 && c2 < 0xE000)	104	if (c2 >= 0xDC00 && c2 < 0xE000)
104	{	105	{
105	src++;	106	src++;
106	size += 3;	107	size += 3;
107	continue;	108	continue;
108	}	109	}
109	}	110	}
110		111
111	size += 2;	112	size += 2;
112	}	113	}
113	}	114	}
114		115
115	static Byte Utf16_To_Utf8(Byte dest, const UInt16 src, const UInt16 srcLim)	116	static Byte Utf16_To_Utf8(Byte dest, const UInt16 src, const UInt16 srcLim)
116	{	117	{
117	for (;;)	118	for (;;)
118	{	119	{
119	UInt32 val;	120	UInt32 val;
120	if (src == srcLim)	121	if (src == srcLim)
121	return dest;	122	return dest;
122		123
123	val = *src++;	124	val = *src++;
124		125
125	if (val < 0x80)	126	if (val < 0x80)
126	{	127	{
127	*dest++ = (char)val;	128	*dest++ = (char)val;
128	continue;	129	continue;
129	}	130	}
130		131
131	if (val < _UTF8_RANGE(1))	132	if (val < _UTF8_RANGE(1))
132	{	133	{
133	dest[0] = _UTF8_HEAD(1, val);	134	dest[0] = _UTF8_HEAD(1, val);
134	dest[1] = _UTF8_CHAR(0, val);	135	dest[1] = _UTF8_CHAR(0, val);
135	dest += 2;	136	dest += 2;
136	continue;	137	continue;
137	}	138	}
138		139
139	if (val >= 0xD800 && val < 0xDC00 && src != srcLim)	140	if (val >= 0xD800 && val < 0xDC00 && src != srcLim)
140	{	141	{
141	UInt32 c2 = *src;	142	UInt32 c2 = *src;
142	if (c2 >= 0xDC00 && c2 < 0xE000)	143	if (c2 >= 0xDC00 && c2 < 0xE000)
143	{	144	{
144	src++;	145	src++;
145	val = (((val - 0xD800) << 10) \| (c2 - 0xDC00)) + 0x10000;	146	val = (((val - 0xD800) << 10) \| (c2 - 0xDC00)) + 0x10000;
146	dest[0] = _UTF8_HEAD(3, val);	147	dest[0] = _UTF8_HEAD(3, val);
147	dest[1] = _UTF8_CHAR(2, val);	148	dest[1] = _UTF8_CHAR(2, val);
148	dest[2] = _UTF8_CHAR(1, val);	149	dest[2] = _UTF8_CHAR(1, val);
149	dest[3] = _UTF8_CHAR(0, val);	150	dest[3] = _UTF8_CHAR(0, val);
150	dest += 4;	151	dest += 4;
151	continue;	152	continue;
152	}	153	}
153	}	154	}
154		155
155	dest[0] = _UTF8_HEAD(2, val);	156	dest[0] = _UTF8_HEAD(2, val);
156	dest[1] = _UTF8_CHAR(1, val);	157	dest[1] = _UTF8_CHAR(1, val);
157	dest[2] = _UTF8_CHAR(0, val);	158	dest[2] = _UTF8_CHAR(0, val);
158	dest += 3;	159	dest += 3;
159	}	160	}
160	}	161	}
161		162
162	static SRes Utf16_To_Utf8Buf(CBuf dest, const UInt16 src, size_t srcLen)	163	static SRes Utf16_To_Utf8Buf(CBuf dest, const UInt16 src, size_t srcLen)
163	{	164	{
164	size_t destLen = Utf16_To_Utf8_Calc(src, src + srcLen);	165	size_t destLen = Utf16_To_Utf8_Calc(src, src + srcLen);
165	destLen += 1;	166	destLen += 1;
166	if (!Buf_EnsureSize(dest, destLen))	167	if (!Buf_EnsureSize(dest, destLen))
167	return SZ_ERROR_MEM;	168	return SZ_ERROR_MEM;
168	*Utf16_To_Utf8(dest->data, src, src + srcLen) = 0;	169	*Utf16_To_Utf8(dest->data, src, src + srcLen) = 0;
169	return SZ_OK;	170	return SZ_OK;
170	}	171	}
171		172
172	static void GetAttribString(UInt32 wa, Bool isDir, char *s)	173	static void GetAttribString(UInt32 wa, Bool isDir, char *s)
173	{	174	{
174	s[0] = (char)(((wa & (1 << 4)) != 0 \|\| isDir) ? 'D' : '.');	175	s[0] = (char)(((wa & (1 << 4)) != 0 \|\| isDir) ? 'D' : '.');
175	s[1] = 0;	176	s[1] = 0;
176	}	177	}
177		178
178	static void UInt64ToStr(UInt64 value, char *s)	179	static void UInt64ToStr(UInt64 value, char *s)
179	{	180	{
180	char temp[32];	181	char temp[32];
181	int pos = 0;	182	int pos = 0;
182	do	183	do
183	{	184	{
184	temp[pos++] = (char)('0' + (unsigned)(value % 10));	185	temp[pos++] = (char)('0' + (unsigned)(value % 10));
185	value /= 10;	186	value /= 10;
186	}	187	}
187	while (value != 0);	188	while (value != 0);
188	do	189	do
189	*s++ = temp[--pos];	190	*s++ = temp[--pos];
190	while (pos);	191	while (pos);
191	*s = '\0';	192	*s = '\0';
192	}	193	}
193		194
194	static SRes Utf16_To_Char(CBuf buf, const UInt16 s)	195	static SRes Utf16_To_Char(CBuf buf, const UInt16 s)
195	{	196	{
196	unsigned len = 0;	197	unsigned len = 0;
197	for (len = 0; s[len] != 0; len++);	198	for (len = 0; s[len] != 0; len++);
198		199
199	return Utf16_To_Utf8Buf(buf, s, len);	200	return Utf16_To_Utf8Buf(buf, s, len);
200	}	201	}
201		202
202	static char UIntToStr(char s, unsigned value, int numDigits)	203	static char UIntToStr(char s, unsigned value, int numDigits)
203	{	204	{
204	char temp[16];	205	char temp[16];
205	int pos = 0;	206	int pos = 0;
206	do	207	do
207	temp[pos++] = (char)('0' + (value % 10));	208	temp[pos++] = (char)('0' + (value % 10));
208	while (value /= 10);	209	while (value /= 10);
209	for (numDigits -= pos; numDigits > 0; numDigits--)	210	for (numDigits -= pos; numDigits > 0; numDigits--)
210	*s++ = '0';	211	*s++ = '0';
211	do	212	do
212	*s++ = temp[--pos];	213	*s++ = temp[--pos];
213	while (pos);	214	while (pos);
214	*s = '\0';	215	*s = '\0';
215	return s;	216	return s;
216	}	217	}
217		218
218	static void UIntToStr_2(char *s, unsigned value)	219	static void UIntToStr_2(char *s, unsigned value)
219	{	220	{
220	s[0] = (char)('0' + (value / 10));	221	s[0] = (char)('0' + (value / 10));
221	s[1] = (char)('0' + (value % 10));	222	s[1] = (char)('0' + (value % 10));
222	}	223	}
223		224
224	static WRes OutFile_OpenUtf16(CSzFile p, const UInt16 name)	225	static WRes OutFile_OpenUtf16(CSzFile p, const UInt16 name)
225	{	226	{
226	CBuf buf;	227	CBuf buf;
227	WRes res;	228	WRes res;
228	Buf_Init(&buf);	229	Buf_Init(&buf);
229	RINOK(Utf16_To_Char(&buf, name MY_FILE_CODE_PAGE_PARAM));	230	RINOK(Utf16_To_Char(&buf, name MY_FILE_CODE_PAGE_PARAM));
230	printf("open file %s\n", (const char *)buf.data);	231	printf("open file %s\n", (const char *)buf.data);
231	res = OutFile_Open(p, (const char *)buf.data);	232	res = OutFile_Open(p, (const char *)buf.data);
232	Buf_Free(&buf, &g_Alloc);	233	Buf_Free(&buf, &g_Alloc);
233	return res;	234	return res;
234	}	235	}
235		236
236	int create_dir(const char *path)	237	int create_dir(const char *path)
237	{	238	{
238	int retval;	239	int retval;
239	__asm__ __volatile__ (	240	__asm__ __volatile__ (
240	"pushl $0 \n\t"	241	"pushl $0 \n\t"
241	"pushl $0 \n\t"	242	"pushl $0 \n\t"
242	"movl %1, 1(%%esp) \n\t"	243	"movl %1, 1(%%esp) \n\t"
243	"pushl $0 \n\t"	244	"pushl $0 \n\t"
244	"pushl $0 \n\t"	245	"pushl $0 \n\t"
245	"pushl $0 \n\t"	246	"pushl $0 \n\t"
246	"pushl $0 \n\t"	247	"pushl $0 \n\t"
247	"pushl $9 \n\t"	248	"pushl $9 \n\t"
248	"movl %%esp, %%ebx \n\t"	249	"movl %%esp, %%ebx \n\t"
249	"movl $70, %%eax \n\t"	250	"movl $70, %%eax \n\t"
250	"int $0x40 \n\t"	251	"int $0x40 \n\t"
251	"addl $28, %%esp \n\t"	252	"addl $28, %%esp \n\t"
252	:"=a" (retval)	253	:"=a" (retval)
253	:"r" (path)	254	:"r" (path)
254	:"ebx");	255	:"ebx");
255	return retval;	256	return retval;
256	};	257	};
257		258
258	static WRes MyCreateDir(const UInt16 *name)	259	static WRes MyCreateDir(const UInt16 *name)
259	{	260	{
260	CBuf buf;	261	CBuf buf;
261	WRes res;	262	WRes res;
262	Buf_Init(&buf);	263	Buf_Init(&buf);
263	RINOK(Utf16_To_Char(&buf, name MY_FILE_CODE_PAGE_PARAM));	264	RINOK(Utf16_To_Char(&buf, name MY_FILE_CODE_PAGE_PARAM));
264		265
265	res = create_dir((const char *)buf.data) == 0 ? 0 : -1;	266	res = create_dir((const char *)buf.data) == 0 ? 0 : -1;
266	Buf_Free(&buf, &g_Alloc);	267	Buf_Free(&buf, &g_Alloc);
267	return res;	268	return res;
268	}	269	}
269		270
270	static SRes PrintString(const UInt16 *s)	271	static SRes PrintString(const UInt16 *s)
271	{	272	{
272	CBuf buf;	273	CBuf buf;
273	SRes res;	274	SRes res;
274	Buf_Init(&buf);	275	Buf_Init(&buf);
275	res = Utf16_To_Char(&buf, s);	276	res = Utf16_To_Char(&buf, s);
276	if (res == SZ_OK)	277	if (res == SZ_OK)
277	fputs((const char *)buf.data, stdout);	278	fputs((const char *)buf.data, stdout);
278	Buf_Free(&buf, &g_Alloc);	279	Buf_Free(&buf, &g_Alloc);
279	return res;	280	return res;
280	}	281	}
281		282
282	void PrintError(char *sz)	283	void PrintError(char *sz)
283	{	284	{
284	printf("\nERROR: %s\n", sz);	285	printf("\nERROR: %s\n", sz);
285	}	286	}
286		287
287	static void ConvertFileTimeToString(const CNtfsFileTime nt, char s)	288	static void ConvertFileTimeToString(const CNtfsFileTime nt, char s)
288	{	289	{
289	unsigned year, mon, hour, min, sec;	290	unsigned year, mon, hour, min, sec;
290	Byte ms[] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };	291	Byte ms[] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
291	unsigned t;	292	unsigned t;
292	UInt32 v;	293	UInt32 v;
293	UInt64 v64 = nt->Low \| ((UInt64)nt->High << 32);	294	UInt64 v64 = nt->Low \| ((UInt64)nt->High << 32);
294	v64 /= 10000000;	295	v64 /= 10000000;
295	sec = (unsigned)(v64 % 60); v64 /= 60;	296	sec = (unsigned)(v64 % 60); v64 /= 60;
296	min = (unsigned)(v64 % 60); v64 /= 60;	297	min = (unsigned)(v64 % 60); v64 /= 60;
297	hour = (unsigned)(v64 % 24); v64 /= 24;	298	hour = (unsigned)(v64 % 24); v64 /= 24;
298		299
299	v = (UInt32)v64;	300	v = (UInt32)v64;
300		301
301	year = (unsigned)(1601 + v / PERIOD_400 * 400);	302	year = (unsigned)(1601 + v / PERIOD_400 * 400);
302	v %= PERIOD_400;	303	v %= PERIOD_400;
303		304
304	t = v / PERIOD_100; if (t == 4) t = 3; year += t * 100; v -= t * PERIOD_100;	305	t = v / PERIOD_100; if (t == 4) t = 3; year += t * 100; v -= t * PERIOD_100;
305	t = v / PERIOD_4; if (t == 25) t = 24; year += t * 4; v -= t * PERIOD_4;	306	t = v / PERIOD_4; if (t == 25) t = 24; year += t * 4; v -= t * PERIOD_4;
306	t = v / 365; if (t == 4) t = 3; year += t; v -= t * 365;	307	t = v / 365; if (t == 4) t = 3; year += t; v -= t * 365;
307		308
308	if (year % 4 == 0 && (year % 100 != 0 \|\| year % 400 == 0))	309	if (year % 4 == 0 && (year % 100 != 0 \|\| year % 400 == 0))
309	ms[1] = 29;	310	ms[1] = 29;
310	for (mon = 0;; mon++)	311	for (mon = 0;; mon++)
311	{	312	{
312	unsigned s = ms[mon];	313	unsigned s = ms[mon];
313	if (v < s)	314	if (v < s)
314	break;	315	break;
315	v -= s;	316	v -= s;
316	}	317	}
317	s = UIntToStr(s, year, 4); *s++ = '-';	318	s = UIntToStr(s, year, 4); *s++ = '-';
318	UIntToStr_2(s, mon + 1); s[2] = '-'; s += 3;	319	UIntToStr_2(s, mon + 1); s[2] = '-'; s += 3;
319	UIntToStr_2(s, (unsigned)v + 1); s[2] = ' '; s += 3;	320	UIntToStr_2(s, (unsigned)v + 1); s[2] = ' '; s += 3;
320	UIntToStr_2(s, hour); s[2] = ':'; s += 3;	321	UIntToStr_2(s, hour); s[2] = ':'; s += 3;
321	UIntToStr_2(s, min); s[2] = ':'; s += 3;	322	UIntToStr_2(s, min); s[2] = ':'; s += 3;
322	UIntToStr_2(s, sec); s[2] = 0;	323	UIntToStr_2(s, sec); s[2] = 0;
323	}	324	}
324		325
325		-
326		326
327	void do_install(list_t *install)	327	void do_7z_unpack(const char *srcpath)
328	{	328	{
329	CFileInStream archiveStream;	329	CFileInStream archiveStream;
330	CLookToRead lookStream;	330	CLookToRead lookStream;
-		331
331	CSzArEx db;	332	CSzArEx db;
332	SRes res;	333	SRes res;
333	ISzAlloc allocImp;	334	ISzAlloc allocImp;
334	ISzAlloc allocTempImp;	335	ISzAlloc allocTempImp;
335	UInt16 *temp = NULL;	336	UInt16 *temp = NULL;
336	size_t tempSize = 0;	337	size_t tempSize = 0;
337		338
338	package_t pkg, tmp;	-
339	char *cache_path;	339	memset(&lookStream,0,sizeof(lookStream));
340		340
341	allocImp.Alloc = SzAlloc;	341	allocImp.Alloc = SzAlloc;
342	allocImp.Free = SzFree;	342	allocImp.Free = SzFree;
343		343
344	allocTempImp.Alloc = SzAllocTemp;	344	allocTempImp.Alloc = SzAllocTemp;
345	allocTempImp.Free = SzFreeTemp;	345	allocTempImp.Free = SzFreeTemp;
346		-
347	list_for_each_entry_safe(pkg, tmp, install, list)	-
348	{	-
349	cache_path = make_cache_path(pkg->filename);	-
350		346
351	if (InFile_Open(&archiveStream.file, cache_path))	347	if (InFile_Open(&archiveStream.file, srcpath))
352	continue;	348	return;
353		349
354	FileInStream_CreateVTable(&archiveStream);	350	FileInStream_CreateVTable(&archiveStream);
355	LookToRead_CreateVTable(&lookStream, False);	351	LookToRead_CreateVTable(&lookStream, False);
356		352
357	lookStream.realStream = &archiveStream.s;	353	lookStream.realStream = &archiveStream.s;
358	LookToRead_Init(&lookStream);	354	LookToRead_Init(&lookStream);
359		-
-		355	CrcGenerateTable();
360	SzArEx_Init(&db);	356	SzArEx_Init(&db);
361		357
362	res = SzArEx_Open(&db, &lookStream.s, &allocImp, &allocTempImp);	358	res = SzArEx_Open(&db, &lookStream.s, &allocImp, &allocTempImp);
363		359
364	if (res == SZ_OK)	360	if (res == SZ_OK)
365	{	361	{
366	UInt32 i;	362	UInt32 i;
367	UInt32 blockIndex = 0xFFFFFFFF; /* it can have any value before first call (if outBuffer = 0) */	363	UInt32 blockIndex = 0xFFFFFFFF; /* it can have any value before first call (if outBuffer = 0) */
368	Byte outBuffer = 0; / it must be 0 before first call for each new archive. */	364	Byte outBuffer = 0; / it must be 0 before first call for each new archive. */
369	size_t outBufferSize = 0; /* it can have any value before first call (if outBuffer = 0) */	365	size_t outBufferSize = 0; /* it can have any value before first call (if outBuffer = 0) */
370		366
371	for (i = 0; i < db.NumFiles; i++)	367	for (i = 0; i < db.NumFiles; i++)
372	{	368	{
373	size_t offset = 0;	369	size_t offset = 0;
374	size_t outSizeProcessed = 0;	370	size_t outSizeProcessed = 0;
375	size_t len;	371	size_t len;
376	unsigned isDir = SzArEx_IsDir(&db, i);	372	unsigned isDir = SzArEx_IsDir(&db, i);
377		373
378	if ( isDir )	374	if ( isDir )
379	continue;	375	continue;
380		376
381	len = SzArEx_GetFileNameUtf16(&db, i, NULL);	377	len = SzArEx_GetFileNameUtf16(&db, i, NULL);
382		378
383	if (len > tempSize)	379	if (len > tempSize)
384	{	380	{
385	SzFree(NULL, temp);	381	SzFree(NULL, temp);
386	tempSize = len;	382	tempSize = len;
387	temp = (UInt16 )SzAlloc(NULL, tempSize sizeof(temp[0]));	383	temp = (UInt16 )SzAlloc(NULL, tempSize sizeof(temp[0]));
388	if (!temp)	384	if (!temp)
389	{	385	{
390	res = SZ_ERROR_MEM;	386	res = SZ_ERROR_MEM;
391	break;	387	break;
392	}	388	}
393	}	389	}
394		390
395	SzArEx_GetFileNameUtf16(&db, i, temp);	391	SzArEx_GetFileNameUtf16(&db, i, temp);
396	res = PrintString(temp);	392	res = PrintString(temp);
397	if (res != SZ_OK)	393	if (res != SZ_OK)
398	break;	394	break;
399	printf("\n");	395	printf("\n");
400		396
401	if (isDir)	397	if (isDir)
402	printf("/");	398	printf("/");
403	else	399	else
404	{	400	{
405	res = SzArEx_Extract(&db, &lookStream.s, i,	401	res = SzArEx_Extract(&db, &lookStream.s, i,
406	&blockIndex, &outBuffer, &outBufferSize,	402	&blockIndex, &outBuffer, &outBufferSize,
407	&offset, &outSizeProcessed,	403	&offset, &outSizeProcessed,
408	&allocImp, &allocTempImp);	404	&allocImp, &allocTempImp);
409	if (res != SZ_OK)	405	if (res != SZ_OK)
410	break;	406	break;
411	}	407	}
412		408
413	if (1)	409	if (1)
414	{	410	{
415	CSzFile outFile;	411	CSzFile outFile;
416	size_t processedSize;	412	size_t processedSize;
417	size_t j;	413	size_t j;
418	UInt16 name = (UInt16 )temp;	414	UInt16 name = (UInt16 )temp;
419	const UInt16 destPath = (const UInt16 )name;	415	const UInt16 destPath = (const UInt16 )name;
420		416
421	for (j = 0; name[j] != 0; j++)	417	for (j = 0; name[j] != 0; j++)
422	if (name[j] == '/')	418	if (name[j] == '/')
423	{	419	{
424	if (1)	-
425	{	-
426	name[j] = 0;	420	name[j] = 0;
427	MyCreateDir(name);	421	MyCreateDir(name);
428	name[j] = CHAR_PATH_SEPARATOR;	422	name[j] = CHAR_PATH_SEPARATOR;
429	}	423	}
430	else	-
431	destPath = name + j + 1;	-
432	}	-
433		424
434	if (isDir)	425	if (isDir)
435	{	426	{
436	MyCreateDir(destPath);	427	MyCreateDir(destPath);
437	printf("\n");	428	printf("\n");
438	continue;	429	continue;
439	}	430	}
440	else if (OutFile_OpenUtf16(&outFile, destPath))	431	else if (OutFile_OpenUtf16(&outFile, destPath))
441	{	432	{
442	PrintError("can not open output file");	433	PrintError("can not open output file");
443	res = SZ_ERROR_FAIL;	434	res = SZ_ERROR_FAIL;
444	break;	435	break;
445	}	436	}
446		437
447	processedSize = outSizeProcessed;	438	processedSize = outSizeProcessed;
448		439
449	if (File_Write(&outFile, outBuffer + offset, &processedSize) != 0 \|\| processedSize != outSizeProcessed)	440	if (File_Write(&outFile, outBuffer + offset, &processedSize) != 0 \|\| processedSize != outSizeProcessed)
450	{	441	{
451	PrintError("can not write output file");	442	PrintError("can not write output file\n");
452	res = SZ_ERROR_FAIL;	443	res = SZ_ERROR_FAIL;
453	break;	444	break;
454	}	445	}
455		446
456	if (File_Close(&outFile))	447	if (File_Close(&outFile))
457	{	448	{
458	PrintError("can not close output file");	449	PrintError("can not close output file\n");
459	res = SZ_ERROR_FAIL;	450	res = SZ_ERROR_FAIL;
460	break;	451	break;
461	}	452	}
462	};	453	};
463	continue;	-
464	};	454	};
-		455	IAlloc_Free(&allocImp, outBuffer);
465	};	456	};
-		457	SzArEx_Free(&db, &allocImp);
-		458	SzFree(NULL, temp);
-		459
-		460	File_Close(&archiveStream.file);
466	};	461	};
-		462
-		463	void do_install(list_t *install)
-		464	{
-		465	package_t pkg, tmp;
-		466	char *cache_path;
-		467
-		468	list_for_each_entry_safe(pkg, tmp, install, list)
-		469	{
-		470	cache_path = make_cache_path(pkg->filename);
-		471
-		472	sprintf(conbuf,"install package %s-%s\n", pkg->name, pkg->version);
-		473	con_write_asciiz(conbuf);
-		474
-		475	do_7z_unpack(cache_path);
-		476	list_del_pkg(pkg);
467		477	};
468	};	478	};

Subversion Repositories Kolibri OS

(root)/contrib/other/kpm/7z/7z.c – Rev 5729 → 5809