ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/common/utils.C
(Generate patch)

Comparing deliantra/server/common/utils.C (file contents):
Revision 1.47 by root, Wed Feb 7 02:04:46 2007 UTC vs.
Revision 1.96 by root, Mon Apr 5 20:33:13 2010 UTC

1/* 1/*
2 * CrossFire, A Multiplayer game for X-windows 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * 3 *
4 * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team 4 * Copyright (©) 2005,2006,2007,2008,2009,2010 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (C) 2002 Mark Wedel & Crossfire Development Team
6 * Copyright (C) 1992 Frank Tore Johansen
7 * 5 *
8 * This program is free software; you can redistribute it and/or modify 6 * Deliantra is free software: you can redistribute it and/or modify it under
9 * it under the terms of the GNU General Public License as published by 7 * the terms of the Affero GNU General Public License as published by the
10 * the Free Software Foundation; either version 2 of the License, or 8 * Free Software Foundation, either version 3 of the License, or (at your
11 * (at your option) any later version. 9 * option) any later version.
12 * 10 *
13 * This program is distributed in the hope that it will be useful, 11 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details. 14 * GNU General Public License for more details.
17 * 15 *
18 * You should have received a copy of the GNU General Public License 16 * You should have received a copy of the Affero GNU General Public License
19 * along with this program; if not, write to the Free Software 17 * and the GNU General Public License along with this program. If not, see
20 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 18 * <http://www.gnu.org/licenses/>.
21 * 19 *
22 * The authors can be reached via e-mail at <crossfire@schmorp.de> 20 * The authors can be reached via e-mail to <support@deliantra.net>
23 */ 21 */
24 22
25/* 23/*
26 * General convenience functions for crossfire. 24 * General convenience functions for deliantra.
27 */ 25 */
28 26
29#include <cstdlib> 27#include <cstdlib>
30#include <sys/types.h> 28#include <sys/types.h>
31#include <unistd.h> 29#include <unistd.h>
32#include <sys/time.h> 30#include <sys/time.h>
33#include <time.h> 31#include <time.h>
34#include <signal.h> 32#include <signal.h>
35 33
36#include <global.h> 34#include <global.h>
37#include <funcpoint.h>
38#include <material.h> 35#include <material.h>
36#include <object.h>
37
38#include <sys/time.h>
39#include <sys/resource.h>
39 40
40#include <glib.h> 41#include <glib.h>
41 42
42rand_gen rndm; 43refcnt_base::refcnt_t refcnt_dummy;
44ssize_t slice_alloc;
45rand_gen rndm, rmg_rndm;
46
47#if !GCC_VERSION(3,4)
48int least_significant_bit (uint32_t x)
49{
50 x &= -x; // this isolates the lowest bit
51
52 int r = 0;
53
54 if (x & 0xaaaaaaaa) r += 1;
55 if (x & 0xcccccccc) r += 2;
56 if (x & 0xf0f0f0f0) r += 4;
57 if (x & 0xff00ff00) r += 8;
58 if (x & 0xffff0000) r += 16;
59
60 return r;
61}
62#endif
43 63
44void 64void
45tausworthe_random_generator::seed (uint32_t seed) 65tausworthe_random_generator::seed (uint32_t seed)
46{ 66{
47 state [0] = max ( 2U, seed * 69069U); 67 state [0] = seed * 69069U; if (state [0] < 2U) state [0] += 2U;
48 state [1] = max ( 8U, state [0] * 69069U); 68 state [1] = state [0] * 69069U; if (state [0] < 8U) state [0] += 8U;
49 state [2] = max ( 16U, state [1] * 69069U); 69 state [2] = state [1] * 69069U; if (state [0] < 16U) state [0] += 16U;
50 state [3] = max (128U, state [2] * 69069U); 70 state [3] = state [2] * 69069U; if (state [0] < 128U) state [0] += 128U;
51 71
52 for (int i = 11; --i; ) 72 for (int i = 11; --i; )
53 operator ()(); 73 next ();
54} 74}
55 75
56uint32_t 76uint32_t
57tausworthe_random_generator::next () 77tausworthe_random_generator::next ()
58{ 78{
62 state [3] = ((state [3] & 0xFFFFFF80U) << 13U) ^ (((state [3] << 3U) ^ state [3]) >> 12U); 82 state [3] = ((state [3] & 0xFFFFFF80U) << 13U) ^ (((state [3] << 3U) ^ state [3]) >> 12U);
63 83
64 return state [0] ^ state [1] ^ state [2] ^ state [3]; 84 return state [0] ^ state [1] ^ state [2] ^ state [3];
65} 85}
66 86
87template<class generator>
67uint32_t 88uint32_t
68tausworthe_random_generator::get_range (uint32_t r_max) 89random_number_generator<generator>::get_range (uint32_t num)
69{ 90{
70 return next () % r_max; 91 return (this->next () * (uint64_t)num) >> 32U;
71} 92}
72 93
73// return a number within (min .. max) 94// return a number within (min .. max)
95template<class generator>
74int 96int
75tausworthe_random_generator::get_range (int r_min, int r_max) 97random_number_generator<generator>::get_range (int r_min, int r_max)
76{ 98{
77 return r_min + (*this) (max (r_max - r_min + 1, 1)); 99 return r_min + get_range (max (r_max - r_min + 1, 0));
78} 100}
79 101
80/* 102template struct random_number_generator<tausworthe_random_generator>;
81 * The random functions here take luck into account when rolling random 103template struct random_number_generator<xorshift_random_generator>;
82 * dice or numbers. This function has less of an impact the larger the 104
83 * difference becomes in the random numbers. IE, the effect is lessened 105/******************************************************************************/
84 * on a 1-1000 roll, vs a 1-6 roll. This can be used by crafty programmers, 106
85 * to specifically disable luck in certain rolls, simply by making the 107/* Checks a player-provided string which will become the msg property of
86 * numbers larger (ie, 1d1000 > 500 vs 1d6 > 3) 108 * an object for dangerous input.
87 */ 109 */
88 110bool
89/* 111msg_is_safe (const char *msg)
90 * Roll a random number between min and max. Uses op to determine luck,
91 * and if goodbad is non-zero, luck increases the roll, if zero, it decreases.
92 * Generally, op should be the player/caster/hitter requesting the roll,
93 * not the recipient (ie, the poor slob getting hit). [garbled 20010916]
94 */
95int
96random_roll (int r_min, int r_max, const object *op, int goodbad)
97{ 112{
98 int base = r_max - r_min > 1 ? 20 : 50; /* d2 and d3 are corner cases */ 113 bool safe = true;
99 114
100 if (r_max < 1 || r_max < r_min) 115 /* Trying to cheat by getting data into the object */
101 { 116 if (!strncmp (msg, "endmsg", sizeof ("endmsg") - 1)
102 LOG (llevError, "Calling random_roll with min=%d max=%d\n", r_min, r_max); 117 || strstr (msg, "\nendmsg"))
103 return r_min; 118 safe = false;
104 }
105 119
106 if (op->type == PLAYER) 120 /* Trying to make the object talk, and potentially access arbitrary code */
107 { 121 if (object::msg_has_dialogue (msg))
108 int luck = op->stats.luck; 122 safe = false;
109 123
110 if (rndm (base) < min (10, abs (luck)))
111 {
112 //TODO: take luck into account
113 }
114 }
115
116 return rndm (r_min, r_max);
117}
118
119/*
120 * This is a 64 bit version of random_roll above. This is needed
121 * for exp loss calculations for players changing religions.
122 */
123sint64
124random_roll64 (sint64 min, sint64 max, const object *op, int goodbad)
125{
126 sint64 omin, diff, luck, ran;
127 int base;
128
129 omin = min;
130 diff = max - min + 1;
131 ((diff > 2) ? (base = 20) : (base = 50)); /* d2 and d3 are corner cases */
132
133 if (max < 1 || diff < 1)
134 {
135 LOG (llevError, "Calling random_roll with min=%" PRId64 " max=%" PRId64 "\n", min, max);
136 return (min); /* avoids a float exception */
137 }
138
139 /*
140 * Make a call to get two 32 bit unsigned random numbers, and just to
141 * a little bitshifting.
142 */
143 ran = (sint64) rndm.next () ^ ((sint64) rndm.next () << 31);
144
145 if (op->type != PLAYER)
146 return ((ran % diff) + min);
147
148 luck = op->stats.luck;
149 if (rndm (base) < MIN (10, abs (luck)))
150 {
151 /* we have a winner */
152 ((luck > 0) ? (luck = 1) : (luck = -1));
153 diff -= luck;
154 if (diff < 1)
155 return (omin); /*check again */
156 ((goodbad) ? (min += luck) : (diff));
157
158 return (MAX (omin, MIN (max, (ran % diff) + min)));
159 }
160
161 return ((ran % diff) + min);
162}
163
164/*
165 * Roll a number of dice (2d3, 4d6). Uses op to determine luck,
166 * If goodbad is non-zero, luck increases the roll, if zero, it decreases.
167 * Generally, op should be the player/caster/hitter requesting the roll,
168 * not the recipient (ie, the poor slob getting hit).
169 * The args are num D size (ie 4d6) [garbled 20010916]
170 */
171
172int
173die_roll (int num, int size, const object *op, int goodbad)
174{
175 int min, diff, luck, total, i, gotlucky, base;
176
177 diff = size;
178 min = 1;
179 luck = total = gotlucky = 0;
180 ((diff > 2) ? (base = 20) : (base = 50)); /* d2 and d3 are corner cases */
181 if (size < 2 || diff < 1)
182 {
183 LOG (llevError, "Calling die_roll with num=%d size=%d\n", num, size);
184 return (num); /* avoids a float exception */
185 }
186
187 if (op->type == PLAYER)
188 luck = op->stats.luck;
189
190 for (i = 0; i < num; i++)
191 {
192 if (rndm (base) < MIN (10, abs (luck)) && !gotlucky)
193 {
194 /* we have a winner */
195 gotlucky++;
196 ((luck > 0) ? (luck = 1) : (luck = -1));
197 diff -= luck;
198 if (diff < 1)
199 return (num); /*check again */
200 ((goodbad) ? (min += luck) : (diff));
201 total += MAX (1, MIN (size, rndm (diff) + min));
202 }
203 else
204 total += rndm (size) + 1;
205 }
206
207 return total;
208}
209
210/* decay and destroy perishable items in a map */
211void
212maptile::decay_objects ()
213{
214 if (!spaces)
215 return;
216
217 for (mapspace *ms = spaces + size (); ms-- > spaces; )
218 for (object *above, *op = ms->bot; op; op = above)
219 {
220 above = op->above;
221
222 bool destroy = 0;
223
224 // do not decay anything above unique floor tiles (yet :)
225 if (QUERY_FLAG (op, FLAG_IS_FLOOR) && QUERY_FLAG (op, FLAG_UNIQUE))
226 break;
227
228 if (QUERY_FLAG (op, FLAG_IS_FLOOR)
229 || QUERY_FLAG (op, FLAG_OBJ_ORIGINAL)
230 || QUERY_FLAG (op, FLAG_OBJ_SAVE_ON_OVL)
231 || QUERY_FLAG (op, FLAG_UNIQUE)
232 || QUERY_FLAG (op, FLAG_OVERLAY_FLOOR)
233 || QUERY_FLAG (op, FLAG_UNPAID)
234 || op->is_alive ())
235 ; // do not decay
236 else if (op->is_weapon ())
237 {
238 op->stats.dam--;
239 if (op->stats.dam < 0)
240 destroy = 1;
241 }
242 else if (op->is_armor ())
243 {
244 op->stats.ac--;
245 if (op->stats.ac < 0)
246 destroy = 1;
247 }
248 else if (op->type == FOOD)
249 {
250 op->stats.food -= rndm (5, 20);
251 if (op->stats.food < 0)
252 destroy = 1;
253 }
254 else
255 {
256 int mat = op->materials;
257
258 if (mat & M_PAPER
259 || mat & M_LEATHER
260 || mat & M_WOOD
261 || mat & M_ORGANIC
262 || mat & M_CLOTH
263 || mat & M_LIQUID
264 || (mat & M_IRON && rndm (1, 5) == 1)
265 || (mat & M_GLASS && rndm (1, 2) == 1)
266 || ((mat & M_STONE || mat & M_ADAMANT) && rndm (1, 10) == 1)
267 || ((mat & M_SOFT_METAL || mat & M_BONE) && rndm (1, 3) == 1)
268 || (mat & M_ICE && temp > 32))
269 destroy = 1;
270 }
271
272 /* adjust overall chance below */
273 if (destroy && rndm (0, 1))
274 op->destroy ();
275 }
276}
277
278/* convert materialname to materialtype_t */
279
280materialtype_t *
281name_to_material (const shstr &name)
282{
283 for (materialtype_t *mt = materialt; mt && mt->next; mt = mt->next)
284 if (name == mt->name)
285 return mt;
286
287 return materialt;
288}
289
290/* when doing transmutation of objects, we have to recheck the resistances,
291 * as some that did not apply previously, may apply now.
292 */
293
294void
295transmute_materialname (object *op, const object *change)
296{
297 materialtype_t *mt;
298 int j;
299
300 if (op->materialname == NULL)
301 return;
302
303 if (change->materialname != NULL && strcmp (op->materialname, change->materialname))
304 return;
305
306 if (!op->is_armor ())
307 return;
308
309 mt = name_to_material (op->materialname);
310 if (!mt)
311 {
312 LOG (llevError, "archetype '%s>%s' uses nonexistent material '%s'\n", &op->arch->name, &op->name, &op->materialname);
313 return;
314 }
315
316 for (j = 0; j < NROFATTACKS; j++)
317 if (op->resist[j] == 0 && change->resist[j] != 0)
318 {
319 op->resist[j] += mt->mod[j];
320 if (op->resist[j] > 100)
321 op->resist[j] = 100;
322 if (op->resist[j] < -100)
323 op->resist[j] = -100;
324 }
325}
326
327/* set the materialname and type for an item */
328void
329set_materialname (object *op, int difficulty, materialtype_t *nmt)
330{
331 materialtype_t *mt, *lmt;
332
333#ifdef NEW_MATERIAL_CODE
334 int j;
335#endif
336
337 if (op->materialname != NULL)
338 return;
339
340
341
342 if (nmt == NULL)
343 {
344 lmt = NULL;
345#ifndef NEW_MATERIAL_CODE
346 for (mt = materialt; mt && mt->next; mt = mt->next)
347 {
348 if (op->materials & mt->material)
349 {
350 lmt = mt;
351 break;
352 }
353 }
354
355#else
356 for (mt = materialt; mt && mt->next; mt = mt->next)
357 {
358 if (op->materials & mt->material && rndm (1, 100) <= mt->chance &&
359 difficulty >= mt->difficulty && (op->magic >= mt->magic || mt->magic == 0))
360 {
361 lmt = mt;
362 if (!(op->is_weapon () || op->is_armor ()))
363 break;
364 }
365 }
366#endif
367 }
368 else
369 {
370 lmt = nmt;
371 }
372
373 if (lmt != NULL)
374 {
375#ifndef NEW_MATERIAL_CODE
376 op->materialname = lmt->name;
377 return;
378#else
379
380 if (op->stats.dam && op->is_weapon ())
381 {
382 op->stats.dam += lmt->damage;
383 if (op->stats.dam < 1)
384 op->stats.dam = 1;
385 }
386
387 if (op->stats.sp && op->type == BOW)
388 op->stats.sp += lmt->sp;
389 if (op->stats.wc && op->is_weapon ())
390 op->stats.wc += lmt->wc;
391 if (op->is_armor ())
392 {
393 if (op->stats.ac)
394 op->stats.ac += lmt->ac;
395 for (j = 0; j < NROFATTACKS; j++)
396 if (op->resist[j] != 0)
397 {
398 op->resist[j] += lmt->mod[j];
399 if (op->resist[j] > 100)
400 op->resist[j] = 100;
401 if (op->resist[j] < -100)
402 op->resist[j] = -100;
403 }
404 }
405 op->materialname = lmt->name;
406 /* dont make it unstackable if it doesn't need to be */
407 if (op->is_weapon () || op->is_armor ())
408 {
409 op->weight = (op->weight * lmt->weight) / 100;
410 op->value = (op->value * lmt->value) / 100;
411 }
412#endif
413 }
414}
415
416/*
417 * Strip out the media tags from a String.
418 * Warning the input string will contain the result string
419 */
420void
421strip_media_tag (char *message)
422{
423 int in_tag = 0;
424 char *dest;
425 char *src;
426
427 src = dest = message;
428 while (*src != '\0')
429 {
430 if (*src == '[')
431 {
432 in_tag = 1;
433 }
434 else if (in_tag && (*src == ']'))
435 in_tag = 0;
436 else if (!in_tag)
437 {
438 *dest = *src;
439 dest++;
440 }
441 src++;
442 }
443 *dest = '\0';
444}
445
446const char *
447strrstr (const char *haystack, const char *needle)
448{
449 const char *lastneedle;
450
451 lastneedle = NULL;
452 while ((haystack = strstr (haystack, needle)) != NULL)
453 {
454 lastneedle = haystack;
455 haystack++;
456 }
457 return lastneedle;
458
459}
460
461#define EOL_SIZE (sizeof("\n")-1)
462void
463strip_endline (char *buf)
464{
465 if (strlen (buf) < sizeof ("\n"))
466 {
467 return;
468 }
469 if (!strcmp (buf + strlen (buf) - EOL_SIZE, "\n"))
470 buf[strlen (buf) - EOL_SIZE] = '\0';
471}
472
473/**
474 * Replace in string src all occurrences of key by replacement. The resulting
475 * string is put into result; at most resultsize characters (including the
476 * terminating null character) will be written to result.
477 */
478void
479replace (const char *src, const char *key, const char *replacement, char *result, size_t resultsize)
480{
481 size_t resultlen;
482 size_t keylen;
483
484 /* special case to prevent infinite loop if key==replacement=="" */
485 if (strcmp (key, replacement) == 0)
486 {
487 snprintf (result, resultsize, "%s", src);
488 return;
489 }
490
491 keylen = strlen (key);
492
493 resultlen = 0;
494 while (*src != '\0' && resultlen + 1 < resultsize)
495 {
496 if (strncmp (src, key, keylen) == 0)
497 {
498 snprintf (result + resultlen, resultsize - resultlen, "%s", replacement);
499 resultlen += strlen (result + resultlen);
500 src += keylen;
501 }
502 else
503 {
504 result[resultlen++] = *src++;
505 }
506 }
507 result[resultlen] = '\0';
508}
509
510/**
511 * Taking a string as an argument, mutate it into a string that looks like a list.
512 * a 'list' for the purposes here, is a string of items, seperated by commas, except
513 * for the last entry, which has an 'and' before it, and a full stop (period) after it.
514 * This function will also strip all trailing non alphanumeric characters.
515 * It does not insert an oxford comma.
516 */
517
518void
519make_list_like (char *input)
520{
521 char *p, tmp[MAX_BUF];
522 int i;
523
524 if (!input || strlen (input) > MAX_BUF - 5)
525 return;
526 /* bad stuff would happen if we continued here, the -5 is to make space for ' and ' */
527
528 strncpy (tmp, input, MAX_BUF - 5);
529 /*trim all trailing commas, spaces etc. */
530 for (i = strlen (tmp); !isalnum (tmp[i]) && i >= 0; i--)
531 tmp[i] = '\0';
532
533 strcat (tmp, ".");
534
535 p = strrchr (tmp, ',');
536 if (p)
537 {
538 *p = '\0';
539 strcpy (input, tmp);
540 p++;
541 strcat (input, " and");
542 strcat (input, p);
543 }
544 else
545 strcpy (input, tmp);
546
547 return; 124 return safe;
548} 125}
549 126
550///////////////////////////////////////////////////////////////////////////// 127/////////////////////////////////////////////////////////////////////////////
551 128
552void 129void
553fork_abort (const char *msg) 130fork_abort (const char *msg)
554{ 131{
555 if (!fork ()) 132 if (!fork ())
556 { 133 {
134 signal (SIGINT , SIG_IGN);
135 signal (SIGTERM, SIG_IGN);
557 signal (SIGABRT, SIG_DFL); 136 signal (SIGABRT, SIG_IGN);
137
138 signal (SIGSEGV, SIG_DFL);
139 signal (SIGBUS , SIG_DFL);
140 signal (SIGILL , SIG_DFL);
141 signal (SIGTRAP, SIG_DFL);
142
143 // try to put corefiles into a subdirectory, if existing, to allow
144 // an administrator to reduce the I/O load.
145 chdir ("cores");
146
147 // try to detach us from as many external dependencies as possible
148 // as coredumping can take time by closing all fd's.
149 {
150 struct rlimit lim;
151
152 if (getrlimit (RLIMIT_NOFILE, &lim))
153 lim.rlim_cur = 1024;
154
155 for (int i = 0; i < lim.rlim_cur; ++i)
156 close (i);
157 }
158
159 {
160 sigset_t empty;
161 sigemptyset (&empty);
162 sigprocmask (SIG_SETMASK, &empty, 0);
163 }
164
165 // try to coredump with SIGTRAP
166 kill (getpid (), SIGTRAP);
558 abort (); 167 abort ();
559 } 168 }
560 169
561 LOG (llevError, "fork abort: %s\n", msg); 170 LOG (llevError, "fork abort: %s\n", msg);
562} 171}
563 172
564void *salloc_ (int n) throw (std::bad_alloc) 173void *salloc_ (int n) throw (std::bad_alloc)
565{ 174{
566#ifdef PREFER_MALLOC
567 void *ptr = malloc (n);
568#else
569 void *ptr = g_slice_alloc (n); 175 void *ptr = g_slice_alloc (n);
570#endif
571 176
572 if (!ptr) 177 if (!ptr)
573 throw std::bad_alloc (); 178 throw std::bad_alloc ();
574 179
180 slice_alloc += n;
575 return ptr; 181 return ptr;
576} 182}
577 183
578void *salloc_ (int n, void *src) throw (std::bad_alloc) 184void *salloc_ (int n, void *src) throw (std::bad_alloc)
579{ 185{
585 memset (ptr, 0, n); 191 memset (ptr, 0, n);
586 192
587 return ptr; 193 return ptr;
588} 194}
589 195
196/******************************************************************************/
197
198#if DEBUG_SALLOC
199
200#define MAGIC 0xa1b2c35543deadLL
201
202void *g_slice_alloc (unsigned long size)
203{
204 unsigned long *p = (unsigned long *) (g_slice_alloc)(size + sizeof (unsigned long));
205 *p++ = size ^ MAGIC;
206 //fprintf (stderr, "g_slice_alloc %ld %p\n", size, p);//D
207 return (void *)p;
208}
209
210void *g_slice_alloc0 (unsigned long size)
211{
212 return memset (g_slice_alloc (size), 0, size);
213}
214
215void g_slice_free1 (unsigned long size, void *ptr)
216{
217 //fprintf (stderr, "g_slice_free %ld %p\n", size, ptr);//D
218 if (expect_true (ptr))
219 {
220 unsigned long *p = (unsigned long *)ptr;
221 unsigned long s = *--p ^ MAGIC;
222
223 if (size != (unsigned long)(*p ^ MAGIC))
224 {
225 LOG (logBacktrace | llevError, "slice free size (%lx) doesn't match alloc size (%lx)\n", size, s);
226 abort ();
227 }
228
229 *p = MAGIC;
230
231 (g_slice_free1)(s + sizeof (unsigned long), p);
232 }
233}
234
235#endif
236
237/******************************************************************************/
238
239int
590void assign (char *dst, const char *src, int maxlen) 240assign (char *dst, const char *src, int maxsize)
591{ 241{
592 if (!src) 242 if (!src)
593 src = ""; 243 src = "";
594 244
595 int len = strlen (src); 245 int len = strlen (src);
596 246
597 if (len >= maxlen - 1) 247 if (len >= maxsize)
598 { 248 {
599 if (maxlen <= 4) 249 if (maxsize <= 4)
600 { 250 {
601 memset (dst, '.', maxlen - 1); 251 memset (dst, '.', maxsize - 2);
602 dst [maxlen - 1] = 0; 252 dst [maxsize - 1] = 0;
603 } 253 }
604 else 254 else
605 { 255 {
606 memcpy (dst, src, maxlen - 4); 256 memcpy (dst, src, maxsize - 4);
607 memcpy (dst + maxlen - 4, "...", 4); 257 memcpy (dst + maxsize - 4, "...", 4);
608 } 258 }
259
260 len = maxsize;
609 } 261 }
610 else 262 else
611 memcpy (dst, src, len + 1); 263 memcpy (dst, src, ++len);
264
265 return len;
266}
267
268char *
269vformat (const char *format, va_list ap)
270{
271 static dynbuf_text bufs[8];
272 static int bufidx;
273
274 dynbuf_text &buf = bufs [++bufidx & 7];
275
276 buf.clear ();
277 buf.vprintf (format, ap);
278 return buf;
279}
280
281char *
282format (const char *format, ...)
283{
284 va_list ap;
285 va_start (ap, format);
286 char *buf = vformat (format, ap);
287 va_end (ap);
288
289 return buf;
612} 290}
613 291
614tstamp now () 292tstamp now ()
615{ 293{
616 struct timeval tv; 294 struct timeval tv;
627 305
628 int diff = (b - a) & 7; 306 int diff = (b - a) & 7;
629 return diff <= 1 || diff >= 7; 307 return diff <= 1 || diff >= 7;
630} 308}
631 309
310/* crc32 0xdebb20e3 table and supplementary functions. */
311extern const uint32_t crc_32_tab[256] =
312{
313 0x00000000UL, 0x77073096UL, 0xee0e612cUL, 0x990951baUL, 0x076dc419UL,
314 0x706af48fUL, 0xe963a535UL, 0x9e6495a3UL, 0x0edb8832UL, 0x79dcb8a4UL,
315 0xe0d5e91eUL, 0x97d2d988UL, 0x09b64c2bUL, 0x7eb17cbdUL, 0xe7b82d07UL,
316 0x90bf1d91UL, 0x1db71064UL, 0x6ab020f2UL, 0xf3b97148UL, 0x84be41deUL,
317 0x1adad47dUL, 0x6ddde4ebUL, 0xf4d4b551UL, 0x83d385c7UL, 0x136c9856UL,
318 0x646ba8c0UL, 0xfd62f97aUL, 0x8a65c9ecUL, 0x14015c4fUL, 0x63066cd9UL,
319 0xfa0f3d63UL, 0x8d080df5UL, 0x3b6e20c8UL, 0x4c69105eUL, 0xd56041e4UL,
320 0xa2677172UL, 0x3c03e4d1UL, 0x4b04d447UL, 0xd20d85fdUL, 0xa50ab56bUL,
321 0x35b5a8faUL, 0x42b2986cUL, 0xdbbbc9d6UL, 0xacbcf940UL, 0x32d86ce3UL,
322 0x45df5c75UL, 0xdcd60dcfUL, 0xabd13d59UL, 0x26d930acUL, 0x51de003aUL,
323 0xc8d75180UL, 0xbfd06116UL, 0x21b4f4b5UL, 0x56b3c423UL, 0xcfba9599UL,
324 0xb8bda50fUL, 0x2802b89eUL, 0x5f058808UL, 0xc60cd9b2UL, 0xb10be924UL,
325 0x2f6f7c87UL, 0x58684c11UL, 0xc1611dabUL, 0xb6662d3dUL, 0x76dc4190UL,
326 0x01db7106UL, 0x98d220bcUL, 0xefd5102aUL, 0x71b18589UL, 0x06b6b51fUL,
327 0x9fbfe4a5UL, 0xe8b8d433UL, 0x7807c9a2UL, 0x0f00f934UL, 0x9609a88eUL,
328 0xe10e9818UL, 0x7f6a0dbbUL, 0x086d3d2dUL, 0x91646c97UL, 0xe6635c01UL,
329 0x6b6b51f4UL, 0x1c6c6162UL, 0x856530d8UL, 0xf262004eUL, 0x6c0695edUL,
330 0x1b01a57bUL, 0x8208f4c1UL, 0xf50fc457UL, 0x65b0d9c6UL, 0x12b7e950UL,
331 0x8bbeb8eaUL, 0xfcb9887cUL, 0x62dd1ddfUL, 0x15da2d49UL, 0x8cd37cf3UL,
332 0xfbd44c65UL, 0x4db26158UL, 0x3ab551ceUL, 0xa3bc0074UL, 0xd4bb30e2UL,
333 0x4adfa541UL, 0x3dd895d7UL, 0xa4d1c46dUL, 0xd3d6f4fbUL, 0x4369e96aUL,
334 0x346ed9fcUL, 0xad678846UL, 0xda60b8d0UL, 0x44042d73UL, 0x33031de5UL,
335 0xaa0a4c5fUL, 0xdd0d7cc9UL, 0x5005713cUL, 0x270241aaUL, 0xbe0b1010UL,
336 0xc90c2086UL, 0x5768b525UL, 0x206f85b3UL, 0xb966d409UL, 0xce61e49fUL,
337 0x5edef90eUL, 0x29d9c998UL, 0xb0d09822UL, 0xc7d7a8b4UL, 0x59b33d17UL,
338 0x2eb40d81UL, 0xb7bd5c3bUL, 0xc0ba6cadUL, 0xedb88320UL, 0x9abfb3b6UL,
339 0x03b6e20cUL, 0x74b1d29aUL, 0xead54739UL, 0x9dd277afUL, 0x04db2615UL,
340 0x73dc1683UL, 0xe3630b12UL, 0x94643b84UL, 0x0d6d6a3eUL, 0x7a6a5aa8UL,
341 0xe40ecf0bUL, 0x9309ff9dUL, 0x0a00ae27UL, 0x7d079eb1UL, 0xf00f9344UL,
342 0x8708a3d2UL, 0x1e01f268UL, 0x6906c2feUL, 0xf762575dUL, 0x806567cbUL,
343 0x196c3671UL, 0x6e6b06e7UL, 0xfed41b76UL, 0x89d32be0UL, 0x10da7a5aUL,
344 0x67dd4accUL, 0xf9b9df6fUL, 0x8ebeeff9UL, 0x17b7be43UL, 0x60b08ed5UL,
345 0xd6d6a3e8UL, 0xa1d1937eUL, 0x38d8c2c4UL, 0x4fdff252UL, 0xd1bb67f1UL,
346 0xa6bc5767UL, 0x3fb506ddUL, 0x48b2364bUL, 0xd80d2bdaUL, 0xaf0a1b4cUL,
347 0x36034af6UL, 0x41047a60UL, 0xdf60efc3UL, 0xa867df55UL, 0x316e8eefUL,
348 0x4669be79UL, 0xcb61b38cUL, 0xbc66831aUL, 0x256fd2a0UL, 0x5268e236UL,
349 0xcc0c7795UL, 0xbb0b4703UL, 0x220216b9UL, 0x5505262fUL, 0xc5ba3bbeUL,
350 0xb2bd0b28UL, 0x2bb45a92UL, 0x5cb36a04UL, 0xc2d7ffa7UL, 0xb5d0cf31UL,
351 0x2cd99e8bUL, 0x5bdeae1dUL, 0x9b64c2b0UL, 0xec63f226UL, 0x756aa39cUL,
352 0x026d930aUL, 0x9c0906a9UL, 0xeb0e363fUL, 0x72076785UL, 0x05005713UL,
353 0x95bf4a82UL, 0xe2b87a14UL, 0x7bb12baeUL, 0x0cb61b38UL, 0x92d28e9bUL,
354 0xe5d5be0dUL, 0x7cdcefb7UL, 0x0bdbdf21UL, 0x86d3d2d4UL, 0xf1d4e242UL,
355 0x68ddb3f8UL, 0x1fda836eUL, 0x81be16cdUL, 0xf6b9265bUL, 0x6fb077e1UL,
356 0x18b74777UL, 0x88085ae6UL, 0xff0f6a70UL, 0x66063bcaUL, 0x11010b5cUL,
357 0x8f659effUL, 0xf862ae69UL, 0x616bffd3UL, 0x166ccf45UL, 0xa00ae278UL,
358 0xd70dd2eeUL, 0x4e048354UL, 0x3903b3c2UL, 0xa7672661UL, 0xd06016f7UL,
359 0x4969474dUL, 0x3e6e77dbUL, 0xaed16a4aUL, 0xd9d65adcUL, 0x40df0b66UL,
360 0x37d83bf0UL, 0xa9bcae53UL, 0xdebb9ec5UL, 0x47b2cf7fUL, 0x30b5ffe9UL,
361 0xbdbdf21cUL, 0xcabac28aUL, 0x53b39330UL, 0x24b4a3a6UL, 0xbad03605UL,
362 0xcdd70693UL, 0x54de5729UL, 0x23d967bfUL, 0xb3667a2eUL, 0xc4614ab8UL,
363 0x5d681b02UL, 0x2a6f2b94UL, 0xb40bbe37UL, 0xc30c8ea1UL, 0x5a05df1bUL,
364 0x2d02ef8dL
365};
366
367void thread::start (void *(*start_routine)(void *), void *arg)
368{
369 pthread_attr_t attr;
370
371 pthread_attr_init (&attr);
372 pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED);
373 pthread_attr_setstacksize (&attr, PTHREAD_STACK_MIN < sizeof (long) * 4096
374 ? sizeof (long) * 4096 : PTHREAD_STACK_MIN);
375#ifdef PTHREAD_SCOPE_PROCESS
376 pthread_attr_setscope (&attr, PTHREAD_SCOPE_PROCESS);
377#endif
378
379 sigset_t fullsigset, oldsigset;
380 sigfillset (&fullsigset);
381
382 pthread_sigmask (SIG_SETMASK, &fullsigset, &oldsigset);
383
384 if (pthread_create (&id, &attr, start_routine, arg))
385 cleanup ("unable to create a new thread");
386
387 pthread_sigmask (SIG_SETMASK, &oldsigset, 0);
388}
389

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines