Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Merge 8.7 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | tip-548 |
| Files: | files | file ages | folders |
| SHA3-256: |
7aad571c32d4625018c97cba39a61c3c |
| User & Date: | jan.nijtmans 2019-08-15 15:33:46.721 |
Context
|
2019-08-26
| ||
| 09:06 | Merge 8.7 check-in: e2284f7238 user: jan.nijtmans tags: tip-548 | |
|
2019-08-15
| ||
| 15:33 | Merge 8.7 check-in: 7aad571c32 user: jan.nijtmans tags: tip-548 | |
| 15:31 | Make zipfsFilesystem static (as the name - not starting with Tcl - suggests). Also remove one unneed... check-in: 91bd815b74 user: jan.nijtmans tags: core-8-branch | |
| 08:59 | Merge 8.7 check-in: 42a10393d8 user: jan.nijtmans tags: tip-548 | |
Changes
Changes to compat/zlib/contrib/minizip/crypt.h.
| ︙ | ︙ | |||
53 54 55 56 57 58 59 |
*/
static int update_keys(unsigned long* pkeys,const z_crc_t* pcrc_32_tab,int c)
{
(*(pkeys+0)) = CRC32((*(pkeys+0)), c);
(*(pkeys+1)) += (*(pkeys+0)) & 0xff;
(*(pkeys+1)) = (*(pkeys+1)) * 134775813L + 1;
{
| | | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
*/
static int update_keys(unsigned long* pkeys,const z_crc_t* pcrc_32_tab,int c)
{
(*(pkeys+0)) = CRC32((*(pkeys+0)), c);
(*(pkeys+1)) += (*(pkeys+0)) & 0xff;
(*(pkeys+1)) = (*(pkeys+1)) * 134775813L + 1;
{
register int keyshift = (int)((*(pkeys+1)) >> 24);
(*(pkeys+2)) = CRC32((*(pkeys+2)), keyshift);
}
return c;
}
/***********************************************************************
|
| ︙ | ︙ |
Changes to generic/tclZipfs.c.
| ︙ | ︙ | |||
395 396 397 398 399 400 401 | static int ZipChannelWrite(void *instanceData, const char *buf, int toWrite, int *errloc); /* * Define the ZIP filesystem dispatch table. */ | < < | | 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 |
static int ZipChannelWrite(void *instanceData,
const char *buf, int toWrite, int *errloc);
/*
* Define the ZIP filesystem dispatch table.
*/
static const Tcl_Filesystem zipfsFilesystem = {
"zipfs",
sizeof(Tcl_Filesystem),
TCL_FILESYSTEM_VERSION_2,
ZipFSPathInFilesystemProc,
NULL, /* dupInternalRepProc */
NULL, /* freeInternalRepProc */
NULL, /* internalToNormalizedProc */
|
| ︙ | ︙ | |||
4725 4726 4727 4728 4729 4730 4731 | * Side effects: * Initializes this module if not already initialized, and adds module * related commands to the given interpreter. * *------------------------------------------------------------------------- */ | | | 4723 4724 4725 4726 4727 4728 4729 4730 4731 4732 4733 4734 4735 4736 4737 |
* Side effects:
* Initializes this module if not already initialized, and adds module
* related commands to the given interpreter.
*
*-------------------------------------------------------------------------
*/
int
TclZipfs_Init(
Tcl_Interp *interp) /* Current interpreter. */
{
#ifdef HAVE_ZLIB
static const EnsembleImplMap initMap[] = {
{"mkimg", ZipFSMkImgObjCmd, NULL, NULL, NULL, 1},
{"mkzip", ZipFSMkZipObjCmd, NULL, NULL, NULL, 1},
|
| ︙ | ︙ |