1 /* 7zMain.c - Test application for 7z Decoder
\r
2 2016-05-16 : Igor Pavlov : Public domain */
\r
9 #include "../../7z.h"
\r
10 #include "../../7zAlloc.h"
\r
11 #include "../../7zBuf.h"
\r
12 #include "../../7zCrc.h"
\r
13 #include "../../7zFile.h"
\r
14 #include "../../7zVersion.h"
\r
16 #ifndef USE_WINDOWS_FILE
\r
21 #include <sys/stat.h>
\r
26 static ISzAlloc g_Alloc = { SzAlloc, SzFree };
\r
28 static int Buf_EnsureSize(CBuf *dest, size_t size)
\r
30 if (dest->size >= size)
\r
32 Buf_Free(dest, &g_Alloc);
\r
33 return Buf_Create(dest, size, &g_Alloc);
\r
40 /* #define _USE_UTF8 */
\r
44 #define _UTF8_START(n) (0x100 - (1 << (7 - (n))))
\r
46 #define _UTF8_RANGE(n) (((UInt32)1) << ((n) * 5 + 6))
\r
48 #define _UTF8_HEAD(n, val) ((Byte)(_UTF8_START(n) + (val >> (6 * (n)))))
\r
49 #define _UTF8_CHAR(n, val) ((Byte)(0x80 + (((val) >> (6 * (n))) & 0x3F)))
\r
51 static size_t Utf16_To_Utf8_Calc(const UInt16 *src, const UInt16 *srcLim)
\r
66 if (val < _UTF8_RANGE(1))
\r
72 if (val >= 0xD800 && val < 0xDC00 && src != srcLim)
\r
75 if (c2 >= 0xDC00 && c2 < 0xE000)
\r
87 static Byte *Utf16_To_Utf8(Byte *dest, const UInt16 *src, const UInt16 *srcLim)
\r
99 *dest++ = (char)val;
\r
103 if (val < _UTF8_RANGE(1))
\r
105 dest[0] = _UTF8_HEAD(1, val);
\r
106 dest[1] = _UTF8_CHAR(0, val);
\r
111 if (val >= 0xD800 && val < 0xDC00 && src != srcLim)
\r
114 if (c2 >= 0xDC00 && c2 < 0xE000)
\r
117 val = (((val - 0xD800) << 10) | (c2 - 0xDC00)) + 0x10000;
\r
118 dest[0] = _UTF8_HEAD(3, val);
\r
119 dest[1] = _UTF8_CHAR(2, val);
\r
120 dest[2] = _UTF8_CHAR(1, val);
\r
121 dest[3] = _UTF8_CHAR(0, val);
\r
127 dest[0] = _UTF8_HEAD(2, val);
\r
128 dest[1] = _UTF8_CHAR(1, val);
\r
129 dest[2] = _UTF8_CHAR(0, val);
\r
134 static SRes Utf16_To_Utf8Buf(CBuf *dest, const UInt16 *src, size_t srcLen)
\r
136 size_t destLen = Utf16_To_Utf8_Calc(src, src + srcLen);
\r
138 if (!Buf_EnsureSize(dest, destLen))
\r
139 return SZ_ERROR_MEM;
\r
140 *Utf16_To_Utf8(dest->data, src, src + srcLen) = 0;
\r
146 static SRes Utf16_To_Char(CBuf *buf, const UInt16 *s
\r
153 for (len = 0; s[len] != 0; len++);
\r
157 unsigned size = len * 3 + 100;
\r
158 if (!Buf_EnsureSize(buf, size))
\r
159 return SZ_ERROR_MEM;
\r
164 char defaultChar = '_';
\r
166 unsigned numChars = 0;
\r
167 numChars = WideCharToMultiByte(codePage, 0, s, len, (char *)buf->data, size, &defaultChar, &defUsed);
\r
168 if (numChars == 0 || numChars >= size)
\r
169 return SZ_ERROR_FAIL;
\r
170 buf->data[numChars] = 0;
\r
176 return Utf16_To_Utf8Buf(buf, s, len);
\r
181 #ifndef USE_WINDOWS_FILE
\r
182 static UINT g_FileCodePage = CP_ACP;
\r
184 #define MY_FILE_CODE_PAGE_PARAM ,g_FileCodePage
\r
186 #define MY_FILE_CODE_PAGE_PARAM
\r
189 static WRes MyCreateDir(const UInt16 *name)
\r
191 #ifdef USE_WINDOWS_FILE
\r
193 return CreateDirectoryW(name, NULL) ? 0 : GetLastError();
\r
200 RINOK(Utf16_To_Char(&buf, name MY_FILE_CODE_PAGE_PARAM));
\r
204 _mkdir((const char *)buf.data)
\r
206 mkdir((const char *)buf.data, 0777)
\r
209 Buf_Free(&buf, &g_Alloc);
\r
215 static WRes OutFile_OpenUtf16(CSzFile *p, const UInt16 *name)
\r
217 #ifdef USE_WINDOWS_FILE
\r
218 return OutFile_OpenW(p, name);
\r
223 RINOK(Utf16_To_Char(&buf, name MY_FILE_CODE_PAGE_PARAM));
\r
224 res = OutFile_Open(p, (const char *)buf.data);
\r
225 Buf_Free(&buf, &g_Alloc);
\r
230 static SRes PrintString(const UInt16 *s)
\r
235 res = Utf16_To_Char(&buf, s
\r
241 fputs((const char *)buf.data, stdout);
\r
242 Buf_Free(&buf, &g_Alloc);
\r
246 static void UInt64ToStr(UInt64 value, char *s)
\r
252 temp[pos++] = (char)('0' + (unsigned)(value % 10));
\r
255 while (value != 0);
\r
257 *s++ = temp[--pos];
\r
262 static char *UIntToStr(char *s, unsigned value, int numDigits)
\r
267 temp[pos++] = (char)('0' + (value % 10));
\r
268 while (value /= 10);
\r
269 for (numDigits -= pos; numDigits > 0; numDigits--)
\r
272 *s++ = temp[--pos];
\r
278 static void UIntToStr_2(char *s, unsigned value)
\r
280 s[0] = (char)('0' + (value / 10));
\r
281 s[1] = (char)('0' + (value % 10));
\r
284 #define PERIOD_4 (4 * 365 + 1)
\r
285 #define PERIOD_100 (PERIOD_4 * 25 - 1)
\r
286 #define PERIOD_400 (PERIOD_100 * 4 + 1)
\r
288 static void ConvertFileTimeToString(const CNtfsFileTime *nt, char *s)
\r
290 unsigned year, mon, hour, min, sec;
\r
291 Byte ms[] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
\r
294 UInt64 v64 = nt->Low | ((UInt64)nt->High << 32);
\r
296 sec = (unsigned)(v64 % 60); v64 /= 60;
\r
297 min = (unsigned)(v64 % 60); v64 /= 60;
\r
298 hour = (unsigned)(v64 % 24); v64 /= 24;
\r
302 year = (unsigned)(1601 + v / PERIOD_400 * 400);
\r
305 t = v / PERIOD_100; if (t == 4) t = 3; year += t * 100; v -= t * PERIOD_100;
\r
306 t = v / PERIOD_4; if (t == 25) t = 24; year += t * 4; v -= t * PERIOD_4;
\r
307 t = v / 365; if (t == 4) t = 3; year += t; v -= t * 365;
\r
309 if (year % 4 == 0 && (year % 100 != 0 || year % 400 == 0))
\r
311 for (mon = 0;; mon++)
\r
313 unsigned d = ms[mon];
\r
318 s = UIntToStr(s, year, 4); *s++ = '-';
\r
319 UIntToStr_2(s, mon + 1); s[2] = '-'; s += 3;
\r
320 UIntToStr_2(s, (unsigned)v + 1); s[2] = ' '; s += 3;
\r
321 UIntToStr_2(s, hour); s[2] = ':'; s += 3;
\r
322 UIntToStr_2(s, min); s[2] = ':'; s += 3;
\r
323 UIntToStr_2(s, sec); s[2] = 0;
\r
326 void PrintError(char *sz)
\r
328 printf("\nERROR: %s\n", sz);
\r
331 static void GetAttribString(UInt32 wa, Bool isDir, char *s)
\r
333 #ifdef USE_WINDOWS_FILE
\r
334 s[0] = (char)(((wa & FILE_ATTRIBUTE_DIRECTORY) != 0 || isDir) ? 'D' : '.');
\r
335 s[1] = (char)(((wa & FILE_ATTRIBUTE_READONLY ) != 0) ? 'R': '.');
\r
336 s[2] = (char)(((wa & FILE_ATTRIBUTE_HIDDEN ) != 0) ? 'H': '.');
\r
337 s[3] = (char)(((wa & FILE_ATTRIBUTE_SYSTEM ) != 0) ? 'S': '.');
\r
338 s[4] = (char)(((wa & FILE_ATTRIBUTE_ARCHIVE ) != 0) ? 'A': '.');
\r
341 s[0] = (char)(((wa & (1 << 4)) != 0 || isDir) ? 'D' : '.');
\r
346 // #define NUM_PARENTS_MAX 128
\r
348 int MY_CDECL main(int numargs, char *args[])
\r
350 CFileInStream archiveStream;
\r
351 CLookToRead lookStream;
\r
355 ISzAlloc allocTempImp;
\r
356 UInt16 *temp = NULL;
\r
357 size_t tempSize = 0;
\r
358 // UInt32 parents[NUM_PARENTS_MAX];
\r
360 printf("\n7z ANSI-C Decoder " MY_VERSION_COPYRIGHT_DATE "\n\n");
\r
365 "Usage: 7zDec <command> <archive_name>\n\n"
\r
367 " e: Extract files from archive (without using directory names)\n"
\r
368 " l: List contents of archive\n"
\r
369 " t: Test integrity of archive\n"
\r
370 " x: eXtract files with full paths\n");
\r
376 PrintError("incorrect command");
\r
380 #if defined(_WIN32) && !defined(USE_WINDOWS_FILE) && !defined(UNDER_CE)
\r
381 g_FileCodePage = AreFileApisANSI() ? CP_ACP : CP_OEMCP;
\r
384 allocImp.Alloc = SzAlloc;
\r
385 allocImp.Free = SzFree;
\r
387 allocTempImp.Alloc = SzAllocTemp;
\r
388 allocTempImp.Free = SzFreeTemp;
\r
391 if (InFile_OpenW(&archiveStream.file, L"\test.7z"))
\r
393 if (InFile_Open(&archiveStream.file, args[2]))
\r
396 PrintError("can not open input file");
\r
400 FileInStream_CreateVTable(&archiveStream);
\r
401 LookToRead_CreateVTable(&lookStream, False);
\r
403 lookStream.realStream = &archiveStream.s;
\r
404 LookToRead_Init(&lookStream);
\r
406 CrcGenerateTable();
\r
410 res = SzArEx_Open(&db, &lookStream.s, &allocImp, &allocTempImp);
\r
414 char *command = args[1];
\r
415 int listCommand = 0, testCommand = 0, fullPaths = 0;
\r
417 if (strcmp(command, "l") == 0) listCommand = 1;
\r
418 else if (strcmp(command, "t") == 0) testCommand = 1;
\r
419 else if (strcmp(command, "e") == 0) { }
\r
420 else if (strcmp(command, "x") == 0) { fullPaths = 1; }
\r
423 PrintError("incorrect command");
\r
424 res = SZ_ERROR_FAIL;
\r
432 if you need cache, use these 3 variables.
\r
433 if you use external function, you can make these variable as static.
\r
435 UInt32 blockIndex = 0xFFFFFFFF; /* it can have any value before first call (if outBuffer = 0) */
\r
436 Byte *outBuffer = 0; /* it must be 0 before first call for each new archive. */
\r
437 size_t outBufferSize = 0; /* it can have any value before first call (if outBuffer = 0) */
\r
439 for (i = 0; i < db.NumFiles; i++)
\r
442 size_t outSizeProcessed = 0;
\r
443 // const CSzFileItem *f = db.Files + i;
\r
445 unsigned isDir = SzArEx_IsDir(&db, i);
\r
446 if (listCommand == 0 && isDir && !fullPaths)
\r
448 len = SzArEx_GetFileNameUtf16(&db, i, NULL);
\r
449 // len = SzArEx_GetFullNameLen(&db, i);
\r
451 if (len > tempSize)
\r
453 SzFree(NULL, temp);
\r
455 temp = (UInt16 *)SzAlloc(NULL, tempSize * sizeof(temp[0]));
\r
458 res = SZ_ERROR_MEM;
\r
463 SzArEx_GetFileNameUtf16(&db, i, temp);
\r
465 if (SzArEx_GetFullNameUtf16_Back(&db, i, temp + len) != temp)
\r
467 res = SZ_ERROR_FAIL;
\r
474 char attr[8], s[32], t[32];
\r
477 GetAttribString(SzBitWithVals_Check(&db.Attribs, i) ? db.Attribs.Vals[i] : 0, isDir, attr);
\r
479 fileSize = SzArEx_GetFileSize(&db, i);
\r
480 UInt64ToStr(fileSize, s);
\r
482 if (SzBitWithVals_Check(&db.MTime, i))
\r
483 ConvertFileTimeToString(&db.MTime.Vals[i], t);
\r
487 for (j = 0; j < 19; j++)
\r
492 printf("%s %s %10s ", t, attr, s);
\r
493 res = PrintString(temp);
\r
502 fputs(testCommand ?
\r
506 res = PrintString(temp);
\r
514 res = SzArEx_Extract(&db, &lookStream.s, i,
\r
515 &blockIndex, &outBuffer, &outBufferSize,
\r
516 &offset, &outSizeProcessed,
\r
517 &allocImp, &allocTempImp);
\r
525 size_t processedSize;
\r
527 UInt16 *name = (UInt16 *)temp;
\r
528 const UInt16 *destPath = (const UInt16 *)name;
\r
530 for (j = 0; name[j] != 0; j++)
\r
531 if (name[j] == '/')
\r
537 name[j] = CHAR_PATH_SEPARATOR;
\r
540 destPath = name + j + 1;
\r
545 MyCreateDir(destPath);
\r
549 else if (OutFile_OpenUtf16(&outFile, destPath))
\r
551 PrintError("can not open output file");
\r
552 res = SZ_ERROR_FAIL;
\r
556 processedSize = outSizeProcessed;
\r
558 if (File_Write(&outFile, outBuffer + offset, &processedSize) != 0 || processedSize != outSizeProcessed)
\r
560 PrintError("can not write output file");
\r
561 res = SZ_ERROR_FAIL;
\r
565 if (File_Close(&outFile))
\r
567 PrintError("can not close output file");
\r
568 res = SZ_ERROR_FAIL;
\r
572 #ifdef USE_WINDOWS_FILE
\r
573 if (SzBitWithVals_Check(&db.Attribs, i))
\r
574 SetFileAttributesW(destPath, db.Attribs.Vals[i]);
\r
579 IAlloc_Free(&allocImp, outBuffer);
\r
583 SzArEx_Free(&db, &allocImp);
\r
584 SzFree(NULL, temp);
\r
586 File_Close(&archiveStream.file);
\r
590 printf("\nEverything is Ok\n");
\r
594 if (res == SZ_ERROR_UNSUPPORTED)
\r
595 PrintError("decoder doesn't support this archive");
\r
596 else if (res == SZ_ERROR_MEM)
\r
597 PrintError("can not allocate memory");
\r
598 else if (res == SZ_ERROR_CRC)
\r
599 PrintError("CRC error");
\r
601 printf("\nERROR #%d\n", res);
\r