Attachment "tar.c" to
ticket [831b932db4]
added by
anonymous
2011-03-03 09:52:30.
0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20 /*.** Copyright
0010: 28 63 29 20 32 30 31 31 20 52 6f 79 20 53 2e 20 (c) 2011 Roy S.
0020: 4b 65 65 6e 65 0a 2a 2a 0a 2a 2a 20 54 68 69 73 Keene.**.** This
0030: 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 program is free
0040: 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 software; you c
0050: 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 an redistribute
0060: 69 74 20 61 6e 64 2f 6f 72 0a 2a 2a 20 6d 6f 64 it and/or.** mod
0070: 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 ify it under the
0080: 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 53 69 terms of the Si
0090: 6d 70 6c 69 66 69 65 64 20 42 53 44 20 4c 69 63 mplified BSD Lic
00a0: 65 6e 73 65 20 28 61 6c 73 6f 0a 2a 2a 20 6b 6e ense (also.** kn
00b0: 6f 77 6e 20 61 73 20 74 68 65 20 22 32 2d 43 6c own as the "2-Cl
00c0: 61 75 73 65 20 4c 69 63 65 6e 73 65 22 20 6f 72 ause License" or
00d0: 20 22 46 72 65 65 42 53 44 20 4c 69 63 65 6e 73 "FreeBSD Licens
00e0: 65 22 2e 29 0a 0a 2a 2a 20 54 68 69 73 20 70 72 e".)..** This pr
00f0: 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 ogram is distrib
0100: 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 uted in the hope
0110: 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 that it will be
0120: 20 75 73 65 66 75 6c 2c 0a 2a 2a 20 62 75 74 20 useful,.** but
0130: 77 69 74 68 6f 75 74 20 61 6e 79 20 77 61 72 72 without any warr
0140: 61 6e 74 79 3b 20 77 69 74 68 6f 75 74 20 65 76 anty; without ev
0150: 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 en the implied w
0160: 61 72 72 61 6e 74 79 20 6f 66 0a 2a 2a 20 6d 65 arranty of.** me
0170: 72 63 68 61 6e 74 61 62 69 6c 69 74 79 20 6f 72 rchantability or
0180: 20 66 69 74 6e 65 73 73 20 66 6f 72 20 61 20 70 fitness for a p
0190: 61 72 74 69 63 75 6c 61 72 20 70 75 72 70 6f 73 articular purpos
01a0: 65 2e 0a 2a 2a 0a 2a 2a 20 41 75 74 68 6f 72 20 e..**.** Author
01b0: 63 6f 6e 74 61 63 74 20 69 6e 66 6f 72 6d 61 74 contact informat
01c0: 69 6f 6e 3a 0a 2a 2a 20 20 20 66 6f 73 73 69 6c ion:.** fossil
01d0: 40 72 6b 65 65 6e 65 2e 6f 72 67 0a 2a 2a 20 20 @rkeene.org.**
01e0: 20 68 74 74 70 3a 2f 2f 77 77 77 2e 72 6b 65 65 http://www.rkee
01f0: 6e 65 2e 6f 72 67 2f 0a 2a 2a 0a 2a 2a 2a 2a 2a ne.org/.**.*****
0200: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0210: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0220: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0230: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0240: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a 2a 0a 2a 2a **********.**.**
0250: 20 54 68 69 73 20 66 69 6c 65 20 63 6f 6e 74 61 This file conta
0260: 69 6e 73 20 63 6f 64 65 20 75 73 65 64 20 74 6f ins code used to
0270: 20 67 65 6e 65 72 61 74 65 20 55 53 54 41 52 20 generate USTAR
0280: 67 7a 69 70 27 64 20 61 72 63 68 69 76 65 73 2e gzip'd archives.
0290: 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 3c 61 73 .*/.#include <as
02a0: 73 65 72 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 sert.h>.#include
02b0: 20 3c 7a 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 <zlib.h>.#inclu
02c0: 64 65 20 22 63 6f 6e 66 69 67 2e 68 22 0a 23 69 de "config.h".#i
02d0: 6e 63 6c 75 64 65 20 22 74 61 72 2e 68 22 0a 0a nclude "tar.h"..
02e0: 2f 2a 20 43 6f 6e 76 65 72 74 20 61 20 46 6f 73 /* Convert a Fos
02f0: 73 69 6c 20 64 61 74 65 20 74 6f 20 61 20 55 4e sil date to a UN
0300: 49 58 20 64 61 74 65 20 2a 2f 0a 73 74 61 74 69 IX date */.stati
0310: 63 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 c unsigned long
0320: 67 65 74 5f 75 6e 69 78 5f 74 69 6d 65 5f 66 72 get_unix_time_fr
0330: 6f 6d 5f 66 6f 73 73 69 6c 28 64 6f 75 62 6c 65 om_fossil(double
0340: 20 72 44 61 74 65 29 20 7b 0a 09 75 6e 73 69 67 rDate) {..unsig
0350: 6e 65 64 20 6c 6f 6e 67 20 75 6e 69 78 54 69 6d ned long unixTim
0360: 65 3b 0a 0a 09 75 6e 69 78 54 69 6d 65 20 3d 20 e;...unixTime =
0370: 28 72 44 61 74 65 20 2d 20 32 34 34 30 35 38 37 (rDate - 2440587
0380: 2e 35 29 20 2a 20 38 36 34 30 30 2e 30 3b 0a 0a .5) * 86400.0;..
0390: 09 72 65 74 75 72 6e 28 75 6e 69 78 54 69 6d 65 .return(unixTime
03a0: 29 3b 0a 7d 0a 0a 0a 2f 2a 0a 20 2a 2a 20 49 6e );.}.../*. ** In
03b0: 69 74 69 61 6c 69 7a 65 20 61 20 6e 65 77 20 74 itialize a new t
03c0: 61 72 2e 67 7a 20 61 72 63 68 69 76 65 2e 0a 20 ar.gz archive..
03d0: 2a 2f 0a 76 6f 69 64 20 74 67 7a 5f 6f 70 65 6e */.void tgz_open
03e0: 28 42 6c 6f 62 20 2a 70 54 61 72 29 20 7b 0a 09 (Blob *pTar) {..
03f0: 62 6c 6f 62 5f 7a 65 72 6f 28 70 54 61 72 29 3b blob_zero(pTar);
0400: 0a 0a 09 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f ...return;.}..vo
0410: 69 64 20 74 67 7a 5f 63 6c 6f 73 65 28 42 6c 6f id tgz_close(Blo
0420: 62 20 2a 70 54 61 72 29 20 7b 0a 09 75 6e 73 69 b *pTar) {..unsi
0430: 67 6e 65 64 20 63 68 61 72 20 67 7a 69 70 5f 68 gned char gzip_h
0440: 65 61 64 65 72 5b 31 30 5d 2c 20 67 7a 69 70 5f eader[10], gzip_
0450: 74 72 61 69 6c 65 72 5b 38 5d 3b 0a 09 75 6e 73 trailer[8];..uns
0460: 69 67 6e 65 64 20 6c 6f 6e 67 20 74 61 72 5f 6c igned long tar_l
0470: 65 6e 67 74 68 2c 20 74 61 72 5f 63 68 65 63 6b ength, tar_check
0480: 73 75 6d 3b 0a 09 63 68 61 72 20 74 61 72 5f 68 sum;..char tar_h
0490: 65 61 64 65 72 5b 35 31 32 5d 3b 0a 09 42 6c 6f eader[512];..Blo
04a0: 62 20 74 65 6d 70 5f 62 6c 6f 62 3b 0a 0a 09 2f b temp_blob;.../
04b0: 2a 20 54 65 72 6d 69 6e 61 74 65 20 77 69 74 68 * Terminate with
04c0: 20 32 20 62 6c 61 6e 6b 20 62 6c 6f 63 6b 73 20 2 blank blocks
04d0: 2a 2f 0a 09 6d 65 6d 73 65 74 28 74 61 72 5f 68 */..memset(tar_h
04e0: 65 61 64 65 72 2c 20 27 5c 30 27 2c 20 73 69 7a eader, '\0', siz
04f0: 65 6f 66 28 74 61 72 5f 68 65 61 64 65 72 29 29 eof(tar_header))
0500: 3b 0a 09 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 ;..blob_append(p
0510: 54 61 72 2c 20 74 61 72 5f 68 65 61 64 65 72 2c Tar, tar_header,
0520: 20 73 69 7a 65 6f 66 28 74 61 72 5f 68 65 61 64 sizeof(tar_head
0530: 65 72 29 29 3b 0a 09 62 6c 6f 62 5f 61 70 70 65 er));..blob_appe
0540: 6e 64 28 70 54 61 72 2c 20 74 61 72 5f 68 65 61 nd(pTar, tar_hea
0550: 64 65 72 2c 20 73 69 7a 65 6f 66 28 74 61 72 5f der, sizeof(tar_
0560: 68 65 61 64 65 72 29 29 3b 0a 0a 09 2f 2a 20 53 header));.../* S
0570: 74 6f 72 65 20 43 52 43 33 32 20 61 6e 64 20 6c tore CRC32 and l
0580: 65 6e 67 74 68 20 6f 66 20 75 6e 63 6f 6d 70 72 ength of uncompr
0590: 65 73 73 65 64 20 64 61 74 61 20 66 6f 72 20 6c essed data for l
05a0: 61 74 65 72 20 75 73 65 20 2a 2f 0a 09 74 61 72 ater use */..tar
05b0: 5f 6c 65 6e 67 74 68 20 3d 20 62 6c 6f 62 5f 73 _length = blob_s
05c0: 69 7a 65 28 70 54 61 72 29 3b 0a 09 74 61 72 5f ize(pTar);..tar_
05d0: 63 68 65 63 6b 73 75 6d 20 3d 20 63 72 63 33 32 checksum = crc32
05e0: 28 30 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 09 74 (0, NULL, 0);..t
05f0: 61 72 5f 63 68 65 63 6b 73 75 6d 20 3d 20 63 72 ar_checksum = cr
0600: 63 33 32 28 74 61 72 5f 63 68 65 63 6b 73 75 6d c32(tar_checksum
0610: 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 , (unsigned char
0620: 20 2a 29 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 *) blob_buffer(
0630: 70 54 61 72 29 2c 20 62 6c 6f 62 5f 73 69 7a 65 pTar), blob_size
0640: 28 70 54 61 72 29 29 3b 0a 0a 09 2f 2a 20 43 6f (pTar));.../* Co
0650: 6d 70 72 65 73 73 20 64 61 74 61 20 2a 2f 0a 09 mpress data */..
0660: 62 6c 6f 62 5f 63 6f 6d 70 72 65 73 73 28 70 54 blob_compress(pT
0670: 61 72 2c 20 70 54 61 72 29 3b 0a 0a 09 2f 2a 20 ar, pTar);.../*
0680: 47 5a 49 50 20 48 65 61 64 65 72 20 66 72 6f 6d GZIP Header from
0690: 20 46 72 6f 6d 20 52 46 43 20 31 39 35 32 20 2a From RFC 1952 *
06a0: 2f 0a 09 2f 2a 2a 20 49 44 31 20 61 6e 64 20 49 /../** ID1 and I
06b0: 44 32 20 2a 2a 2f 0a 09 67 7a 69 70 5f 68 65 61 D2 **/..gzip_hea
06c0: 64 65 72 5b 30 5d 20 3d 20 30 78 31 46 3b 0a 09 der[0] = 0x1F;..
06d0: 67 7a 69 70 5f 68 65 61 64 65 72 5b 31 5d 20 3d gzip_header[1] =
06e0: 20 30 78 38 42 3b 0a 0a 09 2f 2a 2a 20 43 6f 6d 0x8B;.../** Com
06f0: 70 72 65 73 73 69 6f 6e 20 4d 65 74 68 6f 64 20 pression Method
0700: 28 43 4d 29 20 2a 2a 2f 0a 09 67 7a 69 70 5f 68 (CM) **/..gzip_h
0710: 65 61 64 65 72 5b 32 5d 20 3d 20 38 3b 20 2f 2a eader[2] = 8; /*
0720: 20 44 65 66 6c 61 74 65 20 2a 2f 0a 0a 09 2f 2a Deflate */.../*
0730: 2a 20 46 6c 61 67 73 20 28 46 4c 47 29 20 2a 2a * Flags (FLG) **
0740: 2f 0a 09 67 7a 69 70 5f 68 65 61 64 65 72 5b 33 /..gzip_header[3
0750: 5d 20 3d 20 30 3b 0a 0a 09 2f 2a 2a 20 4d 6f 64 ] = 0;.../** Mod
0760: 69 66 69 63 61 74 69 6f 6e 20 54 69 6d 65 20 28 ification Time (
0770: 4d 54 49 4d 45 29 20 2a 2a 2f 0a 09 67 7a 69 70 MTIME) **/..gzip
0780: 5f 68 65 61 64 65 72 5b 34 5d 20 3d 20 30 3b 0a _header[4] = 0;.
0790: 09 67 7a 69 70 5f 68 65 61 64 65 72 5b 35 5d 20 .gzip_header[5]
07a0: 3d 20 30 3b 0a 09 67 7a 69 70 5f 68 65 61 64 65 = 0;..gzip_heade
07b0: 72 5b 36 5d 20 3d 20 30 3b 0a 09 67 7a 69 70 5f r[6] = 0;..gzip_
07c0: 68 65 61 64 65 72 5b 37 5d 20 3d 20 30 3b 0a 0a header[7] = 0;..
07d0: 09 2f 2a 2a 20 45 78 74 72 61 20 46 6c 61 67 73 ./** Extra Flags
07e0: 2c 20 74 79 70 65 20 6f 66 20 63 6f 6d 70 72 65 , type of compre
07f0: 73 73 69 6f 6e 20 75 73 65 64 20 28 58 46 4c 29 ssion used (XFL)
0800: 20 2a 2a 2f 0a 09 67 7a 69 70 5f 68 65 61 64 65 **/..gzip_heade
0810: 72 5b 38 5d 20 3d 20 30 3b 20 2f 2a 20 44 65 66 r[8] = 0; /* Def
0820: 61 75 6c 74 20 2a 2f 0a 0a 09 2f 2a 2a 20 4f 70 ault */.../** Op
0830: 65 72 61 74 69 6e 67 20 53 79 73 74 65 6d 20 28 erating System (
0840: 4f 53 29 20 2a 2a 2f 0a 09 67 7a 69 70 5f 68 65 OS) **/..gzip_he
0850: 61 64 65 72 5b 39 5d 20 3d 20 32 35 35 3b 0a 0a ader[9] = 255;..
0860: 09 2f 2a 2a 20 55 6e 63 6f 6d 70 72 65 73 73 65 ./** Uncompresse
0870: 64 20 64 61 74 61 20 43 52 43 33 32 20 28 43 52 d data CRC32 (CR
0880: 43 33 32 29 20 2a 2a 2f 0a 09 67 7a 69 70 5f 74 C32) **/..gzip_t
0890: 72 61 69 6c 65 72 5b 33 5d 20 3d 20 28 74 61 72 railer[3] = (tar
08a0: 5f 63 68 65 63 6b 73 75 6d 20 3e 3e 20 32 34 29 _checksum >> 24)
08b0: 20 26 20 30 78 66 66 3b 0a 09 67 7a 69 70 5f 74 & 0xff;..gzip_t
08c0: 72 61 69 6c 65 72 5b 32 5d 20 3d 20 28 74 61 72 railer[2] = (tar
08d0: 5f 63 68 65 63 6b 73 75 6d 20 3e 3e 20 31 36 29 _checksum >> 16)
08e0: 20 26 20 30 78 66 66 3b 0a 09 67 7a 69 70 5f 74 & 0xff;..gzip_t
08f0: 72 61 69 6c 65 72 5b 31 5d 20 3d 20 28 74 61 72 railer[1] = (tar
0900: 5f 63 68 65 63 6b 73 75 6d 20 3e 3e 20 20 38 29 _checksum >> 8)
0910: 20 26 20 30 78 66 66 3b 0a 09 67 7a 69 70 5f 74 & 0xff;..gzip_t
0920: 72 61 69 6c 65 72 5b 30 5d 20 3d 20 28 74 61 72 railer[0] = (tar
0930: 5f 63 68 65 63 6b 73 75 6d 20 3e 3e 20 20 30 29 _checksum >> 0)
0940: 20 26 20 30 78 66 66 3b 0a 0a 09 2f 2a 2a 20 55 & 0xff;.../** U
0950: 6e 63 6f 6d 70 72 65 73 73 65 64 20 73 69 7a 65 ncompressed size
0960: 20 28 49 53 49 5a 45 29 20 2a 2a 2f 0a 09 67 7a (ISIZE) **/..gz
0970: 69 70 5f 74 72 61 69 6c 65 72 5b 37 5d 20 3d 20 ip_trailer[7] =
0980: 28 74 61 72 5f 6c 65 6e 67 74 68 20 3e 3e 20 32 (tar_length >> 2
0990: 34 29 20 26 20 30 78 66 66 3b 0a 09 67 7a 69 70 4) & 0xff;..gzip
09a0: 5f 74 72 61 69 6c 65 72 5b 36 5d 20 3d 20 28 74 _trailer[6] = (t
09b0: 61 72 5f 6c 65 6e 67 74 68 20 3e 3e 20 31 36 29 ar_length >> 16)
09c0: 20 26 20 30 78 66 66 3b 0a 09 67 7a 69 70 5f 74 & 0xff;..gzip_t
09d0: 72 61 69 6c 65 72 5b 35 5d 20 3d 20 28 74 61 72 railer[5] = (tar
09e0: 5f 6c 65 6e 67 74 68 20 3e 3e 20 20 38 29 20 26 _length >> 8) &
09f0: 20 30 78 66 66 3b 0a 09 67 7a 69 70 5f 74 72 61 0xff;..gzip_tra
0a00: 69 6c 65 72 5b 34 5d 20 3d 20 28 74 61 72 5f 6c iler[4] = (tar_l
0a10: 65 6e 67 74 68 20 3e 3e 20 20 30 29 20 26 20 30 ength >> 0) & 0
0a20: 78 66 66 3b 0a 0a 09 2f 2a 20 43 6f 6d 62 69 6e xff;.../* Combin
0a30: 65 20 68 65 61 64 65 72 2c 20 64 61 74 61 2c 20 e header, data,
0a40: 61 6e 64 20 74 72 61 69 6c 65 72 20 69 6e 74 6f and trailer into
0a50: 20 74 65 6d 70 6f 72 61 72 79 20 62 6c 6f 62 20 temporary blob
0a60: 2a 2f 0a 09 62 6c 6f 62 5f 7a 65 72 6f 28 26 74 */..blob_zero(&t
0a70: 65 6d 70 5f 62 6c 6f 62 29 3b 0a 0a 09 2f 2a 2a emp_blob);.../**
0a80: 20 41 70 70 65 6e 64 20 67 7a 69 70 20 68 65 61 Append gzip hea
0a90: 64 65 72 20 74 6f 20 62 75 66 66 65 72 20 2a 2a der to buffer **
0aa0: 2f 0a 09 62 6c 6f 62 5f 61 70 70 65 6e 64 28 26 /..blob_append(&
0ab0: 74 65 6d 70 5f 62 6c 6f 62 2c 20 28 63 68 61 72 temp_blob, (char
0ac0: 20 2a 29 20 67 7a 69 70 5f 68 65 61 64 65 72 2c *) gzip_header,
0ad0: 20 73 69 7a 65 6f 66 28 67 7a 69 70 5f 68 65 61 sizeof(gzip_hea
0ae0: 64 65 72 29 29 3b 0a 0a 09 2f 2a 2a 20 41 70 70 der));.../** App
0af0: 65 6e 64 20 64 61 74 61 20 74 6f 20 62 75 66 66 end data to buff
0b00: 65 72 20 2a 2a 2f 0a 09 69 66 20 28 62 6c 6f 62 er **/..if (blob
0b10: 5f 73 69 7a 65 28 70 54 61 72 29 20 3e 3d 20 31 _size(pTar) >= 1
0b20: 30 29 20 7b 0a 09 09 62 6c 6f 62 5f 61 70 70 65 0) {...blob_appe
0b30: 6e 64 28 26 74 65 6d 70 5f 62 6c 6f 62 2c 20 62 nd(&temp_blob, b
0b40: 6c 6f 62 5f 62 75 66 66 65 72 28 70 54 61 72 29 lob_buffer(pTar)
0b50: 20 2b 20 36 2c 20 62 6c 6f 62 5f 73 69 7a 65 28 + 6, blob_size(
0b60: 70 54 61 72 29 20 2d 20 31 30 29 3b 0a 09 7d 0a pTar) - 10);..}.
0b70: 0a 09 2f 2a 2a 20 41 70 70 65 6e 64 20 74 72 61 ../** Append tra
0b80: 69 6c 65 72 20 74 6f 20 62 75 66 66 65 72 20 2a iler to buffer *
0b90: 2a 2f 0a 09 62 6c 6f 62 5f 61 70 70 65 6e 64 28 */..blob_append(
0ba0: 26 74 65 6d 70 5f 62 6c 6f 62 2c 20 28 63 68 61 &temp_blob, (cha
0bb0: 72 20 2a 29 20 67 7a 69 70 5f 74 72 61 69 6c 65 r *) gzip_traile
0bc0: 72 2c 20 73 69 7a 65 6f 66 28 67 7a 69 70 5f 74 r, sizeof(gzip_t
0bd0: 72 61 69 6c 65 72 29 29 3b 0a 0a 09 2f 2a 20 43 railer));.../* C
0be0: 6f 70 79 20 74 65 6d 70 6f 72 61 72 79 20 62 6c opy temporary bl
0bf0: 6f 62 20 74 6f 20 6f 75 74 70 75 74 20 62 6c 6f ob to output blo
0c00: 62 20 2a 2f 0a 09 62 6c 6f 62 5f 63 6f 70 79 28 b */..blob_copy(
0c10: 70 54 61 72 2c 20 26 74 65 6d 70 5f 62 6c 6f 62 pTar, &temp_blob
0c20: 29 3b 0a 0a 09 2f 2a 20 52 65 6c 65 61 73 65 20 );.../* Release
0c30: 74 65 6d 70 6f 72 61 72 79 20 62 6c 6f 62 20 2a temporary blob *
0c40: 2f 0a 09 62 6c 6f 62 5f 7a 65 72 6f 28 26 74 65 /..blob_zero(&te
0c50: 6d 70 5f 62 6c 6f 62 29 3b 0a 0a 09 72 65 74 75 mp_blob);...retu
0c60: 72 6e 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 70 70 rn;.}../*.** App
0c70: 65 6e 64 20 61 20 73 69 6e 67 6c 65 20 66 69 6c end a single fil
0c80: 65 20 74 6f 20 61 20 67 72 6f 77 69 6e 67 20 74 e to a growing t
0c90: 61 72 2e 67 7a 20 61 72 63 68 69 76 65 2e 0a 2a ar.gz archive..*
0ca0: 2a 0a 2a 2a 20 70 46 69 6c 65 20 69 73 20 74 68 *.** pFile is th
0cb0: 65 20 66 69 6c 65 20 74 6f 20 62 65 20 61 70 70 e file to be app
0cc0: 65 6e 64 65 64 2e 20 20 7a 4e 61 6d 65 20 69 73 ended. zName is
0cd0: 20 74 68 65 20 6e 61 6d 65 0a 2a 2a 20 74 68 61 the name.** tha
0ce0: 74 20 74 68 65 20 66 69 6c 65 20 73 68 6f 75 6c t the file shoul
0cf0: 64 20 62 65 20 73 61 76 65 64 20 61 73 2e 0a 2a d be saved as..*
0d00: 2f 0a 76 6f 69 64 20 74 67 7a 5f 61 64 64 5f 66 /.void tgz_add_f
0d10: 69 6c 65 28 42 6c 6f 62 20 2a 70 54 61 72 2c 20 ile(Blob *pTar,
0d20: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d const char *zNam
0d30: 65 2c 20 63 6f 6e 73 74 20 42 6c 6f 62 20 2a 70 e, const Blob *p
0d40: 46 69 6c 65 2c 20 75 6e 73 69 67 6e 65 64 20 6c File, unsigned l
0d50: 6f 6e 67 20 66 69 6c 65 5f 6d 74 69 6d 65 2c 20 ong file_mtime,
0d60: 69 6e 74 20 65 78 65 63 75 74 61 62 6c 65 29 20 int executable)
0d70: 7b 0a 09 63 68 61 72 20 74 61 72 5f 68 65 61 64 {..char tar_head
0d80: 65 72 5b 35 31 32 5d 2c 20 74 61 72 5f 70 61 64 er[512], tar_pad
0d90: 64 69 6e 67 5b 35 31 32 5d 3b 0a 09 63 68 61 72 ding[512];..char
0da0: 20 2a 6c 6f 63 61 6c 5f 7a 4e 61 6d 65 20 3d 20 *local_zName =
0db0: 4e 55 4c 4c 2c 20 2a 64 69 72 6e 61 6d 65 2c 20 NULL, *dirname,
0dc0: 2a 66 69 6c 65 6e 61 6d 65 3b 0a 09 75 6e 73 69 *filename;..unsi
0dd0: 67 6e 65 64 20 6c 6f 6e 67 20 74 61 72 5f 63 68 gned long tar_ch
0de0: 65 63 6b 73 75 6d 3b 0a 09 75 6e 73 69 67 6e 65 ecksum;..unsigne
0df0: 64 20 69 6e 74 20 74 61 72 5f 6d 6f 64 65 2c 20 d int tar_mode,
0e00: 74 61 72 5f 74 79 70 65 3b 0a 09 69 6e 74 20 74 tar_type;..int t
0e10: 61 72 5f 70 61 64 64 69 6e 67 5f 62 79 74 65 73 ar_padding_bytes
0e20: 3b 0a 09 69 6e 74 20 69 3b 0a 0a 09 69 66 20 28 ;..int i;...if (
0e30: 73 74 72 6c 65 6e 28 7a 4e 61 6d 65 29 20 3c 20 strlen(zName) <
0e40: 31 30 30 29 20 7b 0a 09 09 66 69 6c 65 6e 61 6d 100) {...filenam
0e50: 65 20 3d 20 28 63 68 61 72 20 2a 29 20 7a 4e 61 e = (char *) zNa
0e60: 6d 65 3b 0a 09 09 64 69 72 6e 61 6d 65 20 3d 20 me;...dirname =
0e70: 22 22 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 "";..} else {...
0e80: 6c 6f 63 61 6c 5f 7a 4e 61 6d 65 20 3d 20 73 74 local_zName = st
0e90: 72 64 75 70 28 7a 4e 61 6d 65 29 3b 0a 0a 09 09 rdup(zName);....
0ea0: 2f 2a 0a 09 09 20 2a 20 53 70 6c 69 74 20 74 68 /*... * Split th
0eb0: 65 20 66 69 6c 65 6e 61 6d 65 20 69 6e 74 6f 20 e filename into
0ec0: 32 20 70 61 72 74 73 2c 20 74 68 65 20 64 69 72 2 parts, the dir
0ed0: 65 63 74 6f 72 79 20 6e 61 6d 65 20 61 6e 64 0a ectory name and.
0ee0: 09 09 20 2a 20 74 68 65 20 66 69 6c 65 20 6e 61 .. * the file na
0ef0: 6d 65 2e 20 20 55 53 54 41 52 20 61 6c 6c 6f 77 me. USTAR allow
0f00: 73 20 75 73 20 74 6f 20 66 69 74 20 6c 6f 6e 67 s us to fit long
0f10: 65 72 20 66 69 6c 65 20 6e 61 6d 65 73 0a 09 09 er file names...
0f20: 20 2a 20 69 66 20 77 65 20 64 6f 20 74 68 69 73 * if we do this
0f30: 2e 0a 09 09 20 2a 2f 0a 09 09 66 69 6c 65 6e 61 .... */...filena
0f40: 6d 65 20 3d 20 73 74 72 72 63 68 72 28 6c 6f 63 me = strrchr(loc
0f50: 61 6c 5f 7a 4e 61 6d 65 2c 20 27 2f 27 29 3b 0a al_zName, '/');.
0f60: 09 09 69 66 20 28 66 69 6c 65 6e 61 6d 65 29 20 ..if (filename)
0f70: 7b 0a 09 09 09 2a 66 69 6c 65 6e 61 6d 65 20 3d {....*filename =
0f80: 20 27 5c 30 27 3b 0a 09 09 09 66 69 6c 65 6e 61 '\0';....filena
0f90: 6d 65 2b 2b 3b 0a 0a 09 09 09 64 69 72 6e 61 6d me++;.....dirnam
0fa0: 65 20 3d 20 6c 6f 63 61 6c 5f 7a 4e 61 6d 65 3b e = local_zName;
0fb0: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 66 ...} else {....f
0fc0: 69 6c 65 6e 61 6d 65 20 3d 20 6c 6f 63 61 6c 5f ilename = local_
0fd0: 7a 4e 61 6d 65 3b 0a 09 09 09 64 69 72 6e 61 6d zName;....dirnam
0fe0: 65 20 3d 20 22 22 3b 0a 09 09 7d 0a 09 7d 0a 0a e = "";...}..}..
0ff0: 09 2f 2a 20 56 65 72 69 66 79 20 74 68 61 74 20 ./* Verify that
1000: 74 68 65 20 66 69 6c 65 20 61 74 74 72 69 62 75 the file attribu
1010: 74 65 73 20 63 61 6e 20 66 69 74 20 69 6e 74 6f tes can fit into
1020: 20 61 20 55 53 54 41 52 20 68 65 61 64 65 72 20 a USTAR header
1030: 2a 2f 0a 09 69 66 20 28 73 74 72 6c 65 6e 28 66 */..if (strlen(f
1040: 69 6c 65 6e 61 6d 65 29 20 3e 3d 20 31 30 30 29 ilename) >= 100)
1050: 20 7b 0a 09 09 69 66 20 28 6c 6f 63 61 6c 5f 7a {...if (local_z
1060: 4e 61 6d 65 29 20 7b 0a 09 09 09 66 72 65 65 28 Name) {....free(
1070: 6c 6f 63 61 6c 5f 7a 4e 61 6d 65 29 3b 0a 09 09 local_zName);...
1080: 7d 0a 0a 09 09 72 65 74 75 72 6e 3b 0a 09 7d 0a }....return;..}.
1090: 0a 09 69 66 20 28 73 74 72 6c 65 6e 28 64 69 72 ..if (strlen(dir
10a0: 6e 61 6d 65 29 20 3e 3d 20 31 35 35 29 20 7b 0a name) >= 155) {.
10b0: 09 09 69 66 20 28 6c 6f 63 61 6c 5f 7a 4e 61 6d ..if (local_zNam
10c0: 65 29 20 7b 0a 09 09 09 66 72 65 65 28 6c 6f 63 e) {....free(loc
10d0: 61 6c 5f 7a 4e 61 6d 65 29 3b 0a 09 09 7d 0a 0a al_zName);...}..
10e0: 09 09 72 65 74 75 72 6e 3b 0a 09 7d 0a 0a 09 69 ..return;..}...i
10f0: 66 20 28 62 6c 6f 62 5f 73 69 7a 65 28 70 46 69 f (blob_size(pFi
1100: 6c 65 29 20 3e 3d 20 30 78 32 30 30 30 30 30 30 le) >= 0x2000000
1110: 30 30 4c 4c 55 29 20 7b 0a 09 09 69 66 20 28 6c 00LLU) {...if (l
1120: 6f 63 61 6c 5f 7a 4e 61 6d 65 29 20 7b 0a 09 09 ocal_zName) {...
1130: 09 66 72 65 65 28 6c 6f 63 61 6c 5f 7a 4e 61 6d .free(local_zNam
1140: 65 29 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 e);...}....retur
1150: 6e 3b 0a 09 7d 0a 0a 09 2f 2a 20 44 65 74 65 72 n;..}.../* Deter
1160: 6d 69 6e 65 20 66 69 6c 65 20 61 74 74 72 69 62 mine file attrib
1170: 75 74 65 73 20 2a 2f 0a 09 2f 2a 2a 20 54 79 70 utes */../** Typ
1180: 65 20 2a 2a 2f 0a 09 74 61 72 5f 74 79 70 65 20 e **/..tar_type
1190: 3d 20 30 3b 20 2f 2a 20 52 65 67 75 6c 61 72 20 = 0; /* Regular
11a0: 66 69 6c 65 20 2a 2f 0a 0a 09 2f 2a 2a 20 50 65 file */.../** Pe
11b0: 72 6d 69 73 73 69 6f 6e 73 20 2a 2a 2f 0a 09 69 rmissions **/..i
11c0: 66 20 28 65 78 65 63 75 74 61 62 6c 65 29 20 7b f (executable) {
11d0: 0a 09 09 74 61 72 5f 6d 6f 64 65 20 3d 20 30 37 ...tar_mode = 07
11e0: 35 35 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 55;..} else {...
11f0: 74 61 72 5f 6d 6f 64 65 20 3d 20 30 36 34 34 3b tar_mode = 0644;
1200: 0a 09 7d 0a 0a 09 2f 2a 20 43 72 65 61 74 65 20 ..}.../* Create
1210: 55 53 54 41 52 20 68 65 61 64 65 72 20 2a 2f 0a USTAR header */.
1220: 09 2f 2a 2a 20 43 6c 65 61 72 20 68 65 61 64 65 ./** Clear heade
1230: 72 20 2a 2a 2f 0a 09 6d 65 6d 73 65 74 28 74 61 r **/..memset(ta
1240: 72 5f 68 65 61 64 65 72 2c 20 27 5c 30 27 2c 20 r_header, '\0',
1250: 73 69 7a 65 6f 66 28 74 61 72 5f 68 65 61 64 65 sizeof(tar_heade
1260: 72 29 29 3b 0a 09 2f 2a 2a 20 46 69 6c 65 20 6e r));../** File n
1270: 61 6d 65 20 2a 2a 2f 0a 09 6d 65 6d 63 70 79 28 ame **/..memcpy(
1280: 74 61 72 5f 68 65 61 64 65 72 2c 20 66 69 6c 65 tar_header, file
1290: 6e 61 6d 65 2c 20 73 74 72 6c 65 6e 28 66 69 6c name, strlen(fil
12a0: 65 6e 61 6d 65 29 29 3b 0a 0a 09 2f 2a 2a 20 41 ename));.../** A
12b0: 74 74 72 69 62 75 74 65 73 20 2a 2a 2f 0a 09 73 ttributes **/..s
12c0: 70 72 69 6e 74 66 28 74 61 72 5f 68 65 61 64 65 printf(tar_heade
12d0: 72 20 2b 20 31 30 30 2c 20 22 25 30 37 6f 22 2c r + 100, "%07o",
12e0: 20 74 61 72 5f 6d 6f 64 65 29 3b 0a 0a 09 2f 2a tar_mode);.../*
12f0: 2a 20 55 73 65 72 20 49 44 20 28 4e 75 6d 65 72 * User ID (Numer
1300: 69 63 29 20 2a 2a 2f 0a 09 73 70 72 69 6e 74 66 ic) **/..sprintf
1310: 28 74 61 72 5f 68 65 61 64 65 72 20 2b 20 31 30 (tar_header + 10
1320: 38 2c 20 22 25 30 37 6f 22 2c 20 30 29 3b 0a 0a 8, "%07o", 0);..
1330: 09 2f 2a 2a 20 47 72 6f 75 70 20 49 44 20 28 4e ./** Group ID (N
1340: 75 6d 65 72 69 63 29 20 2a 2a 2f 0a 09 73 70 72 umeric) **/..spr
1350: 69 6e 74 66 28 74 61 72 5f 68 65 61 64 65 72 20 intf(tar_header
1360: 2b 20 31 31 36 2c 20 22 25 30 37 6f 22 2c 20 30 + 116, "%07o", 0
1370: 29 3b 0a 0a 09 2f 2a 2a 20 46 69 6c 65 20 53 69 );.../** File Si
1380: 7a 65 20 2a 2a 2f 0a 09 73 70 72 69 6e 74 66 28 ze **/..sprintf(
1390: 74 61 72 5f 68 65 61 64 65 72 20 2b 20 31 32 34 tar_header + 124
13a0: 2c 20 22 25 30 31 31 6f 22 2c 20 28 75 6e 73 69 , "%011o", (unsi
13b0: 67 6e 65 64 20 69 6e 74 29 20 62 6c 6f 62 5f 73 gned int) blob_s
13c0: 69 7a 65 28 70 46 69 6c 65 29 29 3b 0a 0a 09 2f ize(pFile));.../
13d0: 2a 2a 20 4d 6f 64 69 66 69 63 61 74 69 6f 6e 20 ** Modification
13e0: 54 69 6d 65 20 2a 2a 2f 0a 09 73 70 72 69 6e 74 Time **/..sprint
13f0: 66 28 74 61 72 5f 68 65 61 64 65 72 20 2b 20 31 f(tar_header + 1
1400: 33 36 2c 20 22 25 30 31 31 6c 6f 22 2c 20 66 69 36, "%011lo", fi
1410: 6c 65 5f 6d 74 69 6d 65 29 3b 0a 0a 09 2f 2a 2a le_mtime);.../**
1420: 20 43 68 65 63 6b 73 75 6d 20 64 75 6d 6d 79 20 Checksum dummy
1430: 76 61 6c 75 65 20 28 77 69 6c 6c 20 62 65 20 72 value (will be r
1440: 65 70 6c 61 63 65 64 20 6c 61 74 65 72 29 20 2a eplaced later) *
1450: 2a 2f 0a 09 73 70 72 69 6e 74 66 28 74 61 72 5f */..sprintf(tar_
1460: 68 65 61 64 65 72 20 2b 20 31 34 38 2c 20 22 20 header + 148, "
1470: 20 20 20 20 20 20 20 22 29 3b 0a 0a 09 2f 2a 2a ");.../**
1480: 20 46 69 6c 65 20 54 79 70 65 20 2a 2a 2f 0a 09 File Type **/..
1490: 73 70 72 69 6e 74 66 28 74 61 72 5f 68 65 61 64 sprintf(tar_head
14a0: 65 72 20 2b 20 31 35 36 2c 20 22 25 31 6f 22 2c er + 156, "%1o",
14b0: 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 (unsigned int)
14c0: 74 61 72 5f 74 79 70 65 29 3b 0a 0a 09 2f 2a 2a tar_type);.../**
14d0: 20 55 53 2d 54 41 52 20 48 65 61 64 65 72 20 4d US-TAR Header M
14e0: 61 72 6b 65 72 20 2a 2a 2f 0a 09 73 70 72 69 6e arker **/..sprin
14f0: 74 66 28 74 61 72 5f 68 65 61 64 65 72 20 2b 20 tf(tar_header +
1500: 32 35 37 2c 20 22 75 73 74 61 72 22 29 3b 0a 0a 257, "ustar");..
1510: 09 2f 2a 2a 20 3f 3f 3f 20 2a 2a 2f 0a 09 73 70 ./** ??? **/..sp
1520: 72 69 6e 74 66 28 74 61 72 5f 68 65 61 64 65 72 rintf(tar_header
1530: 20 2b 20 32 36 33 2c 20 22 20 20 22 29 3b 0a 0a + 263, " ");..
1540: 09 2f 2a 2a 20 55 73 65 72 20 49 44 20 28 54 65 ./** User ID (Te
1550: 78 74 29 20 2a 2a 2f 0a 09 73 70 72 69 6e 74 66 xt) **/..sprintf
1560: 28 74 61 72 5f 68 65 61 64 65 72 20 2b 20 32 36 (tar_header + 26
1570: 35 2c 20 22 25 73 22 2c 20 22 72 6f 6f 74 22 29 5, "%s", "root")
1580: 3b 0a 0a 09 2f 2a 2a 20 47 72 6f 75 70 20 49 44 ;.../** Group ID
1590: 20 28 54 65 78 74 29 20 2a 2a 2f 0a 09 73 70 72 (Text) **/..spr
15a0: 69 6e 74 66 28 74 61 72 5f 68 65 61 64 65 72 20 intf(tar_header
15b0: 2b 20 32 39 37 2c 20 22 25 73 22 2c 20 22 72 6f + 297, "%s", "ro
15c0: 6f 74 22 29 3b 0a 0a 09 2f 2a 2a 20 44 69 72 65 ot");.../** Dire
15d0: 63 74 6f 72 79 20 4e 61 6d 65 20 2a 2a 2f 0a 09 ctory Name **/..
15e0: 73 70 72 69 6e 74 66 28 74 61 72 5f 68 65 61 64 sprintf(tar_head
15f0: 65 72 20 2b 20 33 34 35 2c 20 22 25 73 22 2c 20 er + 345, "%s",
1600: 64 69 72 6e 61 6d 65 29 3b 0a 0a 09 2f 2a 20 43 dirname);.../* C
1610: 6f 6d 70 75 74 65 20 68 65 61 64 65 72 20 63 68 ompute header ch
1620: 65 63 6b 73 75 6d 20 2a 2f 0a 09 74 61 72 5f 63 ecksum */..tar_c
1630: 68 65 63 6b 73 75 6d 20 3d 20 30 3b 0a 09 66 6f hecksum = 0;..fo
1640: 72 20 28 69 20 3d 20 30 3b 20 69 20 3c 20 73 69 r (i = 0; i < si
1650: 7a 65 6f 66 28 74 61 72 5f 68 65 61 64 65 72 29 zeof(tar_header)
1660: 3b 20 69 2b 2b 29 20 7b 0a 09 09 74 61 72 5f 63 ; i++) {...tar_c
1670: 68 65 63 6b 73 75 6d 20 2b 3d 20 28 75 6e 73 69 hecksum += (unsi
1680: 67 6e 65 64 20 63 68 61 72 29 20 74 61 72 5f 68 gned char) tar_h
1690: 65 61 64 65 72 5b 69 5d 3b 0a 09 7d 0a 0a 09 2f eader[i];..}.../
16a0: 2a 2a 20 43 68 65 63 6b 73 75 6d 20 2a 2a 2f 0a ** Checksum **/.
16b0: 09 73 70 72 69 6e 74 66 28 74 61 72 5f 68 65 61 .sprintf(tar_hea
16c0: 64 65 72 20 2b 20 31 34 38 2c 20 22 25 30 36 6c der + 148, "%06l
16d0: 6f 22 2c 20 74 61 72 5f 63 68 65 63 6b 73 75 6d o", tar_checksum
16e0: 29 3b 0a 0a 09 2f 2a 20 43 6c 65 61 6e 20 75 70 );.../* Clean up
16f0: 20 2a 2f 0a 09 69 66 20 28 6c 6f 63 61 6c 5f 7a */..if (local_z
1700: 4e 61 6d 65 29 20 7b 0a 09 09 66 72 65 65 28 6c Name) {...free(l
1710: 6f 63 61 6c 5f 7a 4e 61 6d 65 29 3b 0a 09 7d 0a ocal_zName);..}.
1720: 0a 09 2f 2a 2a 20 41 70 70 65 6e 64 20 68 65 61 ../** Append hea
1730: 64 65 72 20 74 6f 20 62 75 66 66 65 72 20 2a 2a der to buffer **
1740: 2f 0a 09 62 6c 6f 62 5f 61 70 70 65 6e 64 28 70 /..blob_append(p
1750: 54 61 72 2c 20 74 61 72 5f 68 65 61 64 65 72 2c Tar, tar_header,
1760: 20 73 69 7a 65 6f 66 28 74 61 72 5f 68 65 61 64 sizeof(tar_head
1770: 65 72 29 29 3b 0a 0a 09 2f 2a 20 41 70 70 65 6e er));.../* Appen
1780: 64 20 64 61 74 61 20 2a 2f 0a 09 2f 2a 2a 20 41 d data */../** A
1790: 70 70 65 6e 64 20 63 6f 6e 74 65 6e 74 73 20 2a ppend contents *
17a0: 2a 2f 0a 09 62 6c 6f 62 5f 61 70 70 65 6e 64 28 */..blob_append(
17b0: 70 54 61 72 2c 20 62 6c 6f 62 5f 62 75 66 66 65 pTar, blob_buffe
17c0: 72 28 70 46 69 6c 65 29 2c 20 62 6c 6f 62 5f 73 r(pFile), blob_s
17d0: 69 7a 65 28 70 46 69 6c 65 29 29 3b 0a 0a 09 2f ize(pFile));.../
17e0: 2a 2a 20 41 70 70 65 6e 64 20 70 61 64 64 69 6e ** Append paddin
17f0: 67 20 74 6f 20 61 6c 69 67 6e 20 74 6f 20 35 31 g to align to 51
1800: 32 20 62 79 74 65 20 62 6c 6f 63 6b 73 20 2a 2a 2 byte blocks **
1810: 2f 0a 09 69 66 20 28 28 62 6c 6f 62 5f 73 69 7a /..if ((blob_siz
1820: 65 28 70 46 69 6c 65 29 20 25 20 73 69 7a 65 6f e(pFile) % sizeo
1830: 66 28 74 61 72 5f 70 61 64 64 69 6e 67 29 29 20 f(tar_padding))
1840: 21 3d 20 30 29 20 7b 0a 09 09 6d 65 6d 73 65 74 != 0) {...memset
1850: 28 74 61 72 5f 70 61 64 64 69 6e 67 2c 20 27 5c (tar_padding, '\
1860: 30 27 2c 20 73 69 7a 65 6f 66 28 74 61 72 5f 70 0', sizeof(tar_p
1870: 61 64 64 69 6e 67 29 29 3b 0a 0a 09 09 74 61 72 adding));....tar
1880: 5f 70 61 64 64 69 6e 67 5f 62 79 74 65 73 20 3d _padding_bytes =
1890: 20 73 69 7a 65 6f 66 28 74 61 72 5f 70 61 64 64 sizeof(tar_padd
18a0: 69 6e 67 29 20 2d 20 28 62 6c 6f 62 5f 73 69 7a ing) - (blob_siz
18b0: 65 28 70 46 69 6c 65 29 20 25 20 73 69 7a 65 6f e(pFile) % sizeo
18c0: 66 28 74 61 72 5f 70 61 64 64 69 6e 67 29 29 3b f(tar_padding));
18d0: 0a 0a 09 09 62 6c 6f 62 5f 61 70 70 65 6e 64 28 ....blob_append(
18e0: 70 54 61 72 2c 20 74 61 72 5f 70 61 64 64 69 6e pTar, tar_paddin
18f0: 67 2c 20 74 61 72 5f 70 61 64 64 69 6e 67 5f 62 g, tar_padding_b
1900: 79 74 65 73 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 ytes);..}...retu
1910: 72 6e 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 43 4f rn;.}.../*.** CO
1920: 4d 4d 41 4e 44 3a 20 74 65 73 74 2d 66 69 6c 65 MMAND: test-file
1930: 74 67 7a 0a 2a 2a 0a 2a 2a 20 47 65 6e 65 72 61 tgz.**.** Genera
1940: 74 65 20 61 20 74 61 72 2e 67 7a 20 61 72 63 68 te a tar.gz arch
1950: 69 76 65 20 73 70 65 63 69 66 69 65 64 20 62 79 ive specified by
1960: 20 74 68 65 20 66 69 72 73 74 20 61 72 67 75 6d the first argum
1970: 65 6e 74 20 74 68 61 74 0a 2a 2a 20 63 6f 6e 74 ent that.** cont
1980: 61 69 6e 73 20 66 69 6c 65 73 20 67 69 76 65 6e ains files given
1990: 20 69 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 61 in the second a
19a0: 6e 64 20 73 75 62 73 65 71 75 65 6e 74 20 61 72 nd subsequent ar
19b0: 67 75 6d 65 6e 74 73 2e 0a 2a 2f 0a 76 6f 69 64 guments..*/.void
19c0: 20 66 69 6c 65 74 67 7a 5f 63 6d 64 28 76 6f 69 filetgz_cmd(voi
19d0: 64 29 20 7b 0a 09 69 6e 74 20 69 3b 0a 09 42 6c d) {..int i;..Bl
19e0: 6f 62 20 74 61 72 67 7a 3b 0a 09 42 6c 6f 62 20 ob targz;..Blob
19f0: 66 69 6c 65 3b 0a 0a 09 69 66 20 28 67 2e 61 72 file;...if (g.ar
1a00: 67 63 20 3c 20 33 29 20 7b 0a 09 09 75 73 61 67 gc < 3) {...usag
1a10: 65 28 22 41 52 43 48 49 56 45 20 46 49 4c 45 2e e("ARCHIVE FILE.
1a20: 2e 2e 2e 22 29 3b 0a 09 7d 0a 0a 09 74 67 7a 5f ...");..}...tgz_
1a30: 6f 70 65 6e 28 26 74 61 72 67 7a 29 3b 0a 0a 09 open(&targz);...
1a40: 66 6f 72 20 28 69 20 3d 20 33 3b 20 69 20 3c 20 for (i = 3; i <
1a50: 67 2e 61 72 67 63 3b 20 69 2b 2b 29 20 7b 0a 09 g.argc; i++) {..
1a60: 09 62 6c 6f 62 5f 7a 65 72 6f 28 26 66 69 6c 65 .blob_zero(&file
1a70: 29 3b 0a 0a 09 09 62 6c 6f 62 5f 72 65 61 64 5f );....blob_read_
1a80: 66 72 6f 6d 5f 66 69 6c 65 28 26 66 69 6c 65 2c from_file(&file,
1a90: 20 67 2e 61 72 67 76 5b 69 5d 29 3b 0a 0a 09 09 g.argv[i]);....
1aa0: 74 67 7a 5f 61 64 64 5f 66 69 6c 65 28 26 74 61 tgz_add_file(&ta
1ab0: 72 67 7a 2c 20 67 2e 61 72 67 76 5b 69 5d 2c 20 rgz, g.argv[i],
1ac0: 26 66 69 6c 65 2c 20 30 2c 20 30 29 3b 0a 0a 09 &file, 0, 0);...
1ad0: 09 62 6c 6f 62 5f 72 65 73 65 74 28 26 66 69 6c .blob_reset(&fil
1ae0: 65 29 3b 0a 09 7d 0a 0a 09 74 67 7a 5f 63 6c 6f e);..}...tgz_clo
1af0: 73 65 28 26 74 61 72 67 7a 29 3b 0a 0a 09 62 6c se(&targz);...bl
1b00: 6f 62 5f 77 72 69 74 65 5f 74 6f 5f 66 69 6c 65 ob_write_to_file
1b10: 28 26 74 61 72 67 7a 2c 20 67 2e 61 72 67 76 5b (&targz, g.argv[
1b20: 32 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 69 2]);.}../*.** Gi
1b30: 76 65 6e 20 74 68 65 20 52 49 44 20 66 6f 72 20 ven the RID for
1b40: 61 20 6d 61 6e 69 66 65 73 74 2c 20 63 6f 6e 73 a manifest, cons
1b50: 74 72 75 63 74 20 61 20 74 61 72 2e 67 7a 20 61 truct a tar.gz a
1b60: 72 63 68 69 76 65 20 63 6f 6e 74 61 69 6e 69 6e rchive containin
1b70: 67 0a 2a 2a 20 61 6c 6c 20 66 69 6c 65 73 20 69 g.** all files i
1b80: 6e 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 n the correspond
1b90: 69 6e 67 20 62 61 73 65 6c 69 6e 65 2e 0a 2a 2a ing baseline..**
1ba0: 0a 2a 2a 20 49 66 20 52 49 44 20 69 73 20 66 6f .** If RID is fo
1bb0: 72 20 61 6e 20 6f 62 6a 65 63 74 20 74 68 61 74 r an object that
1bc0: 20 69 73 20 6e 6f 74 20 61 20 72 65 61 6c 20 6d is not a real m
1bd0: 61 6e 69 66 65 73 74 2c 20 74 68 65 6e 20 74 68 anifest, then th
1be0: 65 0a 2a 2a 20 72 65 73 75 6c 74 69 6e 67 20 74 e.** resulting t
1bf0: 61 72 2e 67 7a 20 61 72 63 68 69 76 65 20 63 6f ar.gz archive co
1c00: 6e 74 61 69 6e 73 20 61 20 73 69 6e 67 6c 65 20 ntains a single
1c10: 66 69 6c 65 20 77 68 69 63 68 20 69 73 20 74 68 file which is th
1c20: 65 20 52 49 44 0a 2a 2a 20 6f 62 6a 65 63 74 2e e RID.** object.
1c30: 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 52 49 .**.** If the RI
1c40: 44 20 6f 62 6a 65 63 74 20 64 6f 65 73 20 6e 6f D object does no
1c50: 74 20 65 78 69 73 74 20 69 6e 20 74 68 65 20 72 t exist in the r
1c60: 65 70 6f 73 69 74 6f 72 79 2c 20 74 68 65 6e 0a epository, then.
1c70: 2a 2a 20 70 54 61 72 20 69 73 20 7a 65 72 6f 65 ** pTar is zeroe
1c80: 64 2e 0a 2a 2a 0a 2a 2a 20 7a 44 69 72 20 69 73 d..**.** zDir is
1c90: 20 61 20 22 73 79 6e 74 68 65 74 69 63 22 20 73 a "synthetic" s
1ca0: 75 62 64 69 72 65 63 74 6f 72 79 20 77 68 69 63 ubdirectory whic
1cb0: 68 20 61 6c 6c 20 74 61 72 67 7a 70 65 64 20 66 h all targzped f
1cc0: 69 6c 65 73 20 67 65 74 0a 2a 2a 20 61 64 64 65 iles get.** adde
1cd0: 64 20 74 6f 20 61 73 20 70 61 72 74 20 6f 66 20 d to as part of
1ce0: 74 68 65 20 74 61 72 67 7a 20 66 69 6c 65 2e 20 the targz file.
1cf0: 49 74 20 6d 61 79 20 62 65 20 30 20 6f 72 20 61 It may be 0 or a
1d00: 6e 20 65 6d 70 74 79 20 73 74 72 69 6e 67 2c 0a n empty string,.
1d10: 2a 2a 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 ** in which case
1d20: 20 69 74 20 69 73 20 69 67 6e 6f 72 65 64 2e 20 it is ignored.
1d30: 54 68 65 20 69 6e 74 65 6e 74 69 6f 6e 20 69 73 The intention is
1d40: 20 74 6f 20 63 72 65 61 74 65 20 61 20 74 61 72 to create a tar
1d50: 67 7a 20 77 68 69 63 68 0a 2a 2a 20 70 6f 6c 69 gz which.** poli
1d60: 74 65 6c 79 20 65 78 70 61 6e 64 73 20 69 6e 74 tely expands int
1d70: 6f 20 61 20 73 75 62 64 69 72 20 69 6e 73 74 65 o a subdir inste
1d80: 61 64 20 6f 66 20 66 69 6c 6c 69 6e 67 20 79 6f ad of filling yo
1d90: 75 72 20 63 75 72 72 65 6e 74 20 64 69 72 0a 2a ur current dir.*
1da0: 2a 20 77 69 74 68 20 73 6f 75 72 63 65 20 66 69 * with source fi
1db0: 6c 65 73 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 les. For example
1dc0: 2c 20 70 61 73 73 20 61 20 55 55 49 44 20 6f 72 , pass a UUID or
1dd0: 20 22 50 72 6f 6a 65 63 74 4e 61 6d 65 22 2e 0a "ProjectName"..
1de0: 2a 2a 0a 2a 2f 0a 76 6f 69 64 20 74 67 7a 5f 6f **.*/.void tgz_o
1df0: 66 5f 62 61 73 65 6c 69 6e 65 28 69 6e 74 20 72 f_baseline(int r
1e00: 69 64 2c 20 42 6c 6f 62 20 2a 70 54 61 72 2c 20 id, Blob *pTar,
1e10: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 69 72 const char *zDir
1e20: 29 20 7b 0a 09 42 6c 6f 62 20 6d 66 69 6c 65 2c ) {..Blob mfile,
1e30: 20 68 61 73 68 2c 20 66 69 6c 65 3b 0a 09 4d 61 hash, file;..Ma
1e40: 6e 69 66 65 73 74 20 2a 70 4d 61 6e 69 66 65 73 nifest *pManifes
1e50: 74 3b 0a 09 4d 61 6e 69 66 65 73 74 46 69 6c 65 t;..ManifestFile
1e60: 20 2a 70 46 69 6c 65 3b 0a 09 42 6c 6f 62 20 66 *pFile;..Blob f
1e70: 69 6c 65 6e 61 6d 65 3b 0a 09 75 6e 73 69 67 6e ilename;..unsign
1e80: 65 64 20 6c 6f 6e 67 20 6e 46 69 6c 65 54 69 6d ed long nFileTim
1e90: 65 53 74 61 6d 70 3b 0a 09 69 6e 74 20 62 45 78 eStamp;..int bEx
1ea0: 65 63 75 74 61 62 6c 65 3b 0a 09 69 6e 74 20 6e ecutable;..int n
1eb0: 50 72 65 66 69 78 3b 0a 20 20 0a 09 63 6f 6e 74 Prefix;. ..cont
1ec0: 65 6e 74 5f 67 65 74 28 72 69 64 2c 20 26 6d 66 ent_get(rid, &mf
1ed0: 69 6c 65 29 3b 0a 09 69 66 20 28 62 6c 6f 62 5f ile);..if (blob_
1ee0: 73 69 7a 65 28 26 6d 66 69 6c 65 29 20 3d 3d 20 size(&mfile) ==
1ef0: 30 29 20 7b 0a 09 09 62 6c 6f 62 5f 7a 65 72 6f 0) {...blob_zero
1f00: 28 70 54 61 72 29 3b 0a 09 09 72 65 74 75 72 6e (pTar);...return
1f10: 3b 0a 09 7d 0a 0a 09 62 6c 6f 62 5f 7a 65 72 6f ;..}...blob_zero
1f20: 28 26 68 61 73 68 29 3b 0a 09 62 6c 6f 62 5f 7a (&hash);..blob_z
1f30: 65 72 6f 28 26 66 69 6c 65 6e 61 6d 65 29 3b 0a ero(&filename);.
1f40: 0a 09 74 67 7a 5f 6f 70 65 6e 28 70 54 61 72 29 ..tgz_open(pTar)
1f50: 3b 0a 0a 09 69 66 20 28 7a 44 69 72 20 26 26 20 ;...if (zDir &&
1f60: 7a 44 69 72 5b 30 5d 29 20 7b 0a 09 09 62 6c 6f zDir[0]) {...blo
1f70: 62 5f 61 70 70 65 6e 64 66 28 26 66 69 6c 65 6e b_appendf(&filen
1f80: 61 6d 65 2c 20 22 25 73 2f 22 2c 20 7a 44 69 72 ame, "%s/", zDir
1f90: 29 3b 0a 09 7d 0a 09 6e 50 72 65 66 69 78 20 3d );..}..nPrefix =
1fa0: 20 62 6c 6f 62 5f 73 69 7a 65 28 26 66 69 6c 65 blob_size(&file
1fb0: 6e 61 6d 65 29 3b 0a 0a 09 70 4d 61 6e 69 66 65 name);...pManife
1fc0: 73 74 20 3d 20 6d 61 6e 69 66 65 73 74 5f 67 65 st = manifest_ge
1fd0: 74 28 72 69 64 2c 20 43 46 54 59 50 45 5f 4d 41 t(rid, CFTYPE_MA
1fe0: 4e 49 46 45 53 54 29 3b 0a 09 69 66 20 28 70 4d NIFEST);..if (pM
1ff0: 61 6e 69 66 65 73 74 29 20 7b 0a 09 09 63 68 61 anifest) {...cha
2000: 72 20 2a 7a 4e 61 6d 65 3b 0a 0a 09 09 6e 46 69 r *zName;....nFi
2010: 6c 65 54 69 6d 65 53 74 61 6d 70 20 3d 20 67 65 leTimeStamp = ge
2020: 74 5f 75 6e 69 78 5f 74 69 6d 65 5f 66 72 6f 6d t_unix_time_from
2030: 5f 66 6f 73 73 69 6c 28 70 4d 61 6e 69 66 65 73 _fossil(pManifes
2040: 74 2d 3e 72 44 61 74 65 29 3b 0a 0a 09 09 69 66 t->rDate);....if
2050: 20 28 64 62 5f 67 65 74 5f 62 6f 6f 6c 65 61 6e (db_get_boolean
2060: 28 22 6d 61 6e 69 66 65 73 74 22 2c 20 30 29 29 ("manifest", 0))
2070: 20 7b 0a 09 09 09 62 6c 6f 62 5f 61 70 70 65 6e {....blob_appen
2080: 64 28 26 66 69 6c 65 6e 61 6d 65 2c 20 22 6d 61 d(&filename, "ma
2090: 6e 69 66 65 73 74 22 2c 20 2d 31 29 3b 0a 09 09 nifest", -1);...
20a0: 09 7a 4e 61 6d 65 20 3d 20 62 6c 6f 62 5f 73 74 .zName = blob_st
20b0: 72 28 26 66 69 6c 65 6e 61 6d 65 29 3b 0a 09 09 r(&filename);...
20c0: 09 74 67 7a 5f 61 64 64 5f 66 69 6c 65 28 70 54 .tgz_add_file(pT
20d0: 61 72 2c 20 7a 4e 61 6d 65 2c 20 26 6d 66 69 6c ar, zName, &mfil
20e0: 65 2c 20 6e 46 69 6c 65 54 69 6d 65 53 74 61 6d e, nFileTimeStam
20f0: 70 2c 20 30 29 3b 0a 0a 09 09 09 73 68 61 31 73 p, 0);.....sha1s
2100: 75 6d 5f 62 6c 6f 62 28 26 6d 66 69 6c 65 2c 20 um_blob(&mfile,
2110: 26 68 61 73 68 29 3b 0a 09 09 09 62 6c 6f 62 5f &hash);....blob_
2120: 72 65 73 65 74 28 26 6d 66 69 6c 65 29 3b 0a 09 reset(&mfile);..
2130: 09 09 62 6c 6f 62 5f 61 70 70 65 6e 64 28 26 68 ..blob_append(&h
2140: 61 73 68 2c 20 22 5c 6e 22 2c 20 31 29 3b 0a 09 ash, "\n", 1);..
2150: 09 09 62 6c 6f 62 5f 72 65 73 69 7a 65 28 26 66 ..blob_resize(&f
2160: 69 6c 65 6e 61 6d 65 2c 20 6e 50 72 65 66 69 78 ilename, nPrefix
2170: 29 3b 0a 09 09 09 62 6c 6f 62 5f 61 70 70 65 6e );....blob_appen
2180: 64 28 26 66 69 6c 65 6e 61 6d 65 2c 20 22 6d 61 d(&filename, "ma
2190: 6e 69 66 65 73 74 2e 75 75 69 64 22 2c 20 2d 31 nifest.uuid", -1
21a0: 29 3b 0a 09 09 09 7a 4e 61 6d 65 20 3d 20 62 6c );....zName = bl
21b0: 6f 62 5f 73 74 72 28 26 66 69 6c 65 6e 61 6d 65 ob_str(&filename
21c0: 29 3b 0a 09 09 09 74 67 7a 5f 61 64 64 5f 66 69 );....tgz_add_fi
21d0: 6c 65 28 70 54 61 72 2c 20 7a 4e 61 6d 65 2c 20 le(pTar, zName,
21e0: 26 68 61 73 68 2c 20 6e 46 69 6c 65 54 69 6d 65 &hash, nFileTime
21f0: 53 74 61 6d 70 2c 20 30 29 3b 0a 09 09 09 62 6c Stamp, 0);....bl
2200: 6f 62 5f 72 65 73 65 74 28 26 68 61 73 68 29 3b ob_reset(&hash);
2210: 0a 09 09 7d 0a 0a 09 09 6d 61 6e 69 66 65 73 74 ...}....manifest
2220: 5f 66 69 6c 65 5f 72 65 77 69 6e 64 28 70 4d 61 _file_rewind(pMa
2230: 6e 69 66 65 73 74 29 3b 0a 0a 09 09 77 68 69 6c nifest);....whil
2240: 65 20 28 28 70 46 69 6c 65 20 3d 20 6d 61 6e 69 e ((pFile = mani
2250: 66 65 73 74 5f 66 69 6c 65 5f 6e 65 78 74 28 70 fest_file_next(p
2260: 4d 61 6e 69 66 65 73 74 2c 30 29 29 20 21 3d 30 Manifest,0)) !=0
2270: 29 20 7b 0a 09 09 09 69 6e 74 20 66 69 64 3b 0a ) {....int fid;.
2280: 0a 09 09 09 66 69 64 20 3d 20 75 75 69 64 5f 74 ....fid = uuid_t
2290: 6f 5f 72 69 64 28 70 46 69 6c 65 2d 3e 7a 55 75 o_rid(pFile->zUu
22a0: 69 64 2c 20 30 29 3b 0a 0a 09 09 09 69 66 20 28 id, 0);.....if (
22b0: 66 69 64 29 20 7b 0a 09 09 09 09 69 66 20 28 70 fid) {.....if (p
22c0: 46 69 6c 65 2d 3e 7a 50 65 72 6d 20 26 26 20 73 File->zPerm && s
22d0: 74 72 63 68 72 28 70 46 69 6c 65 2d 3e 7a 50 65 trchr(pFile->zPe
22e0: 72 6d 2c 20 27 78 27 29 29 20 7b 0a 09 09 09 09 rm, 'x')) {.....
22f0: 09 62 45 78 65 63 75 74 61 62 6c 65 20 3d 20 31 .bExecutable = 1
2300: 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 ;.....} else {..
2310: 09 09 09 09 62 45 78 65 63 75 74 61 62 6c 65 20 ....bExecutable
2320: 3d 20 30 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 = 0;.....}......
2330: 63 6f 6e 74 65 6e 74 5f 67 65 74 28 66 69 64 2c content_get(fid,
2340: 20 26 66 69 6c 65 29 3b 0a 09 09 09 09 62 6c 6f &file);.....blo
2350: 62 5f 72 65 73 69 7a 65 28 26 66 69 6c 65 6e 61 b_resize(&filena
2360: 6d 65 2c 20 6e 50 72 65 66 69 78 29 3b 0a 09 09 me, nPrefix);...
2370: 09 09 62 6c 6f 62 5f 61 70 70 65 6e 64 28 26 66 ..blob_append(&f
2380: 69 6c 65 6e 61 6d 65 2c 20 70 46 69 6c 65 2d 3e ilename, pFile->
2390: 7a 4e 61 6d 65 2c 20 2d 31 29 3b 0a 09 09 09 09 zName, -1);.....
23a0: 7a 4e 61 6d 65 20 3d 20 62 6c 6f 62 5f 73 74 72 zName = blob_str
23b0: 28 26 66 69 6c 65 6e 61 6d 65 29 3b 0a 09 09 09 (&filename);....
23c0: 09 74 67 7a 5f 61 64 64 5f 66 69 6c 65 28 70 54 .tgz_add_file(pT
23d0: 61 72 2c 20 7a 4e 61 6d 65 2c 20 26 66 69 6c 65 ar, zName, &file
23e0: 2c 20 6e 46 69 6c 65 54 69 6d 65 53 74 61 6d 70 , nFileTimeStamp
23f0: 2c 20 62 45 78 65 63 75 74 61 62 6c 65 29 3b 20 , bExecutable);
2400: 0a 09 09 09 09 62 6c 6f 62 5f 72 65 73 65 74 28 .....blob_reset(
2410: 26 66 69 6c 65 29 3b 0a 09 09 09 7d 0a 09 09 7d &file);....}...}
2420: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 62 6c 6f ..} else {...blo
2430: 62 5f 72 65 73 65 74 28 26 6d 66 69 6c 65 29 3b b_reset(&mfile);
2440: 0a 09 7d 0a 0a 09 6d 61 6e 69 66 65 73 74 5f 64 ..}...manifest_d
2450: 65 73 74 72 6f 79 28 70 4d 61 6e 69 66 65 73 74 estroy(pManifest
2460: 29 3b 0a 0a 09 62 6c 6f 62 5f 72 65 73 65 74 28 );...blob_reset(
2470: 26 66 69 6c 65 6e 61 6d 65 29 3b 0a 0a 09 74 67 &filename);...tg
2480: 7a 5f 63 6c 6f 73 65 28 70 54 61 72 29 3b 0a 7d z_close(pTar);.}
2490: 0a 0a 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e 44 3a ../*.** COMMAND:
24a0: 20 74 67 7a 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65 tgz.**.** Usage
24b0: 3a 20 25 66 6f 73 73 69 6c 20 74 67 7a 20 56 45 : %fossil tgz VE
24c0: 52 53 49 4f 4e 20 4f 55 54 50 55 54 46 49 4c 45 RSION OUTPUTFILE
24d0: 20 5b 2d 2d 6e 61 6d 65 20 44 49 52 45 43 54 4f [--name DIRECTO
24e0: 52 59 4e 41 4d 45 5d 0a 2a 2a 0a 2a 2a 20 47 65 RYNAME].**.** Ge
24f0: 6e 65 72 61 74 65 20 61 20 74 61 72 2e 67 7a 20 nerate a tar.gz
2500: 61 72 63 68 69 76 65 20 66 6f 72 20 61 20 73 70 archive for a sp
2510: 65 63 69 66 69 65 64 20 76 65 72 73 69 6f 6e 2e ecified version.
2520: 20 20 49 66 20 74 68 65 20 2d 2d 6e 61 6d 65 20 If the --name
2530: 6f 70 74 69 6f 6e 20 69 73 0a 2a 2a 20 75 73 65 option is.** use
2540: 64 2c 20 69 74 20 61 72 67 75 6d 65 6e 74 20 62 d, it argument b
2550: 65 63 6f 6d 65 73 20 74 68 65 20 6e 61 6d 65 20 ecomes the name
2560: 6f 66 20 74 68 65 20 74 6f 70 2d 6c 65 76 65 6c of the top-level
2570: 20 64 69 72 65 63 74 6f 72 79 20 69 6e 20 74 68 directory in th
2580: 65 0a 2a 2a 20 72 65 73 75 6c 74 69 6e 67 20 74 e.** resulting t
2590: 61 72 2e 67 7a 20 61 72 63 68 69 76 65 2e 20 20 ar.gz archive.
25a0: 49 66 20 2d 2d 6e 61 6d 65 20 69 73 20 6f 6d 69 If --name is omi
25b0: 74 74 65 64 2c 20 74 68 65 20 74 6f 70 2d 6c 65 tted, the top-le
25c0: 76 65 6c 20 64 69 72 65 63 74 6f 72 79 0a 2a 2a vel directory.**
25d0: 20 6e 61 6d 65 64 20 69 73 20 64 65 72 69 76 65 named is derive
25e0: 64 20 66 72 6f 6d 20 74 68 65 20 70 72 6f 6a 65 d from the proje
25f0: 63 74 20 6e 61 6d 65 2c 20 74 68 65 20 63 68 65 ct name, the che
2600: 63 6b 2d 69 6e 20 64 61 74 65 20 61 6e 64 20 74 ck-in date and t
2610: 69 6d 65 2c 20 61 6e 64 0a 2a 2a 20 74 68 65 20 ime, and.** the
2620: 61 72 74 69 66 61 63 74 20 49 44 20 6f 66 20 74 artifact ID of t
2630: 68 65 20 63 68 65 63 6b 2d 69 6e 2e 0a 2a 2f 0a he check-in..*/.
2640: 76 6f 69 64 20 62 61 73 65 6c 69 6e 65 5f 74 67 void baseline_tg
2650: 7a 5f 63 6d 64 28 76 6f 69 64 29 20 7b 0a 09 69 z_cmd(void) {..i
2660: 6e 74 20 72 69 64 3b 0a 09 42 6c 6f 62 20 74 61 nt rid;..Blob ta
2670: 72 67 7a 3b 0a 09 63 6f 6e 73 74 20 63 68 61 72 rgz;..const char
2680: 20 2a 7a 4e 61 6d 65 3b 0a 0a 09 7a 4e 61 6d 65 *zName;...zName
2690: 20 3d 20 66 69 6e 64 5f 6f 70 74 69 6f 6e 28 22 = find_option("
26a0: 6e 61 6d 65 22 2c 20 30 2c 20 31 29 3b 0a 0a 09 name", 0, 1);...
26b0: 64 62 5f 66 69 6e 64 5f 61 6e 64 5f 6f 70 65 6e db_find_and_open
26c0: 5f 72 65 70 6f 73 69 74 6f 72 79 28 30 2c 20 30 _repository(0, 0
26d0: 29 3b 0a 09 69 66 20 28 67 2e 61 72 67 63 20 21 );..if (g.argc !
26e0: 3d 20 34 29 20 7b 0a 09 09 75 73 61 67 65 28 22 = 4) {...usage("
26f0: 56 45 52 53 49 4f 4e 20 4f 55 54 50 55 54 46 49 VERSION OUTPUTFI
2700: 4c 45 22 29 3b 0a 09 7d 0a 0a 09 72 69 64 20 3d LE");..}...rid =
2710: 20 6e 61 6d 65 5f 74 6f 5f 72 69 64 28 67 2e 61 name_to_rid(g.a
2720: 72 67 76 5b 32 5d 29 3b 0a 09 69 66 20 28 7a 4e rgv[2]);..if (zN
2730: 61 6d 65 20 3d 3d 20 30 29 20 7b 0a 09 09 7a 4e ame == 0) {...zN
2740: 61 6d 65 20 3d 20 64 62 5f 74 65 78 74 28 22 64 ame = db_text("d
2750: 65 66 61 75 6c 74 2d 6e 61 6d 65 22 2c 0a 09 09 efault-name",...
2760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2770: 22 53 45 4c 45 43 54 20 72 65 70 6c 61 63 65 28 "SELECT replace(
2780: 25 51 2c 27 20 27 2c 27 5f 27 29 20 22 0a 09 09 %Q,' ','_') "...
2790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
27a0: 22 20 7c 7c 20 73 74 72 66 74 69 6d 65 28 27 5f " || strftime('_
27b0: 25 25 59 2d 25 25 6d 2d 25 25 64 5f 25 25 48 25 %%Y-%%m-%%d_%%H%
27c0: 25 4d 25 25 53 5f 27 2c 20 65 76 65 6e 74 2e 6d %M%%S_', event.m
27d0: 74 69 6d 65 29 20 22 0a 09 09 20 20 20 20 20 20 time) "...
27e0: 20 20 20 20 20 20 20 20 20 20 22 20 7c 7c 20 73 " || s
27f0: 75 62 73 74 72 28 62 6c 6f 62 2e 75 75 69 64 2c ubstr(blob.uuid,
2800: 20 31 2c 20 31 30 29 22 0a 09 09 20 20 20 20 20 1, 10)"...
2810: 20 20 20 20 20 20 20 20 20 20 20 22 20 20 46 52 " FR
2820: 4f 4d 20 65 76 65 6e 74 2c 20 62 6c 6f 62 22 0a OM event, blob".
2830: 09 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
2840: 20 20 22 20 57 48 45 52 45 20 65 76 65 6e 74 2e " WHERE event.
2850: 6f 62 6a 69 64 3d 25 64 22 0a 09 09 20 20 20 20 objid=%d"...
2860: 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20 "
2870: 41 4e 44 20 62 6c 6f 62 2e 72 69 64 3d 25 64 22 AND blob.rid=%d"
2880: 2c 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 20 ,...
2890: 20 20 20 20 64 62 5f 67 65 74 28 22 70 72 6f 6a db_get("proj
28a0: 65 63 74 2d 6e 61 6d 65 22 2c 20 22 75 6e 6e 61 ect-name", "unna
28b0: 6d 65 64 22 29 2c 20 72 69 64 2c 20 72 69 64 0a med"), rid, rid.
28c0: 09 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
28d0: 20 29 3b 0a 09 7d 0a 0a 09 74 67 7a 5f 6f 66 5f );..}...tgz_of_
28e0: 62 61 73 65 6c 69 6e 65 28 72 69 64 2c 20 26 74 baseline(rid, &t
28f0: 61 72 67 7a 2c 20 7a 4e 61 6d 65 29 3b 0a 0a 09 argz, zName);...
2900: 62 6c 6f 62 5f 77 72 69 74 65 5f 74 6f 5f 66 69 blob_write_to_fi
2910: 6c 65 28 26 74 61 72 67 7a 2c 20 67 2e 61 72 67 le(&targz, g.arg
2920: 76 5b 33 5d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 v[3]);.}../*.**
2930: 57 45 42 50 41 47 45 3a 20 74 67 7a 0a 2a 2a 20 WEBPAGE: tgz.**
2940: 55 52 4c 3a 20 2f 74 67 7a 2f 52 49 44 2e 74 67 URL: /tgz/RID.tg
2950: 7a 0a 2a 2a 0a 2a 2a 20 47 65 6e 65 72 61 74 65 z.**.** Generate
2960: 20 61 20 74 61 72 2e 67 7a 20 61 72 63 68 69 76 a tar.gz archiv
2970: 65 20 66 6f 72 20 74 68 65 20 62 61 73 65 6c 69 e for the baseli
2980: 6e 65 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 ne..** Return th
2990: 61 74 20 74 61 72 2e 67 7a 20 61 72 63 68 69 76 at tar.gz archiv
29a0: 65 20 61 73 20 74 68 65 20 48 54 54 50 20 72 65 e as the HTTP re
29b0: 70 6c 79 20 63 6f 6e 74 65 6e 74 2e 0a 2a 2f 0a ply content..*/.
29c0: 76 6f 69 64 20 62 61 73 65 6c 69 6e 65 5f 74 67 void baseline_tg
29d0: 7a 5f 70 61 67 65 28 76 6f 69 64 29 20 7b 0a 09 z_page(void) {..
29e0: 69 6e 74 20 72 69 64 3b 0a 09 63 68 61 72 20 2a int rid;..char *
29f0: 7a 4e 61 6d 65 2c 20 2a 7a 52 69 64 3b 0a 09 69 zName, *zRid;..i
2a00: 6e 74 20 6e 4e 61 6d 65 2c 20 6e 52 69 64 3b 0a nt nName, nRid;.
2a10: 09 42 6c 6f 62 20 74 61 72 67 7a 3b 0a 0a 09 6c .Blob targz;...l
2a20: 6f 67 69 6e 5f 63 68 65 63 6b 5f 63 72 65 64 65 ogin_check_crede
2a30: 6e 74 69 61 6c 73 28 29 3b 0a 09 69 66 20 28 21 ntials();..if (!
2a40: 67 2e 6f 6b 5a 69 70 29 20 7b 0a 09 09 6c 6f 67 g.okZip) {...log
2a50: 69 6e 5f 6e 65 65 64 65 64 28 29 3b 0a 0a 09 09 in_needed();....
2a60: 72 65 74 75 72 6e 3b 0a 09 7d 0a 0a 09 7a 4e 61 return;..}...zNa
2a70: 6d 65 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 me = mprintf("%s
2a80: 22 2c 20 50 44 28 22 6e 61 6d 65 22 2c 20 22 22 ", PD("name", ""
2a90: 29 29 3b 0a 09 6e 4e 61 6d 65 20 3d 20 73 74 72 ));..nName = str
2aa0: 6c 65 6e 28 7a 4e 61 6d 65 29 3b 0a 0a 09 7a 52 len(zName);...zR
2ab0: 69 64 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 id = mprintf("%s
2ac0: 22 2c 20 50 44 28 22 75 75 69 64 22 2c 20 22 22 ", PD("uuid", ""
2ad0: 29 29 3b 0a 09 6e 52 69 64 20 3d 20 73 74 72 6c ));..nRid = strl
2ae0: 65 6e 28 7a 52 69 64 29 3b 0a 0a 09 66 6f 72 20 en(zRid);...for
2af0: 28 6e 4e 61 6d 65 20 3d 20 73 74 72 6c 65 6e 28 (nName = strlen(
2b00: 7a 4e 61 6d 65 29 20 2d 20 31 3b 20 6e 4e 61 6d zName) - 1; nNam
2b10: 65 20 3e 20 35 3b 20 6e 4e 61 6d 65 2d 2d 29 20 e > 5; nName--)
2b20: 7b 0a 09 09 69 66 20 28 7a 4e 61 6d 65 5b 6e 4e {...if (zName[nN
2b30: 61 6d 65 5d 20 3d 3d 20 27 2e 27 29 20 7b 0a 09 ame] == '.') {..
2b40: 09 09 7a 4e 61 6d 65 5b 6e 4e 61 6d 65 5d 20 3d ..zName[nName] =
2b50: 20 30 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 0;....break;...
2b60: 7d 0a 09 7d 0a 0a 09 72 69 64 20 3d 20 6e 61 6d }..}...rid = nam
2b70: 65 5f 74 6f 5f 72 69 64 28 6e 52 69 64 20 3f 20 e_to_rid(nRid ?
2b80: 7a 52 69 64 20 3a 20 7a 4e 61 6d 65 29 3b 0a 09 zRid : zName);..
2b90: 69 66 20 28 72 69 64 20 3d 3d 20 30 29 20 7b 0a if (rid == 0) {.
2ba0: 09 09 40 20 4e 6f 74 20 66 6f 75 6e 64 0a 09 09 ..@ Not found...
2bb0: 72 65 74 75 72 6e 3b 0a 09 7d 0a 0a 09 69 66 20 return;..}...if
2bc0: 28 6e 52 69 64 20 3d 3d 20 30 20 26 26 20 6e 4e (nRid == 0 && nN
2bd0: 61 6d 65 20 3e 20 31 30 29 20 7b 0a 09 09 7a 4e ame > 10) {...zN
2be0: 61 6d 65 5b 31 30 5d 20 3d 20 30 3b 0a 09 7d 0a ame[10] = 0;..}.
2bf0: 0a 09 74 67 7a 5f 6f 66 5f 62 61 73 65 6c 69 6e ..tgz_of_baselin
2c00: 65 28 72 69 64 2c 20 26 74 61 72 67 7a 2c 20 7a e(rid, &targz, z
2c10: 4e 61 6d 65 29 3b 0a 0a 09 66 72 65 65 28 7a 4e Name);...free(zN
2c20: 61 6d 65 29 3b 0a 09 66 72 65 65 28 7a 52 69 64 ame);..free(zRid
2c30: 29 3b 0a 0a 09 63 67 69 5f 73 65 74 5f 63 6f 6e );...cgi_set_con
2c40: 74 65 6e 74 28 26 74 61 72 67 7a 29 3b 0a 09 63 tent(&targz);..c
2c50: 67 69 5f 73 65 74 5f 63 6f 6e 74 65 6e 74 5f 74 gi_set_content_t
2c60: 79 70 65 28 22 61 70 70 6c 69 63 61 74 69 6f 6e ype("application
2c70: 2f 78 2d 63 6f 6d 70 72 65 73 73 65 64 22 29 3b /x-compressed");
2c80: 0a 7d 0a .}.