gstrfuncs.c 61.7 KB
Newer Older
Tim Janik's avatar
Tim Janik committed
1 2 3 4
/* GLIB - Library of useful routines for C programming
 * Copyright (C) 1995-1997  Peter Mattis, Spencer Kimball and Josh MacDonald
 *
 * This library is free software; you can redistribute it and/or
5
 * modify it under the terms of the GNU Lesser General Public
Tim Janik's avatar
Tim Janik committed
6 7 8 9 10 11
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU
12
 * Lesser General Public License for more details.
Tim Janik's avatar
Tim Janik committed
13
 *
14
 * You should have received a copy of the GNU Lesser General Public
Tim Janik's avatar
Tim Janik committed
15 16 17 18
 * License along with this library; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */
19

20
/*
21
 * Modified by the GLib Team and others 1997-2000.  See the AUTHORS
22 23 24 25 26
 * file for a list of people on the GLib Team.  See the ChangeLog
 * files for a list of changes.  These files are distributed with
 * GLib at ftp://ftp.gtk.org/pub/gtk/. 
 */

27
/*
28 29 30
 * MT safe
 */

31
#include "config.h"
32

Owen Taylor's avatar
Owen Taylor committed
33 34
#define _GNU_SOURCE		/* For stpcpy */

Tim Janik's avatar
Tim Janik committed
35 36 37 38 39
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <locale.h>
Alexander Larsson's avatar
Alexander Larsson committed
40
#include <errno.h>
Tim Janik's avatar
Tim Janik committed
41
#include <ctype.h>		/* For tolower() */
Timur Bakeyev's avatar
Timur Bakeyev committed
42
#if !defined (HAVE_STRSIGNAL) || !defined(NO_SYS_SIGLIST_DECL)
43
#include <signal.h>
44
#endif
45

Tim Janik's avatar
Tim Janik committed
46
#include "glib.h"
47
#include "gprintf.h"
48
#include "gprintfint.h"
49 50 51 52 53

#ifdef G_OS_WIN32
#include <windows.h>
#endif

Tim Janik's avatar
Tim Janik committed
54
/* do not include <unistd.h> in this place since it
55
 * interferes with g_strsignal() on some OSes
Tim Janik's avatar
Tim Janik committed
56 57
 */

58
static const guint16 ascii_table_data[256] = {
59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
  0x004, 0x004, 0x004, 0x004, 0x004, 0x004, 0x004, 0x004,
  0x004, 0x104, 0x104, 0x004, 0x104, 0x104, 0x004, 0x004,
  0x004, 0x004, 0x004, 0x004, 0x004, 0x004, 0x004, 0x004,
  0x004, 0x004, 0x004, 0x004, 0x004, 0x004, 0x004, 0x004,
  0x140, 0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x0d0,
  0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x0d0,
  0x459, 0x459, 0x459, 0x459, 0x459, 0x459, 0x459, 0x459,
  0x459, 0x459, 0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x0d0,
  0x0d0, 0x653, 0x653, 0x653, 0x653, 0x653, 0x653, 0x253,
  0x253, 0x253, 0x253, 0x253, 0x253, 0x253, 0x253, 0x253,
  0x253, 0x253, 0x253, 0x253, 0x253, 0x253, 0x253, 0x253,
  0x253, 0x253, 0x253, 0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x0d0,
  0x0d0, 0x473, 0x473, 0x473, 0x473, 0x473, 0x473, 0x073,
  0x073, 0x073, 0x073, 0x073, 0x073, 0x073, 0x073, 0x073,
  0x073, 0x073, 0x073, 0x073, 0x073, 0x073, 0x073, 0x073,
  0x073, 0x073, 0x073, 0x0d0, 0x0d0, 0x0d0, 0x0d0, 0x004
  /* the upper 128 are all zeroes */
};

78 79
const guint16 * const g_ascii_table = ascii_table_data;

Tim Janik's avatar
Tim Janik committed
80 81 82 83
gchar*
g_strdup (const gchar *str)
{
  gchar *new_str;
84
  gsize length;
85

Tim Janik's avatar
Tim Janik committed
86 87
  if (str)
    {
88 89 90
      length = strlen (str) + 1;
      new_str = g_new (char, length);
      memcpy (new_str, str, length);
Tim Janik's avatar
Tim Janik committed
91
    }
92 93
  else
    new_str = NULL;
94

Tim Janik's avatar
Tim Janik committed
95 96 97
  return new_str;
}

Tim Janik's avatar
Tim Janik committed
98 99 100
gpointer
g_memdup (gconstpointer mem,
	  guint         byte_size)
Manish Singh's avatar
Manish Singh committed
101
{
Tim Janik's avatar
Tim Janik committed
102 103 104 105 106 107 108 109 110 111 112
  gpointer new_mem;

  if (mem)
    {
      new_mem = g_malloc (byte_size);
      memcpy (new_mem, mem, byte_size);
    }
  else
    new_mem = NULL;

  return new_mem;
Manish Singh's avatar
Manish Singh committed
113 114
}

Manish Singh's avatar
Manish Singh committed
115
gchar*
116
g_strndup (const gchar *str,
117
	   gsize        n)    
Manish Singh's avatar
Manish Singh committed
118
{
119
  gchar *new_str;
Manish Singh's avatar
Manish Singh committed
120 121 122

  if (str)
    {
123
      new_str = g_new (gchar, n + 1);
Manish Singh's avatar
Manish Singh committed
124 125 126
      strncpy (new_str, str, n);
      new_str[n] = '\0';
    }
127 128
  else
    new_str = NULL;
Manish Singh's avatar
Manish Singh committed
129 130 131 132

  return new_str;
}

133
gchar*
134
g_strnfill (gsize length,     
135 136
	    gchar fill_char)
{
137
  gchar *str;
138 139

  str = g_new (gchar, length + 1);
140 141
  memset (str, (guchar)fill_char, length);
  str[length] = '\0';
142 143 144 145

  return str;
}

Owen Taylor's avatar
Owen Taylor committed
146 147
/**
 * g_stpcpy:
148 149
 * @dest: destination buffer.
 * @src: source string.
Owen Taylor's avatar
Owen Taylor committed
150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179
 * 
 * Copies a nul-terminated string into the dest buffer, include the
 * trailing nul, and return a pointer to the trailing nul byte.
 * This is useful for concatenating multiple strings together
 * without having to repeatedly scan for the end.
 * 
 * Return value: a pointer to trailing nul byte.
 **/
gchar *
g_stpcpy (gchar       *dest,
          const gchar *src)
{
#ifdef HAVE_STPCPY
  g_return_val_if_fail (dest != NULL, NULL);
  g_return_val_if_fail (src != NULL, NULL);
  return stpcpy (dest, src);
#else
  register gchar *d = dest;
  register const gchar *s = src;

  g_return_val_if_fail (dest != NULL, NULL);
  g_return_val_if_fail (src != NULL, NULL);
  do
    *d++ = *s;
  while (*s++ != '\0');

  return d - 1;
#endif
}

180 181
gchar*
g_strdup_vprintf (const gchar *format,
182
		  va_list      args)
183
{
184
  gchar *string = NULL;
185

186
  g_vasprintf (&string, format, args);
187

188
  return string;
189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204
}

gchar*
g_strdup_printf (const gchar *format,
		 ...)
{
  gchar *buffer;
  va_list args;

  va_start (args, format);
  buffer = g_strdup_vprintf (format, args);
  va_end (args);

  return buffer;
}

Tim Janik's avatar
Tim Janik committed
205 206 207
gchar*
g_strconcat (const gchar *string1, ...)
{
208
  gsize	  l;     
Tim Janik's avatar
Tim Janik committed
209 210 211
  va_list args;
  gchar	  *s;
  gchar	  *concat;
Owen Taylor's avatar
Owen Taylor committed
212
  gchar   *ptr;
213

Tim Janik's avatar
Tim Janik committed
214 215
  if (!string1)
    return NULL;
216

Tim Janik's avatar
Tim Janik committed
217 218 219 220 221 222 223 224 225
  l = 1 + strlen (string1);
  va_start (args, string1);
  s = va_arg (args, gchar*);
  while (s)
    {
      l += strlen (s);
      s = va_arg (args, gchar*);
    }
  va_end (args);
226

Tim Janik's avatar
Tim Janik committed
227
  concat = g_new (gchar, l);
Owen Taylor's avatar
Owen Taylor committed
228
  ptr = concat;
229

Owen Taylor's avatar
Owen Taylor committed
230
  ptr = g_stpcpy (ptr, string1);
Tim Janik's avatar
Tim Janik committed
231 232 233 234
  va_start (args, string1);
  s = va_arg (args, gchar*);
  while (s)
    {
235
      ptr = g_stpcpy (ptr, s);
Tim Janik's avatar
Tim Janik committed
236 237 238
      s = va_arg (args, gchar*);
    }
  va_end (args);
239

Tim Janik's avatar
Tim Janik committed
240 241 242
  return concat;
}

Alexander Larsson's avatar
Alexander Larsson committed
243 244 245
/**
 * g_strtod:
 * @nptr:    the string to convert to a numeric value.
246
 * @endptr:  if non-%NULL, it returns the character after
Alexander Larsson's avatar
Alexander Larsson committed
247 248
 *           the last character used in the conversion.
 * 
249
 * Converts a string to a #gdouble value.
Alexander Larsson's avatar
Alexander Larsson committed
250 251
 * It calls the standard strtod() function to handle the conversion, but
 * if the string is not completely converted it attempts the conversion
252
 * again with g_ascii_strtod(), and returns the best match.
Alexander Larsson's avatar
Alexander Larsson committed
253
 *
254 255 256
 * This function should seldomly be used. The normal situation when reading
 * numbers not for human consumption is to use g_ascii_strtod(). Only when
 * you know that you must expect both locale formatted and C formatted numbers
Alexander Larsson's avatar
Alexander Larsson committed
257 258 259 260
 * should you use this. Make sure that you don't pass strings such as comma
 * separated lists of values, since the commas may be interpreted as a decimal
 * point in some locales, causing unexpected results.
 * 
261
 * Return value: the #gdouble value.
Alexander Larsson's avatar
Alexander Larsson committed
262
 **/
Tim Janik's avatar
Tim Janik committed
263 264
gdouble
g_strtod (const gchar *nptr,
Alexander Larsson's avatar
Alexander Larsson committed
265
	  gchar      **endptr)
Tim Janik's avatar
Tim Janik committed
266 267 268 269 270
{
  gchar *fail_pos_1;
  gchar *fail_pos_2;
  gdouble val_1;
  gdouble val_2 = 0;
271

Tim Janik's avatar
Tim Janik committed
272
  g_return_val_if_fail (nptr != NULL, 0);
273

Tim Janik's avatar
Tim Janik committed
274 275
  fail_pos_1 = NULL;
  fail_pos_2 = NULL;
276

Tim Janik's avatar
Tim Janik committed
277
  val_1 = strtod (nptr, &fail_pos_1);
278

Tim Janik's avatar
Tim Janik committed
279
  if (fail_pos_1 && fail_pos_1[0] != 0)
Alexander Larsson's avatar
Alexander Larsson committed
280
    val_2 = g_ascii_strtod (nptr, &fail_pos_2);
281

Tim Janik's avatar
Tim Janik committed
282 283 284 285 286 287 288 289 290 291 292 293 294 295
  if (!fail_pos_1 || fail_pos_1[0] == 0 || fail_pos_1 >= fail_pos_2)
    {
      if (endptr)
	*endptr = fail_pos_1;
      return val_1;
    }
  else
    {
      if (endptr)
	*endptr = fail_pos_2;
      return val_2;
    }
}

Alexander Larsson's avatar
Alexander Larsson committed
296 297 298
/**
 * g_ascii_strtod:
 * @nptr:    the string to convert to a numeric value.
299
 * @endptr:  if non-%NULL, it returns the character after
Alexander Larsson's avatar
Alexander Larsson committed
300 301
 *           the last character used in the conversion.
 * 
302
 * Converts a string to a #gdouble value.
Alexander Larsson's avatar
Alexander Larsson committed
303 304 305 306 307 308
 * This function behaves like the standard strtod() function
 * does in the C locale. It does this without actually
 * changing the current locale, since that would not be
 * thread-safe.
 *
 * This function is typically used when reading configuration
309
 * files or other non-user input that should be locale independent.
Alexander Larsson's avatar
Alexander Larsson committed
310
 * To handle input from the user you should normally use the
311
 * locale-sensitive system strtod() function.
Alexander Larsson's avatar
Alexander Larsson committed
312
 *
Matthias Clasen's avatar
Matthias Clasen committed
313
 * To convert from a #gdouble to a string in a locale-insensitive
314
 * way, use g_ascii_dtostr().
Alexander Larsson's avatar
Alexander Larsson committed
315
 *
316 317 318 319
 * If the correct value would cause overflow, plus or minus %HUGE_VAL
 * is returned (according to the sign of the value), and %ERANGE is
 * stored in %errno. If the correct value would cause underflow,
 * zero is returned and %ERANGE is stored in %errno.
Alexander Larsson's avatar
Alexander Larsson committed
320
 * 
321
 * This function resets %errno before calling strtod() so that
Alexander Larsson's avatar
Alexander Larsson committed
322 323
 * you can reliably detect overflow and underflow.
 *
324
 * Return value: the #gdouble value.
Alexander Larsson's avatar
Alexander Larsson committed
325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353
 **/
gdouble
g_ascii_strtod (const gchar *nptr,
		gchar      **endptr)
{
  gchar *fail_pos;
  gdouble val;
  struct lconv *locale_data;
  const char *decimal_point;
  int decimal_point_len;
  const char *p, *decimal_point_pos;
  const char *end = NULL; /* Silence gcc */

  g_return_val_if_fail (nptr != NULL, 0);

  fail_pos = NULL;

  locale_data = localeconv ();
  decimal_point = locale_data->decimal_point;
  decimal_point_len = strlen (decimal_point);

  g_assert (decimal_point_len != 0);
  
  decimal_point_pos = NULL;
  if (decimal_point[0] != '.' ||
      decimal_point[1] != 0)
    {
      p = nptr;
      /* Skip leading space */
354
      while (g_ascii_isspace (*p))
Alexander Larsson's avatar
Alexander Larsson committed
355 356 357 358 359 360 361 362 363 364 365 366
	p++;
      
      /* Skip leading optional sign */
      if (*p == '+' || *p == '-')
	p++;
      
      if (p[0] == '0' &&
	  (p[1] == 'x' || p[1] == 'X'))
	{
	  p += 2;
	  /* HEX - find the (optional) decimal point */
	  
367
	  while (g_ascii_isxdigit (*p))
Alexander Larsson's avatar
Alexander Larsson committed
368 369 370 371 372 373
	    p++;
	  
	  if (*p == '.')
	    {
	      decimal_point_pos = p++;
	      
374
	      while (g_ascii_isxdigit (*p))
Alexander Larsson's avatar
Alexander Larsson committed
375 376 377 378 379 380
		p++;
	      
	      if (*p == 'p' || *p == 'P')
		p++;
	      if (*p == '+' || *p == '-')
		p++;
381
	      while (g_ascii_isdigit (*p))
Alexander Larsson's avatar
Alexander Larsson committed
382 383 384 385 386 387
		p++;
	      end = p;
	    }
	}
      else
	{
388
	  while (g_ascii_isdigit (*p))
Alexander Larsson's avatar
Alexander Larsson committed
389 390 391 392 393 394
	    p++;
	  
	  if (*p == '.')
	    {
	      decimal_point_pos = p++;
	      
395
	      while (g_ascii_isdigit (*p))
Alexander Larsson's avatar
Alexander Larsson committed
396 397 398 399 400 401
		p++;
	      
	      if (*p == 'e' || *p == 'E')
		p++;
	      if (*p == '+' || *p == '-')
		p++;
402
	      while (g_ascii_isdigit (*p))
Alexander Larsson's avatar
Alexander Larsson committed
403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433
		p++;
	      end = p;
	    }
	}
      /* For the other cases, we need not convert the decimal point */
    }

  /* Set errno to zero, so that we can distinguish zero results
     and underflows */
  errno = 0;
  
  if (decimal_point_pos)
    {
      char *copy, *c;

      /* We need to convert the '.' to the locale specific decimal point */
      copy = g_malloc (end - nptr + 1 + decimal_point_len);
      
      c = copy;
      memcpy (c, nptr, decimal_point_pos - nptr);
      c += decimal_point_pos - nptr;
      memcpy (c, decimal_point, decimal_point_len);
      c += decimal_point_len;
      memcpy (c, decimal_point_pos + 1, end - (decimal_point_pos + 1));
      c += end - (decimal_point_pos + 1);
      *c = 0;

      val = strtod (copy, &fail_pos);

      if (fail_pos)
	{
434
	  if (fail_pos - copy > decimal_point_pos - nptr)
Alexander Larsson's avatar
Alexander Larsson committed
435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451
	    fail_pos = (char *)nptr + (fail_pos - copy) - (decimal_point_len - 1);
	  else
	    fail_pos = (char *)nptr + (fail_pos - copy);
	}
      
      g_free (copy);
	  
    }
  else
    val = strtod (nptr, &fail_pos);

  if (endptr)
    *endptr = fail_pos;
  
  return val;
}

452

Alexander Larsson's avatar
Alexander Larsson committed
453 454 455 456
/**
 * g_ascii_dtostr:
 * @buffer: A buffer to place the resulting string in
 * @buf_len: The length of the buffer.
457
 * @d: The #gdouble to convert
Alexander Larsson's avatar
Alexander Larsson committed
458
 *
459 460
 * Converts a #gdouble to a string, using the '.' as
 * decimal point. 
Alexander Larsson's avatar
Alexander Larsson committed
461 462
 * 
 * This functions generates enough precision that converting
Matthias Clasen's avatar
Matthias Clasen committed
463
 * the string back using g_ascii_strtod() gives the same machine-number
Alexander Larsson's avatar
Alexander Larsson committed
464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481
 * (on machines with IEEE compatible 64bit doubles). It is
 * guaranteed that the size of the resulting string will never
 * be larger than @G_ASCII_DTOSTR_BUF_SIZE bytes.
 *
 * Return value: The pointer to the buffer with the converted string.
 **/
gchar *
g_ascii_dtostr (gchar       *buffer,
		gint         buf_len,
		gdouble      d)
{
  return g_ascii_formatd (buffer, buf_len, "%.17g", d);
}

/**
 * g_ascii_formatd:
 * @buffer: A buffer to place the resulting string in
 * @buf_len: The length of the buffer.
Matthias Clasen's avatar
Matthias Clasen committed
482
 * @format: The printf()-style format to use for the
Alexander Larsson's avatar
Alexander Larsson committed
483
 *          code to use for converting. 
484
 * @d: The #gdouble to convert
Alexander Larsson's avatar
Alexander Larsson committed
485
 *
486 487
 * Converts a #gdouble to a string, using the '.' as
 * decimal point. To format the number you pass in
Matthias Clasen's avatar
Matthias Clasen committed
488
 * a printf()-style format string. Allowed conversion
489
 * specifiers are 'e', 'E', 'f', 'F', 'g' and 'G'. 
Alexander Larsson's avatar
Alexander Larsson committed
490 491
 * 
 * If you just want to want to serialize the value into a
492
 * string, use g_ascii_dtostr().
Alexander Larsson's avatar
Alexander Larsson committed
493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531
 *
 * Return value: The pointer to the buffer with the converted string.
 **/
gchar *
g_ascii_formatd (gchar       *buffer,
		 gint         buf_len,
		 const gchar *format,
		 gdouble      d)
{
  struct lconv *locale_data;
  const char *decimal_point;
  int decimal_point_len;
  gchar *p;
  int rest_len;
  gchar format_char;

  g_return_val_if_fail (buffer != NULL, NULL);
  g_return_val_if_fail (format[0] == '%', NULL);
  g_return_val_if_fail (strpbrk (format + 1, "'l%") == NULL, NULL);
 
  format_char = format[strlen (format) - 1];
  
  g_return_val_if_fail (format_char == 'e' || format_char == 'E' ||
			format_char == 'f' || format_char == 'F' ||
			format_char == 'g' || format_char == 'G',
			NULL);

  if (format[0] != '%')
    return NULL;

  if (strpbrk (format + 1, "'l%"))
    return NULL;

  if (!(format_char == 'e' || format_char == 'E' ||
	format_char == 'f' || format_char == 'F' ||
	format_char == 'g' || format_char == 'G'))
    return NULL;

      
532
  _g_snprintf (buffer, buf_len, format, d);
Alexander Larsson's avatar
Alexander Larsson committed
533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567

  locale_data = localeconv ();
  decimal_point = locale_data->decimal_point;
  decimal_point_len = strlen (decimal_point);

  g_assert (decimal_point_len != 0);

  if (decimal_point[0] != '.' ||
      decimal_point[1] != 0)
    {
      p = buffer;

      if (*p == '+' || *p == '-')
	p++;

      while (isdigit ((guchar)*p))
	p++;

      if (strncmp (p, decimal_point, decimal_point_len) == 0)
	{
	  *p = '.';
	  p++;
	  if (decimal_point_len > 1) {
	    rest_len = strlen (p + (decimal_point_len-1));
	    memmove (p, p + (decimal_point_len-1),
		     rest_len);
	    p[rest_len] = 0;
	    
	  }
	}
    }
  
  return buffer;
}

568 569 570 571 572 573 574 575
/**
 * g_ascii_strtoull:
 * @nptr:    the string to convert to a numeric value.
 * @endptr:  if non-%NULL, it returns the character after
 *           the last character used in the conversion.
 * @base:    to be used for the conversion, 2..36 or 0
 *
 * Converts a string to a #guint64 value.
576
 * This function behaves like the standard strtoull() function
577 578 579 580 581 582 583 584 585 586 587 588 589
 * does in the C locale. It does this without actually
 * changing the current locale, since that would not be
 * thread-safe.
 *
 * This function is typically used when reading configuration
 * files or other non-user input that should be locale independent.
 * To handle input from the user you should normally use the
 * locale-sensitive system strtoull() function.
 *
 * If the correct value would cause overflow, %G_MAXUINT64
 * is returned, and %ERANGE is stored in %errno.
 *
 * Return value: the #guint64 value.
590
 *
Matthias Clasen's avatar
Matthias Clasen committed
591
 * Since: 2.2
592 593 594 595 596 597
 **/
guint64
g_ascii_strtoull (const gchar *nptr,
		  gchar      **endptr,
		  guint        base)
{
598
  /* this code is based on on the strtol(3) code from GNU libc released under
599
   * the GNU Lesser General Public License.
600 601 602
   *
   * Copyright (C) 1991,92,94,95,96,97,98,99,2000,01,02
   *        Free Software Foundation, Inc.
603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720
   */
#define ISSPACE(c)		((c) == ' ' || (c) == '\f' || (c) == '\n' || \
				 (c) == '\r' || (c) == '\t' || (c) == '\v')
