code.delx.au - pulseaudio/blob - src/polypcore/core-util.c

   1 /* $Id$ */
   2
   3 /***
   4   This file is part of polypaudio.
   5
   6   polypaudio is free software; you can redistribute it and/or modify
   7   it under the terms of the GNU Lesser General Public License as
   8   published by the Free Software Foundation; either version 2.1 of the
   9   License, or (at your option) any later version.
  10
  11   polypaudio is distributed in the hope that it will be useful, but
  12   WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  14   Lesser General Public License for more details.
  15
  16   You should have received a copy of the GNU Lesser General Public
  17   License along with polypaudio; if not, write to the Free Software
  18   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
  19   USA.
  20 ***/
  21
  22 #ifdef HAVE_CONFIG_H
  23 #include <config.h>
  24 #endif
  25
  26 #include <stdarg.h>
  27 #include <stdlib.h>
  28 #include <signal.h>
  29 #include <errno.h>
  30 #include <assert.h>
  31 #include <string.h>
  32 #include <stdio.h>
  33 #include <fcntl.h>
  34 #include <unistd.h>
  35 #include <limits.h>
  36 #include <time.h>
  37 #include <ctype.h>
  38 #include <sys/types.h>
  39 #include <sys/stat.h>
  40 #include <sys/time.h>
  41
  42 #ifdef HAVE_SCHED_H
  43 #include <sched.h>
  44 #endif
  45
  46 #ifdef HAVE_SYS_RESOURCE_H
  47 #include <sys/resource.h>
  48 #endif
  49
  50 #ifdef HAVE_PTHREAD
  51 #include <pthread.h>
  52 #endif
  53
  54 #ifdef HAVE_NETDB_H
  55 #include <netdb.h>
  56 #endif
  57
  58 #ifdef HAVE_WINDOWS_H
  59 #include <windows.h>
  60 #endif
  61
  62 #ifdef HAVE_PWD_H
  63 #include <pwd.h>
  64 #endif
  65
  66 #ifdef HAVE_GRP_H
  67 #include <grp.h>
  68 #endif
  69
  70 #include <samplerate.h>
  71
  72 #include <polyp/xmalloc.h>
  73 #include <polyp/util.h>
  74
  75 #include <polypcore/core-error.h>
  76 #include <polypcore/winsock.h>
  77 #include <polypcore/log.h>
  78
  79 #include "core-util.h"
  80
  81 #ifndef OS_IS_WIN32
  82 #define PA_RUNTIME_PATH_PREFIX "/tmp/polypaudio-"
  83 #define PATH_SEP '/'
  84 #else
  85 #define PA_RUNTIME_PATH_PREFIX "%TEMP%\\polypaudio-"
  86 #define PATH_SEP '\\'
  87 #endif
  88
  89 #ifdef OS_IS_WIN32
  90
  91 #define POLYP_ROOTENV "POLYP_ROOT"
  92
  93 int pa_set_root(HANDLE handle) {
  94     char library_path[MAX_PATH + sizeof(POLYP_ROOTENV) + 1], *sep;
  95
  96     strcpy(library_path, POLYP_ROOTENV "=");
  97
  98     if (!GetModuleFileName(handle, library_path + sizeof(POLYP_ROOTENV), MAX_PATH))
  99         return 0;
 100
 101     sep = strrchr(library_path, '\\');
 102     if (sep)
 103         *sep = '\0';
 104
 105     if (_putenv(library_path) < 0)
 106         return 0;
 107
 108     return 1;
 109 }
 110
 111 #endif
 112
 113 /** Make a file descriptor nonblock. Doesn't do any error checking */
 114 void pa_make_nonblock_fd(int fd) {
 115 #ifdef O_NONBLOCK
 116     int v;
 117     assert(fd >= 0);
 118
 119     if ((v = fcntl(fd, F_GETFL)) >= 0)
 120         if (!(v & O_NONBLOCK))
 121             fcntl(fd, F_SETFL, v|O_NONBLOCK);
 122 #elif defined(OS_IS_WIN32)
 123     u_long arg = 1;
 124     if (ioctlsocket(fd, FIONBIO, &arg) < 0) {
 125         if (WSAGetLastError() == WSAENOTSOCK)
 126             pa_log_warn(__FILE__": WARNING: Only sockets can be made non-blocking!");
 127     }
 128 #else
 129     pa_log_warn(__FILE__": WARNING: Non-blocking I/O not supported.!");
 130 #endif
 131 }
 132
 133 /** Creates a directory securely */
 134 int pa_make_secure_dir(const char* dir) {
 135     struct stat st;
 136     assert(dir);
 137
 138 #ifdef OS_IS_WIN32
 139     if (mkdir(dir) < 0)
 140 #else
 141     if (mkdir(dir, 0700) < 0)
 142 #endif
 143         if (errno != EEXIST)
 144             return -1;
 145
 146 #ifdef HAVE_CHOWN
 147     chown(dir, getuid(), getgid());
 148 #endif
 149 #ifdef HAVE_CHMOD
 150     chmod(dir, 0700);
 151 #endif
 152
 153 #ifdef HAVE_LSTAT
 154     if (lstat(dir, &st) < 0)
 155 #else
 156     if (stat(dir, &st) < 0)
 157 #endif
 158         goto fail;
 159
 160 #ifndef OS_IS_WIN32
 161     if (!S_ISDIR(st.st_mode) || (st.st_uid != getuid()) || ((st.st_mode & 0777) != 0700))
 162         goto fail;
 163 #else
 164     fprintf(stderr, "FIXME: pa_make_secure_dir()\n");
 165 #endif
 166
 167     return 0;
 168
 169 fail:
 170     rmdir(dir);
 171     return -1;
 172 }
 173
 174 /* Return a newly allocated sting containing the parent directory of the specified file */
 175 char *pa_parent_dir(const char *fn) {
 176     char *slash, *dir = pa_xstrdup(fn);
 177
 178     slash = (char*) pa_path_get_filename(dir);
 179     if (slash == fn)
 180         return NULL;
 181
 182     *(slash-1) = 0;
 183     return dir;
 184 }
 185
 186 /* Creates a the parent directory of the specified path securely */
 187 int pa_make_secure_parent_dir(const char *fn) {
 188     int ret = -1;
 189     char *dir;
 190
 191     if (!(dir = pa_parent_dir(fn)))
 192         goto finish;
 193
 194     if (pa_make_secure_dir(dir) < 0)
 195         goto finish;
 196
 197     ret = 0;
 198
 199 finish:
 200     pa_xfree(dir);
 201     return ret;
 202 }
 203
 204 /** Platform independent read function. Necessary since not all systems
 205  * treat all file descriptors equal. */
 206 ssize_t pa_read(int fd, void *buf, size_t count) {
 207     ssize_t r;
 208
 209 #ifdef OS_IS_WIN32
 210     r = recv(fd, buf, count, 0);
 211     if (r < 0) {
 212         if (WSAGetLastError() != WSAENOTSOCK) {
 213             errno = WSAGetLastError();
 214             return r;
 215         }
 216     }
 217
 218     if (r < 0)
 219 #endif
 220         r = read(fd, buf, count);
 221
 222     return r;
 223 }
 224
 225 /** Similar to pa_read(), but handles writes */
 226 ssize_t pa_write(int fd, const void *buf, size_t count) {
 227     ssize_t r;
 228
 229 #ifdef OS_IS_WIN32
 230     r = send(fd, buf, count, 0);
 231     if (r < 0) {
 232         if (WSAGetLastError() != WSAENOTSOCK) {
 233             errno = WSAGetLastError();
 234             return r;
 235         }
 236     }
 237
 238     if (r < 0)
 239 #endif
 240         r = write(fd, buf, count);
 241
 242     return r;
 243 }
 244
 245 /** Calls read() in a loop. Makes sure that as much as 'size' bytes,
 246  * unless EOF is reached or an error occured */
 247 ssize_t pa_loop_read(int fd, void*data, size_t size) {
 248     ssize_t ret = 0;
 249     assert(fd >= 0 && data && size);
 250
 251     while (size > 0) {
 252         ssize_t r;
 253
 254         if ((r = pa_read(fd, data, size)) < 0)
 255             return r;
 256
 257         if (r == 0)
 258             break;
 259
 260         ret += r;
 261         data = (uint8_t*) data + r;
 262         size -= r;
 263     }
 264
 265     return ret;
 266 }
 267
 268 /** Similar to pa_loop_read(), but wraps write() */
 269 ssize_t pa_loop_write(int fd, const void*data, size_t size) {
 270     ssize_t ret = 0;
 271     assert(fd >= 0 && data && size);
 272
 273     while (size > 0) {
 274         ssize_t r;
 275
 276         if ((r = pa_write(fd, data, size)) < 0)
 277             return r;
 278
 279         if (r == 0)
 280             break;
 281
 282         ret += r;
 283         data = (const uint8_t*) data + r;
 284         size -= r;
 285     }
 286
 287     return ret;
 288 }
 289
 290 /* Print a warning messages in case that the given signal is not
 291  * blocked or trapped */
 292 void pa_check_signal_is_blocked(int sig) {
 293 #ifdef HAVE_SIGACTION
 294     struct sigaction sa;
 295     sigset_t set;
 296
 297     /* If POSIX threads are supported use thread-aware
 298      * pthread_sigmask() function, to check if the signal is
 299      * blocked. Otherwise fall back to sigprocmask() */
 300
 301 #ifdef HAVE_PTHREAD
 302     if (pthread_sigmask(SIG_SETMASK, NULL, &set) < 0) {
 303 #endif
 304         if (sigprocmask(SIG_SETMASK, NULL, &set) < 0) {
 305             pa_log(__FILE__": sigprocmask(): %s", pa_cstrerror(errno));
 306             return;
 307         }
 308 #ifdef HAVE_PTHREAD
 309     }
 310 #endif
 311
 312     if (sigismember(&set, sig))
 313         return;
 314
 315     /* Check whether the signal is trapped */
 316
 317     if (sigaction(sig, NULL, &sa) < 0) {
 318         pa_log(__FILE__": sigaction(): %s", pa_cstrerror(errno));
 319         return;
 320     }
 321
 322     if (sa.sa_handler != SIG_DFL)
 323         return;
 324
 325     pa_log(__FILE__": WARNING: %s is not trapped. This might cause malfunction!", pa_strsignal(sig));
 326 #else /* HAVE_SIGACTION */
 327     pa_log(__FILE__": WARNING: %s might not be trapped. This might cause malfunction!", pa_strsignal(sig));
 328 #endif
 329 }
 330
 331 /* The following function is based on an example from the GNU libc
 332  * documentation. This function is similar to GNU's asprintf(). */
 333 char *pa_sprintf_malloc(const char *format, ...) {
 334     int  size = 100;
 335     char *c = NULL;
 336
 337     assert(format);
 338
 339     for(;;) {
 340         int r;
 341         va_list ap;
 342
 343         c = pa_xrealloc(c, size);
 344
 345         va_start(ap, format);
 346         r = vsnprintf(c, size, format, ap);
 347         va_end(ap);
 348
 349         if (r > -1 && r < size)
 350             return c;
 351
 352         if (r > -1)    /* glibc 2.1 */
 353             size = r+1;
 354         else           /* glibc 2.0 */
 355             size *= 2;
 356     }
 357 }
 358
 359 /* Same as the previous function, but use a va_list instead of an
 360  * ellipsis */
 361 char *pa_vsprintf_malloc(const char *format, va_list ap) {
 362     int  size = 100;
 363     char *c = NULL;
 364
 365     assert(format);
 366
 367     for(;;) {
 368         int r;
 369         c = pa_xrealloc(c, size);
 370         r = vsnprintf(c, size, format, ap);
 371
 372         if (r > -1 && r < size)
 373             return c;
 374
 375         if (r > -1)    /* glibc 2.1 */
 376             size = r+1;
 377         else           /* glibc 2.0 */
 378             size *= 2;
 379     }
 380 }
 381
 382 /* Similar to OpenBSD's strlcpy() function */
 383 char *pa_strlcpy(char *b, const char *s, size_t l) {
 384     assert(b && s && l > 0);
 385
 386     strncpy(b, s, l);
 387     b[l-1] = 0;
 388     return b;
 389 }
 390
 391 #define NICE_LEVEL (-15)
 392
 393 /* Raise the priority of the current process as much as possible and
 394 sensible: set the nice level to -15 and enable realtime scheduling if
 395 supported.*/
 396 void pa_raise_priority(void) {
 397
 398 #ifdef HAVE_SYS_RESOURCE_H
 399     if (setpriority(PRIO_PROCESS, 0, NICE_LEVEL) < 0)
 400         pa_log_warn(__FILE__": setpriority(): %s", pa_cstrerror(errno));
 401     else
 402         pa_log_info(__FILE__": Successfully gained nice level %i.", NICE_LEVEL);
 403 #endif
 404
 405 #ifdef _POSIX_PRIORITY_SCHEDULING
 406     {
 407         struct sched_param sp;
 408
 409         if (sched_getparam(0, &sp) < 0) {
 410             pa_log(__FILE__": sched_getparam(): %s", pa_cstrerror(errno));
 411             return;
 412         }
 413
 414         sp.sched_priority = 1;
 415         if (sched_setscheduler(0, SCHED_FIFO, &sp) < 0) {
 416             pa_log_warn(__FILE__": sched_setscheduler(): %s", pa_cstrerror(errno));
 417             return;
 418         }
 419
 420         pa_log_info(__FILE__": Successfully enabled SCHED_FIFO scheduling.");
 421     }
 422 #endif
 423
 424 #ifdef OS_IS_WIN32
 425     if (!SetPriorityClass(GetCurrentProcess(), HIGH_PRIORITY_CLASS))
 426         pa_log_warn(__FILE__": SetPriorityClass() failed: 0x%08X", GetLastError());
 427     else
 428         pa_log_info(__FILE__": Successfully gained high priority class.");
 429 #endif
 430 }
 431
 432 /* Reset the priority to normal, inverting the changes made by pa_raise_priority() */
 433 void pa_reset_priority(void) {
 434 #ifdef OS_IS_WIN32
 435     SetPriorityClass(GetCurrentProcess(), NORMAL_PRIORITY_CLASS);
 436 #endif
 437
 438 #ifdef _POSIX_PRIORITY_SCHEDULING
 439     {
 440         struct sched_param sp;
 441         sched_getparam(0, &sp);
 442         sp.sched_priority = 0;
 443         sched_setscheduler(0, SCHED_OTHER, &sp);
 444     }
 445 #endif
 446
 447 #ifdef HAVE_SYS_RESOURCE_H
 448     setpriority(PRIO_PROCESS, 0, 0);
 449 #endif
 450 }
 451
 452 /* Set the FD_CLOEXEC flag for a fd */
 453 int pa_fd_set_cloexec(int fd, int b) {
 454
 455 #ifdef FD_CLOEXEC
 456     int v;
 457     assert(fd >= 0);
 458
 459     if ((v = fcntl(fd, F_GETFD, 0)) < 0)
 460         return -1;
 461
 462     v = (v & ~FD_CLOEXEC) | (b ? FD_CLOEXEC : 0);
 463
 464     if (fcntl(fd, F_SETFD, v) < 0)
 465         return -1;
 466 #endif
 467
 468     return 0;
 469 }
 470
 471 /* Try to parse a boolean string value.*/
 472 int pa_parse_boolean(const char *v) {
 473
 474     if (!strcmp(v, "1") || v[0] == 'y' || v[0] == 'Y' || v[0] == 't' || v[0] == 'T' || !strcasecmp(v, "on"))
 475         return 1;
 476     else if (!strcmp(v, "0") || v[0] == 'n' || v[0] == 'N' || v[0] == 'f' || v[0] == 'F' || !strcasecmp(v, "off"))
 477         return 0;
 478
 479     return -1;
 480 }
 481
 482 /* Split the specified string wherever one of the strings in delimiter
 483  * occurs. Each time it is called returns a newly allocated string
 484  * with pa_xmalloc(). The variable state points to, should be
 485  * initiallized to NULL before the first call. */
 486 char *pa_split(const char *c, const char *delimiter, const char**state) {
 487     const char *current = *state ? *state : c;
 488     size_t l;
 489
 490     if (!*current)
 491         return NULL;
 492
 493     l = strcspn(current, delimiter);
 494     *state = current+l;
 495
 496     if (**state)
 497         (*state)++;
 498
 499     return pa_xstrndup(current, l);
 500 }
 501
 502 /* What is interpreted as whitespace? */
 503 #define WHITESPACE " \t\n"
 504
 505 /* Split a string into words. Otherwise similar to pa_split(). */
 506 char *pa_split_spaces(const char *c, const char **state) {
 507     const char *current = *state ? *state : c;
 508     size_t l;
 509
 510     if (!*current || *c == 0)
 511         return NULL;
 512
 513     current += strspn(current, WHITESPACE);
 514     l = strcspn(current, WHITESPACE);
 515
 516     *state = current+l;
 517
 518     return pa_xstrndup(current, l);
 519 }
 520
 521 /* Return the name of an UNIX signal. Similar to GNU's strsignal() */
 522 const char *pa_strsignal(int sig) {
 523     switch(sig) {
 524         case SIGINT: return "SIGINT";
 525         case SIGTERM: return "SIGTERM";
 526 #ifdef SIGUSR1
 527         case SIGUSR1: return "SIGUSR1";
 528 #endif
 529 #ifdef SIGUSR2
 530         case SIGUSR2: return "SIGUSR2";
 531 #endif
 532 #ifdef SIGXCPU
 533         case SIGXCPU: return "SIGXCPU";
 534 #endif
 535 #ifdef SIGPIPE
 536         case SIGPIPE: return "SIGPIPE";
 537 #endif
 538 #ifdef SIGCHLD
 539         case SIGCHLD: return "SIGCHLD";
 540 #endif
 541 #ifdef SIGHUP
 542         case SIGHUP: return "SIGHUP";
 543 #endif
 544         default: return "UNKNOWN SIGNAL";
 545     }
 546 }
 547
 548 #ifdef HAVE_GRP_H
 549
 550 /* Check whether the specified GID and the group name match */
 551 static int is_group(gid_t gid, const char *name) {
 552     struct group group, *result = NULL;
 553     long n;
 554     void *data;
 555     int r = -1;
 556
 557 #ifdef HAVE_GETGRGID_R
 558 #ifdef _SC_GETGR_R_SIZE_MAX
 559     n = sysconf(_SC_GETGR_R_SIZE_MAX);
 560 #else
 561     n = -1;
 562 #endif
 563     if (n < 0) n = 512;
 564     data = pa_xmalloc(n);
 565
 566     if (getgrgid_r(gid, &group, data, n, &result) < 0 || !result) {
 567         pa_log(__FILE__": getgrgid_r(%u): %s", (unsigned)gid, pa_cstrerror(errno));
 568         goto finish;
 569     }
 570
 571     r = strcmp(name, result->gr_name) == 0;
 572
 573 finish:
 574     pa_xfree(data);
 575 #else
 576     /* XXX Not thread-safe, but needed on OSes (e.g. FreeBSD 4.X) that do not
 577      * support getgrgid_r. */
 578     if ((result = getgrgid(gid)) == NULL) {
 579         pa_log(__FILE__": getgrgid(%u): %s", gid, pa_cstrerror(errno));
 580         goto finish;
 581     }
 582
 583     r = strcmp(name, result->gr_name) == 0;
 584
 585 finish:
 586 #endif
 587
 588     return r;
 589 }
 590
 591 /* Check the current user is member of the specified group */
 592 int pa_own_uid_in_group(const char *name, gid_t *gid) {
 593     GETGROUPS_T *gids, tgid;
 594     int n = sysconf(_SC_NGROUPS_MAX);
 595     int r = -1, i;
 596
 597     assert(n > 0);
 598
 599     gids = pa_xmalloc(sizeof(GETGROUPS_T)*n);
 600
 601     if ((n = getgroups(n, gids)) < 0) {
 602         pa_log(__FILE__": getgroups(): %s", pa_cstrerror(errno));
 603         goto finish;
 604     }
 605
 606     for (i = 0; i < n; i++) {
 607         if (is_group(gids[i], name) > 0) {
 608             *gid = gids[i];
 609             r = 1;
 610             goto finish;
 611         }
 612     }
 613
 614     if (is_group(tgid = getgid(), name) > 0) {
 615         *gid = tgid;
 616         r = 1;
 617         goto finish;
 618     }
 619
 620     r = 0;
 621
 622 finish:
 623
 624     pa_xfree(gids);
 625     return r;
 626 }
 627
 628 int pa_uid_in_group(uid_t uid, const char *name) {
 629     char *g_buf, *p_buf;
 630     long g_n, p_n;
 631     struct group grbuf, *gr;
 632     char **i;
 633     int r = -1;
 634
 635     g_n = sysconf(_SC_GETGR_R_SIZE_MAX);
 636     g_buf = pa_xmalloc(g_n);
 637
 638     p_n = sysconf(_SC_GETPW_R_SIZE_MAX);
 639     p_buf = pa_xmalloc(p_n);
 640
 641     if (getgrnam_r(name, &grbuf, g_buf, (size_t) g_n, &gr) != 0 || !gr)
 642         goto finish;
 643
 644     r = 0;
 645     for (i = gr->gr_mem; *i; i++) {
 646         struct passwd pwbuf, *pw;
 647
 648         if (getpwnam_r(*i, &pwbuf, p_buf, (size_t) p_n, &pw) != 0 || !pw)
 649             continue;
 650
 651         if (pw->pw_uid == uid) {
 652             r = 1;
 653             break;
 654         }
 655     }
 656
 657 finish:
 658     pa_xfree(g_buf);
 659     pa_xfree(p_buf);
 660
 661     return r;
 662 }
 663
 664 #else /* HAVE_GRP_H */
 665
 666 int pa_own_uid_in_group(const char *name, gid_t *gid) {
 667     return -1;
 668
 669 }
 670
 671 int pa_uid_in_group(uid_t uid, const char *name) {
 672     return -1;
 673 }
 674
 675 #endif
 676
 677 /* Lock or unlock a file entirely.
 678   (advisory on UNIX, mandatory on Windows) */
 679 int pa_lock_fd(int fd, int b) {
 680 #ifdef F_SETLKW
 681     struct flock flock;
 682
 683     /* Try a R/W lock first */
 684
 685     flock.l_type = b ? F_WRLCK : F_UNLCK;
 686     flock.l_whence = SEEK_SET;
 687     flock.l_start = 0;
 688     flock.l_len = 0;
 689
 690     if (fcntl(fd, F_SETLKW, &flock) >= 0)
 691         return 0;
 692
 693     /* Perhaps the file descriptor qas opened for read only, than try again with a read lock. */
 694     if (b && errno == EBADF) {
 695         flock.l_type = F_RDLCK;
 696         if (fcntl(fd, F_SETLKW, &flock) >= 0)
 697             return 0;
 698     }
 699
 700     pa_log(__FILE__": %slock: %s", !b? "un" : "",
 701         pa_cstrerror(errno));
 702 #endif
 703
 704 #ifdef OS_IS_WIN32
 705     HANDLE h = (HANDLE)_get_osfhandle(fd);
 706
 707     if (b && LockFile(h, 0, 0, 0xFFFFFFFF, 0xFFFFFFFF))
 708         return 0;
 709     if (!b && UnlockFile(h, 0, 0, 0xFFFFFFFF, 0xFFFFFFFF))
 710         return 0;
 711
 712     pa_log(__FILE__": %slock failed: 0x%08X", !b ? "un" : "", GetLastError());
 713 #endif
 714
 715     return -1;
 716 }
 717
 718 /* Remove trailing newlines from a string */
 719 char* pa_strip_nl(char *s) {
 720     assert(s);
 721
 722     s[strcspn(s, "\r\n")] = 0;
 723     return s;
 724 }
 725
 726 /* Create a temporary lock file and lock it. */
 727 int pa_lock_lockfile(const char *fn) {
 728     int fd = -1;
 729     assert(fn);
 730
 731     for (;;) {
 732         struct stat st;
 733
 734         if ((fd = open(fn, O_CREAT|O_RDWR, S_IRUSR|S_IWUSR)) < 0) {
 735             pa_log(__FILE__": failed to create lock file '%s': %s", fn,
 736                 pa_cstrerror(errno));
 737             goto fail;
 738         }
 739
 740         if (pa_lock_fd(fd, 1) < 0) {
 741             pa_log(__FILE__": failed to lock file '%s'.", fn);
 742             goto fail;
 743         }
 744
 745         if (fstat(fd, &st) < 0) {
 746             pa_log(__FILE__": failed to fstat() file '%s'.", fn);
 747             goto fail;
 748         }
 749
 750         /* Check wheter the file has been removed meanwhile. When yes, restart this loop, otherwise, we're done */
 751         if (st.st_nlink >= 1)
 752             break;
 753
 754         if (pa_lock_fd(fd, 0) < 0) {
 755             pa_log(__FILE__": failed to unlock file '%s'.", fn);
 756             goto fail;
 757         }
 758
 759         if (close(fd) < 0) {
 760             pa_log(__FILE__": failed to close file '%s'.", fn);
 761             goto fail;
 762         }
 763
 764         fd = -1;
 765     }
 766
 767     return fd;
 768
 769 fail:
 770
 771     if (fd >= 0)
 772         close(fd);
 773
 774     return -1;
 775 }
 776
 777 /* Unlock a temporary lcok file */
 778 int pa_unlock_lockfile(const char *fn, int fd) {
 779     int r = 0;
 780     assert(fn && fd >= 0);
 781
 782     if (unlink(fn) < 0) {
 783         pa_log_warn(__FILE__": WARNING: unable to remove lock file '%s': %s",
 784             fn, pa_cstrerror(errno));
 785         r = -1;
 786     }
 787
 788     if (pa_lock_fd(fd, 0) < 0) {
 789         pa_log_warn(__FILE__": WARNING: failed to unlock file '%s'.", fn);
 790         r = -1;
 791     }
 792
 793     if (close(fd) < 0) {
 794         pa_log_warn(__FILE__": WARNING: failed to close lock file '%s': %s",
 795             fn, pa_cstrerror(errno));
 796         r = -1;
 797     }
 798
 799     return r;
 800 }
 801
 802 /* Try to open a configuration file. If "env" is specified, open the
 803  * value of the specified environment variable. Otherwise look for a
 804  * file "local" in the home directory or a file "global" in global
 805  * file system. If "result" is non-NULL, a pointer to a newly
 806  * allocated buffer containing the used configuration file is
 807  * stored there.*/
 808 FILE *pa_open_config_file(const char *global, const char *local, const char *env, char **result, const char *mode) {
 809     const char *fn;
 810     char h[PATH_MAX];
 811
 812 #ifdef OS_IS_WIN32
 813     char buf[PATH_MAX];
 814
 815     if (!getenv(POLYP_ROOTENV))
 816         pa_set_root(NULL);
 817 #endif
 818
 819     if (env && (fn = getenv(env))) {
 820 #ifdef OS_IS_WIN32
 821         if (!ExpandEnvironmentStrings(fn, buf, PATH_MAX))
 822             return NULL;
 823         fn = buf;
 824 #endif
 825
 826         if (result)
 827             *result = pa_xstrdup(fn);
 828
 829         return fopen(fn, mode);
 830     }
 831
 832     if (local && pa_get_home_dir(h, sizeof(h))) {
 833         FILE *f;
 834         char *lfn;
 835
 836         fn = lfn = pa_sprintf_malloc("%s/%s", h, local);
 837
 838 #ifdef OS_IS_WIN32
 839         if (!ExpandEnvironmentStrings(lfn, buf, PATH_MAX))
 840             return NULL;
 841         fn = buf;
 842 #endif
 843
 844         f = fopen(fn, mode);
 845
 846         if (f || errno != ENOENT) {
 847             if (result)
 848                 *result = pa_xstrdup(fn);
 849             pa_xfree(lfn);
 850             return f;
 851         }
 852
 853         pa_xfree(lfn);
 854     }
 855
 856     if (!global) {
 857         if (result)
 858             *result = NULL;
 859         errno = ENOENT;
 860         return NULL;
 861     }
 862
 863 #ifdef OS_IS_WIN32
 864     if (!ExpandEnvironmentStrings(global, buf, PATH_MAX))
 865         return NULL;
 866     global = buf;
 867 #endif
 868
 869     if (result)
 870         *result = pa_xstrdup(global);
 871
 872     return fopen(global, mode);
 873 }
 874
 875 /* Format the specified data as a hexademical string */
 876 char *pa_hexstr(const uint8_t* d, size_t dlength, char *s, size_t slength) {
 877     size_t i = 0, j = 0;
 878     const char hex[] = "0123456789abcdef";
 879     assert(d && s && slength > 0);
 880
 881     while (i < dlength && j+3 <= slength) {
 882         s[j++] = hex[*d >> 4];
 883         s[j++] = hex[*d & 0xF];
 884
 885         d++;
 886         i++;
 887     }
 888
 889     s[j < slength ? j : slength] = 0;
 890     return s;
 891 }
 892
 893 /* Convert a hexadecimal digit to a number or -1 if invalid */
 894 static int hexc(char c) {
 895     if (c >= '0' && c <= '9')
 896         return c - '0';
 897
 898     if (c >= 'A' && c <= 'F')
 899         return c - 'A' + 10;
 900
 901     if (c >= 'a' && c <= 'f')
 902         return c - 'a' + 10;
 903
 904     return -1;
 905 }
 906
 907 /* Parse a hexadecimal string as created by pa_hexstr() to a BLOB */
 908 size_t pa_parsehex(const char *p, uint8_t *d, size_t dlength) {
 909     size_t j = 0;
 910     assert(p && d);
 911
 912     while (j < dlength && *p) {
 913         int b;
 914
 915         if ((b = hexc(*(p++))) < 0)
 916             return (size_t) -1;
 917
 918         d[j] = (uint8_t) (b << 4);
 919
 920         if (!*p)
 921             return (size_t) -1;
 922
 923         if ((b = hexc(*(p++))) < 0)
 924             return (size_t) -1;
 925
 926         d[j] |= (uint8_t) b;
 927         j++;
 928     }
 929
 930     return j;
 931 }
 932
 933 /* Returns nonzero when *s starts with *pfx */
 934 int pa_startswith(const char *s, const char *pfx) {
 935     size_t l;
 936
 937     assert(s);
 938     assert(pfx);
 939
 940     l = strlen(pfx);
 941
 942     return strlen(s) >= l && strncmp(s, pfx, l) == 0;
 943 }
 944
 945 /* Returns nonzero when *s ends with *sfx */
 946 int pa_endswith(const char *s, const char *sfx) {
 947     size_t l1, l2;
 948
 949     assert(s);
 950     assert(sfx);
 951
 952     l1 = strlen(s);
 953     l2 = strlen(sfx);
 954
 955     return l1 >= l2 && strcmp(s+l1-l2, sfx) == 0;
 956 }
 957
 958 /* if fn is null return the polypaudio run time path in s (/tmp/polypaudio)
 959  * if fn is non-null and starts with / return fn in s
 960  * otherwise append fn to the run time path and return it in s */
 961 char *pa_runtime_path(const char *fn, char *s, size_t l) {
 962     char u[256];
 963
 964 #ifndef OS_IS_WIN32
 965     if (fn && *fn == '/')
 966 #else
 967     if (fn && strlen(fn) >= 3 && isalpha(fn[0]) && fn[1] == ':' && fn[2] == '\\')
 968 #endif
 969         return pa_strlcpy(s, fn, l);
 970
 971     if (fn)
 972         snprintf(s, l, "%s%s%c%s", PA_RUNTIME_PATH_PREFIX, pa_get_user_name(u, sizeof(u)), PATH_SEP, fn);
 973     else
 974         snprintf(s, l, "%s%s", PA_RUNTIME_PATH_PREFIX, pa_get_user_name(u, sizeof(u)));
 975
 976 #ifdef OS_IS_WIN32
 977     {
 978         char buf[l];
 979         strcpy(buf, s);
 980         ExpandEnvironmentStrings(buf, s, l);
 981     }
 982 #endif
 983
 984     return s;
 985 }
 986
 987 /* Convert the string s to a signed integer in *ret_i */
 988 int pa_atoi(const char *s, int32_t *ret_i) {
 989     char *x = NULL;
 990     long l;
 991     assert(s && ret_i);
 992
 993     l = strtol(s, &x, 0);
 994
 995     if (!x || *x)
 996         return -1;
 997
 998     *ret_i = (int32_t) l;
 999
1000     return 0;
1001 }
1002
1003 /* Convert the string s to an unsigned integer in *ret_u */
1004 int pa_atou(const char *s, uint32_t *ret_u) {
1005     char *x = NULL;
1006     unsigned long l;
1007     assert(s && ret_u);
1008
1009     l = strtoul(s, &x, 0);
1010
1011     if (!x || *x)
1012         return -1;
1013
1014     *ret_u = (uint32_t) l;
1015
1016     return 0;
1017 }