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"
18 Target *Tar::create_target(const list<Target *> &sources, const string &arg) const
20 if(!sources.front()->get_package())
21 throw invalid_argument("Tar::create_target");
22 const SourcePackage &src_pkg = dynamic_cast<const SourcePackage &>(*sources.front()->get_package());
24 TarBall *tarball = new TarBall(builder, src_pkg, arg);
25 for(list<Target *>::const_iterator i=sources.begin(); i!=sources.end(); ++i)
26 tarball->add_depend(*i);
31 Task *Tar::run(const Target &target) const
33 const TarBall &tarball = dynamic_cast<const TarBall &>(target);
34 Worker *worker = new Worker(tarball);
35 return new InternalTask(worker);
39 Tar::Worker::Worker(const TarBall &tb):
45 void Tar::Worker::main()
47 const FS::Path &pkg_src = tarball.get_package()->get_source();
48 FS::Path basedir = FS::basepart(FS::basename(tarball.get_path()));
50 IO::File out(tarball.get_path().str(), IO::M_WRITE);
51 const TargetList &deps = tarball.get_depends();
52 for(TargetList::const_iterator i=deps.begin(); i!=deps.end(); ++i)
54 FileTarget *ft = dynamic_cast<FileTarget *>(*i);
61 string rel_path = (basedir/relative(ft->get_path(), pkg_src)).str();
62 if(rel_path.size()>99)
64 IO::print("Can't store %s in tar archive - too long name\n", rel_path);
69 memcpy(buf, rel_path.data(), rel_path.size());
71 FS::Stat st = FS::stat(ft->get_path());
72 store_number(buf+100, 0666, 7);
73 store_number(buf+108, 0, 7);
74 store_number(buf+116, 0, 7);
75 store_number(buf+124, st.get_size(), 11);
76 store_number(buf+136, st.get_modify_time().to_unixtime(), 11);
79 memset(buf+148, ' ', 8);
81 for(unsigned j=0; j<512; ++j)
82 chk += static_cast<unsigned char>(buf[j]);
83 store_number(buf+148, chk, 7);
87 IO::File in(ft->get_path().str());
88 for(unsigned j=0; j<st.get_size(); j+=4096)
90 unsigned len = in.read(buf, 4096);
91 len += ((~len)+1)&0777;
96 status = Task::SUCCESS;
99 void Tar::Worker::store_number(char *buf, unsigned value, unsigned length)
101 for(unsigned i=length; i--;)
103 buf[i] = '0'+value%8;