---

System.cpp

Go to the documentation of this file.

// $Header: /nfs/slac/g/glast/ground/cvs/GaudiKernel/src/Lib/System.cpp,v 1.1.1.1 2001/04/18 18:14:18 tlindner Exp $
//====================================================================
//      System.cpp
//--------------------------------------------------------------------
//
//      Package    : System (The LHCb System service)
//
//  Description: Implementation of Systems internals
//
//      Author     : M.Frank
//  Created    : 13/1/99
//      Changes    : 
//====================================================================
#define SYSTEM_SYSTEM_CPP
#include <ctime>
#include <cstring>
#include <cstdlib>
#include <iostream>
#include <typeinfo>

#include "GaudiKernel/System.h"

#ifdef _WIN32
  #  define strcasecmp  _stricmp
  #  define strncasecmp _strnicmp
  #include "process.h"
  #include "windows.h"

  #define getpid _getpid
  const char* SHLIB_SUFFIX = ".dll";

#else  // UNIX...: first the EGCS stuff, then the OS dependent includes
  const char* SHLIB_SUFFIX = ".so";
  #include <errno.h>
  #include <string.h>
  #include "sys/times.h"
  #include "unistd.h"
  #include "libgen.h"
  #include <cstdio>
#if defined(linux) || defined(sun)
  #include "dlfcn.h"
#elif __hpux
  #include "dl.h"
struct HMODULE {
  shl_descriptor dsc;
  long           numSym;
  shl_symbol*    sym;
};
#endif

#endif

static std::vector<std::string> s_argvStrings;
static std::vector<const char*> s_argvChars;

static unsigned long doLoad(const std::string& name, System::ImageHandle* handle)  {
#ifdef _WIN32
  void* mh = ::LoadLibrary( name.length() == 0 ? System::exeName().c_str() : name.c_str());
  *handle = mh;
#else
  const char* path = name.c_str();
#if defined(linux) || defined(sun)
  void *mh = ::dlopen(name.length() == 0 ? 0 : path, RTLD_LAZY);
  *handle = mh;
#elif __hpux
  shl_t mh = ::shl_load(name.length() == 0 ? 0 : path, BIND_IMMEDIATE | BIND_VERBOSE, 0);
  HMODULE* mod = new HMODULE;
  if ( 0 != mh ) {
    if ( 0 != ::shl_gethandle_r(mh, &mod->dsc) ) {
      std::cout << "System::loadDynamicLib>" << ::strerror(getLastError()) << std::endl;
    }
    else {
      typedef void* (*___all)();
      ___all _alloc = (___all)malloc;
      mod->numSym = ::shl_getsymbols(mod->dsc.handle, TYPE_PROCEDURE, EXPORT_SYMBOLS, malloc, &mod->sym);
      *handle = mod;
    }
  }
#endif
#endif
  if ( 0 == *handle )   {
    return System::getLastError();
  }
  return 1;
}

static unsigned long loadWithoutEnvironment(const std::string& name, System::ImageHandle* handle)    {

  unsigned long res;
  std::string dllName = name;
  long len = strlen(SHLIB_SUFFIX);

  // Add the suffix at the end only if necessary
  if ( (dllName.length() != 0) &&
        ::strncasecmp(dllName.data()+dllName.length()-len, SHLIB_SUFFIX, len) != 0 ) {
     dllName += SHLIB_SUFFIX;
  }
  // Load the library
  res = doLoad(dllName, handle);
  if ( 1 != res )   {
    // Try to reconstruct the proper dll name

    if ( ::strncasecmp(dllName.data()+dllName.length()-len,SHLIB_SUFFIX,len) == 0 ) {
      dllName = name.substr(0, name.length()-len);
    }
#ifdef _WIN32
    if ( ::strncasecmp(dllName.data()+dllName.length()-3,"Shr",3) != 0 )    {
      dllName += "Shr";
    }
#endif
    dllName += SHLIB_SUFFIX;
    res = doLoad(dllName, handle);
  }
  return res;
}

