source/tar.cpp

   1 /* $Id$
   2
   3 This file is part of builder
   4 Copyright © 2007 Mikko Rasa, Mikkosoft Productions
   5 Distributed under the LGPL
   6 */
   7
   8 #include <iostream>
   9 #include <msp/io/file.h>
  10 #include <msp/path/utils.h>
  11 #include "builder.h"
  12 #include "sourcepackage.h"
  13 #include "tar.h"
  14 #include "tarball.h"
  15
  16 using namespace std;
  17 using namespace Msp;
  18
  19 Tar::Tar(Builder &b, const TarBall &t):
  20         InternalAction(b),
  21         tarball(t)
  22 {
  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';
  27
  28         if(!builder.get_dry_run())
  29                 worker=new Worker(*this);
  30 }
  31
  32
  33 Tar::Worker::Worker(Tar &t):
  34         tar(t)
  35 {
  36         launch();
  37 }
  38
  39 void Tar::Worker::main()
  40 {
  41         const Path &pkg_src=tar.tarball.get_package()->get_source();
  42         Path basedir=splitext(basename(tar.tarball.get_name())).base;
  43
  44         IO::File out(tar.tarball.get_name(), IO::M_WRITE);
  45         const TargetList &deps=tar.tarball.get_depends();
  46         for(TargetList::const_iterator i=deps.begin(); i!=deps.end(); ++i)
  47         {
  48                 char buf[4096];
  49                 memset(buf, 0, 512);
  50
  51                 string rel_path=(basedir/relative((*i)->get_name(), pkg_src)).str();
  52                 if(rel_path.size()>99)
  53                 {
  54                         cout<<"Can't store "<<rel_path<<" in tar archive - too long name\n";
  55                         error=true;
  56                         break;
  57                 }
  58
  59                 memcpy(buf, rel_path.data(), rel_path.size());
  60
  61                 struct stat st=stat((*i)->get_name());
  62                 store_number(buf+100, st.st_mode, 7);
  63                 store_number(buf+108, st.st_uid, 7);
  64                 store_number(buf+116, st.st_gid, 7);
  65                 store_number(buf+124, st.st_size, 11);
  66                 store_number(buf+136, st.st_mtime, 11);
  67                 buf[156]='0';
  68
  69                 memset(buf+148, ' ', 8);
  70                 unsigned chk=0;
  71                 for(unsigned j=0; j<512; ++j)
  72                         chk+=static_cast<unsigned char>(buf[j]);
  73                 store_number(buf+148, chk, 7);
  74                 buf[155]=0;
  75
  76                 out.write(buf, 512);
  77                 IO::File in((*i)->get_name());
  78                 for(int j=0; j<st.st_size; j+=4096)
  79                 {
  80                         unsigned len=in.read(buf, 4096);
  81                         len+=((~len)+1)&0777;
  82                         out.write(buf, len);
  83                 }
  84         }
  85
  86         done=true;
  87 }
  88
  89 void Tar::Worker::store_number(char *buf, unsigned value, unsigned length)
  90 {
  91         for(unsigned i=length; i--;)
  92         {
  93                 buf[i]='0'+value%8;
  94                 value/=8;
  95         }
  96 }