20#include "RConfigure.h"
51#if defined(R__SUN) || defined(R__AIX) || \
52 defined(R__LINUX) || defined(R__SOLARIS) || \
53 defined(R__FBSD) || defined(R__OBSD) || \
54 defined(R__MACOSX) || defined(R__HURD)
62#if defined(ULTRIX) || defined(R__SUN)
65#if defined(R__AIX) || defined(R__LINUX) || \
66 defined(R__FBSD) || defined(R__OBSD) || \
67 defined(R__LYNXOS) || defined(R__MACOSX) || defined(R__HURD)
68# include <sys/ioctl.h>
70#if defined(R__AIX) || defined(R__SOLARIS)
71# include <sys/select.h>
74# include <mach-o/dyld.h>
75# include <sys/mount.h>
76 extern "C" int statfs(
const char *file,
struct statfs *buffer);
77#elif defined(R__LINUX) || defined(R__HURD)
79#elif defined(R__FBSD) || defined(R__OBSD)
80# include <sys/param.h>
81# include <sys/mount.h>
84# include <sys/types.h>
85# include <sys/param.h>
86# include <sys/queue.h>
87# include <libprocstat.h>
91# include <sys/statfs.h>
103#include <sys/resource.h>
108#include <sys/socket.h>
109#include <netinet/in.h>
110#include <netinet/tcp.h>
112# define _XOPEN_EXTENDED_SOURCE
113# include <arpa/inet.h>
114# undef _XOPEN_EXTENDED_SOURCE
115# if !defined(_AIX41) && !defined(_AIX43)
117# define HASNOT_INETATON
120# include <arpa/inet.h>
125#if defined(R__SOLARIS)
126# include <sys/systeminfo.h>
127# include <sys/filio.h>
128# include <sys/sockio.h>
129# define HASNOT_INETATON
131# define INADDR_NONE (UInt_t)-1
135#if defined(R__SOLARIS)
140#if defined(MAC_OS_X_VERSION_10_5)
146# include <sys/param.h>
147# if __FreeBSD_version >= 900007
152#if defined(R__AIX) || defined(R__FBSD) || \
153 defined(R__OBSD) || defined(R__LYNXOS) || \
154 (defined(R__MACOSX) && !defined(MAC_OS_X_VERSION_10_5))
158#if defined(R__LYNXOS)
160 extern int putenv(
const char *);
161 extern int inet_aton(
const char *,
struct in_addr *);
165#if defined(R__ARC4_STDLIB)
167#elif defined(R__ARC4_BSDLIB)
168#include <bsd/stdlib.h>
169#elif defined(R__GETRANDOM_CLIB)
170#include <sys/random.h>
175#define STRUCT_UTMP struct utmpx
178#define STRUCT_UTMP struct utmp
180#if !defined(UTMP_FILE) && defined(_PATH_UTMP)
181#define UTMP_FILE _PATH_UTMP
183#if defined(UTMPX_FILE)
185#define UTMP_FILE UTMPX_FILE
188#define UTMP_FILE "/etc/utmp"
192#if (defined(R__LINUX) || defined(R__HURD)) && !defined(R__WINGCC)
193# if __GLIBC__ == 2 && __GLIBC_MINOR__ >= 1
194# define HAVE_BACKTRACE_SYMBOLS_FD
198#if defined(R__MACOSX) || defined(R__FBSD)
199# define HAVE_BACKTRACE_SYMBOLS_FD
203#ifdef HAVE_BACKTRACE_SYMBOLS_FD
204# include <execinfo.h>
213#ifdef HAVE_BACKTRACE_SYMBOLS_FD
216 static const int kMAX_BACKTRACE_DEPTH = 128;
220#if (defined(R__LINUX) && !defined(R__WINGCC))
222#include <sys/prctl.h>
225#if defined(R__MACOSX) && defined(__SSE2__)
226#include <xmmintrin.h>
229#if defined(R__MACOSX) && !defined(__SSE2__) && !defined(__xlC__) && \
230 !defined(__i386__) && !defined(__x86_64__) && !defined(__arm__) && \
237#include <mach/thread_status.h>
239#define fegetenvd(x) asm volatile("mffs %0" : "=f" (x));
240#define fesetenvd(x) asm volatile("mtfsf 255,%0" : : "f" (x));
243 FE_ENABLE_INEXACT = 0x00000008,
244 FE_ENABLE_DIVBYZERO = 0x00000010,
245 FE_ENABLE_UNDERFLOW = 0x00000020,
246 FE_ENABLE_OVERFLOW = 0x00000040,
247 FE_ENABLE_INVALID = 0x00000080,
248 FE_ENABLE_ALL_EXCEPT = 0x000000F8
252#if defined(R__MACOSX) && !defined(__SSE2__) && \
253 (defined(__i386__) || defined(__x86_64__) || defined(__arm__) || defined(__arm64__))
265 template<
typename U = T,
typename std::enable_if<std::is_member_po
inter<decltype(&U::ut_name)>::value,
int>::type = 0>
266 static char getValue(U* ue,
int) {
267 return ue->ut_name[0];
270 template<
typename U = T,
typename std::enable_if<std::is_member_po
inter<decltype(&U::ut_user)>::value,
int>::type = 0>
271 static char getValue(U* ue,
long) {
272 return ue->ut_user[0];
278 return ut_name<STRUCT_UTMP>::getValue(ue, 0);
297 if (get_ut_name(ue) && !strncmp(tty, ue->ut_line,
sizeof(ue->ut_line)))
309 struct stat file_stats;
320 if (fstat(fileno(utmp), &file_stats) == -1) {
324 size = file_stats.st_size;
338 if (fclose(utmp) != EOF && n_read ==
size) {
357# define HOWMANY(x, y) (((x)+((y)-1))/(y))
417 TTHREAD_TLS_DECL(
TString,exepath);
419#if defined(R__MACOSX)
420 exepath = _dyld_get_image_name(0);
421#elif defined(R__LINUX) || defined(R__SOLARIS) || defined(R__FBSD)
426 int ret = readlink(
"/proc/self/exe", buf,
kMAXPATHLEN);
427#elif defined(R__SOLARIS)
428 int ret = readlink(
"/proc/self/path/a.out", buf,
kMAXPATHLEN);
429#elif defined(R__FBSD)
430 procstat* ps = procstat_open_sysctl();
431 kinfo_proc* kp = kinfo_getproc(getpid());
435 procstat_getpathname(ps, kp, buf,
sizeof(buf));
449 if (
p.BeginsWith(
"/"))
451 else if (
p.Contains(
"/")) {
467#if defined(HAVE_DLADDR) && !defined(R__MACOSX)
477 if (dladdr(addr, &info) && info.dli_fname && info.dli_fname[0]) {
479 if (!realpath(info.dli_fname, respath)) {
481 ::SysError(
"TUnixSystem::SetRootSys",
"error getting realpath of libCore, please set ROOTSYS in the shell");
493#if defined(R__MACOSX)
498static void DylibAdded(
const struct mach_header *mh, intptr_t )
507 gLinkedDylibs = linkedDylibs;
511 TString lib = _dyld_get_image_name(i++);
513 TRegexp sovers =
"libCore\\.[0-9]+\\.*[0-9]*\\.*[0-9]*\\.so";
514 TRegexp dyvers =
"libCore\\.[0-9]+\\.*[0-9]*\\.*[0-9]*\\.dylib";
522 if (!realpath(lib, respath)) {
524 ::SysError(
"TUnixSystem::DylibAdded",
"error getting realpath of libCore, please set ROOTSYS in the shell");
538 if (lib.
EndsWith(
"/libSystem.B.dylib")) {
540 if (linkedDylibs.
IsNull()) {
550 sovers =
"\\.[0-9]+\\.*[0-9]*\\.so";
556 dyvers =
"\\.[0-9]+\\.*[0-9]*\\.dylib";
557 idx = lib.
Index(dyvers);
563 if (linkedDylibs.
Length())
619#if defined(R__MACOSX)
622 _dyld_register_func_for_add_image(DylibAdded);
623#elif defined(HAVE_DLADDR)
666 char *tty = ::ttyname(0);
675 if (utmp_entry->ut_host[0]) {
677 for (
unsigned n = 0; (
n <
sizeof(utmp_entry->ut_host)) && utmp_entry->ut_host[
n];
n++)
678 disp.
Append(utmp_entry->ut_host[
n]);
682 Warning(
"SetDisplay",
"DISPLAY not set, setting it to %s", disp.
Data());
685 else if (utmp_entry->ut_addr) {
687 struct sockaddr_in addr;
688 addr.sin_family = AF_INET;
690 memcpy(&addr.sin_addr, &utmp_entry->ut_addr,
sizeof(addr.sin_addr));
691 memset(&addr.sin_zero[0], 0,
sizeof(addr.sin_zero));
692 struct sockaddr *sa = (
struct sockaddr *) &addr;
694 char hbuf[NI_MAXHOST + 4];
695 if (getnameinfo(sa,
sizeof(
struct sockaddr), hbuf,
sizeof(hbuf),
nullptr, 0, NI_NAMEREQD) == 0) {
696 assert( strlen(hbuf) < NI_MAXHOST );
697 strlcat(hbuf,
":0.0",
sizeof(hbuf));
699 Warning(
"SetDisplay",
"DISPLAY not set, setting it to %s",
707 if (!
gROOT->IsBatch() && !getenv(
"DISPLAY")) {
708 Error(
"SetDisplay",
"Can't figure out DISPLAY, set it manually\n"
709 "In case you run a remote ssh session, restart your ssh session with:\n"
710 "=========> ssh -Y");
725#if defined(R__SOLARIS) || defined (R__LINUX) || defined(R__AIX) || \
726 defined(R__FBSD) || defined(R__OBSD) || defined(R__HURD)
727 return strerror(err);
729 if (err < 0 || err >= sys_nerr)
730 return Form(
"errno out of range %d", err);
731 return sys_errlist[err];
742#if defined(R__ARC4_STDLIB) || defined(R__ARC4_BSDLIB)
743 arc4random_buf(buf,
len);
745#elif defined(R__GETRANDOM_CLIB)
746 return getrandom(buf,
len, GRND_NONBLOCK);
748#error "Reliable cryptographic random function not defined"
760#if defined(R__SOLARIS)
761 sysinfo(SI_HOSTNAME, hn,
sizeof(hn));
763 gethostname(hn,
sizeof(hn));
783 if (
h->HasReadInterest()) {
787 if (
h->HasWriteInterest()) {
800 if (!
h)
return nullptr;
813 int fd = th->
GetFd();
845 if (!
h)
return nullptr;
914#if defined(R__LINUX) && !defined(__powerpc__)
915#if defined(__GLIBC__) && (__GLIBC__>2 || __GLIBC__==2 && __GLIBC_MINOR__>=1)
917#if __GLIBC_MINOR__>=3
919 Int_t oldmask = fegetexcept();
926 Int_t oldmask = ~oldenv;
928 Int_t oldmask = ~oldenv.__control_word;
942#if defined(R__MACOSX) && defined(__SSE2__)
944 Int_t oldmask = ~_MM_GET_EXCEPTION_MASK();
953#if defined(R__MACOSX) && !defined(__SSE2__) && \
954 (defined(__i386__) || defined(__x86_64__) || defined(__arm__) || defined(__arm64__))
959 Int_t oldmask = ~oldenv.__fpscr;
960#elif defined(__arm64__)
961 Int_t oldmask = ~oldenv.__fpcr;
963 Int_t oldmask = ~oldenv.__control;
973#if defined(R__MACOSX) && !defined(__SSE2__) && !defined(__xlC__) && \
974 !defined(__i386__) && !defined(__x86_64__) && !defined(__arm__) && \
999#if defined(R__LINUX) && !defined(__powerpc__)
1000#if defined(__GLIBC__) && (__GLIBC__>2 || __GLIBC__==2 && __GLIBC_MINOR__>=1)
1010#if __GLIBC_MINOR__>=3
1013 feclearexcept(FE_ALL_EXCEPT);
1014 fedisableexcept(FE_ALL_EXCEPT);
1015 feenableexcept(newm);
1024 cur.__control_word &= ~newm;
1032#if defined(R__MACOSX) && defined(__SSE2__)
1041 _MM_SET_EXCEPTION_MASK(_MM_GET_EXCEPTION_MASK() & ~newm);
1044#if defined(R__MACOSX) && !defined(__SSE2__) && \
1045 (defined(__i386__) || defined(__x86_64__) || defined(__arm__) || defined(__arm64__))
1056 cur.__fpscr &= ~newm;
1057#elif defined(__arm64__)
1058 cur.__fpcr &= ~newm;
1060 cur.__control &= ~newm;
1065#if defined(R__MACOSX) && !defined(__SSE2__) && !defined(__xlC__) && \
1066 !defined(__i386__) && !defined(__x86_64__) && !defined(__arm__) && \
1077 curmask = (curmask & ~FE_ENABLE_ALL_EXCEPT) | newm;
1089 Bool_t pollOnce = pendingOnly;
1098 if (!pendingOnly)
return;
1104 if (!pendingOnly)
return;
1109 if (pendingOnly && !pollOnce)
1115 if (!pendingOnly)
return;
1146 if (mxfd == 0 && nextto == -1)
1153 for (fd = 0; fd < mxfd; fd++) {
1157 if (rc < 0 && rc != -2) {
1158 SysError(
"DispatchOneEvent",
"select: read error on %d", fd);
1164 if (rc < 0 && rc != -2) {
1165 SysError(
"DispatchOneEvent",
"select: write error on %d", fd);
1182 tv.tv_sec = milliSec / 1000;
1183 tv.tv_usec = (milliSec % 1000) * 1000;
1185 select(0,
nullptr,
nullptr,
nullptr, &tv);
1207 if (
h->HasReadInterest()) {
1211 if (
h->HasWriteInterest()) {
1215 h->ResetReadyMask();
1254 if (
h->HasReadInterest())
1256 if (
h->HasWriteInterest())
1258 h->ResetReadyMask();
1288 if (sync == sh->
IsSync()) {
1290 if ((
fSignals->
IsSet(sig) && sigdone == -1) || sigdone == sig) {
1291 if (sigdone == -1) {
1316 TIter next(zombieHandler);
1317 register UnixPtty *pty;
1318 while ((pty = (UnixPtty*) next()))
1319 if (pty->GetPid() == pid) {
1320 zombieHandler->RemovePtr(pty);
1339 if ((fd <= fMaxrfd && fReadready->IsSet(fd) && fddone == -1) ||
1340 (fddone == fd && read)) {
1350 if ((fd <= fMaxwfd && fWriteready->IsSet(fd) && fddone == -1) ||
1351 (fddone == fd && !read)) {
1407 ::closedir((DIR*)dirp);
1461 return std::string(cwd);
1470 Error(
"WorkingDirectory",
"getcwd() failed");
1489 if (res)
return std::string(res);
1490 else return std::string();
1522 const bool hasSuffix = suffix && *suffix;
1527 char *arg =
StrDup(base);
1528 int fd = hasSuffix ? mkstemps(arg, strlen(suffix)) : mkstemp(arg);
1536 FILE *fp = fdopen(fd,
"w+");
1538 SysError(
"TempFileName",
"converting filedescriptor (%d)", fd);
1548 if (
name.IsNull() ||
name ==
".") {
1551 if (dir[strlen(dir) - 1] !=
'/')
1557 if (!dir || !dir[0])
1559 else if (dir[strlen(dir) - 1] !=
'/')
1597 FILE *from = fopen(
f,
"r");
1601 FILE *to = fopen(t,
"w");
1607 const int bufsize = 1024;
1610 while (!ret && !feof(from)) {
1611 size_t numread = fread (buf,
sizeof(
char), bufsize, from);
1612 size_t numwritten = fwrite(buf,
sizeof(
char), numread, to);
1613 if (numread != numwritten)
1628 int ret = ::rename(
f, t);
1673 return UnixFSstat(path,
id, bsize, blocks, bfree);
1682 return ::link(from, to);
1692 return ::symlink((
char*)from, (
char*)to);
1694 return ::symlink(from, to);
1708#if defined(R__SEEK64)
1709 struct stat64 finfo;
1710 if (lstat64(
name, &finfo) < 0)
1713 if (lstat(
name, &finfo) < 0)
1717 if (S_ISDIR(finfo.st_mode))
1718 return ::rmdir(
name);
1720 return ::unlink(
name);
1729 kShellEscape =
'\\',
1730 *kShellStuff =
"(){}<>\"'",
1745 const char *
p, *patbuf = (
const char *)path;
1748 while (*patbuf ==
' ')
1752 for (
p = patbuf; *
p;
p++)
1777 const char *patbuf = (
const char *)patbuf0;
1786 while (*patbuf ==
' ')
1790 for (
p = patbuf; *
p;
p++)
1802 EscChar(patbuf, stuffedPat,
sizeof(stuffedPat), (
char*)kShellStuff, kShellEscape);
1807 if (stuffedPat[0] ==
'~') {
1808 if (stuffedPat[1] !=
'\0' && stuffedPat[1] !=
'/') {
1810 for (
p = &stuffedPat[1],
q =
name; *
p && *
p !=
'/';)
1827 cmd += &stuffedPat[1];
1832 if ((pf = ::popen(cmd.Data(),
"r")) == 0) {
1843 for (ch = fgetc(pf); ch != EOF && ch !=
' ' && ch !=
'\n'; ch = fgetc(pf)) {
1849 if (cnt == 0 && ch == EOF)
goto again;
1855 if (ch ==
' ' || ch ==
'\t') {
1889 return ::chmod(file,
mode);
1897 return ::umask(
mask);
1910 t.actime = (time_t)actime;
1911 t.modtime = (time_t)modtime;
1912 return ::utime(file, &t);
1925 show.
Form(
"Which: %s =", wfil.
Data());
1929 if (wfil[0] ==
'/') {
1930#if defined(R__SEEK64)
1931 struct stat64 finfo;
1932 if (access(wfil.
Data(),
mode) == 0 &&
1933 stat64(wfil.
Data(), &finfo) == 0 && S_ISREG(finfo.st_mode)) {
1936 if (access(wfil.
Data(),
mode) == 0 &&
1937 stat(wfil.
Data(), &finfo) == 0 && S_ISREG(finfo.st_mode)) {
1954 for (
const char* ptr = search; *ptr;) {
1956 if (*ptr !=
'/' && *ptr !=
'$' && *ptr !=
'~')
1958 const char* posEndOfPart = strchr(ptr,
':');
1960 name.Append(ptr, posEndOfPart - ptr);
1961 ptr = posEndOfPart + 1;
1967 if (!
name.EndsWith(
"/"))
1972#if defined(R__SEEK64)
1973 struct stat64 finfo;
1974 if (access(
name.Data(),
mode) == 0 &&
1975 stat64(
name.Data(), &finfo) == 0 && S_ISREG(finfo.st_mode)) {
1978 if (access(
name.Data(),
mode) == 0 &&
1979 stat(
name.Data(), &finfo) == 0 && S_ISREG(finfo.st_mode)) {
2001 if (!user || !user[0])
2004 struct passwd *apwd = getpwnam(user);
2051 static UserInfoCache_t gUserInfo;
2053 UserInfoCache_t::const_iterator iUserInfo = gUserInfo.find(uid);
2054 if (iUserInfo != gUserInfo.end())
2057 struct passwd *apwd = getpwuid(uid);
2070 gUserInfo[uid] = *ug;
2095 struct group *grp = getgrgid(gid);
2133 return ::getenv(
name);
2151 return ::system(shellcmd);
2159 return ::popen(command,
mode);
2167 return ::pclose(pipe);
2205#include <mach/mach.h>
2213 typedef CSTypeRef CSSymbolicatorRef;
2214 typedef CSTypeRef CSSourceInfoRef;
2215 typedef CSTypeRef CSSymbolOwnerRef;
2216 typedef CSTypeRef CSSymbolRef;
2218 CSSymbolicatorRef CSSymbolicatorCreateWithPid(pid_t pid);
2219 CSSymbolRef CSSymbolicatorGetSymbolWithAddressAtTime(CSSymbolicatorRef cs, vm_address_t addr, uint64_t time);
2220 CSSourceInfoRef CSSymbolicatorGetSourceInfoWithAddressAtTime(CSSymbolicatorRef cs, vm_address_t addr, uint64_t time);
2221 const char* CSSymbolGetName(CSSymbolRef sym);
2222 CSSymbolOwnerRef CSSymbolGetSymbolOwner(CSSymbolRef sym);
2223 const char* CSSymbolOwnerGetPath(CSSymbolOwnerRef symbol);
2224 const char* CSSourceInfoGetPath(CSSourceInfoRef info);
2225 int CSSourceInfoGetLineNumber(CSSourceInfoRef info);
2228bool CSTypeRefIdValid(CSTypeRef ref) {
2229 return ref.csCppData || ref.csCppObj;
2232void macosx_backtrace() {
2233void* addrlist[kMAX_BACKTRACE_DEPTH];
2235 int numstacks = backtrace( addrlist,
sizeof( addrlist ) /
sizeof(
void* ));
2237 CSSymbolicatorRef symbolicator = CSSymbolicatorCreateWithPid(getpid());
2240 static const int skipFrames = 2;
2241 for (
int i = skipFrames; i < numstacks; ++i) {
2243 CSSymbolRef sym = CSSymbolicatorGetSymbolWithAddressAtTime(symbolicator,
2244 (vm_address_t)addrlist[i],
2246 CSSymbolOwnerRef symOwner = CSSymbolGetSymbolOwner(sym);
2248 if (
const char* libPath = CSSymbolOwnerGetPath(symOwner)) {
2249 printf(
"[%s]", libPath);
2251 printf(
"[<unknown binary>]");
2254 if (
const char* symname = CSSymbolGetName(sym)) {
2255 printf(
" %s", symname);
2258 CSSourceInfoRef sourceInfo
2259 = CSSymbolicatorGetSourceInfoWithAddressAtTime(symbolicator,
2260 (vm_address_t)addrlist[i],
2262 if (
const char* sourcePath = CSSourceInfoGetPath(sourceInfo)) {
2263 printf(
" %s:%d", sourcePath, (
int)CSSourceInfoGetLineNumber(sourceInfo));
2265 printf(
" (no debug info)");
2282 gdbscript = gdbscript.
Strip();
2283 if (gdbscript !=
"") {
2285 fprintf(stderr,
"Root.StacktraceScript %s does not exist\n", gdbscript.
Data());
2289 if (gdbscript ==
"") {
2290 gdbscript =
"gdb-backtrace.sh";
2293 fprintf(stderr,
"Error in <TUnixSystem::StackTrace> script %s is missing\n", gdbscript.
Data());
2300 gdbmess = gdbmess.
Strip();
2308 int fd = STDERR_FILENO;
2310 const char *message =
" Generating stack trace...\n";
2312 if (fd && message) { }
2315 Getlinem(kCleanUp,
nullptr);
2317#if defined(USE_GDB_STACK_TRACE)
2320 fprintf(stderr,
"gdb not found, need it for stack trace\n");
2325 TString gdbmessf =
"gdb-message";
2326 if (gdbmess !=
"") {
2328 fprintf(
f,
"%s\n", gdbmess.
Data());
2336 if (gdbmess !=
"") {
2338 gdbscript += gdbmessf;
2340 gdbscript +=
" 1>&2";
2345#elif defined(R__AIX)
2346 TString script =
"procstack ";
2350#elif defined(R__SOLARIS)
2361#elif defined(HAVE_BACKTRACE_SYMBOLS_FD) && defined(HAVE_DLADDR)
2369 const char *cppfilt =
"c++filt";
2370 const char *cppfiltarg =
"";
2372 const char *format1 =
" 0x%016lx in %.200s %s 0x%lx from %.200s\n";
2374 const char *format2 =
" 0x%016lx in %.200s\n";
2376 const char *format2 =
" 0x%016lx in %.200s at %.200s from %.200s\n";
2378 const char *format3 =
" 0x%016lx in %.200s from %.200s\n";
2379 const char *format4 =
" 0x%016lx in <unknown function>\n";
2381 const char *format1 =
" 0x%08lx in %.200s %s 0x%lx from %.200s\n";
2383 const char *format2 =
" 0x%08lx in %.200s\n";
2385 const char *format2 =
" 0x%08lx in %.200s at %.200s from %.200s\n";
2387 const char *format3 =
" 0x%08lx in %.200s from %.200s\n";
2388 const char *format4 =
" 0x%08lx in <unknown function>\n";
2400 while (help.
Gets(
p)) {
2402 cppfiltarg =
"--format=gnu-v3";
2404 }
else if (help.
Index(
"gnu-new-abi") !=
kNPOS) {
2405 cppfiltarg =
"--format=gnu-new-abi";
2414#if (defined(R__LINUX) && !defined(R__WINGCC))
2417#ifdef PR_SET_PTRACER
2418 prctl(PR_SET_PTRACER, getpid(), 0, 0, 0);
2424 TString gdbmessf =
"gdb-message";
2425 if (gdbmess !=
"") {
2427 fprintf(
f,
"%s\n", gdbmess.
Data());
2437 if (gdbmess !=
"") {
2439 gdbscript += gdbmessf;
2441 gdbscript +=
" 1>&2";
2454 if (write(fd, message, strlen(message)) < 0)
2459 TString tmpf1 =
"gdb-backtrace";
2460 std::ofstream file1;
2466 Error(
"StackTrace",
"could not open file %s", tmpf1.
Data());
2478 void *trace[kMAX_BACKTRACE_DEPTH];
2479 int depth = backtrace(trace, kMAX_BACKTRACE_DEPTH);
2480 for (
int n = 5;
n < depth;
n++) {
2484 if (dladdr(trace[
n], &info) && info.dli_fname && info.dli_fname[0]) {
2485 const char *libname = info.dli_fname;
2486 const char *symname = (info.dli_sname && info.dli_sname[0]) ?
2487 info.dli_sname :
"<unknown>";
2490 Bool_t gte = (addr >= symaddr);
2491 ULong_t diff = (gte) ? addr - symaddr : symaddr - addr;
2492 if (addr2line && symaddr) {
2496#if defined(MAC_OS_X_VERSION_10_10)
2497 snprintf(buffer,
sizeof(buffer),
"%s -p %d 0x%016lx", addr2line,
GetPid(), addr);
2498#elif defined(MAC_OS_X_VERSION_10_9)
2500 snprintf(buffer,
sizeof(buffer),
"%s -d -p %d 0x%016lx", addr2line,
GetPid(), addr);
2502 snprintf(buffer,
sizeof(buffer),
"%s -p %d 0x%016lx", addr2line,
GetPid(), addr);
2511 if (
name.Contains(
".so") ||
name.Contains(
".sl")) noShare =
kFALSE;
2512 if (noShare)
offset = addr;
2513 if (noPath)
name =
"`which " +
name +
"`";
2514 snprintf(buffer,
sizeof(buffer),
"%s -e %s 0x%016lx", addr2line,
name.Data(),
offset);
2516 if (FILE *pf = ::popen(buffer,
"r")) {
2518 if (fgets(buf, 2048, pf)) {
2519 buf[strlen(buf)-1] = 0;
2520 if (strncmp(buf,
"??", 2)) {
2522 snprintf(buffer,
sizeof(buffer), format2, addr, buf);
2524 snprintf(buffer,
sizeof(buffer), format2, addr, symname, buf, libname);
2532 snprintf(buffer,
sizeof(buffer), format1, addr, symname,
2533 gte ?
"+" :
"-", diff, libname);
2536 snprintf(buffer,
sizeof(buffer), format1, addr, symname,
2537 gte ?
"+" :
"-", diff, libname);
2539 snprintf(buffer,
sizeof(buffer), format3, addr, symname, libname);
2542 snprintf(buffer,
sizeof(buffer), format4, addr);
2548 if (write(fd, buffer, ::strlen(buffer)) < 0)
2553 TString tmpf2 =
"gdb-backtrace";
2557 snprintf(buffer,
sizeof(buffer),
"%s %s < %s > %s", filter, cppfiltarg, tmpf1.
Data(), tmpf2.
Data());
2559 std::ifstream file2(tmpf2);
2563 line.ReadString(file2);
2564 if (write(fd,
line.Data(),
line.Length()) < 0)
2572 delete [] addr2line;
2575#elif defined(HAVE_EXCPT_H) && defined(HAVE_PDSC_H) && \
2576 defined(HAVE_RLD_INTERFACE_H)
2585 exc_capture_context (&context);
2586 while (!rc && context.sc_pc) {
2588 pdsc_crd *func, *base, *crd
2589 = exc_remote_lookup_function_entry(0, 0, context.sc_pc, 0, &func, &base);
2590 Elf32_Addr addr = PDSC_CRD_BEGIN_ADDRESS(base, func);
2592 const char *
name =
"<unknown function>";
2593 sprintf(buffer,
" 0x%012lx %.200s + 0x%lx\n",
2594 context.sc_pc,
name, context.sc_pc - addr);
2595 write(fd, buffer, ::strlen(buffer));
2596 rc = exc_virtual_unwind(0, &context);
2641 ::openlog(
name, options, fac);
2651 ::syslog(level,
"%s", mess);
2691 const char *tty = ttyname(STDOUT_FILENO);
2695 if ((xh->
fStdOutDup = dup(STDOUT_FILENO)) < 0) {
2703 const char *tty = ttyname(STDERR_FILENO);
2707 if ((xh->
fStdErrDup = dup(STDERR_FILENO)) < 0) {
2709 if (outdone && dup2(xh->
fStdOutDup, STDOUT_FILENO) < 0) {
2710 Warning(
"RedirectOutput",
"could not restore stdout (back to original redirected"
2719 const char *
m = (
mode[0] ==
'a' ||
mode[0] ==
'w') ?
mode :
"a";
2732 if (freopen(file,
m, stdout) ==
nullptr) {
2736 if (freopen(file,
m, stderr) ==
nullptr) {
2752 if (close(STDOUT_FILENO) != 0) {
2754 "problems closing STDOUT_FILENO (%d) before 'dup2' (errno: %d)",
2758 if (dup2(xh->
fStdOutDup, STDOUT_FILENO) < 0) {
2759 SysError(
"RedirectOutput",
"could not restore stdout (back to original redirected"
2765 "problems closing temporary 'out' descriptor %d (errno: %d)",
2778 if (close(STDERR_FILENO) != 0) {
2780 "problems closing STDERR_FILENO (%d) before 'dup2' (errno: %d)",
2784 if (dup2(xh->
fStdErrDup, STDERR_FILENO) < 0) {
2785 SysError(
"RedirectOutput",
"could not restore stderr (back to original redirected"
2791 "problems closing temporary 'err' descriptor %d (errno: %d)",
2836 Error(
"ListSymbols",
"not yet implemented");
2858 if (!linkedLibs.
IsNull())
2864#if !defined(R__MACOSX)
2870#if defined(R__MACOSX)
2872 linkedLibs = gLinkedDylibs;
2876 while (otool.
Gets(
p)) {
2881 if (!linkedLibs.
IsNull())
2883 linkedLibs += dylib;
2891#elif defined(R__LINUX) || defined(R__SOLARIS) || defined(R__AIX)
2892#if defined(R__WINGCC )
2893 const char *cLDD=
"cygcheck";
2894 const char *cSOEXT=
".dll";
2895 size_t lenexe = strlen(exe);
2896 if (strcmp(exe + lenexe - 4,
".exe")
2897 && strcmp(exe + lenexe - 4,
".dll")) {
2900 char* longerexe =
new char[lenexe + 5];
2901 strlcpy(longerexe, exe,lenexe+5);
2902 strlcat(longerexe,
".exe",lenexe+5);
2904 #error "unsupported platform, fix memory leak to use it"
2906 TRegexp sovers =
"\\.so\\.[0-9]+";
2908 const char *cLDD=
"ldd";
2910 const char *cSOEXT=
".a";
2911 TRegexp sovers =
"\\.a\\.[0-9]+";
2913 const char *cSOEXT=
".so";
2914 TRegexp sovers =
"\\.so\\.[0-9]+";
2920 while (ldd.
Gets(
p)) {
2939 if (!linkedLibs.
IsNull())
2941 linkedLibs += solib;
3014 if (!ti)
return nullptr;
3043 struct addrinfo hints;
3044 struct addrinfo *
result, *rp;
3045 memset(&hints, 0,
sizeof(
struct addrinfo));
3046 hints.ai_family = AF_INET;
3047 hints.ai_socktype = 0;
3048 hints.ai_protocol = 0;
3049 hints.ai_flags = AI_CANONNAME;
3054 size_t lenHostname = strlen(hostname);
3055 std::string hostnameWithoutLocal{hostname};
3056 if (lenHostname > 6 && !strcmp(hostname + lenHostname - 6,
".local")) {
3057 hostnameWithoutLocal.erase(lenHostname - 6);
3058 hostname = hostnameWithoutLocal.c_str();
3063 int rc = getaddrinfo(hostname,
nullptr, &hints, &
result);
3065 if (rc == EAI_NONAME) {
3066 if (
gDebug > 0)
Error(
"GetHostByName",
"unknown host '%s'", hostname);
3069 Error(
"GetHostByName",
"getaddrinfo failed for '%s': %s", hostname, gai_strerror(rc));
3075 std::string hostcanon(
result->ai_canonname ?
result->ai_canonname : hostname);
3078 ia.
fAddresses[0] = ntohl(((
struct sockaddr_in *)(
result->ai_addr))->sin_addr.s_addr);
3080 if (hostcanon.compare(hostname) != 0) ia.
AddAlias(hostname);
3083 char tmp[
sizeof(
struct in_addr)];
3084 if (inet_pton(AF_INET, hostcanon.data(), tmp) == 1) {
3085 char hbuf[NI_MAXHOST];
3086 if (getnameinfo(
result->ai_addr,
result->ai_addrlen, hbuf,
sizeof(hbuf),
nullptr, 0, 0) == 0)
3092 for (; rp !=
nullptr; rp = rp->ai_next) {
3093 UInt_t arp = ntohl(((
struct sockaddr_in *)(rp->ai_addr))->sin_addr.s_addr);
3107 struct sockaddr addr;
3108 socklen_t
len =
sizeof(addr);
3111 if (getsockname(sock, &addr, &
len) == -1) {
3112 SysError(
"GetSockName",
"getsockname failed");
3116 if (addr.sa_family != AF_INET)
return ia;
3118 struct sockaddr_in *addrin = (
struct sockaddr_in *)&addr;
3119 ia.
fPort = ntohs(addrin->sin_port);
3120 ia.
fAddresses[0] = ntohl(addrin->sin_addr.s_addr);
3122 char hbuf[NI_MAXHOST];
3123 if (getnameinfo(&addr,
sizeof(
struct sockaddr), hbuf,
sizeof(hbuf),
nullptr, 0, 0) != 0) {
3124 Error(
"GetSockName",
"getnameinfo failed");
3137 struct sockaddr addr;
3138 socklen_t
len =
sizeof(addr);
3141 if (getpeername(sock, &addr, &
len) == -1) {
3142 SysError(
"GetPeerName",
"getpeername failed");
3146 if (addr.sa_family != AF_INET)
return ia;
3148 struct sockaddr_in *addrin = (
struct sockaddr_in *)&addr;
3149 ia.
fPort = ntohs(addrin->sin_port);
3150 ia.
fAddresses[0] = ntohl(addrin->sin_addr.s_addr);
3152 char hbuf[NI_MAXHOST];
3153 if (getnameinfo(&addr,
sizeof(
struct sockaddr), hbuf,
sizeof(hbuf),
nullptr, 0, 0) != 0) {
3154 Error(
"GetPeerName",
"getnameinfo failed");
3169 if ((sp = getservbyname(servicename,
kProtocolName)) ==
nullptr) {
3170 Error(
"GetServiceByName",
"no service \"%s\" with protocol \"%s\"\n",
3174 return ntohs(sp->s_port);
3184 if ((sp = getservbyport(htons(port),
kProtocolName)) ==
nullptr) {
3187 return Form(
"%d", port);
3196 int tcpwindowsize,
const char *protocol)
3198 if (!strcmp(servername,
"unix")) {
3204 if (!strcmp(protocol,
"udp")){
3274 while ((soc = ::accept(sock,
nullptr,
nullptr)) == -1 &&
GetErrno() == EINTR)
3281 SysError(
"AcceptConnection",
"accept");
3294 if (sock < 0)
return;
3296#if !defined(R__AIX) || defined(_AIX41) || defined(_AIX43)
3298 ::shutdown(sock, 2);
3301 while (::close(sock) == -1 &&
GetErrno() == EINTR)
3314 if (
UnixRecv(sock, &header,
sizeof(header), 0) > 0) {
3315 int count = ntohl(header);
3318 Error(
"RecvBuf",
"record header exceeds buffer size");
3320 }
else if (count > 0) {
3321 if (
UnixRecv(sock, buf, count, 0) < 0) {
3322 Error(
"RecvBuf",
"cannot receive buffer");
3339 if (
UnixSend(sock, &header,
sizeof(header), 0) < 0) {
3340 Error(
"SendBuf",
"cannot send header");
3345 Error(
"SendBuf",
"cannot send buffer");
3387 Error(
"RecvRaw",
"cannot receive buffer");
3422 Error(
"SendRaw",
"cannot send buffer");
3433 if (sock < 0)
return -1;
3437 if (setsockopt(sock, SOL_SOCKET, SO_SNDBUF, (
char*)&val,
sizeof(val)) == -1) {
3438 SysError(
"SetSockOpt",
"setsockopt(SO_SNDBUF)");
3443 if (setsockopt(sock, SOL_SOCKET, SO_RCVBUF, (
char*)&val,
sizeof(val)) == -1) {
3444 SysError(
"SetSockOpt",
"setsockopt(SO_RCVBUF)");
3449 if (setsockopt(sock, SOL_SOCKET, SO_OOBINLINE, (
char*)&val,
sizeof(val)) == -1) {
3450 SysError(
"SetSockOpt",
"setsockopt(SO_OOBINLINE)");
3455 if (setsockopt(sock, SOL_SOCKET, SO_KEEPALIVE, (
char*)&val,
sizeof(val)) == -1) {
3456 SysError(
"SetSockOpt",
"setsockopt(SO_KEEPALIVE)");
3461 if (setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (
char*)&val,
sizeof(val)) == -1) {
3462 SysError(
"SetSockOpt",
"setsockopt(SO_REUSEADDR)");
3467 if (setsockopt(sock, IPPROTO_TCP, TCP_NODELAY, (
char*)&val,
sizeof(val)) == -1) {
3468 SysError(
"SetSockOpt",
"setsockopt(TCP_NODELAY)");
3473 if (ioctl(sock, FIONBIO, (
char*)&val) == -1) {
3474 SysError(
"SetSockOpt",
"ioctl(FIONBIO)");
3480 if (ioctl(sock, SIOCSPGRP, (
char*)&val) == -1) {
3481 SysError(
"SetSockOpt",
"ioctl(SIOCSPGRP)");
3485 Error(
"SetSockOpt",
"ioctl(SIOCGPGRP) not supported on cygwin/gcc");
3492 Error(
"SetSockOpt",
"illegal option (%d)", opt);
3503 if (sock < 0)
return -1;
3505 socklen_t optlen =
sizeof(*val);
3509 if (getsockopt(sock, SOL_SOCKET, SO_SNDBUF, (
char*)val, &optlen) == -1) {
3510 SysError(
"GetSockOpt",
"getsockopt(SO_SNDBUF)");
3515 if (getsockopt(sock, SOL_SOCKET, SO_RCVBUF, (
char*)val, &optlen) == -1) {
3516 SysError(
"GetSockOpt",
"getsockopt(SO_RCVBUF)");
3521 if (getsockopt(sock, SOL_SOCKET, SO_OOBINLINE, (
char*)val, &optlen) == -1) {
3522 SysError(
"GetSockOpt",
"getsockopt(SO_OOBINLINE)");
3527 if (getsockopt(sock, SOL_SOCKET, SO_KEEPALIVE, (
char*)val, &optlen) == -1) {
3528 SysError(
"GetSockOpt",
"getsockopt(SO_KEEPALIVE)");
3533 if (getsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (
char*)val, &optlen) == -1) {
3534 SysError(
"GetSockOpt",
"getsockopt(SO_REUSEADDR)");
3539 if (getsockopt(sock, IPPROTO_TCP, TCP_NODELAY, (
char*)val, &optlen) == -1) {
3540 SysError(
"GetSockOpt",
"getsockopt(TCP_NODELAY)");
3546 if ((flg = fcntl(sock, F_GETFL, 0)) == -1) {
3547 SysError(
"GetSockOpt",
"fcntl(F_GETFL)");
3550 *val = flg & O_NDELAY;
3553#if !defined(R__LYNXOS) && !defined(R__WINGCC)
3554 if (ioctl(sock, SIOCGPGRP, (
char*)val) == -1) {
3555 SysError(
"GetSockOpt",
"ioctl(SIOCGPGRP)");
3559 Error(
"GetSockOpt",
"ioctl(SIOCGPGRP) not supported on LynxOS and cygwin/gcc");
3564#if !defined(R__LYNXOS)
3565 if (ioctl(sock, SIOCATMARK, (
char*)val) == -1) {
3566 SysError(
"GetSockOpt",
"ioctl(SIOCATMARK)");
3570 Error(
"GetSockOpt",
"ioctl(SIOCATMARK) not supported on LynxOS");
3575#if !defined(R__LYNXOS)
3576 if (ioctl(sock, FIONREAD, (
char*)val) == -1) {
3577 SysError(
"GetSockOpt",
"ioctl(FIONREAD)");
3581 Error(
"GetSockOpt",
"ioctl(FIONREAD) not supported on LynxOS");
3586 Error(
"GetSockOpt",
"illegal option (%d)", opt);
3607 { SIGBUS,
nullptr,
nullptr,
"bus error" },
3608 { SIGSEGV,
nullptr,
nullptr,
"segmentation violation" },
3609 { SIGSYS,
nullptr,
nullptr,
"bad argument to system call" },
3610 { SIGPIPE,
nullptr,
nullptr,
"write on a pipe with no one to read it" },
3611 { SIGILL,
nullptr,
nullptr,
"illegal instruction" },
3612 { SIGABRT,
nullptr,
nullptr,
"abort" },
3613 { SIGQUIT,
nullptr,
nullptr,
"quit" },
3614 { SIGINT,
nullptr,
nullptr,
"interrupt" },
3615 { SIGWINCH,
nullptr,
nullptr,
"window size change" },
3616 { SIGALRM,
nullptr,
nullptr,
"alarm clock" },
3617 { SIGCHLD,
nullptr,
nullptr,
"death of a child" },
3618 { SIGURG,
nullptr,
nullptr,
"urgent data arrived on an I/O channel" },
3619 { SIGFPE,
nullptr,
nullptr,
"floating point exception" },
3620 { SIGTERM,
nullptr,
nullptr,
"termination signal" },
3621 { SIGUSR1,
nullptr,
nullptr,
"user-defined signal 1" },
3622 { SIGUSR2,
nullptr,
nullptr,
"user-defined signal 2" }
3680 Break(
"TUnixSystem::DispatchSignals",
"%s: printing stacktrace",
UnixSigname(sig));
3703 struct sigaction sigact;
3710#elif defined(R__SOLARIS)
3712#elif defined(R__LYNXOS)
3716 sigact.sa_handler = (void (*)(...))
sighandler;
3721 sigemptyset(&sigact.sa_mask);
3722 sigact.sa_flags = 0;
3723#if defined(SA_RESTART)
3724 sigact.sa_flags |= SA_RESTART;
3726 if (sigaction(
gSignalMap[sig].fCode, &sigact,
3728 ::SysError(
"TUnixSystem::UnixSignal",
"sigaction");
3739 TTHREAD_TLS_ARRAY(
struct sigaction,
kMAXSIGNALS,oldsigact);
3741 if (ignore != ignoreSig[sig]) {
3742 ignoreSig[sig] = ignore;
3744 struct sigaction sigact;
3746 sigact.sa_handler = (void (*)())SIG_IGN;
3747#elif defined(R__SOLARIS)
3748 sigact.sa_handler = (void (*)(
int))SIG_IGN;
3750 sigact.sa_handler = SIG_IGN;
3752 sigemptyset(&sigact.sa_mask);
3753 sigact.sa_flags = 0;
3754 if (sigaction(
gSignalMap[sig].fCode, &sigact, &oldsigact[sig]) < 0)
3755 ::SysError(
"TUnixSystem::UnixIgnoreSignal",
"sigaction");
3757 if (sigaction(
gSignalMap[sig].fCode, &oldsigact[sig],
nullptr) < 0)
3758 ::SysError(
"TUnixSystem::UnixIgnoreSignal",
"sigaction");
3774 struct sigaction sigact;
3777#elif defined(R__SOLARIS)
3779#elif defined(R__LYNXOS)
3783 sigact.sa_handler = (void (*)(...))
sighandler;
3788 sigemptyset(&sigact.sa_mask);
3789 sigact.sa_flags = 0;
3791#if defined(SA_INTERRUPT)
3792 sigact.sa_flags |= SA_INTERRUPT;
3795#if defined(SA_RESTART)
3796 sigact.sa_flags |= SA_RESTART;
3800 ::SysError(
"TUnixSystem::UnixSigAlarmInterruptsSyscalls",
"sigaction");
3820 ::SysError(
"TUnixSystem::UnixSignal",
"sigaction");
3843 static std::atomic<time_t> jan95{0};
3854 jan95 = mktime(&tp);
3855 if ((
int)jan95 == -1) {
3856 ::SysError(
"TUnixSystem::UnixNow",
"error converting 950001 0:00 to time_t");
3862 gettimeofday(&t,
nullptr);
3871 struct itimerval itv;
3872 itv.it_value.tv_sec = 0;
3873 itv.it_value.tv_usec = 0;
3874 itv.it_interval.tv_sec = 0;
3875 itv.it_interval.tv_usec = 0;
3877 itv.it_value.tv_sec = time_t(ms / 1000);
3878 itv.it_value.tv_usec = time_t((ms % 1000) * 1000);
3880 int st = setitimer(ITIMER_REAL, &itv,
nullptr);
3882 ::SysError(
"TUnixSystem::UnixSetitimer",
"setitimer");
3900 fd_set *rd = (readready) ? (fd_set*)readready->
GetBits() :
nullptr;
3901 fd_set *wr = (writeready) ? (fd_set*)writeready->
GetBits() :
nullptr;
3905 tv.tv_sec =
Int_t(timeout / 1000);
3906 tv.tv_usec = (timeout % 1000) * 1000;
3907 retcode = select(nfds, rd, wr,
nullptr, &tv);
3909 retcode = select(nfds, rd, wr,
nullptr,
nullptr);
3911 if (retcode == -1) {
3942 pw = getpwnam(
name);
3951 pw = getpwuid(getuid());
3956 }
else if (pw && pw->
pw_dir) {
3984 if (stat(edir, &finfo) < 0)
3987 if (!S_ISDIR(finfo.st_mode))
3990 return (
void*) opendir(edir);
3993#if defined(_POSIX_SOURCE)
3996# define REAL_DIR_ENTRY(dp) 1
3998# define REAL_DIR_ENTRY(dp) (dp->d_ino != 0)
4006 DIR *dirp = (DIR*)dirp1;
4038#if defined(R__SEEK64)
4040 if (path && lstat64(path, &sbuf) == 0) {
4043 if (path && lstat(path, &sbuf) == 0) {
4045 buf.
fIsLink = S_ISLNK(sbuf.st_mode);
4047#if defined(R__SEEK64)
4048 if (stat64(path, &sbuf) == -1) {
4050 if (stat(path, &sbuf) == -1) {
4055 buf.
fDev = sbuf.st_dev;
4056 buf.
fIno = sbuf.st_ino;
4057 buf.
fMode = sbuf.st_mode;
4058 buf.
fUid = sbuf.st_uid;
4059 buf.
fGid = sbuf.st_gid;
4060 buf.
fSize = sbuf.st_size;
4061 buf.
fMtime = sbuf.st_mtime;
4080 struct statfs statfsbuf;
4081#if (defined(R__SOLARIS) && !defined(R__LINUX))
4082 if (statfs(path, &statfsbuf,
sizeof(
struct statfs), 0) == 0) {
4083 *
id = statfsbuf.f_fstyp;
4084 *bsize = statfsbuf.f_bsize;
4085 *blocks = statfsbuf.f_blocks;
4086 *bfree = statfsbuf.f_bfree;
4088 if (statfs((
char*)path, &statfsbuf) == 0) {
4094 if (!strcmp(statfsbuf.f_fstypename, MOUNT_FFS) ||
4095 !strcmp(statfsbuf.f_fstypename, MOUNT_MFS))
4097 else if (!strcmp(statfsbuf.f_fstypename, MOUNT_NFS))
4099 else if (!strcmp(statfsbuf.f_fstypename, MOUNT_MSDOS))
4101 else if (!strcmp(statfsbuf.f_fstypename, MOUNT_EXT2FS))
4103 else if (!strcmp(statfsbuf.f_fstypename, MOUNT_CD9660))
4105 else if (!strcmp(statfsbuf.f_fstypename, MOUNT_NCPFS))
4110 *
id = statfsbuf.f_type;
4112 *bsize = statfsbuf.f_bsize;
4113 *blocks = statfsbuf.f_blocks;
4114 *bfree = statfsbuf.f_bavail;
4127 return (
int) waitpid(0, &status, WNOHANG);
4148 sport = htons(port);
4151 if (!addr.
IsValid())
return -1;
4154 struct sockaddr_in server;
4155 memset(&server, 0,
sizeof(server));
4156 memcpy(&server.sin_addr, &adr,
sizeof(adr));
4158 server.sin_port = sport;
4162 if ((sock =
socket(AF_INET, SOCK_STREAM, 0)) < 0) {
4163 ::SysError(
"TUnixSystem::UnixTcpConnect",
"socket (%s:%d)",
4168 if (tcpwindowsize > 0) {
4173 while (connect(sock, (
struct sockaddr*) &server,
sizeof(server)) == -1) {
4177 ::SysError(
"TUnixSystem::UnixTcpConnect",
"connect (%s:%d)",
4199 sport = htons(port);
4202 if (!addr.
IsValid())
return -1;
4205 struct sockaddr_in server;
4206 memset(&server, 0,
sizeof(server));
4207 memcpy(&server.sin_addr, &adr,
sizeof(adr));
4209 server.sin_port = sport;
4213 if ((sock =
socket(AF_INET, SOCK_DGRAM, 0)) < 0) {
4214 ::SysError(
"TUnixSystem::UnixUdpConnect",
"socket (%s:%d)",
4219 while (connect(sock, (
struct sockaddr*) &server,
sizeof(server)) == -1) {
4223 ::SysError(
"TUnixSystem::UnixUdpConnect",
"connect (%s:%d)",
4245 if (!sockpath || strlen(sockpath) <= 0) {
4246 ::SysError(
"TUnixSystem::UnixUnixConnect",
"socket path undefined");
4251 struct sockaddr_un unserver;
4252 unserver.sun_family = AF_UNIX;
4254 if (strlen(sockpath) >
sizeof(unserver.sun_path)-1) {
4255 ::Error(
"TUnixSystem::UnixUnixConnect",
"socket path %s, longer than max allowed length (%u)",
4256 sockpath, (
UInt_t)
sizeof(unserver.sun_path)-1);
4259 strlcpy(unserver.sun_path, sockpath,
sizeof(unserver.sun_path));
4262 if ((sock =
socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
4263 ::SysError(
"TUnixSystem::UnixUnixConnect",
"socket");
4267 while (connect(sock, (
struct sockaddr*) &unserver, strlen(unserver.sun_path)+2) == -1) {
4271 ::SysError(
"TUnixSystem::UnixUnixConnect",
"connect");
4294 const short kSOCKET_MINPORT = 5000, kSOCKET_MAXPORT = 15000;
4295 short sport, tryport = kSOCKET_MINPORT;
4298 if (port == 0 && reuse) {
4299 ::Error(
"TUnixSystem::UnixTcpService",
"cannot do a port scan while reuse is true");
4306 sport = htons(port);
4310 if ((sock =
socket(AF_INET, SOCK_STREAM, 0)) < 0) {
4311 ::SysError(
"TUnixSystem::UnixTcpService",
"socket");
4318 if (tcpwindowsize > 0) {
4323 struct sockaddr_in inserver;
4324 memset(&inserver, 0,
sizeof(inserver));
4325 inserver.sin_family = AF_INET;
4326 inserver.sin_addr.s_addr = htonl(INADDR_ANY);
4327 inserver.sin_port = sport;
4331 if (::bind(sock, (
struct sockaddr*) &inserver,
sizeof(inserver))) {
4332 ::SysError(
"TUnixSystem::UnixTcpService",
"bind");
4339 inserver.sin_port = htons(tryport);
4340 bret = ::bind(sock, (
struct sockaddr*) &inserver,
sizeof(inserver));
4342 }
while (bret < 0 &&
GetErrno() == EADDRINUSE && tryport < kSOCKET_MAXPORT);
4344 ::SysError(
"TUnixSystem::UnixTcpService",
"bind (port scan)");
4351 if (::listen(sock, backlog)) {
4352 ::SysError(
"TUnixSystem::UnixTcpService",
"listen");
4369 const short kSOCKET_MINPORT = 5000, kSOCKET_MAXPORT = 15000;
4370 short sport, tryport = kSOCKET_MINPORT;
4376 sport = htons(port);
4380 if ((sock =
socket(AF_INET, SOCK_DGRAM, 0)) < 0) {
4381 ::SysError(
"TUnixSystem::UnixUdpService",
"socket");
4385 struct sockaddr_in inserver;
4386 memset(&inserver, 0,
sizeof(inserver));
4387 inserver.sin_family = AF_INET;
4388 inserver.sin_addr.s_addr = htonl(INADDR_ANY);
4389 inserver.sin_port = sport;
4393 if (::bind(sock, (
struct sockaddr*) &inserver,
sizeof(inserver))) {
4394 ::SysError(
"TUnixSystem::UnixUdpService",
"bind");
4401 inserver.sin_port = htons(tryport);
4402 bret = ::bind(sock, (
struct sockaddr*) &inserver,
sizeof(inserver));
4404 }
while (bret < 0 &&
GetErrno() == EADDRINUSE && tryport < kSOCKET_MAXPORT);
4406 ::SysError(
"TUnixSystem::UnixUdpService",
"bind (port scan)");
4413 if (::listen(sock, backlog)) {
4414 ::SysError(
"TUnixSystem::UnixUdpService",
"listen");
4431 oldumask = umask(0);
4443 unlink(sockpath.
Data());
4454 if (!sockpath || strlen(sockpath) <= 0) {
4455 ::SysError(
"TUnixSystem::UnixUnixService",
"socket path undefined");
4459 struct sockaddr_un unserver;
4463 memset(&unserver, 0,
sizeof(unserver));
4464 unserver.sun_family = AF_UNIX;
4466 if (strlen(sockpath) >
sizeof(unserver.sun_path)-1) {
4467 ::Error(
"TUnixSystem::UnixUnixService",
"socket path %s, longer than max allowed length (%u)",
4468 sockpath, (
UInt_t)
sizeof(unserver.sun_path)-1);
4471 strlcpy(unserver.sun_path, sockpath,
sizeof(unserver.sun_path));
4474 if ((sock =
socket(AF_UNIX, SOCK_STREAM, 0)) < 0) {
4475 ::SysError(
"TUnixSystem::UnixUnixService",
"socket");
4479 if (::bind(sock, (
struct sockaddr*) &unserver, strlen(unserver.sun_path)+2)) {
4480 ::SysError(
"TUnixSystem::UnixUnixService",
"bind");
4486 if (::listen(sock, backlog)) {
4487 ::SysError(
"TUnixSystem::UnixUnixService",
"listen");
4506 if (sock < 0)
return -1;
4513 if (flag == MSG_PEEK)
4517 char *buf = (
char *)buffer;
4520 if ((nrecv = recv(sock, buf+
n,
length-
n, flag)) <= 0) {
4523 if (flag == MSG_OOB) {
4554 if (sock < 0)
return -1;
4563 const char *buf = (
const char *)buffer;
4566 if ((nsent = send(sock, buf+
n,
length-
n, flag)) <= 0) {
4594 static std::atomic<bool> initialized(
kFALSE);
4595 static std::atomic<bool> seenCling(
kFALSE);
4599 if (newpath ==
nullptr && !reset && (seenCling || (initialized &&
gCling ==
nullptr)))
4600 return dynpath_full;
4605 dynpath_full = newpath;
4607 initialized =
kTRUE;
4615 return dynpath_full;
4621 if (!reset && (seenCling || (initialized &&
gCling ==
nullptr)))
4622 return dynpath_full;
4631 static TString dynpath_envpart;
4632 static TString dynpath_syspart;
4634 if (reset || !initialized) {
4643 #if defined (R__AIX)
4645 #elif defined(R__MACOSX)
4657 if (!dynpath_envpart.
IsNull())
4658 dynpath_envpart +=
":";
4659 dynpath_envpart += ldpath;
4661 if (!rdynpath.
IsNull()) {
4662 if (!dynpath_envpart.
IsNull())
4663 dynpath_envpart +=
":";
4664 dynpath_envpart += rdynpath;
4670 #if defined(R__WINGCC) || defined(R__MACOSX)
4672 dynpath_syspart =
"/usr/local/lib:/usr/X11R6/lib:/usr/lib:/lib:";
4673 dynpath_syspart +=
"/lib/x86_64-linux-gnu:/usr/local/lib64:/usr/lib64:/lib64:";
4676 std::string cmd(
"LD_DEBUG=libs LD_PRELOAD=DOESNOTEXIST ls 2>&1");
4677 FILE *pf = popen(cmd.c_str (),
"r");
4681 if (fgets(buffer, 128, pf) != NULL)
4685 std::size_t from =
result.find(
"search path=",
result.find(
"(LD_LIBRARY_PATH)"));
4686 std::size_t to =
result.find(
"(system search path)");
4687 if (from != std::string::npos && to != std::string::npos) {
4689 std::string sys_path =
result.substr(from, to-from);
4690 sys_path.erase(std::remove_if(sys_path.begin(), sys_path.end(), isspace), sys_path.end());
4691 dynpath_syspart = sys_path.c_str();
4698 if (!initialized || (!seenCling &&
gCling)) {
4699 dynpath_full = dynpath_envpart;
4700 if (!dynpath_full.
EndsWith(
":")) dynpath_full +=
":";
4703 if (!dynpath_full.
EndsWith(
":")) dynpath_full +=
":";
4707 dynpath_full += dynpath_syspart;
4708 initialized =
kTRUE;
4710 if (
gDebug > 0) std::cout <<
"dynpath = " << dynpath_full.
Data() << std::endl;
4713 return dynpath_full;
4757 char buf[PATH_MAX + 1];
4758 char *res = realpath(sLib.
Data(), buf);
4759 if (res) sLib = buf;
4765 const char* lib = sLib.
Data();
4767 if (
len > 3 && (!strcmp(lib+
len-3,
".so") ||
4768 !strcmp(lib+
len-3,
".dl") ||
4769 !strcmp(lib+
len-4,
".dll") ||
4770 !strcmp(lib+
len-4,
".DLL") ||
4771 !strcmp(lib+
len-6,
".dylib") ||
4772 !strcmp(lib+
len-3,
".sl") ||
4773 !strcmp(lib+
len-2,
".a"))) {
4778 Error(
"FindDynamicLibrary",
4782 static const char* exts[] = {
4783 ".so",
".dll",
".dylib",
".sl",
".dl",
".a",
nullptr };
4784 const char** ext = exts;
4796 Error(
"FindDynamicLibrary",
4797 "%s[.so | .dll | .dylib | .sl | .dl | .a] does not exist in %s",
4809static void GetFreeBSDSysInfo(
SysInfo_t *sysinfo)
4814 "hw.physmem dev.cpu.0.freq",
"r");
4837#if defined(R__MACOSX)
4838#include <sys/resource.h>
4839#include <mach/mach.h>
4840#include <mach/mach_error.h>
4845static void GetDarwinSysInfo(
SysInfo_t *sysinfo)
4847 FILE *
p =
gSystem->
OpenPipe(
"sysctl -n kern.ostype hw.model hw.ncpu hw.cpufrequency "
4848 "hw.busfrequency hw.l2cachesize hw.memsize",
"r");
4881static void ReadDarwinCpu(
long *ticks)
4883 mach_msg_type_number_t count;
4885 host_cpu_load_info_data_t cpu;
4887 ticks[0] = ticks[1] = ticks[2] = ticks[3] = 0;
4889 count = HOST_CPU_LOAD_INFO_COUNT;
4890 kr = host_statistics(mach_host_self(), HOST_CPU_LOAD_INFO, (host_info_t)&cpu, &count);
4891 if (kr != KERN_SUCCESS) {
4892 ::Error(
"TUnixSystem::ReadDarwinCpu",
"host_statistics: %s", mach_error_string(kr));
4894 ticks[0] = cpu.cpu_ticks[CPU_STATE_USER];
4895 ticks[1] = cpu.cpu_ticks[CPU_STATE_SYSTEM];
4896 ticks[2] = cpu.cpu_ticks[CPU_STATE_IDLE];
4897 ticks[3] = cpu.cpu_ticks[CPU_STATE_NICE];
4905static void GetDarwinCpuInfo(
CpuInfo_t *cpuinfo,
Int_t sampleTime)
4908 if (getloadavg(avg,
sizeof(avg)) < 0) {
4909 ::Error(
"TUnixSystem::GetDarwinCpuInfo",
"getloadavg failed");
4916 Long_t cpu_ticks1[4], cpu_ticks2[4];
4917 ReadDarwinCpu(cpu_ticks1);
4919 ReadDarwinCpu(cpu_ticks2);
4921 Long_t userticks = (cpu_ticks2[0] + cpu_ticks2[3]) -
4922 (cpu_ticks1[0] + cpu_ticks1[3]);
4923 Long_t systicks = cpu_ticks2[1] - cpu_ticks1[1];
4924 Long_t idleticks = cpu_ticks2[2] - cpu_ticks1[2];
4925 if (userticks < 0) userticks = 0;
4926 if (systicks < 0) systicks = 0;
4927 if (idleticks < 0) idleticks = 0;
4928 Long_t totalticks = userticks + systicks + idleticks;
4940static void GetDarwinMemInfo(
MemInfo_t *meminfo)
4942 static Int_t pshift = 0;
4944 vm_statistics_data_t vm_info;
4945 mach_msg_type_number_t count;
4950 count = HOST_VM_INFO_COUNT;
4951 kr = host_statistics(mach_host_self(), HOST_VM_INFO, (host_info_t)&vm_info, &count);
4952 if (kr != KERN_SUCCESS) {
4953 ::Error(
"TUnixSystem::GetDarwinMemInfo",
"host_statistics: %s", mach_error_string(kr));
4957 for (
int psize = getpagesize(); psize > 1; psize >>= 1)
4961 used = (
Long64_t)(vm_info.active_count + vm_info.inactive_count + vm_info.wire_count) << pshift;
4963 total = (
Long64_t)(vm_info.active_count + vm_info.inactive_count + vm_info.free_count + vm_info.wire_count) << pshift;
4966 swap_used = vm_info.pageouts << pshift;
4969 dirp = opendir(
"/private/var/vm");
4974 while ((dp = readdir(dirp)) != 0) {
4976 char fname [MAXNAMLEN];
4977 if (strncmp(dp->d_name,
"swapfile", 8))
4979 strlcpy(fname,
"/private/var/vm/",MAXNAMLEN);
4980 strlcat (fname, dp->d_name,MAXNAMLEN);
4981 if (stat(fname, &sb) < 0)
4983 swap_total += sb.st_size;
5003static void GetDarwinProcInfo(
ProcInfo_t *procinfo)
5006#define vm_region vm_region_64
5010#define GLOBAL_SHARED_TEXT_SEGMENT 0x90000000U
5011#define GLOBAL_SHARED_DATA_SEGMENT 0xA0000000U
5012#define SHARED_TEXT_REGION_SIZE 0x10000000
5013#define SHARED_DATA_REGION_SIZE 0x10000000
5016 if (getrusage(RUSAGE_SELF, &ru) < 0) {
5017 ::SysError(
"TUnixSystem::GetDarwinProcInfo",
"getrusage failed");
5020 ((
Float_t)(ru.ru_utime.tv_usec) / 1000000.);
5022 ((
Float_t)(ru.ru_stime.tv_usec) / 1000000.);
5025 task_basic_info_data_t ti;
5026 mach_msg_type_number_t count;
5029 task_t a_task = mach_task_self();
5031 count = TASK_BASIC_INFO_COUNT;
5032 kr = task_info(a_task, TASK_BASIC_INFO, (task_info_t)&ti, &count);
5033 if (kr != KERN_SUCCESS) {
5034 ::Error(
"TUnixSystem::GetDarwinProcInfo",
"task_info: %s", mach_error_string(kr));
5039 mach_port_t object_name;
5040 vm_address_t address;
5041 vm_region_top_info_data_t info;
5042 vm_size_t vprvt, rsize,
size;
5043 rsize = ti.resident_size;
5045 for (address = 0; ; address +=
size) {
5047 count = VM_REGION_TOP_INFO_COUNT;
5048 if (vm_region(a_task, &address, &
size,
5049 VM_REGION_TOP_INFO, (vm_region_info_t)&info, &count,
5050 &object_name) != KERN_SUCCESS) {
5055 if (address >= GLOBAL_SHARED_TEXT_SEGMENT &&
5056 address < (GLOBAL_SHARED_DATA_SEGMENT + SHARED_DATA_REGION_SIZE)) {
5061 if (info.share_mode == SM_EMPTY) {
5062 vm_region_basic_info_data_64_t b_info;
5063 count = VM_REGION_BASIC_INFO_COUNT_64;
5064 if (vm_region_64(a_task, &address,
5065 &
size, VM_REGION_BASIC_INFO,
5066 (vm_region_info_t)&b_info, &count,
5067 &object_name) != KERN_SUCCESS) {
5074 if (info.share_mode != SM_PRIVATE) {
5078 switch (info.share_mode) {
5080 if (info.ref_count == 1) {
5083 vprvt += info.private_pages_resident * getpagesize();
5102#if defined(R__LINUX)
5106static void GetLinuxSysInfo(
SysInfo_t *sysinfo)
5109 FILE *
f = fopen(
"/proc/cpuinfo",
"r");
5133 f = fopen(
"/proc/meminfo",
"r");
5158static void ReadLinuxCpu(
long *ticks)
5160 ticks[0] = ticks[1] = ticks[2] = ticks[3] = 0;
5163 FILE *
f = fopen(
"/proc/stat",
"r");
5167 sscanf(s.
Data(),
"%*s %ld %ld %ld %ld", &ticks[0], &ticks[3], &ticks[1], &ticks[2]);
5177 Double_t avg[3] = { -1., -1., -1. };
5179 if (getloadavg(avg,
sizeof(avg)) < 0) {
5180 ::Error(
"TUnixSystem::GetLinuxCpuInfo",
"getloadavg failed");
5189 Long_t cpu_ticks1[4], cpu_ticks2[4];
5190 ReadLinuxCpu(cpu_ticks1);
5192 ReadLinuxCpu(cpu_ticks2);
5194 Long_t userticks = (cpu_ticks2[0] + cpu_ticks2[3]) -
5195 (cpu_ticks1[0] + cpu_ticks1[3]);
5196 Long_t systicks = cpu_ticks2[1] - cpu_ticks1[1];
5197 Long_t idleticks = cpu_ticks2[2] - cpu_ticks1[2];
5198 if (userticks < 0) userticks = 0;
5199 if (systicks < 0) systicks = 0;
5200 if (idleticks < 0) idleticks = 0;
5201 Long_t totalticks = userticks + systicks + idleticks;
5213static void GetLinuxMemInfo(
MemInfo_t *meminfo)
5216 FILE *
f = fopen(
"/proc/meminfo",
"r");
5245static void GetLinuxProcInfo(
ProcInfo_t *procinfo)
5248 if (getrusage(RUSAGE_SELF, &ru) < 0) {
5249 ::SysError(
"TUnixSystem::GetLinuxProcInfo",
"getrusage failed");
5252 ((
Float_t)(ru.ru_utime.tv_usec) / 1000000.);
5254 ((
Float_t)(ru.ru_stime.tv_usec) / 1000000.);
5265 sscanf(s.
Data(),
"%ld %ld", &
total, &rss);
5279 if (!info)
return -1;
5283 if (!sysinfo.
fCpus) {
5284#if defined(R__MACOSX)
5285 GetDarwinSysInfo(&sysinfo);
5286#elif defined(R__LINUX)
5287 GetLinuxSysInfo(&sysinfo);
5288#elif defined(R__FBSD)
5289 GetFreeBSDSysInfo(&sysinfo);
5305 if (!info)
return -1;
5307#if defined(R__MACOSX)
5308 GetDarwinCpuInfo(info, sampleTime);
5309#elif defined(R__LINUX)
5310 GetLinuxCpuInfo(info, sampleTime);
5311#elif defined(R__FBSD)
5312 GetFreeBSDCpuInfo(info, sampleTime);
5324 if (!info)
return -1;
5326#if defined(R__MACOSX)
5327 GetDarwinMemInfo(info);
5328#elif defined(R__LINUX)
5329 GetLinuxMemInfo(info);
5341 if (!info)
return -1;
5343#if defined(R__MACOSX)
5344 GetDarwinProcInfo(info);
5345#elif defined(R__LINUX)
5346 GetLinuxProcInfo(info);
The file contains utilities which are foundational and could be used across the core component of ROO...
size_t size(const MatrixT &matrix)
retrieve the size of a square matrix
R__EXTERN TApplication * gApplication
void SysError(const char *location, const char *msgfmt,...)
Use this function in case a system (OS or GUI) related error occurred.
void Break(const char *location, const char *msgfmt,...)
Use this function in case an error occurred.
void Fatal(const char *location, const char *msgfmt,...)
Use this function in case of a fatal error. It will abort the program.
R__EXTERN TExceptionHandler * gExceptionHandler
static unsigned int total
winID h TVirtualViewer3D TVirtualGLPainter p
Option_t Option_t TPoint TPoint const char GetTextMagnitude GetFillStyle GetLineColor GetLineWidth GetMarkerStyle GetTextAlign GetTextColor GetTextSize void char Point_t Rectangle_t WindowAttributes_t Float_t Float_t Float_t Int_t Int_t UInt_t UInt_t Rectangle_t mask
Option_t Option_t TPoint TPoint const char GetTextMagnitude GetFillStyle GetLineColor GetLineWidth GetMarkerStyle GetTextAlign GetTextColor GetTextSize void char Point_t Rectangle_t WindowAttributes_t Float_t Float_t Float_t Int_t Int_t UInt_t UInt_t Rectangle_t Int_t Int_t Window_t TString Int_t GCValues_t GetPrimarySelectionOwner GetDisplay GetScreen GetColormap GetNativeEvent const char const char dpyName wid window const char font_name cursor keysym reg const char only_if_exist regb h Point_t winding char text const char depth char const char Int_t count const char ColorStruct_t color const char Pixmap_t Pixmap_t PictureAttributes_t attr const char char ret_data h unsigned char height h offset
Option_t Option_t TPoint TPoint const char GetTextMagnitude GetFillStyle GetLineColor GetLineWidth GetMarkerStyle GetTextAlign GetTextColor GetTextSize void char Point_t Rectangle_t WindowAttributes_t Float_t Float_t Float_t Int_t Int_t UInt_t UInt_t Rectangle_t result
Option_t Option_t TPoint TPoint const char GetTextMagnitude GetFillStyle GetLineColor GetLineWidth GetMarkerStyle GetTextAlign GetTextColor GetTextSize void char Point_t Rectangle_t WindowAttributes_t Float_t Float_t Float_t Int_t Int_t UInt_t UInt_t Rectangle_t Int_t Int_t Window_t TString Int_t GCValues_t GetPrimarySelectionOwner GetDisplay GetScreen GetColormap GetNativeEvent const char const char dpyName wid window const char font_name cursor keysym reg const char only_if_exist regb h Point_t winding char text const char depth char const char Int_t count const char ColorStruct_t color const char Pixmap_t Pixmap_t PictureAttributes_t attr const char char ret_data h unsigned char height h length
Option_t Option_t TPoint TPoint const char GetTextMagnitude GetFillStyle GetLineColor GetLineWidth GetMarkerStyle GetTextAlign GetTextColor GetTextSize void value
Option_t Option_t TPoint TPoint const char GetTextMagnitude GetFillStyle GetLineColor GetLineWidth GetMarkerStyle GetTextAlign GetTextColor GetTextSize void char Point_t Rectangle_t WindowAttributes_t Float_t Float_t Float_t Int_t Int_t UInt_t UInt_t Rectangle_t Int_t Int_t Window_t TString Int_t GCValues_t GetPrimarySelectionOwner GetDisplay GetScreen GetColormap GetNativeEvent const char const char dpyName wid window const char font_name cursor keysym reg const char only_if_exist regb h Point_t winding char text const char depth char const char Int_t count const char ColorStruct_t color const char Pixmap_t Pixmap_t PictureAttributes_t attr const char char ret_data h unsigned char height h Atom_t Int_t ULong_t ULong_t unsigned char prop_list Atom_t Atom_t Atom_t Time_t UChar_t len
Option_t Option_t TPoint TPoint const char mode
Option_t Option_t TPoint TPoint const char GetTextMagnitude GetFillStyle GetLineColor GetLineWidth GetMarkerStyle GetTextAlign GetTextColor GetTextSize void char Point_t Rectangle_t WindowAttributes_t Float_t Float_t Float_t Int_t Int_t UInt_t UInt_t Rectangle_t org
R__EXTERN TInterpreter * gCling
char * Form(const char *fmt,...)
Formats a string in a circular formatting buffer.
void Printf(const char *fmt,...)
Formats a string in a circular formatting buffer and prints the string.
char * StrDup(const char *str)
Duplicate the string str.
int EscChar(const char *src, char *dst, int dstlen, char *specchars, char escchar)
Escape specchars in src with escchar and copy to dst.
@ kSigSegmentationViolation
R__EXTERN const char * gProgName
R__EXTERN TVirtualMutex * gSystemMutex
R__EXTERN const char * gRootDir
R__EXTERN TSystem * gSystem
R__EXTERN TFileHandler * gXDisplay
R__EXTERN const char * gProgPath
static void sighandler(int sig)
Call the signal handler associated with the signal.
static const char * DynamicPath(const char *newpath=nullptr, Bool_t reset=kFALSE)
Get shared library search path. Static utility function.
static void SigHandler(ESignals sig)
Unix signal handler.
#define REAL_DIR_ENTRY(dp)
const char * kProtocolName
static struct Signalmap_t gSignalMap[kMAXSIGNALS]
static const char * GetExePath()
void(* SigHandler_t)(ESignals)
#define R__LOCKGUARD2(mutex)
virtual void HandleException(Int_t sig)
Handle exceptions (kSigBus, kSigSegmentationViolation, kSigIllegalInstruction and kSigFloatingExcepti...
virtual Int_t GetSize() const
Return the capacity of the collection, i.e.
virtual Int_t GetValue(const char *name, Int_t dflt) const
Returns the integer value for a resource.
virtual void HandleException(int sig)=0
ULong_t fds_bits[(((kFDSETSIZE)+((kNFDBITS) -1))/(kNFDBITS))]
TFdSet & operator=(const TFdSet &rhs)
TFdSet(const TFdSet &org)
virtual Bool_t HasReadInterest()
True if handler is interested in read events.
virtual Bool_t WriteNotify()
Notify when something can be written to the descriptor associated with this handler.
virtual Bool_t HasWriteInterest()
True if handler is interested in write events.
virtual Bool_t ReadNotify()
Notify when something can be read from the descriptor associated with this handler.
Bool_t Notify() override
Notify when event occurred on descriptor associated with this handler.
This class represents an Internet Protocol (IP) address.
void AddAlias(const char *alias)
Add alias to list of aliases.
void AddAddress(UInt_t addr)
Add alternative address to list of addresses.
UInt_t GetAddress() const
virtual const char * GetSTLIncludePath() const
TObject * Next() override
Return next object in the list. Returns 0 when no more objects in list.
TObject * At(Int_t idx) const override
Collectable string class.
virtual const char * GetName() const
Returns name of object.
virtual void SysError(const char *method, const char *msgfmt,...) const
Issue system error message.
virtual void Warning(const char *method, const char *msgfmt,...) const
Issue warning message.
virtual void Error(const char *method, const char *msgfmt,...) const
Issue error message.
Iterator of ordered collection.
TObject * Next() override
Return next object in collection.
Int_t Substitute(TString &s, const TString &replace, const TString &mods="", Int_t start=0, Int_t nMatchMax=10)
Substitute replaces the string s by a new string in which matching patterns are replaced by the repla...
static void ShutDown()
Shut down ROOT.
static const TString & GetEtcDir()
Get the sysconfig directory in the installation. Static utility function.
static const TString & GetLibDir()
Get the library directory in the installation. Static utility function.
Regular expression class.
Bool_t Notify() override
Notify when signal occurs.
ESignals GetSignal() const
Int_t Atoi() const
Return integer value of string.
Bool_t Gets(FILE *fp, Bool_t chop=kTRUE)
Read one line from the stream, including the \n, or until EOF.
Bool_t EndsWith(const char *pat, ECaseCompare cmp=kExact) const
Return true if string ends with the specified string.
TSubString Strip(EStripType s=kTrailing, char c=' ') const
Return a substring of self stripped at beginning and/or end.
Ssiz_t First(char c) const
Find first occurrence of a character c.
const char * Data() const
TString & ReplaceAll(const TString &s1, const TString &s2)
TObjArray * Tokenize(const TString &delim) const
This function is used to isolate sequential tokens in a TString.
Bool_t BeginsWith(const char *s, ECaseCompare cmp=kExact) const
TString & Swap(TString &other)
TString & Remove(Ssiz_t pos)
TString & Append(const char *cs)
static TString Format(const char *fmt,...)
Static method which formats a string using a printf style format descriptor and return a TString.
void Form(const char *fmt,...)
Formats a string using a printf style format descriptor.
Bool_t Contains(const char *pat, ECaseCompare cmp=kExact) const
Ssiz_t Index(const char *pat, Ssiz_t i=0, ECaseCompare cmp=kExact) const
Long64_t Atoll() const
Return long long value of string.
Abstract base class defining a generic interface to the underlying Operating System.
virtual void Unload(const char *module)
Unload a shared library.
TSeqCollection * fFileHandler
virtual void AddFileHandler(TFileHandler *fh)
Add a file handler to the list of system file handlers.
TString & GetLastErrorString()
Return the thread local storage for the custom last error message.
virtual Func_t DynFindSymbol(const char *module, const char *entry)
Find specific entry point in specified library.
static void ResetErrno()
Static function resetting system error number.
virtual Bool_t ExpandPathName(TString &path)
Expand a pathname getting rid of special shell characters like ~.
static Int_t GetErrno()
Static function returning system error number.
virtual const char * DirName(const char *pathname)
Return the directory name in pathname.
virtual void FreeDirectory(void *dirp)
Free a directory.
virtual void * OpenDirectory(const char *name)
Open a directory. Returns 0 if directory does not exist.
virtual int GetPid()
Get process id.
virtual Long_t NextTimeOut(Bool_t mode)
Time when next timer of mode (synchronous=kTRUE or asynchronous=kFALSE) will time-out (in ms).
virtual int SetSockOpt(int sock, int kind, int val)
Set socket option.
virtual const char * Getenv(const char *env)
Get environment variable.
TFdSet * fWritemask
Files that should be checked for read events.
TFdSet * fSignals
Files with writes waiting.
virtual char * ConcatFileName(const char *dir, const char *name)
Concatenate a directory and a file name. User must delete returned string.
virtual Bool_t IsPathLocal(const char *path)
Returns TRUE if the url in 'path' points to the local file system.
virtual const char * FindFile(const char *search, TString &file, EAccessMode mode=kFileExists)
Find location of file in a search path.
virtual int mkdir(const char *name, Bool_t recursive=kFALSE)
Make a file system directory.
virtual int MakeDirectory(const char *name)
Make a directory.
virtual const char * ExpandFileName(const char *fname)
Expand a pathname getting rid of special shell characters like ~.
virtual TFileHandler * RemoveFileHandler(TFileHandler *fh)
Remove a file handler from the list of file handlers.
virtual int Load(const char *module, const char *entry="", Bool_t system=kFALSE)
Load a shared library.
virtual void ListLibraries(const char *regexp="")
List the loaded shared libraries.
virtual FILE * OpenPipe(const char *command, const char *mode)
Open a pipe.
int GetPathInfo(const char *path, Long_t *id, Long_t *size, Long_t *flags, Long_t *modtime)
Get info about a file: id, size, flags, modification time.
virtual const char * PrependPathName(const char *dir, TString &name)
Concatenate a directory and a file name.
virtual Bool_t AccessPathName(const char *path, EAccessMode mode=kFileExists)
Returns FALSE if one can access a file using the specified access mode.
virtual const char * GetDirEntry(void *dirp)
Get a directory entry. Returns 0 if no more entries.
virtual Bool_t Init()
Initialize the OS interface.
virtual void AddTimer(TTimer *t)
Add timer to list of system timers.
TFdSet * fWriteready
Files with reads waiting.
virtual int ClosePipe(FILE *pipe)
Close the pipe.
virtual const char * BaseName(const char *pathname)
Base name of a file name. Base name of /user/root is root.
virtual void AddSignalHandler(TSignalHandler *sh)
Add a signal handler to list of system signal handlers.
TSeqCollection * fSignalHandler
TFdSet * fReadready
Files that should be checked for write events.
TSystem * FindHelper(const char *path, void *dirptr=nullptr)
Create helper TSystem to handle file and directory operations that might be special for remote file a...
Int_t fNfd
Signals that were trapped.
std::atomic< Bool_t > fInsideNotify
virtual void Sleep(UInt_t milliSec)
Sleep milliSec milli seconds.
virtual const char * WorkingDirectory()
Return working directory.
virtual char * Which(const char *search, const char *file, EAccessMode mode=kFileExists)
Find location of file in a search path.
virtual TInetAddress GetHostByName(const char *server)
Get Internet Protocol (IP) address of host.
virtual TSignalHandler * RemoveSignalHandler(TSignalHandler *sh)
Remove a signal handler from list of signal handlers.
virtual void Setenv(const char *name, const char *value)
Set environment variable.
static const char * StripOffProto(const char *path, const char *proto)
Strip off protocol string from specified path.
virtual TTimer * RemoveTimer(TTimer *t)
Remove timer from list of system timers.
virtual TString GetDirName(const char *pathname)
Return the directory name in pathname.
virtual int Unlink(const char *name)
Unlink, i.e.
Basic time type with millisecond precision.
Handles synchronous and a-synchronous timer events.
Bool_t CheckTimer(const TTime &now)
Check if timer timed out.
void AddTimer(TTimer *ti) override
Add timer to list of system timers.
int RecvRaw(int sock, void *buffer, int length, int flag) override
Receive exactly length bytes into buffer.
int OpenConnection(const char *server, int port, int tcpwindowsize=-1, const char *protocol="tcp") override
Open a connection to a service on a server.
int GetMemInfo(MemInfo_t *info) const override
Returns ram and swap memory usage info into the MemInfo_t structure.
Bool_t IsPathLocal(const char *path) override
Returns TRUE if the url in 'path' points to the local file system.
int Symlink(const char *from, const char *to) override
Create a symlink from file1 to file2.
const char * HomeDirectory(const char *userName=nullptr) override
Return the user's home directory.
Int_t GetGid(const char *group=nullptr) override
Returns the group's id. If group = 0, returns current user's group.
static int UnixUdpConnect(const char *hostname, int port)
Creates a UDP socket connection Is called via the TSocket constructor.
int CopyFile(const char *from, const char *to, Bool_t overwrite=kFALSE) override
Copy a file.
TTimer * RemoveTimer(TTimer *ti) override
Remove timer from list of system timers.
int AnnounceUdpService(int port, int backlog) override
Announce UDP service.
int AnnounceUnixService(int port, int backlog) override
Announce unix domain service on path "kServerPath/<port>".
static int UnixTcpConnect(const char *hostname, int port, int tcpwindowsize)
Open a TCP/IP connection to server and connect to a service (i.e.
Int_t SetFPEMask(Int_t mask=kDefaultMask) override
Set which conditions trigger a floating point exception.
static const char * UnixGetdirentry(void *dir)
Returns the next directory entry.
void Setenv(const char *name, const char *value) override
Set environment variable.
int ConnectService(const char *server, int port, int tcpwindowsize, const char *protocol="tcp")
Connect to service servicename on server servername.
Bool_t ChangeDirectory(const char *path) override
Change directory. Returns kTRUE in case of success, kFALSE otherwise.
static const char * UnixHomedirectory(const char *user=nullptr)
Returns the user's home directory.
char * GetServiceByPort(int port) override
Get name of internet service.
Bool_t CheckSignals(Bool_t sync)
Check if some signals were raised and call their Notify() member.
static int UnixMakedir(const char *name)
Make a Unix file system directory.
static void UnixSigAlarmInterruptsSyscalls(Bool_t set)
When the argument is true the SIGALRM signal handler is set so that interrupted syscalls will not be ...
Int_t GetFPEMask() override
Return the bitmap of conditions that trigger a floating point exception.
static int UnixUnixConnect(int port)
Connect to a Unix domain socket.
int GetSysInfo(SysInfo_t *info) const override
Returns static system info, like OS type, CPU type, number of CPUs RAM size, etc into the SysInfo_t s...
void Exit(int code, Bool_t mode=kTRUE) override
Exit the application.
int AnnounceTcpService(int port, Bool_t reuse, int backlog, int tcpwindowsize=-1) override
Announce TCP/IP service.
void AddDynamicPath(const char *lib) override
Add a new directory to the dynamic path.
void SetDynamicPath(const char *lib) override
Set the dynamic path to a new value.
int ClosePipe(FILE *pipe) override
Close the pipe.
std::string GetHomeDirectory(const char *userName=nullptr) const override
Return the user's home directory.
Int_t Select(TList *active, Long_t timeout) override
Select on file descriptors.
void Unsetenv(const char *name) override
Unset environment variable.
virtual ~TUnixSystem()
Reset to original state.
void Abort(int code=0) override
Abort the application.
void Syslog(ELogLevel level, const char *mess) override
Send mess to syslog daemon.
UserGroup_t * GetGroupInfo(Int_t gid) override
Returns all group info in the UserGroup_t structure.
Int_t GetUid(const char *user=nullptr) override
Returns the user's id. If user = 0, returns current user's id.
Bool_t ExpandPathName(TString &patbuf) override
Expand a pathname getting rid of special shell characters like ~.
void Openlog(const char *name, Int_t options, ELogFacility facility) override
Open connection to system log daemon.
int AcceptConnection(int sock) override
Accept a connection.
TTime Now() override
Get current time in milliseconds since 0:00 Jan 1 1995.
static void UnixResetSignal(ESignals sig)
Restore old signal handler for specified signal.
int GetServiceByName(const char *service) override
Get port # of internet service.
const char * FindFile(const char *search, TString &file, EAccessMode mode=kFileExists) override
Find location of file "wfil" in a search path.
void SigAlarmInterruptsSyscalls(Bool_t set) override
When the argument is true the SIGALRM signal handler is set so that interrupted syscalls will not be ...
static int UnixUdpService(int port, int backlog)
Open a socket, bind to it and start listening for UDP connections on the port.
int Utime(const char *file, Long_t modtime, Long_t actime) override
Set a files modification and access times.
const char * GetLinkedLibraries() override
Get list of shared libraries loaded at the start of the executable.
const char * GetError() override
Return system error string.
std::string GetWorkingDirectory() const override
Return working directory.
Bool_t AccessPathName(const char *path, EAccessMode mode=kFileExists) override
Returns FALSE if one can access a file using the specified access mode.
FILE * TempFileName(TString &base, const char *dir=nullptr, const char *suffix=nullptr) override
Create a secure temporary file by appending a unique 6 letter string to base.
void DispatchOneEvent(Bool_t pendingOnly=kFALSE) override
Dispatch a single event.
int Chmod(const char *file, UInt_t mode) override
Set the file permission bits. Returns -1 in case or error, 0 otherwise.
const char * PrependPathName(const char *dir, TString &name) override
Concatenate a directory and a file name.
Bool_t DispatchTimers(Bool_t mode)
Handle and dispatch timers.
void IgnoreSignal(ESignals sig, Bool_t ignore=kTRUE) override
If ignore is true ignore the specified signal, else restore previous behaviour.
void ListSymbols(const char *module, const char *re="") override
List symbols in a shared library.
int Load(const char *module, const char *entry="", Bool_t system=kFALSE) override
Load a shared library.
void StackTrace() override
Print a stack trace.
TInetAddress GetHostByName(const char *server) override
Get Internet Protocol (IP) address of host.
int SendBuf(int sock, const void *buffer, int length) override
Send a buffer headed by a length indicator.
const char * HostName() override
Return the system's host name.
void CheckChilds()
Check if children have finished.
int RecvBuf(int sock, void *buffer, int length) override
Receive a buffer headed by a length indicator.
static int UnixUnixService(int port, int backlog)
Open a socket, bind to it and start listening for Unix domain connections to it.
UserGroup_t * GetUserInfo(Int_t uid) override
Returns all user info in the UserGroup_t structure.
void SetDisplay() override
Set DISPLAY environment variable based on utmp entry. Only for UNIX.
TFileHandler * RemoveFileHandler(TFileHandler *fh) override
Remove a file handler from the list of file handlers.
static const char * UnixSigname(ESignals sig)
Return the signal name associated with a signal.
static Long64_t UnixNow()
Get current time in milliseconds since 0:00 Jan 1 1995.
static int UnixFSstat(const char *path, Long_t *id, Long_t *bsize, Long_t *blocks, Long_t *bfree)
Get info about a file system: id, bsize, bfree, blocks.
void ResetSignals() override
Reset signals handlers to previous behaviour.
TInetAddress GetSockName(int sock) override
Get Internet Protocol (IP) address of host and port #.
int Link(const char *from, const char *to) override
Create a link from file1 to file2.
int GetProcInfo(ProcInfo_t *info) const override
Returns cpu and memory used by this process into the ProcInfo_t structure.
int SetSockOpt(int sock, int option, int val) override
Set socket option.
static int UnixSetitimer(Long_t ms)
Set interval timer to time-out in ms milliseconds.
static int UnixSend(int sock, const void *buf, int len, int flag)
Send exactly length bytes from buffer.
TInetAddress GetPeerName(int sock) override
Get Internet Protocol (IP) address of remote host and port #.
static void UnixIgnoreSignal(ESignals sig, Bool_t ignore)
If ignore is true ignore the specified signal, else restore previous behaviour.
static int UnixTcpService(int port, Bool_t reuse, int backlog, int tcpwindowsize)
Open a socket, bind to it and start listening for TCP/IP connections on the port.
void DispatchSignals(ESignals sig)
Handle and dispatch signals.
void AddFileHandler(TFileHandler *fh) override
Add a file handler to the list of system file handlers.
Int_t GetCryptoRandom(void *buf, Int_t len) override
Return cryptographic random number Fill provided buffer with random values Returns number of bytes wr...
void * OpenDirectory(const char *name) override
Open a Unix file system directory. Returns 0 if directory does not exist.
int Rename(const char *from, const char *to) override
Rename a file. Returns 0 when successful, -1 in case of failure.
const char * Getenv(const char *name) override
Get environment variable.
int GetPathInfo(const char *path, FileStat_t &buf) override
Get info about a file.
Int_t GetEffectiveGid() override
Returns the effective group id.
static int UnixSelect(Int_t nfds, TFdSet *readready, TFdSet *writeready, Long_t timeout)
Wait for events on the file descriptors specified in the readready and writeready masks or for timeou...
int GetPid() override
Get process id.
Int_t Exec(const char *shellcmd) override
Execute a command.
void ResetTimer(TTimer *ti) override
Reset a-sync timer.
TSignalHandler * RemoveSignalHandler(TSignalHandler *sh) override
Remove a signal handler from list of signal handlers.
static void UnixSignal(ESignals sig, SigHandler_t h)
Set a signal handler for a signal.
void CloseConnection(int sock, Bool_t force=kFALSE) override
Close socket.
Bool_t CheckDescriptors()
Check if there is activity on some file descriptors and call their Notify() member.
Bool_t Init() override
Initialize Unix system interface.
void Unload(const char *module) override
Unload a shared library.
int Umask(Int_t mask) override
Set the process file creation mode mask.
static int UnixFilestat(const char *path, FileStat_t &buf)
Get info about a file.
static int UnixRecv(int sock, void *buf, int len, int flag)
Receive exactly length bytes into buffer.
Int_t GetEffectiveUid() override
Returns the effective user id.
void FillWithCwd(char *cwd) const
Fill buffer with current working directory.
static int UnixWaitchild()
Wait till child is finished.
int Unlink(const char *name) override
Unlink, i.e.
void ListLibraries(const char *regexp="") override
List all loaded shared libraries.
void Closelog() override
Close connection to system log daemon.
Int_t RedirectOutput(const char *name, const char *mode="a", RedirectHandle_t *h=nullptr) override
Redirect standard output (stdout, stderr) to the specified file.
void Sleep(UInt_t milliSec) override
Sleep milliSec milliseconds.
void ResetSignal(ESignals sig, Bool_t reset=kTRUE) override
If reset is true reset the signal handler for the specified signal to the default handler,...
const char * TempDirectory() const override
Return a user configured or systemwide directory to create temporary files in.
Func_t DynFindSymbol(const char *module, const char *entry) override
dynamic linking of module
const char * GetDynamicPath() override
Return the dynamic path (used to find shared libraries).
FILE * OpenPipe(const char *shellcmd, const char *mode) override
Open a pipe.
void FreeDirectory(void *dirp) override
Close a Unix file system directory.
static void UnixResetSignals()
Restore old signal handlers.
int GetCpuInfo(CpuInfo_t *info, Int_t sampleTime=1000) const override
Returns cpu load average and load info into the CpuInfo_t structure.
void AddSignalHandler(TSignalHandler *sh) override
Add a signal handler to list of system signal handlers.
static void * UnixOpendir(const char *name)
Open a directory.
int SendRaw(int sock, const void *buffer, int length, int flag) override
Send exactly length bytes from buffer.
const char * WorkingDirectory() override
Return working directory.
int GetSockOpt(int sock, int option, int *val) override
Get socket option.
const char * FindDynamicLibrary(TString &lib, Bool_t quiet=kFALSE) override
Returns the path of a shared library (searches for library in the shared library search path).
void SetProgname(const char *name) override
Set the application name (from command line, argv[0]) and copy it in gProgName.
const char * GetDirEntry(void *dirp) override
Get next Unix file system directory entry. Returns 0 if no more entries.
int MakeDirectory(const char *name) override
Make a Unix file system directory.
int GetFsInfo(const char *path, Long_t *id, Long_t *bsize, Long_t *blocks, Long_t *bfree) override
Get info about a file system: id, bsize, bfree, blocks.
const std::string & GetFallbackRootSys()
Short_t Max(Short_t a, Short_t b)
Returns the largest of a and b.
const char * GetExePath()
Returns the executable path name, used e.g. by SetRootSys().
void SetRootSys()
Set the ROOTSYS env var based on the executable location.
struct sigaction * fOldHandler
struct utmp * fUtmpContents
struct utmp * SearchUtmpEntry(const char *tty)