static unsigned long loadWithEnvironment(const std::string& name, System::ImageHandle* handle)    {
  unsigned long res = 0;
  std::string env = name;
  if ( 0 != ::getenv(env.c_str()) )    {
    std::string imgName = ::getenv(env.c_str());
    res = loadWithoutEnvironment(imgName, handle);
  }
  else    {
    env += "Shr";
    if ( 0 != ::getenv(env.c_str()) )    {
      std::string imgName = ::getenv(env.c_str());
      res = loadWithoutEnvironment(imgName, handle);
    }
  }
  return res;
}

unsigned long System::loadDynamicLib(const std::string& name, ImageHandle* handle)    {
  // If the name is a logical name (environment variable), the try
  // to load the corresponding library from there.
  unsigned long res = loadWithEnvironment(name, handle);
  // If this was NOT successful, try to locate the dll using the standard PATH
  if ( 1 != res )  {
    res = loadWithoutEnvironment(name, handle);
    if ( 1 != res )   {
      std::string dllName = "lib" + name;
#ifdef _WIN32
      // Try to reconstruct the proper dll name
      if ( ::strncasecmp(dllName.data()+dllName.length()-3,"Shr",3) != 0 ) {
        dllName += "Shr";
      }
#endif
      dllName += SHLIB_SUFFIX;
      res = loadWithoutEnvironment(dllName, handle);
    }
  }
  if ( res != 1 ) {
#if defined(linux) || defined(sun)
    errno = 0xAFFEDEAD;
#endif
    std::cout << "System::loadDynamicLib>" << getLastErrorString() << std::endl;
  }
  return res;
}