#define ISUPPER(c)		((c) >= 'A' && (c) <= 'Z')
#define ISLOWER(c)		((c) >= 'a' && (c) <= 'z')
#define ISALPHA(c)		(ISUPPER (c) || ISLOWER (c))
#define	TOUPPER(c)		(ISLOWER (c) ? (c) - 'a' + 'A' : (c))
#define	TOLOWER(c)		(ISUPPER (c) ? (c) - 'A' + 'a' : (c))
  gboolean negative, overflow;
  guint64 cutoff;
  guint64 cutlim;
  guint64 ui64;
  const gchar *s, *save;
  guchar c;
  
  g_return_val_if_fail (nptr != NULL, 0);
  
  if (base == 1 || base > 36)
    {
      errno = EINVAL;
      return 0;
    }
  
  save = s = nptr;
  
  /* Skip white space.  */
  while (ISSPACE (*s))
    ++s;
  if (!*s)
    goto noconv;
  
  /* Check for a sign.  */
  negative = FALSE;
  if (*s == '-')
    {
      negative = TRUE;
      ++s;
    }
  else if (*s == '+')
    ++s;
  
  /* Recognize number prefix and if BASE is zero, figure it out ourselves.  */
  if (*s == '0')
    {
      if ((base == 0 || base == 16) && TOUPPER (s[1]) == 'X')
	{
	  s += 2;
	  base = 16;
	}
      else if (base == 0)
	base = 8;
    }
  else if (base == 0)
    base = 10;
  
  /* Save the pointer so we can check later if anything happened.  */
  save = s;
  cutoff = G_MAXUINT64 / base;
  cutlim = G_MAXUINT64 % base;
  
  overflow = FALSE;
  ui64 = 0;
  c = *s;
  for (; c; c = *++s)
    {
      if (c >= '0' && c <= '9')
	c -= '0';
      else if (ISALPHA (c))
	c = TOUPPER (c) - 'A' + 10;
      else
	break;
      if (c >= base)
	break;
      /* Check for overflow.  */
      if (ui64 > cutoff || (ui64 == cutoff && c > cutlim))
	overflow = TRUE;
      else
	{
	  ui64 *= base;
	  ui64 += c;
	}
    }
  
  /* Check if anything actually happened.  */
  if (s == save)
    goto noconv;
  
  /* Store in ENDPTR the address of one character
     past the last character we converted.  */
  if (endptr)
    *endptr = (gchar*) s;
  
  if (overflow)
    {
      errno = ERANGE;
      return G_MAXUINT64;
    }
  
  /* Return the result of the appropriate sign.  */
  return negative ? -ui64 : ui64;
  
 noconv:
  /* We must handle a special case here: the base is 0 or 16 and the
     first two characters are '0' and 'x', but the rest are no
     hexadecimal digits.  This is no error case.  We return 0 and
     ENDPTR points to the `x`.  */
  if (endptr)
    {
      if (save - nptr >= 2 && TOUPPER (save[-1]) == 'X'
	  && save[-2] == '0')
	*endptr = (gchar*) &save[-1];
      else
	/*  There was no number to convert.  */
	*endptr = (gchar*) nptr;
    }
  return 0;
}

Alexander Larsson's avatar
Alexander Larsson committed
721

