/Users/barrand/private/dev/softinex/old/inexlib-1.2/inlib/inlib/system

Go to the documentation of this file.

// Copyright (C) 2010, Guy Barrand. All rights reserved.
// See the file inlib.license for terms.

#ifndef inlib_system
#define inlib_system

#include <string>
#include <cstdlib>
#include "cstr"
#include "smanip"

namespace inlib {

inline bool isenv(const std::string& a_string){
  const char* env = ::getenv(a_string.c_str());
  return (env?true:false);
}

inline bool getenv(const std::string& a_string,std::string& a_value){
  const char* env = ::getenv(a_string.c_str());
  if(env) {
    a_value = std::string(env?env:"");
    return true;
  } else {
    a_value.clear();
    return false;
  }
}

template <class T>
inline bool get_env(const std::string& a_string,T& a_v){
  std::string s;
  if(!getenv(a_string,s)) return false;
  return to<T>(s,a_v);
}

inline bool get_env_bool(const std::string& a_string,bool& a_v){
  std::string s;
  if(!getenv(a_string,s)) return false;
  return to(s,a_v);
}

inline bool putenv(const std::string& a_env,const std::string& a_value){
  std::string value = a_env+"="+a_value;
  if(::putenv(inlib::str_dup(value.c_str()))) return false;
  //check:
  std::string s;
  if(!getenv(a_env,s)) return false;
  if(s!=a_value) return false;
  return true;
}

inline bool rmenv(const std::string& a_env){
#ifdef WIN32
  std::string value = a_env+"=";
  if(::putenv(inlib::str_dup(value.c_str()))) return false;
#else
  ::unsetenv(a_env.c_str());
#endif
  return true;
}

inline bool check_getenv(std::ostream& a_out,const std::string& a_new,const std::string& a_old,std::string& a_env){
  if(inlib::getenv(a_new,a_env)) return true;
  if(inlib::getenv(a_old,a_env)) {
    a_out << "Environment variable " << sout(a_old) << " is deprecated."
          << " Use " << sout(a_new) << " instead."
          << std::endl;
    return true;
  }
  return false;
}

inline int execute(const std::string& a_string) {
  return ::system(a_string.c_str());
}

inline bool env_append(const std::string& a_list,const std::string& a_value,const std::string& a_sep){
  std::string old_value;
  if(inlib::isenv(a_list)) {
    if(!inlib::getenv(a_list,old_value)) return false;
  }

  if(old_value.size()) {
    std::vector<std::string> ws;
    inlib::words(old_value,a_sep,false,ws);
    // Remove existing one, so that a_value be put at end.
    inlib::remove(ws,a_value);
    old_value = inlib::to_string(ws,a_sep);
  }

  std::string new_value = old_value;
  if(new_value.size()) new_value += a_sep;
  new_value += a_value;
  if(!putenv(a_list,new_value)) return false;

  return true;
}

inline bool env_path_append(const std::string& a_paths,const std::string& a_path){
  return env_append(a_paths,a_path,psep());
}

inline bool expand_vars(std::string& a_string){
  std::string::size_type dollar;
  while((dollar=a_string.find('$'))!=std::string::npos){
    std::string::size_type slash = a_string.find('/',dollar+1);
    std::string::size_type back_slash = a_string.find('\\',dollar+1);
    std::string::size_type pos = std::string::npos; 
    if(slash!=std::string::npos) {
      if(back_slash!=std::string::npos) {
        pos = slash<back_slash?slash:back_slash;
      } else {
        pos = slash;
      }
    } else {
      if(back_slash!=std::string::npos) {
        pos = back_slash;
      } else {
        pos = std::string::npos; 
      }
    }
    std::string env;
    if(pos==std::string::npos) {
      env = a_string.substr(dollar+1,a_string.length()-(dollar+1));
    } else {
      //     abc$xxx/ef
      //     0  3   7 9
      env = a_string.substr(dollar+1,pos-(dollar+1));
    }
    char* val = ::getenv(env.c_str());
    if(!val) return false; // Stop looping if env variable not found.
    std::string value = a_string.substr(0,dollar);
    value += val;
    if(pos!=std::string::npos)
      value += a_string.substr(pos,a_string.length()-pos);
    a_string = value;
  }
  return true;
}

inline bool file_name(const std::string& a_path,std::string& a_name) {
  a_name = a_path;
  if(!expand_vars(a_name)) {a_name.clear();return false;}
#ifdef WIN32
  replace(a_name,"/","\\");
  replace(a_name,"\"","");
#endif
  return true;
}

inline std::string plugin_prefix(){
#if defined(WIN32)
  return "";
#elif defined(__APPLE__)
  return "";
#elif defined(__CYGWIN__) && defined(__GNUC__)
  return "";
#else //UNIX
  return "lib";
#endif
}

inline std::string plugin_suffix(){
#if defined(WIN32)
  return "dll";
#elif defined(__APPLE__)
  return "bundle";
#elif defined(__CYGWIN__) && defined(__GNUC__)
  return "dll";
#else //UNIX
  return "so";
#endif
}

inline std::string plugin_name(const std::string& a_name){
#if defined(WIN32)
  return a_name + ".dll";
#elif defined(__CYGWIN__) && defined(__GNUC__)
  return a_name + ".dll";
#elif defined(__APPLE__)
  return a_name + ".bundle";
#else
  return std::string("lib") + a_name + ".so";
#endif
}

inline std::string so_name(const std::string& a_name){
#if defined(WIN32)
  return a_name + ".dll";
#elif defined(__CYGWIN__) && defined(__GNUC__)
  return a_name + ".dll";
#elif defined(__APPLE__)
  return "lib" + a_name + ".dylib";
#else
  return std::string("lib") + a_name + ".so";
#endif
}

}

#endif