Problem 1:
[dyninst.git] / dyninstAPI / src / util.C
1 /*
2  * Copyright (c) 1996-2004 Barton P. Miller
3  * 
4  * We provide the Paradyn Parallel Performance Tools (below
5  * described as "Paradyn") on an AS IS basis, and do not warrant its
6  * validity or performance.  We reserve the right to update, modify,
7  * or discontinue this software at any time.  We shall have no
8  * obligation to supply such updates or modifications or any other
9  * form of support to you.
10  * 
11  * This license is for research uses.  For such uses, there is no
12  * charge. We define "research use" to mean you may freely use it
13  * inside your organization for whatever purposes you see fit. But you
14  * may not re-distribute Paradyn or parts of Paradyn, in any form
15  * source or binary (including derivatives), electronic or otherwise,
16  * to any other organization or entity without our permission.
17  * 
18  * (for other uses, please contact us at paradyn@cs.wisc.edu)
19  * 
20  * All warranties, including without limitation, any warranty of
21  * merchantability or fitness for a particular purpose, are hereby
22  * excluded.
23  * 
24  * By your use of Paradyn, you understand and agree that we (or any
25  * other person or entity with proprietary rights in Paradyn) are
26  * under no obligation to provide either maintenance services,
27  * update services, notices of latent defects, or correction of
28  * defects for Paradyn.
29  * 
30  * Even if advised of the possibility of such damages, under no
31  * circumstances shall we (or any other person or entity with
32  * proprietary rights in the software licensed hereunder) be liable
33  * to you or any third party for direct, indirect, or consequential
34  * damages of any character regardless of type of action, including,
35  * without limitation, loss of profits, loss of use, loss of good
36  * will, or computer failure or malfunction.  You agree to indemnify
37  * us (and any other person or entity with proprietary rights in the
38  * software licensed hereunder) for any and all liability it may
39  * incur to third parties resulting from your use of Paradyn.
40  */
41
42 /* $Id: util.C,v 1.29 2006/02/14 23:50:16 jaw Exp $
43  * util.C - support functions.
44  */
45
46 #include "common/h/headers.h"
47 #ifndef BPATCH_LIBRARY
48 #include "rtinst/h/rtinst.h" // for time64
49 #endif
50 #include "dyninstAPI/src/util.h"
51 #include "common/h/Time.h"
52
53 // TIMING code
54
55 #if defined(i386_unknown_solaris2_5) || defined(sparc_sun_solaris2_4)
56 #include <sys/time.h>  // for gethrtime()
57 #endif
58
59 #include <sys/types.h>
60 #include <sys/stat.h>
61 #include <unistd.h>
62 bool waitForFileToExist(char *fname, int timeout_seconds)
63 {
64   int timeout = 0; // milliseconds
65   int sleep_increment = 100; // ms
66   int timeout_milliseconds = 1000 *timeout_seconds;
67
68   struct stat statbuf;
69   
70   int err = 0;
71   while (0 != (err = stat(fname, &statbuf))) {
72     if (err != ENOENT) {
73       fprintf(stderr, "%s[%d]:  stat failed with %s\n", FILE__, __LINE__, strerror(errno));
74       return false;
75     }
76
77     struct timeval slp;
78     slp.tv_sec = 0;
79     slp.tv_usec = sleep_increment /*ms*/ * 1000;
80     select(0, NULL, NULL, NULL, &slp);
81     timeout += sleep_increment;
82     if (timeout >= timeout_milliseconds) {
83       fprintf(stderr, "%s[%d]:  timeout waiting for file %s to exist\n", FILE__, __LINE__, fname);
84       return false;
85     }
86   }
87
88   assert (!err);
89   return true;
90 }
91
92 int openFileWhenNotBusy(char *fname, int flags, int mode, int timeout_seconds)
93 {
94
95   int timeout = 0; // milliseconds
96   int sleep_increment = 100; // ms
97   int timeout_milliseconds = 1000 *timeout_seconds;
98
99   
100   int fd = 0;
101   while (0 >= (fd = P_open(fname, flags, mode))) {
102     if ((errno != EBUSY) && (errno != ETXTBSY) && (errno != 0)){
103       fprintf(stderr, "%s[%d]:  open failed with %s\n", FILE__, __LINE__, strerror(errno));
104       return -1;
105     }
106
107     struct timeval slp;
108     slp.tv_sec = 0;
109     slp.tv_usec = sleep_increment /*ms*/ * 1000;
110     select(0, NULL, NULL, NULL, &slp);
111     timeout += sleep_increment;
112     if (timeout >= timeout_milliseconds) {
113       fprintf(stderr, "%s[%d]:  timeout waiting for file %s to exist\n", FILE__, __LINE__, fname);
114       return -1;
115     }
116   }
117
118   assert (fd > 0);
119   return fd;
120 }
121
122 #ifndef BPATCH_LIBRARY
123 timeStamp *pFirstRecordTime = NULL;
124
125 void setFirstRecordTime(const timeStamp &ts) {
126   if(pFirstRecordTime != NULL) delete pFirstRecordTime;
127   pFirstRecordTime = new timeStamp(ts);
128 }
129 bool isInitFirstRecordTime() {
130   if(pFirstRecordTime == NULL) return false;
131   else return true;
132 }
133 const timeStamp &getFirstRecordTime() {
134   if(pFirstRecordTime == NULL) assert(0);
135   return *pFirstRecordTime;
136 }
137 #endif
138
139 static unsigned addrHashCommon(Address addr) {
140    // inspired by hashs of string class
141
142    register unsigned result = 5381;
143
144    register Address accumulator = addr;
145    while (accumulator > 0) {
146       // We use 3 bits at a time from the address
147       result = (result << 4) + result + (accumulator & 0x07);
148       accumulator >>= 3;
149    }
150
151    return result;
152 }
153
154 unsigned addrHash(const Address & iaddr) {
155    return addrHashCommon(iaddr);
156 }
157
158 unsigned addrHash4(const Address &iaddr) {
159    // call when you know that the low 2 bits are 0 (meaning they contribute
160    // nothing to an even hash distribution)
161    return addrHashCommon(iaddr >> 2);
162 }
163
164 unsigned addrHash16(const Address &iaddr) {
165    // call when you know that the low 4 bits are 0 (meaning they contribute
166    // nothing to an even hash distribution)
167    return addrHashCommon(iaddr >> 4);
168 }
169
170 void
171 pd_log_perror(const char* msg) {
172     sprintf(errorLine, "%s: %s\n", msg, strerror(errno));
173     logLine(errorLine);
174     // fprintf(stderr, "%s", log_buffer);
175 }
176
177
178
179