Havoc Pennington's avatar
Havoc Pennington committed
722
G_CONST_RETURN gchar*
Tim Janik's avatar
Tim Janik committed
723 724
g_strerror (gint errnum)
{
725
  static GStaticPrivate msg_private = G_STATIC_PRIVATE_INIT;
726
  char *msg;
727
  int saved_errno = errno;
728

Tim Janik's avatar
Tim Janik committed
729
#ifdef HAVE_STRERROR
Owen Taylor's avatar
Owen Taylor committed
730 731 732 733
  const char *msg_locale;

  msg_locale = strerror (errnum);
  if (g_get_charset (NULL))
734 735 736 737
    {
      errno = saved_errno;
      return msg_locale;
    }
Owen Taylor's avatar
Owen Taylor committed
738 739 740 741 742 743 744 745 746 747
  else
    {
      gchar *msg_utf8 = g_locale_to_utf8 (msg_locale, -1, NULL, NULL, NULL);
      if (msg_utf8)
	{
	  /* Stick in the quark table so that we can return a static result
	   */
	  GQuark msg_quark = g_quark_from_string (msg_utf8);
	  g_free (msg_utf8);
	  
748 749 750
	  msg_utf8 = (gchar *) g_quark_to_string (msg_quark);
	  errno = saved_errno;
	  return msg_utf8;
Owen Taylor's avatar
Owen Taylor committed
751 752
	}
    }
Tim Janik's avatar
Tim Janik committed
753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891
#elif NO_SYS_ERRLIST
  switch (errnum)
    {
#ifdef E2BIG
    case E2BIG: return "argument list too long";
#endif
#ifdef EACCES
    case EACCES: return "permission denied";
#endif
#ifdef EADDRINUSE
    case EADDRINUSE: return "address already in use";
#endif
#ifdef EADDRNOTAVAIL
    case EADDRNOTAVAIL: return "can't assign requested address";
#endif
#ifdef EADV
    case EADV: return "advertise error";
#endif
#ifdef EAFNOSUPPORT
    case EAFNOSUPPORT: return "address family not supported by protocol family";
#endif
#ifdef EAGAIN
    case EAGAIN: return "try again";
#endif
#ifdef EALIGN
    case EALIGN: return "EALIGN";
#endif
#ifdef EALREADY
    case EALREADY: return "operation already in progress";
#endif
#ifdef EBADE
    case EBADE: return "bad exchange descriptor";
#endif
#ifdef EBADF
    case EBADF: return "bad file number";
#endif
#ifdef EBADFD
    case EBADFD: return "file descriptor in bad state";
#endif
#ifdef EBADMSG
    case EBADMSG: return "not a data message";
#endif
#ifdef EBADR
    case EBADR: return "bad request descriptor";
#endif
#ifdef EBADRPC
    case EBADRPC: return "RPC structure is bad";
#endif
#ifdef EBADRQC
    case EBADRQC: return "bad request code";
#endif
#ifdef EBADSLT
    case EBADSLT: return "invalid slot";
#endif
#ifdef EBFONT
    case EBFONT: return "bad font file format";
#endif
#ifdef EBUSY
    case EBUSY: return "mount device busy";
#endif
#ifdef ECHILD
    case ECHILD: return "no children";
#endif
#ifdef ECHRNG
    case ECHRNG: return "channel number out of range";
#endif
#ifdef ECOMM
    case ECOMM: return "communication error on send";
#endif
#ifdef ECONNABORTED
    case ECONNABORTED: return "software caused connection abort";
#endif
#ifdef ECONNREFUSED
    case ECONNREFUSED: return "connection refused";
#endif
#ifdef ECONNRESET
    case ECONNRESET: return "connection reset by peer";
#endif
#if defined(EDEADLK) && (!defined(EWOULDBLOCK) || (EDEADLK != EWOULDBLOCK))
    case EDEADLK: return "resource deadlock avoided";
#endif
#ifdef EDEADLOCK
    case EDEADLOCK: return "resource deadlock avoided";
#endif
#ifdef EDESTADDRREQ
    case EDESTADDRREQ: return "destination address required";
#endif
#ifdef EDIRTY
    case EDIRTY: return "mounting a dirty fs w/o force";
#endif
#ifdef EDOM
    case EDOM: return "math argument out of range";
#endif
#ifdef EDOTDOT
    case EDOTDOT: return "cross mount point";
#endif
#ifdef EDQUOT
    case EDQUOT: return "disk quota exceeded";
#endif
#ifdef EDUPPKG
    case EDUPPKG: return "duplicate package name";
#endif
#ifdef EEXIST
    case EEXIST: return "file already exists";
#endif
#ifdef EFAULT
    case EFAULT: return "bad address in system call argument";
#endif
#ifdef EFBIG
    case EFBIG: return "file too large";
#endif
#ifdef EHOSTDOWN
    case EHOSTDOWN: return "host is down";
#endif
#ifdef EHOSTUNREACH
    case EHOSTUNREACH: return "host is unreachable";
#endif
#ifdef EIDRM
    case EIDRM: return "identifier removed";
#endif
#ifdef EINIT
    case EINIT: return "initialization error";
#endif
#ifdef EINPROGRESS
    case EINPROGRESS: return "operation now in progress";
#endif
#ifdef EINTR
    case EINTR: return "interrupted system call";
#endif
#ifdef EINVAL
    case EINVAL: return "invalid argument";
#endif
#ifdef EIO
    case EIO: return "I/O error";
#endif
#ifdef EISCONN
    case EISCONN: return "socket is already connected";
#endif
#ifdef EISDIR
892
    case EISDIR: return "is a directory";
Tim Janik's avatar
Tim Janik committed
893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170
#endif
#ifdef EISNAME
    case EISNAM: return "is a name file";
#endif
#ifdef ELBIN
    case ELBIN: return "ELBIN";
#endif
#ifdef EL2HLT
    case EL2HLT: return "level 2 halted";
#endif
#ifdef EL2NSYNC
    case EL2NSYNC: return "level 2 not synchronized";
#endif
#ifdef EL3HLT
    case EL3HLT: return "level 3 halted";
#endif
#ifdef EL3RST
    case EL3RST: return "level 3 reset";
#endif
#ifdef ELIBACC
    case ELIBACC: return "can not access a needed shared library";
#endif
#ifdef ELIBBAD
    case ELIBBAD: return "accessing a corrupted shared library";
#endif
#ifdef ELIBEXEC
    case ELIBEXEC: return "can not exec a shared library directly";
#endif
#ifdef ELIBMAX
    case ELIBMAX: return "attempting to link in more shared libraries than system limit";
#endif
#ifdef ELIBSCN
    case ELIBSCN: return ".lib section in a.out corrupted";
#endif
#ifdef ELNRNG
    case ELNRNG: return "link number out of range";
#endif
#ifdef ELOOP
    case ELOOP: return "too many levels of symbolic links";
#endif
#ifdef EMFILE
    case EMFILE: return "too many open files";
#endif
#ifdef EMLINK
    case EMLINK: return "too many links";
#endif
#ifdef EMSGSIZE
    case EMSGSIZE: return "message too long";
#endif
#ifdef EMULTIHOP
    case EMULTIHOP: return "multihop attempted";
#endif
#ifdef ENAMETOOLONG
    case ENAMETOOLONG: return "file name too long";
#endif
#ifdef ENAVAIL
    case ENAVAIL: return "not available";
#endif
#ifdef ENET
    case ENET: return "ENET";
#endif
#ifdef ENETDOWN
    case ENETDOWN: return "network is down";
#endif
#ifdef ENETRESET
    case ENETRESET: return "network dropped connection on reset";
#endif
#ifdef ENETUNREACH
    case ENETUNREACH: return "network is unreachable";
#endif
#ifdef ENFILE
    case ENFILE: return "file table overflow";
#endif
#ifdef ENOANO
    case ENOANO: return "anode table overflow";
#endif
#if defined(ENOBUFS) && (!defined(ENOSR) || (ENOBUFS != ENOSR))
    case ENOBUFS: return "no buffer space available";
#endif
#ifdef ENOCSI
    case ENOCSI: return "no CSI structure available";
#endif
#ifdef ENODATA
    case ENODATA: return "no data available";
#endif
#ifdef ENODEV
    case ENODEV: return "no such device";
#endif
#ifdef ENOENT
    case ENOENT: return "no such file or directory";
#endif
#ifdef ENOEXEC
    case ENOEXEC: return "exec format error";
#endif
#ifdef ENOLCK
    case ENOLCK: return "no locks available";
#endif
#ifdef ENOLINK
    case ENOLINK: return "link has be severed";
#endif
#ifdef ENOMEM
    case ENOMEM: return "not enough memory";
#endif
#ifdef ENOMSG
    case ENOMSG: return "no message of desired type";
#endif
#ifdef ENONET
    case ENONET: return "machine is not on the network";
#endif
#ifdef ENOPKG
    case ENOPKG: return "package not installed";
#endif
#ifdef ENOPROTOOPT
    case ENOPROTOOPT: return "bad proocol option";
#endif
#ifdef ENOSPC
    case ENOSPC: return "no space left on device";
#endif
#ifdef ENOSR
    case ENOSR: return "out of stream resources";
#endif
#ifdef ENOSTR
    case ENOSTR: return "not a stream device";
#endif
#ifdef ENOSYM
    case ENOSYM: return "unresolved symbol name";
#endif
#ifdef ENOSYS
    case ENOSYS: return "function not implemented";
#endif
#ifdef ENOTBLK
    case ENOTBLK: return "block device required";
#endif
#ifdef ENOTCONN
    case ENOTCONN: return "socket is not connected";
#endif
#ifdef ENOTDIR
    case ENOTDIR: return "not a directory";
#endif
#ifdef ENOTEMPTY
    case ENOTEMPTY: return "directory not empty";
#endif
#ifdef ENOTNAM
    case ENOTNAM: return "not a name file";
#endif
#ifdef ENOTSOCK
    case ENOTSOCK: return "socket operation on non-socket";
#endif
#ifdef ENOTTY
    case ENOTTY: return "inappropriate device for ioctl";
#endif
#ifdef ENOTUNIQ
    case ENOTUNIQ: return "name not unique on network";
#endif
#ifdef ENXIO
    case ENXIO: return "no such device or address";
#endif
#ifdef EOPNOTSUPP
    case EOPNOTSUPP: return "operation not supported on socket";
#endif
#ifdef EPERM
    case EPERM: return "not owner";
#endif
#ifdef EPFNOSUPPORT
    case EPFNOSUPPORT: return "protocol family not supported";
#endif
#ifdef EPIPE
    case EPIPE: return "broken pipe";
#endif
#ifdef EPROCLIM
    case EPROCLIM: return "too many processes";
#endif
#ifdef EPROCUNAVAIL
    case EPROCUNAVAIL: return "bad procedure for program";
#endif
#ifdef EPROGMISMATCH
    case EPROGMISMATCH: return "program version wrong";
#endif
#ifdef EPROGUNAVAIL
    case EPROGUNAVAIL: return "RPC program not available";
#endif
#ifdef EPROTO
    case EPROTO: return "protocol error";
#endif
#ifdef EPROTONOSUPPORT
    case EPROTONOSUPPORT: return "protocol not suppored";
#endif
#ifdef EPROTOTYPE
    case EPROTOTYPE: return "protocol wrong type for socket";
#endif
#ifdef ERANGE
    case ERANGE: return "math result unrepresentable";
#endif
#if defined(EREFUSED) && (!defined(ECONNREFUSED) || (EREFUSED != ECONNREFUSED))
    case EREFUSED: return "EREFUSED";
#endif
#ifdef EREMCHG
    case EREMCHG: return "remote address changed";
#endif
#ifdef EREMDEV
    case EREMDEV: return "remote device";
#endif
#ifdef EREMOTE
    case EREMOTE: return "pathname hit remote file system";
#endif
#ifdef EREMOTEIO
    case EREMOTEIO: return "remote i/o error";
#endif
#ifdef EREMOTERELEASE
    case EREMOTERELEASE: return "EREMOTERELEASE";
#endif
#ifdef EROFS
    case EROFS: return "read-only file system";
#endif
#ifdef ERPCMISMATCH
    case ERPCMISMATCH: return "RPC version is wrong";
#endif
#ifdef ERREMOTE
    case ERREMOTE: return "object is remote";
#endif
#ifdef ESHUTDOWN
    case ESHUTDOWN: return "can't send afer socket shutdown";
#endif
#ifdef ESOCKTNOSUPPORT
    case ESOCKTNOSUPPORT: return "socket type not supported";
#endif
#ifdef ESPIPE
    case ESPIPE: return "invalid seek";
#endif
#ifdef ESRCH
    case ESRCH: return "no such process";
#endif
#ifdef ESRMNT
    case ESRMNT: return "srmount error";
#endif
#ifdef ESTALE
    case ESTALE: return "stale remote file handle";
#endif
#ifdef ESUCCESS
    case ESUCCESS: return "Error 0";
#endif
#ifdef ETIME
    case ETIME: return "timer expired";
#endif
#ifdef ETIMEDOUT
    case ETIMEDOUT: return "connection timed out";
#endif
#ifdef ETOOMANYREFS
    case ETOOMANYREFS: return "too many references: can't splice";
#endif
#ifdef ETXTBSY
    case ETXTBSY: return "text file or pseudo-device busy";
#endif
#ifdef EUCLEAN
    case EUCLEAN: return "structure needs cleaning";
#endif
#ifdef EUNATCH
    case EUNATCH: return "protocol driver not attached";
#endif
#ifdef EUSERS
    case EUSERS: return "too many users";
#endif
#ifdef EVERSION
    case EVERSION: return "version mismatch";
#endif
#if defined(EWOULDBLOCK) && (!defined(EAGAIN) || (EWOULDBLOCK != EAGAIN))
    case EWOULDBLOCK: return "operation would block";
#endif
#ifdef EXDEV
    case EXDEV: return "cross-domain link";
#endif
#ifdef EXFULL
    case EXFULL: return "message tables full";
#endif
    }
#else /* NO_SYS_ERRLIST */
  extern int sys_nerr;
  extern char *sys_errlist[];
1171

Tim Janik's avatar
Tim Janik committed
1172 1173 1174
  if ((errnum > 0) && (errnum <= sys_nerr))
    return sys_errlist [errnum];
#endif /* NO_SYS_ERRLIST */
1175 1176

  msg = g_static_private_get (&msg_private);
1177
  if (!msg)
1178
    {
1179
      msg = g_new (gchar, 64);
1180 1181 1182
      g_static_private_set (&msg_private, msg, g_free);
    }

1183
  _g_sprintf (msg, "unknown error (%d)", errnum);
1184

1185
  errno = saved_errno;
Tim Janik's avatar
Tim Janik committed
1186 1187 1188
  return msg;
}

