2 #include <msp/fs/stat.h>
3 #include <msp/fs/utils.h>
4 #include <msp/io/file.h>
5 #include <msp/io/print.h>
7 #include "sourcepackage.h"
14 Tar::Tar(Builder &b, const TarBall &t):
18 string basename = FS::basename(tarball.get_path());
19 announce(tarball.get_package()->get_name(), "TAR ", basename);
20 if(builder.get_verbose()>=2)
21 IO::print("Create %s\n", basename);
23 if(!builder.get_dry_run())
24 worker = new Worker(*this);
28 Tar::Worker::Worker(Tar &t):
34 void Tar::Worker::main()
36 const FS::Path &pkg_src = tar.tarball.get_package()->get_source();
37 FS::Path basedir = FS::basepart(FS::basename(tar.tarball.get_path()));
39 IO::File out(tar.tarball.get_path().str(), IO::M_WRITE);
40 const TargetList &deps = tar.tarball.get_depends();
41 for(TargetList::const_iterator i=deps.begin(); i!=deps.end(); ++i)
43 FileTarget *ft = dynamic_cast<FileTarget *>(*i);
50 string rel_path = (basedir/relative(ft->get_path(), pkg_src)).str();
51 if(rel_path.size()>99)
53 IO::print("Can't store %s in tar archive - too long name\n", rel_path);
58 memcpy(buf, rel_path.data(), rel_path.size());
60 FS::Stat st = FS::stat(ft->get_path());
61 store_number(buf+100, 0666, 7);
62 store_number(buf+108, 0, 7);
63 store_number(buf+116, 0, 7);
64 store_number(buf+124, st.get_size(), 11);
65 store_number(buf+136, st.get_modify_time().to_unixtime(), 11);
68 memset(buf+148, ' ', 8);
70 for(unsigned j=0; j<512; ++j)
71 chk += static_cast<unsigned char>(buf[j]);
72 store_number(buf+148, chk, 7);
76 IO::File in(ft->get_path().str());
77 for(unsigned j=0; j<st.get_size(); j+=4096)
79 unsigned len = in.read(buf, 4096);
80 len += ((~len)+1)&0777;
88 void Tar::Worker::store_number(char *buf, unsigned value, unsigned length)
90 for(unsigned i=length; i--;)