source: branches/replacing_gnuplot/lib/utility.cc @ 845

// $Id: utility.cc 845 2009-11-16 22:27:19Z jari $

/*
  Copyright (C) 2006, 2007, 2009 Jari Häkkinen, Peter Johansson
  Copyright (C) 2008, 2009 Peter Johansson

  This file is part of svndigest, http://dev.thep.lu.se/svndigest

  svndigest is free software; you can redistribute it and/or modify it
  under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 3 of the License, or
  (at your option) any later version.

  svndigest is distributed in the hope that it will be useful, but
  WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with svndigest. If not, see <http://www.gnu.org/licenses/>.
*/

#include "utility.h"

#include "subversion_info.h"
#include "config.h"

#include <cassert>
#include <cerrno> 
#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <fstream>
#include <sstream>
#include <stdexcept>
#include <string>
#include <sys/param.h>
#include <sys/stat.h>
#include <unistd.h>

#include <iostream>

namespace theplu{
namespace svndigest{

  int access_rights(const std::string& path, const std::string& bits)
  {
    if (access(path.c_str(),F_OK)) {
      throw std::runtime_error(std::string("access_rights: ") + path +
                               "' does not exist.");
    }
    int mode=0;
    for (unsigned int i=0; i<bits.length(); ++i)
      switch (bits[i]) {
          case 'r':
            mode|=R_OK;
            break;
          case 'w':
            mode|=W_OK;
            break;
          case 'x':
            mode|=X_OK;
            break;
      }
    return access(path.c_str(),mode);
  }


  std::string concatenate_path(std::string dir, std::string base)
  {
    if (dir.empty() || dir==".")
      return base;
    if (dir[dir.size()-1]!='/')
      dir.append("/");
    return dir+base;
  }


  void copy_file(const std::string& source, const std::string& target)
  {
    std::ofstream o(target.c_str());
    std::ifstream i(source.c_str());
    while (i.good()) {
      char ch=i.get();
      if (i.good())
        o.put(ch);
      if (!o.good())
        throw std::runtime_error(std::string("copy_file: ") +
                                 "writing target file failed '" + target + "'");
    }
    if (!i.eof() && (i.bad() || i.fail()))  // fail on everything except eof
      throw std::runtime_error(std::string("copy_file: ") +
                               "error reading source file '" + source + "'");
    i.close(); o.close();
  }


  std::string directory_name(std::string path)
  {
    size_t pos = path.find_last_of("/");
    if (pos==std::string::npos)
      return ".";
    if (pos==path.size()-1)
      return directory_name(path.substr(0,path.size()-2));
    return path.substr(0,pos+1);
  }


  bool equal(std::string::const_iterator first1, 
             std::string::const_iterator end1,
             std::string::const_iterator first2,
             std::string::const_iterator end2)
  {
    if (first1==end1 && first2==end2)
      return true;
    if (first1!=end1 && first2!=end2 && 
        (*first1==*first2 || *first1=='*' || *first2=='*' ||
         *first1=='?' || *first2=='?') && 
        equal(first1+1, end1, first2+1, end2) )
      return true;
    if ( (first1!=end1 && first2!=end2 && (*first1=='*'|| *first2=='*') ) && 
         (equal(first1+1, end1, first2, end2) || 
          equal(first1, end1, first2+1, end2))
         )
      return true;
    return false;
  }


  std::string file_name(const std::string& full_path)
  {
    std::stringstream ss(full_path);
    std::string name;
    while (getline(ss,name,'/')) {}
    return name;
  }


  std::string getenv(const std::string& var)
  {
    char* buffer=std::getenv(var.c_str());
    if (!buffer)
      throw std::runtime_error("Environment variable "+var+" is not set");
    return std::string(buffer);
  }


  std::string hex(int x, unsigned int width)
  {
    std::stringstream ss;
    ss << std::hex << x;
    if (!width)
      return ss.str();
    if (ss.str().size()<width) 
      return std::string(width-ss.str().size(), '0') + ss.str();
    return ss.str().substr(0, width);
  }


  std::string htrim(std::string str)
  {
    size_t length=str.size();
    while(length && isspace(str[length-1]))
      --length;
    return str.substr(0,length);
  }


  std::string ltrim(std::string str)
  {
    size_t i = 0;
    while(i<str.size() && isspace(str[i]))
      ++i;
    return str.substr(i);
  }

