ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/common/utils.C
Revision: 1.86
Committed: Mon Jan 12 03:40:21 2009 UTC (15 years, 4 months ago) by root
Content type: text/plain
Branch: MAIN
CVS Tags: rel-2_80, rel-2_76, rel-2_77, rel-2_79, rel-2_78
Changes since 1.85: +13 -8 lines
Log Message:
*** empty log message ***

File Contents

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