_stdlib.cpp

Go to the documentation of this file.

#include <dcl/Config.h>     
 
#include <errno.h>
#include <string.h>
#include <stdlib.h>         // alloca
#include <dcl/_stdlib.h>
 
#include <dcl/Object.h>     // __T(str)
#include <dcl/String.h>
 
#include "__strumbs.h"
 
#if __DCL_DEBUG
#undef __THIS_FILE__
const char_t __THIS_FILE__[] = __T("dcl/_stdlib.cpp");
#endif
 
__DCL_BEGIN_NAMESPACE
 
#if __DCL_WINDOWS
DCLCAPI int setenv(const char* _name, const char* _value, int _overwrite)
{
    char* sz = (char*) _alloca(strlen(_name) + strlen(_value) + 2);
    strcpy(sz, _name);
    strcat(sz, "=");
    strcat(sz, _value);
    return _putenv(sz);
}
 
DCLCAPI int unsetenv(const char* _name)
{
    char* sz = (char*)_alloca(strlen(_name) + 2);
    strcpy(sz, _name);
    strcat(sz, "=");
    return _putenv(sz);
}
#endif
 
#if !__DCL_WINDOWS
int __getenv(const String& _name, String& _value)
{
    STRTOMBS_ER(_name, name);
    char* s = ::getenv(name);
    if (s) {
        MBSTOSTR_ER(s, (size_t) -1, _value);
        return 0;
    }
    errno = ENOENT;
    return -1;
}
 
int __setenv(const String& _name, const String& _value, bool _overwrite)
{
    STRTOMBS_ER(_name, name);
    STRTOMBS_ER(_value, value);
    return ::setenv(name, value, _overwrite ? 1 : 0);
}
 
int __unsetenv(const String& _name)
{
    STRTOMBS_ER(_name, name);
    return ::unsetenv(name);
}
 
int __realpath(const String& _path, String& _resolved)
{
    char resolved[PATH_MAX + 1];
    STRTOMBS_ER(_path, path);
    char* s = ::realpath(path, resolved);
    if (s) {
        MBSTOSTR_ER(s, (size_t)-1, _resolved);
        return 0;
    }
    return -1;
}
 
#endif  // !__DCL_WINDOWS
 
__DCL_END_NAMESPACE