2010-04-04 03:57:33 +04:00
# customised version of 'waf dist' for Samba tools
# uses git ls-files to get file lists
2010-05-28 14:24:47 +04:00
import Utils , os , sys , tarfile , gzip , stat , Scripting , Logs , Options
2010-04-04 03:57:33 +04:00
from samba_utils import *
2010-04-04 05:00:42 +04:00
dist_dirs = None
2010-05-31 05:59:50 +04:00
dist_blacklist = " "
2010-04-04 05:00:42 +04:00
2010-04-12 05:09:44 +04:00
def add_symlink ( tar , fname , abspath , basedir ) :
''' handle symlinks to directories that may move during packaging '''
if not os . path . islink ( abspath ) :
return False
tinfo = tar . gettarinfo ( name = abspath , arcname = fname )
tgt = os . readlink ( abspath )
if dist_dirs :
# we need to find the target relative to the main directory
# this is here to cope with symlinks into the buildtools
# directory from within the standalone libraries in Samba. For example,
# a symlink to ../../builtools/scripts/autogen-waf.sh needs
# to be rewritten as a symlink to buildtools/scripts/autogen-waf.sh
# when the tarball for talloc is built
# the filename without the appname-version
rel_fname = ' / ' . join ( fname . split ( ' / ' ) [ 1 : ] )
# join this with the symlink target
tgt_full = os . path . join ( os . path . dirname ( rel_fname ) , tgt )
# join with the base directory
tgt_base = os . path . normpath ( os . path . join ( basedir , tgt_full ) )
# see if this is inside one of our dist_dirs
for dir in dist_dirs . split ( ) :
if dir . find ( ' : ' ) != - 1 :
destdir = dir . split ( ' : ' ) [ 1 ]
dir = dir . split ( ' : ' ) [ 0 ]
else :
destdir = ' . '
if dir == basedir :
# internal links don't get rewritten
continue
if dir == tgt_base [ 0 : len ( dir ) ] and tgt_base [ len ( dir ) ] == ' / ' :
new_tgt = destdir + tgt_base [ len ( dir ) : ]
tinfo . linkname = new_tgt
break
tinfo . uid = 0
tinfo . gid = 0
tinfo . uname = ' root '
tinfo . gname = ' root '
tar . addfile ( tinfo )
return True
def add_tarfile ( tar , fname , abspath , basedir ) :
2010-04-04 03:57:33 +04:00
''' add a file to the tarball '''
2010-04-12 05:09:44 +04:00
if add_symlink ( tar , fname , abspath , basedir ) :
return
2010-04-09 15:00:49 +04:00
try :
tinfo = tar . gettarinfo ( name = abspath , arcname = fname )
except OSError :
Logs . error ( ' Unable to find file %s - missing from git checkout? ' % abspath )
sys . exit ( 1 )
2010-04-04 03:57:33 +04:00
tinfo . uid = 0
tinfo . gid = 0
tinfo . uname = ' root '
tinfo . gname = ' root '
fh = open ( abspath )
tar . addfile ( tinfo , fileobj = fh )
fh . close ( )
2010-04-05 03:58:23 +04:00
def dist ( appname = ' ' , version = ' ' ) :
2010-04-08 16:10:22 +04:00
if not isinstance ( appname , str ) or not appname :
2010-04-05 03:58:23 +04:00
# this copes with a mismatch in the calling arguments for dist()
appname = Utils . g_module . APPNAME
version = Utils . g_module . VERSION
if not version :
version = Utils . g_module . VERSION
2010-04-04 03:57:33 +04:00
srcdir = os . path . normpath ( os . path . join ( os . path . dirname ( Utils . g_module . root_path ) , Utils . g_module . srcdir ) )
2010-04-04 05:00:42 +04:00
if not dist_dirs :
2010-04-09 15:12:02 +04:00
Logs . error ( ' You must use samba_dist.DIST_DIRS() to set which directories to package ' )
2010-04-04 03:57:33 +04:00
sys . exit ( 1 )
dist_base = ' %s - %s ' % ( appname , version )
2010-05-28 14:24:47 +04:00
if Options . options . SIGN_RELEASE :
dist_name = ' %s .tar ' % ( dist_base )
tar = tarfile . open ( dist_name , ' w ' )
else :
dist_name = ' %s .tar.gz ' % ( dist_base )
tar = tarfile . open ( dist_name , ' w:gz ' )
2010-05-28 12:50:25 +04:00
blacklist = dist_blacklist . split ( )
2010-04-04 03:57:33 +04:00
2010-04-04 05:00:42 +04:00
for dir in dist_dirs . split ( ) :
2010-04-04 03:57:33 +04:00
if dir . find ( ' : ' ) != - 1 :
destdir = dir . split ( ' : ' ) [ 1 ]
dir = dir . split ( ' : ' ) [ 0 ]
else :
destdir = ' . '
absdir = os . path . join ( srcdir , dir )
2010-04-04 05:00:42 +04:00
git_cmd = [ ' git ' , ' ls-files ' , ' --full-name ' , absdir ]
2010-04-04 04:23:43 +04:00
try :
files = Utils . cmd_output ( git_cmd ) . split ( )
except :
2010-04-09 15:12:02 +04:00
Logs . error ( ' git command failed: %s ' % ' ' . join ( git_cmd ) )
2010-04-04 04:23:43 +04:00
sys . exit ( 1 )
2010-04-04 03:57:33 +04:00
for f in files :
abspath = os . path . join ( srcdir , f )
if dir != ' . ' :
f = f [ len ( dir ) + 1 : ]
2010-05-28 12:50:25 +04:00
# Remove files in the blacklist
if f in dist_blacklist :
continue
blacklisted = False
# Remove directories in the blacklist
for d in blacklist :
if f . startswith ( d ) :
blacklisted = True
if blacklisted :
continue
2010-04-04 03:57:33 +04:00
if destdir != ' . ' :
f = destdir + ' / ' + f
fname = dist_base + ' / ' + f
2010-04-12 05:09:44 +04:00
add_tarfile ( tar , fname , abspath , dir )
2010-04-04 03:57:33 +04:00
tar . close ( )
2010-05-28 14:24:47 +04:00
if Options . options . SIGN_RELEASE :
try :
os . unlink ( dist_name + ' .asc ' )
except OSError :
pass
cmd = " gpg --detach-sign --armor " + dist_name
os . system ( cmd )
uncompressed_tar = open ( dist_name , ' rb ' )
compressed_tar = gzip . open ( dist_name + ' .gz ' , ' wb ' )
while 1 :
buffer = uncompressed_tar . read ( 1048576 )
if buffer :
compressed_tar . write ( buffer )
else :
break
uncompressed_tar . close ( )
compressed_tar . close ( )
os . unlink ( dist_name )
Logs . info ( ' Created %s .gz %s .asc ' % ( dist_name , dist_name ) )
dist_name = dist_name + ' .gz '
else :
Logs . info ( ' Created %s ' % dist_name )
2010-04-05 03:58:23 +04:00
return dist_name
2010-04-04 03:57:33 +04:00
@conf
2010-04-04 05:00:42 +04:00
def DIST_DIRS ( dirs ) :
2010-04-04 03:57:33 +04:00
''' set the directories to package, relative to top srcdir '''
2010-04-04 05:00:42 +04:00
global dist_dirs
if not dist_dirs :
dist_dirs = dirs
2010-04-04 04:06:34 +04:00
2010-05-28 12:50:25 +04:00
@conf
def DIST_BLACKLIST ( blacklist ) :
''' set the directories to package, relative to top srcdir '''
global dist_blacklist
if not dist_blacklist :
dist_blacklist = blacklist
2010-04-04 04:06:34 +04:00
Scripting . dist = dist