  void mkdir(const std::string& dir)
  { 
    int code = ::mkdir(dir.c_str(),0777);
    if (code){
      std::stringstream ss;
      ss << "mkdir(" << dir << "): failed\n" << strerror(errno);
      throw std::runtime_error(ss.str());
    }
  }


  void mkdir_p(const std::string& dir)
  { 
    if (node_exist(dir))
      return;
    std::string mother = directory_name(dir);
    mkdir_p(mother);
    mkdir(dir);
  }


  bool node_exist(const std::string& path)
  {
    struct stat buf;
    return !stat(path.c_str(),&buf);
  }


  int percent(int a, int b)
  {
    if (b)
      return (100*a)/b;
    return 0;
  }


  std::string pwd(void)
  {
    char buffer[MAXPATHLEN];
    if (!getcwd(buffer, MAXPATHLEN))
      throw std::runtime_error("Failed to get current working directory");
    return std::string(buffer);
  }


  bool regexp(std::string::const_iterator first1, 
              std::string::const_iterator last1,
              std::string::const_iterator first2,
              std::string::const_iterator last2,
              std::vector<std::string>& vec)
  {
    if (vec.empty())
      vec.push_back("");

    // first two cases when ranges are empty
    if (first1==last1 && first2==last2){
      vec.pop_back();
      return true;
    }
    if (first1==last1 || first2==last2)
      return false;

    // then we take care of the real stuff
    if (*first2 == '*'){
      // trying '*' to consume another character
      vec.back().append(1, *first1);
      if (regexp(first1+1, last1, first2, last2, vec) )
        return true;
      assert(vec.back().size());
      vec.back().resize(vec.back().size()-1);

      // stepping away from the '*'
      vec.push_back("");
      if (regexp(first1, last1, first2+1, last2, vec)) 
        return true;
      vec.pop_back();
      return false;
    }
    else if (*first2 == '?'){
      // eating a character
      vec.back() = std::string(first1, first1+1);
      vec.push_back("");
      if (regexp(first1+1, last1, first2+1, last2, vec) )
        return true;
      vec.pop_back();
      // ? interpreted as zero characters
      vec.back() = "";
      vec.push_back("");
      if (regexp(first1, last1, first2+1, last2, vec) )
        return true;
      vec.pop_back();
      return false;
    }
    if (*first1 != *first2)
      return false;
    return regexp(++first1, last1, ++first2, last2, vec);
  }


  void replace(std::string& str, std::string old_str, std::string new_str)
  {
    std::string::iterator iter(str.begin());
    while ((iter=search(iter, str.end(), old_str)) != str.end()) {
      size_t i = iter-str.begin();
      str = std::string(str.begin(), iter) + new_str + 
        std::string(iter+old_str.size(), str.end());
      // pointing to char after substr we just inserted
      iter = str.begin() + (i+new_str.size()); 
    }
  }


  void touch(std::string str)
  {
    if (!node_exist(str)) {
      std::ofstream os(str.c_str());
      os.close();
    }
  }

  time_t str2time(const std::string& str)
  {
    //  str in format 2006-09-09T10:55:52.132733Z
    std::stringstream sstream(str);
    time_t rawtime;
    struct tm * timeinfo;
    time ( &rawtime );
    timeinfo =  gmtime ( &rawtime );

    unsigned int year, month, day, hour, minute, second;
    std::string tmp;
    getline(sstream,tmp,'-');
    year=atoi(tmp.c_str());
    timeinfo->tm_year = year - 1900;

    getline(sstream,tmp,'-');
    month=atoi(tmp.c_str());
    timeinfo->tm_mon = month - 1;

    getline(sstream,tmp,'T');
    day=atoi(tmp.c_str());
    timeinfo->tm_mday = day;

    getline(sstream,tmp,':');
    hour=atoi(tmp.c_str());
    timeinfo->tm_hour = hour;

    getline(sstream,tmp,':');
    minute=atoi(tmp.c_str());
    timeinfo->tm_min = minute;

    getline(sstream,tmp,'.');
    second=atoi(tmp.c_str());
    timeinfo->tm_sec = second;

    return mktime(timeinfo);
  }


  std::string match(std::string::const_iterator& first,
                    const std::string::const_iterator& last,
                    std::string str)
  {
    if (match_begin(first, last, str)){
      first+=str.size();
      return str;
    }
    return std::string();
  }

}} // end of namespace svndigest and namespace theplu