Havoc Pennington's avatar
Havoc Pennington committed
1189
G_CONST_RETURN gchar*
Tim Janik's avatar
Tim Janik committed
1190 1191
g_strsignal (gint signum)
{
1192
  static GStaticPrivate msg_private = G_STATIC_PRIVATE_INIT;
1193
  char *msg;
1194

Tim Janik's avatar
Tim Janik committed
1195
#ifdef HAVE_STRSIGNAL
Owen Taylor's avatar
Owen Taylor committed
1196 1197
  const char *msg_locale;
  
1198
#if defined(G_OS_BEOS) || defined(G_WITH_CYGWIN)
1199 1200
extern const char *strsignal(int);
#else
1201
  /* this is declared differently (const) in string.h on BeOS */
Tim Janik's avatar
Tim Janik committed
1202
  extern char *strsignal (int sig);
1203
#endif /* !G_OS_BEOS && !G_WITH_CYGWIN */
Owen Taylor's avatar
Owen Taylor committed
1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219
  msg_locale = strsignal (signum);
  if (g_get_charset (NULL))
    return msg_locale;
  else
    {
      gchar *msg_utf8 = g_locale_to_utf8 (msg_locale, -1, NULL, NULL, NULL);
      if (msg_utf8)
	{
	  /* Stick in the quark table so that we can return a static result
	   */
	  GQuark msg_quark = g_quark_from_string (msg_utf8);
	  g_free (msg_utf8);
	  
	  return g_quark_to_string (msg_quark);
	}
    }
Tim Janik's avatar
Tim Janik committed
1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317
#elif NO_SYS_SIGLIST
  switch (signum)
    {
#ifdef SIGHUP
    case SIGHUP: return "Hangup";
#endif
#ifdef SIGINT
    case SIGINT: return "Interrupt";
#endif
#ifdef SIGQUIT
    case SIGQUIT: return "Quit";
#endif
#ifdef SIGILL
    case SIGILL: return "Illegal instruction";
#endif
#ifdef SIGTRAP
    case SIGTRAP: return "Trace/breakpoint trap";
#endif
#ifdef SIGABRT
    case SIGABRT: return "IOT trap/Abort";
#endif
#ifdef SIGBUS
    case SIGBUS: return "Bus error";
#endif
#ifdef SIGFPE
    case SIGFPE: return "Floating point exception";
#endif
#ifdef SIGKILL
    case SIGKILL: return "Killed";
#endif
#ifdef SIGUSR1
    case SIGUSR1: return "User defined signal 1";
#endif
#ifdef SIGSEGV
    case SIGSEGV: return "Segmentation fault";
#endif
#ifdef SIGUSR2
    case SIGUSR2: return "User defined signal 2";
#endif
#ifdef SIGPIPE
    case SIGPIPE: return "Broken pipe";
#endif
#ifdef SIGALRM
    case SIGALRM: return "Alarm clock";
#endif
#ifdef SIGTERM
    case SIGTERM: return "Terminated";
#endif
#ifdef SIGSTKFLT
    case SIGSTKFLT: return "Stack fault";
#endif
#ifdef SIGCHLD
    case SIGCHLD: return "Child exited";
#endif
#ifdef SIGCONT
    case SIGCONT: return "Continued";
#endif
#ifdef SIGSTOP
    case SIGSTOP: return "Stopped (signal)";
#endif
#ifdef SIGTSTP
    case SIGTSTP: return "Stopped";
#endif
#ifdef SIGTTIN
    case SIGTTIN: return "Stopped (tty input)";
#endif
#ifdef SIGTTOU
    case SIGTTOU: return "Stopped (tty output)";
#endif
#ifdef SIGURG
    case SIGURG: return "Urgent condition";
#endif
#ifdef SIGXCPU
    case SIGXCPU: return "CPU time limit exceeded";
#endif
#ifdef SIGXFSZ
    case SIGXFSZ: return "File size limit exceeded";
#endif
#ifdef SIGVTALRM
    case SIGVTALRM: return "Virtual time alarm";
#endif
#ifdef SIGPROF
    case SIGPROF: return "Profile signal";
#endif
#ifdef SIGWINCH
    case SIGWINCH: return "Window size changed";
#endif
#ifdef SIGIO
    case SIGIO: return "Possible I/O";
#endif
#ifdef SIGPWR
    case SIGPWR: return "Power failure";
#endif
#ifdef SIGUNUSED
    case SIGUNUSED: return "Unused signal";
#endif
    }
#else /* NO_SYS_SIGLIST */
1318

Timur Bakeyev's avatar
Timur Bakeyev committed
1319 1320
#ifdef NO_SYS_SIGLIST_DECL
  extern char *sys_siglist[];	/*(see Tue Jan 19 00:44:24 1999 in changelog)*/
1321 1322 1323
#endif

  return (char*) /* this function should return const --josh */ sys_siglist [signum];
Tim Janik's avatar
Tim Janik committed
1324
#endif /* NO_SYS_SIGLIST */
1325 1326

  msg = g_static_private_get (&msg_private);
1327
  if (!msg)
1328
    {
1329
      msg = g_new (gchar, 64);
1330 1331
      g_static_private_set (&msg_private, msg, g_free);
    }
1332

1333
  _g_sprintf (msg, "unknown signal (%d)", signum);
1334
  
Tim Janik's avatar
Tim Janik committed
1335 1336 1337
  return msg;
}

