3 This file is part of builder
4 Copyright © 2007 Mikko Rasa, Mikkosoft Productions
5 Distributed under the LGPL
9 #include <msp/path/utils.h>
18 Tar::Tar(Builder &b, const TarBall &t):
23 string basename=tarball.get_name().substr(tarball.get_name().rfind('/')+1);
24 announce(tarball.get_package()->get_name(), "TAR ", basename);
25 if(builder.get_verbose()>=2)
26 cout<<"Create "<<basename<<'\n';
28 if(!builder.get_dry_run())
29 worker=new Worker(*this);
39 if(!worker) // True for dry run
45 if(worker->get_done())
49 return worker->get_error()?1:0;
56 Tar::Worker::Worker(Tar &t):
64 void Tar::Worker::main()
66 const Path::Path &pkg_src=tar.tarball.get_package()->get_source();
67 Path::Path basedir=Path::splitext(Path::basename(tar.tarball.get_name())).base;
69 ofstream out(tar.tarball.get_name().c_str());
70 const TargetList &deps=tar.tarball.get_depends();
71 for(TargetList::const_iterator i=deps.begin(); i!=deps.end(); ++i)
76 string rel_path=(basedir/relative((*i)->get_name(), pkg_src)).str();
77 if(rel_path.size()>99)
79 cout<<"Can't store "<<rel_path<<" in tar archive - too long name\n";
84 memcpy(buf, rel_path.data(), rel_path.size());
87 Path::stat((*i)->get_name(), st);
88 store_number(buf+100, st.st_mode, 7);
89 store_number(buf+108, st.st_uid, 7);
90 store_number(buf+116, st.st_gid, 7);
91 store_number(buf+124, st.st_size, 11);
92 store_number(buf+136, st.st_mtime, 11);
95 memset(buf+148, ' ', 8);
97 for(unsigned j=0; j<512; ++j)
98 chk+=static_cast<unsigned char>(buf[j]);
99 store_number(buf+148, chk, 7);
103 ifstream in((*i)->get_name().c_str());
104 for(int j=0; j<st.st_size; j+=4096)
107 unsigned len=in.gcount();
108 len+=((~len)+1)&0777;
116 void Tar::Worker::store_number(char *buf, unsigned value, unsigned length)
118 for(unsigned i=length; i--;)