unsigned long System::unloadDynamicLib(ImageHandle handle)    {
#ifdef _WIN32
  if ( !::FreeLibrary((HINSTANCE)handle) ) {
#elif defined(linux) || defined(sun)
  ::dlclose( handle );
  if ( 0 ) {
#elif __hpux
  // On HP we have to run finalization ourselves.....
  Creator pFinalize = 0;
  if ( getProcedureByName(handle, "_fini", &pFinalize) ) {
    pFinalize();
  }
  HMODULE* mod = (HMODULE*)handle;
  if ( 0 == ::shl_unload( mod->dsc.handle ) ) {
    delete mod;
  }
  else {
#endif
    return getLastError();
  }
  return 1;
}

unsigned long System::getProcedureByName(ImageHandle handle, const std::string& name, EntryPoint* pFunction)    {
#ifdef _WIN32
  *pFunction = (EntryPoint)::GetProcAddress((HINSTANCE)handle, name.data());
  if ( 0 == *pFunction )    {
    return System::getLastError();
  }
  return 1;
#elif defined(linux) || defined(sun)
  *pFunction = (EntryPoint)::dlsym(handle, name.c_str());
  if ( 0 == *pFunction )    {
    errno = 0xAFFEDEAD;
    std::cout << "System::getProcedureByName>" << getLastErrorString() << std::endl;
    return 0;
  }
  return 1;
#elif __hpux
  HMODULE* mod = (HMODULE*)handle;
  if ( 0 != mod ) {
    long ll1 = name.length();
    for ( int i = 0; i < mod->numSym; i++ ) {
      long ll2 = strlen(mod->sym[i].name);
      if ( 0 != ::strncmp(mod->sym[i].name, name.c_str(), (ll1>ll2) ? ll1 : ll2)==0 ) {
              *pFunction = (EntryPoint) mod->sym[i].value;
              return 1;
      }
    }
  }
  return 0;
#endif
}

unsigned long System::getProcedureByName(ImageHandle handle, const std::string& name, Creator* pFunction)    {
  return getProcedureByName(handle, name, (EntryPoint*)pFunction);
}

unsigned long System::getLastError()    {
#ifdef _WIN32
  return ::GetLastError();
#else
  return errno;
#endif
}

const std::string System::getLastErrorString()    {
  const std::string errString = getErrorString(getLastError());
  return errString;
}

const std::string System::getErrorString(unsigned long error)    {
  std::string errString =  "";
#ifdef _WIN32
  LPVOID lpMessageBuffer;
  ::FormatMessage( 
    FORMAT_MESSAGE_ALLOCATE_BUFFER |  FORMAT_MESSAGE_FROM_SYSTEM,
    NULL,
    error,
    MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), //The user default language
    (LPTSTR) &lpMessageBuffer,
    0,
    NULL );
  errString = (const char*)lpMessageBuffer;
  // Free the buffer allocated by the system
  ::LocalFree( lpMessageBuffer ); 
#else
  // Remember: for linux dl* routines must be handled differently!
  if ( error == 0xAFFEDEAD )  {
    errString = ::dlerror();
    errno = 0;
  }
  else    {
    errString = ::strerror(error);
  }
#endif
  return errString;
}

// This is a little bit complicated....but at least it gives
// usable results:
// Native class template:
//  Spac::templa<Spac::templa<Spac::templ<Spac::templa<AAA::a,Spac::templa<double,unsigned char>>>,B::bbb>,float>
// is translated under egcs to the unreadable string:
//  Q24Spact6templa2ZQ24Spact6templa2ZQ24Spact5templ1ZQ24Spact6templa2ZQ23AAA1aZQ24Spact6templa2ZdZUcZQ21B3bbbZf

std::string __typeName(char*&  name);
std::string __className(char*& name) {
  std::string result;
  int j = 0, k, i;
  if ( 't' == *name ) {
    goto Template;
  }
  for ( i = ::strtol(name, &name, 10);  i > 0; i = ::strtol(name, &name, 10) ) {
    if ( j++ != 0 ) result.append("::",2);
    result.append(name, i);
    if ( *(name+=i) == 't' ) {
      result.append("::",2);
    Template:
      result.append(name, (i=::strtol(++name, &name, 10)));
      result.append("<");
      for (k = 0, i=::strtol(name+i, &name, 10); k < i; k++ ) {
        result += __typeName( ++name );
        if ( k+1 < i ) result += ",";
      }
      result.append(">");
    }
  }
  return result;
}

std::string __typeName(char*&  name) {
  if ( *name == 'Q' ) {              // Handle name spaces
    if ( *(++name) == '_' )          // >= 10 nested name spaces
      ::strtol(++name, &name, 10);   // type Q_##_...
    return __className(++name); 
  }
  else if ( 't' == *name )  {
    return __className(name); 
  }
  else  {
    std::string result;
    char* ptr;
    int i = ::strtol(name, &ptr, 10);
    if ( i <= 0 )  {
      name = ptr;
      while ( *name != 0 && *name != 'Z' )  {
        if ( *name == 'U' )  {
          result += "unsigned ";
          name++;
        }
        switch( *name++ )  {
        case 'c': result += "char"; break;
        case 's': result += "short"; break;
        case 'i': result += "int"; break;
        case 'l': result += "long"; break;
        case 'f': result += "float"; break;
        case 'd': result += "double"; break;
        default:  result += *(name-1);
        }
      }
      return result;
    }
    else {
      return __className(name); 
    }
  }
}

const std::string System::typeinfoName( const std::type_info& tinfo) {
  const char* class_name = tinfo.name();
  std::string result;
#ifdef _WIN32
  long off = 0;
  if ( ::strncmp(class_name, "class ", 6) == 0 )   {
    // The returned name is prefixed with "class "
    off = 6;
  }
  if ( ::strncmp(class_name, "struct ", 7) == 0 )   {
    // The returned name is prefixed with "struct "
    off = 7;
  }
  if ( off > 0 )    {
    std::string tmp = class_name + off;
    long loc = 0;
    while( (loc = tmp.find("class ")) > 0 )  {
      tmp.erase(loc, 6);
    }
    loc = 0;
    while( (loc = tmp.find("struct ")) > 0 )  {
      tmp.erase(loc, 7);
    }
    result = tmp;
  }
  else  {
    result = class_name;
  }
#else
  char *name = const_cast<char*>(class_name);
  result = __typeName( name );
#endif
  return result;
}

const std::string& System::hostName() {
  static std::string host = "";
  if ( host == "" ) {
    char buffer[512];
    memset(buffer,0,sizeof(buffer));
#ifdef _WIN32
    unsigned long len = sizeof(buffer);
    ::GetComputerName(buffer, &len);
#else
    ::gethostname(buffer, sizeof(buffer));
#endif
    host = buffer;
  }
  return host;
}

const std::string& System::accountName() {
  static std::string account = "";
  if ( account == "" ) {
#ifdef _WIN32
    char buffer[512];
    unsigned long buflen = sizeof(buffer);
    ::GetUserName(buffer, &buflen);
    account = buffer;
#else
    const char* acct = ::getlogin();
    if ( 0 == acct ) acct = ::getenv("LOGNAME");
    if ( 0 == acct ) acct = ::getenv("USER");
    account = (acct) ? acct : "Unknown";
#endif
  }
  return account;
}

long System::numCmdLineArgs()   {
  return cmdLineArgs().size();
}

long System::argc()    {
  return cmdLineArgs().size();
}

const std::vector<std::string> System::cmdLineArgs()    {
  if ( s_argvChars.size() == 0 )    {
    char exe[1024];
#ifdef _WIN32
    // For compatibility with UNIX we CANNOT use strtok!
    // If we would use strtok, options like -g="My world" at
    // the command line level would result on NT in TWO options 
    // instead in one as in UNIX.
    char *next, *tmp1, *tmp2;
    for(LPTSTR cmd = ::GetCommandLine(); *cmd; cmd=next)   {
      memset(exe,0,sizeof(exe));
      while ( *cmd == ' ' ) cmd++;
      next=::strchr(cmd,' ');
      if ( !next ) next = cmd + strlen(cmd);
      if ( (tmp1=::strchr(cmd,'\"')) > 0 && tmp1 < next )  {
        tmp2 = ::strchr(++tmp1,'\"');
        if ( tmp2 > 0 )   {
          next = ++tmp2;
          if ( cmd < tmp1 ) strncpy(exe, cmd, tmp1-cmd-1);
          strncpy(&exe[strlen(exe)], tmp1, tmp2-tmp1-1);
        }
        else    {
          std::cout << "Mismatched \" in command line arguments" << std::endl;
          s_argvChars.erase(s_argvChars.begin(), s_argvChars.end());
          s_argvStrings.erase(s_argvStrings.begin(), s_argvStrings.end());
          return s_argvStrings;
        }
      }
      else    {
        strncpy(exe, cmd, next-cmd);
      }
      s_argvStrings.push_back(exe);
      s_argvChars.push_back( s_argvStrings.back().c_str());
    }
#elif defined(linux) || defined(sun)
    sprintf(exe, "/proc/%d/cmdline", ::getpid());
    FILE *cmdLine = ::fopen(exe,"r");
    char cmd[1024];
    if ( cmdLine )   {
      long len = fread(cmd, sizeof(char), sizeof(cmd), cmdLine);
      if ( len > 0 )   {
        cmd[len] = 0;
        for ( char* token = cmd; token-cmd < len; token += strlen(token)+1 )  {
          s_argvStrings.push_back(token);
          s_argvChars.push_back( s_argvStrings.back().c_str());
        }
        s_argvStrings[0] = exeName();
        s_argvChars[0]   = s_argvStrings[0].c_str();
      }
    }
    ::fclose(cmdLine);
#endif
  }
  return s_argvStrings;
}

char** System::argv()    {
  if( s_argvChars.empty() ) { cmdLineArgs(); }  

  // We rely here on the fact that a vector's allocation table is contiguous
  return (char**)&s_argvChars[0];
}

---