3 This file is part of builder
4 Copyright © 2007-2009 Mikko Rasa, Mikkosoft Productions
5 Distributed under the LGPL
9 #include <msp/fs/stat.h>
10 #include <msp/fs/utils.h>
11 #include <msp/io/file.h>
12 #include <msp/io/print.h>
14 #include "sourcepackage.h"
21 Tar::Tar(Builder &b, const TarBall &t):
25 string basename = FS::basename(tarball.get_path());
26 announce(tarball.get_package()->get_name(), "TAR ", basename);
27 if(builder.get_verbose()>=2)
28 IO::print("Create %s\n", basename);
30 if(!builder.get_dry_run())
31 worker = new Worker(*this);
35 Tar::Worker::Worker(Tar &t):
41 void Tar::Worker::main()
43 const FS::Path &pkg_src = tar.tarball.get_package()->get_source();
44 FS::Path basedir = FS::basepart(FS::basename(tar.tarball.get_path()));
46 IO::File out(tar.tarball.get_path().str(), IO::M_WRITE);
47 const TargetList &deps = tar.tarball.get_depends();
48 for(TargetList::const_iterator i=deps.begin(); i!=deps.end(); ++i)
50 FileTarget *ft = dynamic_cast<FileTarget *>(*i);
57 string rel_path = (basedir/relative(ft->get_path(), pkg_src)).str();
58 if(rel_path.size()>99)
60 IO::print("Can't store %s in tar archive - too long name\n", rel_path);
65 memcpy(buf, rel_path.data(), rel_path.size());
67 struct stat st = FS::stat(ft->get_path());
68 store_number(buf+100, st.st_mode, 7);
69 store_number(buf+108, st.st_uid, 7);
70 store_number(buf+116, st.st_gid, 7);
71 store_number(buf+124, st.st_size, 11);
72 store_number(buf+136, st.st_mtime, 11);
75 memset(buf+148, ' ', 8);
77 for(unsigned j=0; j<512; ++j)
78 chk += static_cast<unsigned char>(buf[j]);
79 store_number(buf+148, chk, 7);
83 IO::File in(ft->get_path().str());
84 for(int j=0; j<st.st_size; j+=4096)
86 unsigned len = in.read(buf, 4096);
87 len += ((~len)+1)&0777;
95 void Tar::Worker::store_number(char *buf, unsigned value, unsigned length)
97 for(unsigned i=length; i--;)