1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350
/* Functions g_strlcpy and g_strlcat were originally developed by
 * Todd C. Miller <Todd.Miller@courtesan.com> to simplify writing secure code.
 * See ftp://ftp.openbsd.org/pub/OpenBSD/src/lib/libc/string/strlcpy.3
 * for more information.
 */

#ifdef HAVE_STRLCPY
/* Use the native ones, if available; they might be implemented in assembly */
gsize
g_strlcpy (gchar       *dest,
	   const gchar *src,
	   gsize        dest_size)
{
1351 1352
  g_return_val_if_fail (dest != NULL, 0);
  g_return_val_if_fail (src  != NULL, 0);
1353 1354 1355 1356 1357 1358 1359 1360 1361
  
  return strlcpy (dest, src, dest_size);
}

gsize
g_strlcat (gchar       *dest,
	   const gchar *src,
	   gsize        dest_size)
{
1362 1363
  g_return_val_if_fail (dest != NULL, 0);
  g_return_val_if_fail (src  != NULL, 0);
1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386
  
  return strlcat (dest, src, dest_size);
}

#else /* ! HAVE_STRLCPY */
/* g_strlcpy
 *
 * Copy string src to buffer dest (of buffer size dest_size).  At most
 * dest_size-1 characters will be copied.  Always NUL terminates
 * (unless dest_size == 0).  This function does NOT allocate memory.
 * Unlike strncpy, this function doesn't pad dest (so it's often faster).
 * Returns size of attempted result, strlen(src),
 * so if retval >= dest_size, truncation occurred.
 */
gsize
g_strlcpy (gchar       *dest,
           const gchar *src,
           gsize        dest_size)
{
  register gchar *d = dest;
  register const gchar *s = src;
  register gsize n = dest_size;
  
Tor Lillqvist's avatar
Tor Lillqvist committed
1387 1388
  g_return_val_if_fail (dest != NULL, 0);
  g_return_val_if_fail (src  != NULL, 0);
1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435
  
  /* Copy as many bytes as will fit */
  if (n != 0 && --n != 0)
    do
      {
	register gchar c = *s++;
	
	*d++ = c;
	if (c == 0)
	  break;
      }
    while (--n != 0);
  
  /* If not enough room in dest, add NUL and traverse rest of src */
  if (n == 0)
    {
      if (dest_size != 0)
	*d = 0;
      while (*s++)
	;
    }
  
  return s - src - 1;  /* count does not include NUL */
}

/* g_strlcat
 *
 * Appends string src to buffer dest (of buffer size dest_size).
 * At most dest_size-1 characters will be copied.
 * Unlike strncat, dest_size is the full size of dest, not the space left over.
 * This function does NOT allocate memory.
 * This always NUL terminates (unless siz == 0 or there were no NUL characters
 * in the dest_size characters of dest to start with).
 * Returns size of attempted result, which is
 * MIN (dest_size, strlen (original dest)) + strlen (src),
 * so if retval >= dest_size, truncation occurred.
 */
gsize
g_strlcat (gchar       *dest,
           const gchar *src,
           gsize        dest_size)
{
  register gchar *d = dest;
  register const gchar *s = src;
  register gsize bytes_left = dest_size;
  gsize dlength;  /* Logically, MIN (strlen (d), dest_size) */
  
Tor Lillqvist's avatar
Tor Lillqvist committed
1436 1437
  g_return_val_if_fail (dest != NULL, 0);
  g_return_val_if_fail (src  != NULL, 0);
1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462
  
  /* Find the end of dst and adjust bytes left but don't go past end */
  while (*d != 0 && bytes_left-- != 0)
    d++;
  dlength = d - dest;
  bytes_left = dest_size - dlength;
  
  if (bytes_left == 0)
    return dlength + strlen (s);
  
  while (*s != 0)
    {
      if (bytes_left != 1)
	{
	  *d++ = *s;
	  bytes_left--;
	}
      s++;
    }
  *d = 0;
  
  return dlength + (s - src);  /* count does not include NUL */
}
#endif /* ! HAVE_STRLCPY */

Owen Taylor's avatar
Owen Taylor committed
1463 1464
/**
 * g_ascii_strdown:
1465
 * @str: a string.
1466
 * @len: length of @str in bytes, or -1 if @str is nul-terminated.
Owen Taylor's avatar
Owen Taylor committed
1467 1468 1469
 * 
 * Converts all upper case ASCII letters to lower case ASCII letters.
 * 
1470
 * Return value: a newly-allocated string, with all the upper case
1471
 *               characters in @str converted to lower case, with
1472 1473
 *               semantics that exactly match g_ascii_tolower(). (Note
 *               that this is unlike the old g_strdown(), which modified
1474
 *               the string in place.)
Owen Taylor's avatar
Owen Taylor committed
1475 1476
 **/
gchar*
1477
g_ascii_strdown (const gchar *str,
1478
		 gssize       len)
Owen Taylor's avatar
Owen Taylor committed
1479 1480 1481
{
  gchar *result, *s;
  
1482 1483 1484 1485
  g_return_val_if_fail (str != NULL, NULL);

  if (len < 0)
    len = strlen (str);
Owen Taylor's avatar
Owen Taylor committed
1486

1487
  result = g_strndup (str, len);
Owen Taylor's avatar
Owen Taylor committed
1488 1489 1490 1491 1492 1493 1494 1495
  for (s = result; *s; s++)
    *s = g_ascii_tolower (*s);
  
  return result;
}

/**
 * g_ascii_strup:
1496
 * @str: a string.
1497
 * @len: length of @str in bytes, or -1 if @str is nul-terminated.
Owen Taylor's avatar
Owen Taylor committed
1498 1499 1500 1501
 * 
 * Converts all lower case ASCII letters to upper case ASCII letters.
 * 
 * Return value: a newly allocated string, with all the lower case
1502
 *               characters in @str converted to upper case, with
1503 1504
 *               semantics that exactly match g_ascii_toupper(). (Note
 *               that this is unlike the old g_strup(), which modified
1505
 *               the string in place.)
Owen Taylor's avatar
Owen Taylor committed
1506 1507
 **/
gchar*
1508
g_ascii_strup (const gchar *str,
1509
	       gssize       len)
Owen Taylor's avatar
Owen Taylor committed
1510
{
1511
  gchar *result, *s;
Owen Taylor's avatar
Owen Taylor committed
1512

1513 1514 1515 1516
  g_return_val_if_fail (str != NULL, NULL);

  if (len < 0)
    len = strlen (str);
Owen Taylor's avatar
Owen Taylor committed
1517

1518
  result = g_strndup (str, len);
Owen Taylor's avatar
Owen Taylor committed
1519 1520 1521 1522 1523 1524
  for (s = result; *s; s++)
    *s = g_ascii_toupper (*s);

  return result;
}

1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536
/**
 * g_strdown:
 * @string: the string to convert.
 * 
 * Converts a string to lower case.  
 * 
 * Return value: the string 
 *
 * Deprecated: This function is totally broken for the reasons discussed in 
 * the g_strncasecmp() docs - use g_ascii_strdown() or g_utf8_strdown() 
 * instead.
 **/
Tim Janik's avatar
Tim Janik committed
1537
gchar*
1538
g_strdown (gchar *string)
Tim Janik's avatar
Tim Janik committed
1539
{
1540
  register guchar *s;
1541
  
Tim Janik's avatar
Tim Janik committed
1542
  g_return_val_if_fail (string != NULL, NULL);
1543
  
Martin Baulig's avatar
Martin Baulig committed
1544
  s = (guchar *) string;
1545
  
Tim Janik's avatar
Tim Janik committed
1546 1547
  while (*s)
    {
1548 1549
      if (isupper (*s))
	*s = tolower (*s);
Tim Janik's avatar
Tim Janik committed
1550 1551
      s++;
    }
1552
  
Martin Baulig's avatar
Martin Baulig committed
1553
  return (gchar *) string;
Tim Janik's avatar
Tim Janik committed
1554 1555
}

1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566
/**
 * g_strup:
 * @string: the string to convert.
 * 
 * Converts a string to upper case. 
 * 
 * Return value: the string
 *
 * Deprecated: This function is totally broken for the reasons discussed in 
 * the g_strncasecmp() docs - use g_ascii_strup() or g_utf8_strup() instead.
 **/
Tim Janik's avatar
Tim Janik committed
1567
gchar*
1568
g_strup (gchar *string)
Tim Janik's avatar
Tim Janik committed
1569
{
1570
  register guchar *s;
1571

Tim Janik's avatar
Tim Janik committed
1572
  g_return_val_if_fail (string != NULL, NULL);
1573

Martin Baulig's avatar
Martin Baulig committed
1574
  s = (guchar *) string;
1575

Tim Janik's avatar
Tim Janik committed
1576 1577
  while (*s)
    {
1578 1579
      if (islower (*s))
	*s = toupper (*s);
Tim Janik's avatar
Tim Janik committed
1580 1581
      s++;
    }
Tim Janik's avatar
Tim Janik committed
1582

Martin Baulig's avatar
Martin Baulig committed
1583
  return (gchar *) string;
Tim Janik's avatar
Tim Janik committed
1584 1585
}

Tim Janik's avatar
Tim Janik committed
1586
gchar*
1587
g_strreverse (gchar *string)
Tim Janik's avatar
Tim Janik committed
1588
{
Tim Janik's avatar
Tim Janik committed
1589
  g_return_val_if_fail (string != NULL, NULL);
1590

Tim Janik's avatar
Tim Janik committed
1591 1592 1593
  if (*string)
    {
      register gchar *h, *t;
1594

Tim Janik's avatar
Tim Janik committed
1595 1596
      h = string;
      t = string + strlen (string) - 1;
1597

Tim Janik's avatar
Tim Janik committed
1598 1599 1600
      while (h < t)
	{
	  register gchar c;
1601

Tim Janik's avatar
Tim Janik committed
1602 1603 1604 1605 1606 1607 1608
	  c = *h;
	  *h = *t;
	  h++;
	  *t = c;
	  t--;
	}
    }
Tim Janik's avatar
Tim Janik committed
1609 1610

  return string;
Tim Janik's avatar
Tim Janik committed
1611 1612
}

Owen Taylor's avatar
Owen Taylor committed
1613 1614
/**
 * g_ascii_tolower:
1615
 * @c: any character.
Owen Taylor's avatar
Owen Taylor committed
1616 1617 1618
 * 
 * Convert a character to ASCII lower case.
 *
1619
 * Unlike the standard C library tolower() function, this only
Owen Taylor's avatar
Owen Taylor committed
1620 1621 1622 1623
 * recognizes standard ASCII letters and ignores the locale, returning
 * all non-ASCII characters unchanged, even if they are lower case
 * letters in a particular character set. Also unlike the standard
 * library function, this takes and returns a char, not an int, so
1624
 * don't call it on %EOF but no need to worry about casting to #guchar
Owen Taylor's avatar
Owen Taylor committed
1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638
 * before passing a possibly non-ASCII character in.
 * 
 * Return value: the result of converting @c to lower case.
 *               If @c is not an ASCII upper case letter,
 *               @c is returned unchanged.
 **/
gchar
g_ascii_tolower (gchar c)
{
  return g_ascii_isupper (c) ? c - 'A' + 'a' : c;
}

/**
 * g_ascii_toupper:
1639
 * @c: any character.
Owen Taylor's avatar
Owen Taylor committed
1640 1641 1642
 * 
 * Convert a character to ASCII upper case.
 *
1643
 * Unlike the standard C library toupper() function, this only
Owen Taylor's avatar
Owen Taylor committed
1644 1645 1646 1647
 * recognizes standard ASCII letters and ignores the locale, returning
 * all non-ASCII characters unchanged, even if they are upper case
 * letters in a particular character set. Also unlike the standard
 * library function, this takes and returns a char, not an int, so
1648
 * don't call it on %EOF but no need to worry about casting to #guchar
Owen Taylor's avatar
Owen Taylor committed
1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660
 * before passing a possibly non-ASCII character in.
 * 
 * Return value: the result of converting @c to upper case.
 *               If @c is not an ASCII lower case letter,
 *               @c is returned unchanged.
 **/
gchar
g_ascii_toupper (gchar c)
{
  return g_ascii_islower (c) ? c - 'a' + 'A' : c;
}

1661 1662
/**
 * g_ascii_digit_value:
1663
 * @c: an ASCII character.
1664 1665
 *
 * Determines the numeric value of a character as a decimal
1666
 * digit. Differs from g_unichar_digit_value() because it takes
1667 1668 1669 1670
 * a char, so there's no worry about sign extension if characters
 * are signed.
 *
 * Return value: If @c is a decimal digit (according to
1671
 * g_ascii_isdigit()), its numeric value. Otherwise, -1.
1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682
 **/
int
g_ascii_digit_value (gchar c)
{
  if (g_ascii_isdigit (c))
    return c - '0';
  return -1;
}

/**
 * g_ascii_xdigit_value:
1683
 * @c: an ASCII character.
1684 1685
 *
 * Determines the numeric value of a character as a hexidecimal
1686
 * digit. Differs from g_unichar_xdigit_value() because it takes
1687 1688 1689 1690
 * a char, so there's no worry about sign extension if characters
 * are signed.
 *
 * Return value: If @c is a hex digit (according to
1691
 * g_ascii_isxdigit()), its numeric value. Otherwise, -1.
1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702
 **/
int
g_ascii_xdigit_value (gchar c)
{
  if (c >= 'A' && c <= 'F')
    return c - 'A' + 10;
  if (c >= 'a' && c <= 'f')
    return c - 'a' + 10;
  return g_ascii_digit_value (c);
}

Owen Taylor's avatar
Owen Taylor committed
1703 1704
/**
 * g_ascii_strcasecmp:
1705 1706
 * @s1: string to compare with @s2.
 * @s2: string to compare with @s1.
Owen Taylor's avatar
Owen Taylor committed
1707 1708 1709
 * 
 * Compare two strings, ignoring the case of ASCII characters.
 *
1710
 * Unlike the BSD strcasecmp() function, this only recognizes standard
Owen Taylor's avatar
Owen Taylor committed
1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728
 * ASCII letters and ignores the locale, treating all non-ASCII
 * characters as if they are not letters.
 * 
 * Return value: an integer less than, equal to, or greater than
 *               zero if @s1 is found, respectively, to be less than,
 *               to match, or to be greater than @s2.
 **/
gint
g_ascii_strcasecmp (const gchar *s1,
		    const gchar *s2)
{
  gint c1, c2;

  g_return_val_if_fail (s1 != NULL, 0);
  g_return_val_if_fail (s2 != NULL, 0);

  while (*s1 && *s2)
    {
1729 1730
      c1 = (gint)(guchar) TOLOWER (*s1);
      c2 = (gint)(guchar) TOLOWER (*s2);
Owen Taylor's avatar
Owen Taylor committed
1731 1732 1733 1734 1735 1736 1737 1738 1739 1740
      if (c1 != c2)
	return (c1 - c2);
      s1++; s2++;
    }

  return (((gint)(guchar) *s1) - ((gint)(guchar) *s2));
}

/**
 * g_ascii_strncasecmp:
1741 1742 1743
 * @s1: string to compare with @s2.
 * @s2: string to compare with @s1.
 * @n:  number of characters to compare.
Owen Taylor's avatar
Owen Taylor committed
1744 1745 1746 1747
 *