dbus/dbus-sysdeps-win.c

   1 /* -*- mode: C; c-file-style: "gnu"; indent-tabs-mode: nil; -*- */
   2 /* dbus-sysdeps.c Wrappers around system/libc features (internal to D-BUS implementation)
   3  *
   4  * Copyright (C) 2002, 2003  Red Hat, Inc.
   5  * Copyright (C) 2003 CodeFactory AB
   6  * Copyright (C) 2005 Novell, Inc.
   7  * Copyright (C) 2006 Peter Kümmel  <syntheticpp@gmx.net>
   8  * Copyright (C) 2006 Christian Ehrlicher <ch.ehrlicher@gmx.de>
   9  * Copyright (C) 2006-2013 Ralf Habacker <ralf.habacker@freenet.de>
  10  *
  11  * Licensed under the Academic Free License version 2.1
  12  *
  13  * This program is free software; you can redistribute it and/or modify
  14  * it under the terms of the GNU General Public License as published by
  15  * the Free Software Foundation; either version 2 of the License, or
  16  * (at your option) any later version.
  17  *
  18  * This program is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU General Public License for more details.
  22  *
  23  * You should have received a copy of the GNU General Public License
  24  * along with this program; if not, write to the Free Software
  25  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
  26  *
  27  */
  28
  29 #include <config.h>
  30
  31 #define STRSAFE_NO_DEPRECATE
  32
  33 #ifndef DBUS_WINCE
  34 #ifndef _WIN32_WINNT
  35 #define _WIN32_WINNT 0x0501
  36 #endif
  37 #endif
  38
  39 #include "dbus-internals.h"
  40 #include "dbus-sha.h"
  41 #include "dbus-sysdeps.h"
  42 #include "dbus-threads.h"
  43 #include "dbus-protocol.h"
  44 #include "dbus-string.h"
  45 #include "dbus-sysdeps.h"
  46 #include "dbus-sysdeps-win.h"
  47 #include "dbus-protocol.h"
  48 #include "dbus-hash.h"
  49 #include "dbus-sockets-win.h"
  50 #include "dbus-list.h"
  51 #include "dbus-nonce.h"
  52 #include "dbus-credentials.h"
  53
  54 #include <windows.h>
  55 #include <ws2tcpip.h>
  56 #include <wincrypt.h>
  57 #include <iphlpapi.h>
  58
  59 /* Declarations missing in mingw's and windows sdk 7.0 headers */
  60 extern BOOL WINAPI ConvertStringSidToSidA (LPCSTR  StringSid, PSID *Sid);
  61 extern BOOL WINAPI ConvertSidToStringSidA (PSID Sid, LPSTR *StringSid);
  62
  63 #include <stdio.h>
  64
  65 #include <string.h>
  66 #if HAVE_ERRNO_H
  67 #include <errno.h>
  68 #endif
  69 #ifndef DBUS_WINCE
  70 #include <mbstring.h>
  71 #include <sys/stat.h>
  72 #include <sys/types.h>
  73 #endif
  74
  75 #ifdef HAVE_WS2TCPIP_H
  76 /* getaddrinfo for Windows CE (and Windows).  */
  77 #include <ws2tcpip.h>
  78 #endif
  79
  80 #ifdef HAVE_WSPIAPI_H
  81 // needed for w2k compatibility (getaddrinfo/freeaddrinfo/getnameinfo)
  82 #ifdef __GNUC__
  83 #define _inline
  84 #include "wspiapi.h"
  85 #else
  86 #include <wspiapi.h>
  87 #endif
  88 #endif // HAVE_WSPIAPI_H
  89
  90 #ifndef O_BINARY
  91 #define O_BINARY 0
  92 #endif
  93
  94 typedef int socklen_t;
  95
  96
  97 void
  98 _dbus_win_set_errno (int err)
  99 {
 100 #ifdef DBUS_WINCE
 101   SetLastError (err);
 102 #else
 103   errno = err;
 104 #endif
 105 }
 106
 107 static BOOL is_winxp_sp3_or_lower();
 108
 109 /*
 110  * _MIB_TCPROW_EX and friends are not available in system headers
 111  *  and are mapped to attribute identical ...OWNER_PID typedefs.
 112  */
 113 typedef MIB_TCPROW_OWNER_PID _MIB_TCPROW_EX;
 114 typedef MIB_TCPTABLE_OWNER_PID MIB_TCPTABLE_EX;
 115 typedef PMIB_TCPTABLE_OWNER_PID PMIB_TCPTABLE_EX;
 116 typedef DWORD (WINAPI *ProcAllocateAndGetTcpExtTableFromStack)(PMIB_TCPTABLE_EX*,BOOL,HANDLE,DWORD,DWORD);
 117 static ProcAllocateAndGetTcpExtTableFromStack lpfnAllocateAndGetTcpExTableFromStack = NULL;
 118
 119 /**
 120  * AllocateAndGetTcpExTableFromStack() is undocumented and not exported,
 121  * but is the only way to do this in older XP versions.
 122  * @return true if the procedures could be loaded
 123  */
 124 static BOOL load_ex_ip_helper_procedures(void)
 125 {
 126     HMODULE hModule = LoadLibrary ("iphlpapi.dll");
 127     if (hModule == NULL)
 128         return FALSE;
 129
 130     lpfnAllocateAndGetTcpExTableFromStack = (ProcAllocateAndGetTcpExtTableFromStack)GetProcAddress (hModule, "AllocateAndGetTcpExTableFromStack");
 131     if (lpfnAllocateAndGetTcpExTableFromStack == NULL)
 132         return FALSE;
 133
 134     return TRUE;
 135 }
 136
 137
 138 dbus_pid_t get_pid_from_extended_tcp_table(int peer_port)
 139 {
 140   dbus_pid_t result;
 141   DWORD errorCode, size, i;
 142   MIB_TCPTABLE_OWNER_PID *tcp_table;
 143
 144   if ((errorCode =
 145        GetExtendedTcpTable (NULL, &size, TRUE, AF_INET, TCP_TABLE_OWNER_PID_ALL, 0)) == ERROR_INSUFFICIENT_BUFFER)
 146     {
 147       tcp_table = (MIB_TCPTABLE_OWNER_PID *) dbus_malloc (size);
 148       if (tcp_table == NULL)
 149         {
 150           _dbus_verbose ("Error allocating memory\n");
 151           return 0;
 152         }
 153     }
 154
 155   if ((errorCode = GetExtendedTcpTable (tcp_table, &size, TRUE, AF_INET, TCP_TABLE_OWNER_PID_ALL, 0)) != NO_ERROR)
 156     {
 157       _dbus_verbose ("Error fetching tcp table %d\n", (int)errorCode);
 158       dbus_free (tcp_table);
 159       return 0;
 160     }
 161
 162   result = 0;
 163   for (i = 0; i < tcp_table->dwNumEntries; i++)
 164     {
 165       MIB_TCPROW_OWNER_PID *p = &tcp_table->table[i];
 166       int local_address = ntohl (p->dwLocalAddr);
 167       int local_port = ntohs (p->dwLocalPort);
 168       if (p->dwState == MIB_TCP_STATE_ESTAB
 169           && local_address == INADDR_LOOPBACK && local_port == peer_port)
 170          result = p->dwOwningPid;
 171     }
 172
 173   _dbus_verbose ("got pid %d\n", (int)result);
 174   dbus_free (tcp_table);
 175   return result;
 176 }
 177
 178 dbus_pid_t get_pid_from_tcp_ex_table(int peer_port)
 179 {
 180   dbus_pid_t result;
 181   DWORD errorCode, i;
 182   PMIB_TCPTABLE_EX tcp_table = NULL;
 183
 184   if (!load_ex_ip_helper_procedures ())
 185     {
 186       _dbus_verbose
 187         ("Error not been able to load iphelper procedures\n");
 188       return 0;
 189     }
 190
 191   errorCode = lpfnAllocateAndGetTcpExTableFromStack (&tcp_table, TRUE, GetProcessHeap(), 0, 2);
 192
 193   if (errorCode != NO_ERROR)
 194     {
 195       _dbus_verbose
 196         ("Error not been able to call AllocateAndGetTcpExTableFromStack()\n");
 197       return 0;
 198     }
 199
 200   result = 0;
 201   for (i = 0; i < tcp_table->dwNumEntries; i++)
 202     {
 203       _MIB_TCPROW_EX *p = &tcp_table->table[i];
 204       int local_port = ntohs (p->dwLocalPort);
 205       int local_address = ntohl (p->dwLocalAddr);
 206       if (local_address == INADDR_LOOPBACK && local_port == peer_port)
 207         {
 208           result = p->dwOwningPid;
 209           break;
 210         }
 211     }
 212   if (tcp_table)
 213       HeapFree (GetProcessHeap(), 0, tcp_table);
 214   _dbus_verbose ("got pid %d\n", (int)result);
 215   return result;
 216 }
 217
 218 /**
 219  * @brief return peer process id from tcp handle for localhost connections
 220  * @param handle tcp socket descriptor
 221  * @return process id or 0 in case the process id could not be fetched
 222  */
 223 static dbus_pid_t
 224 _dbus_get_peer_pid_from_tcp_handle (int handle)
 225 {
 226   struct sockaddr_storage addr;
 227   socklen_t len = sizeof (addr);
 228   int peer_port;
 229
 230   dbus_pid_t result;
 231   dbus_bool_t is_localhost = FALSE;
 232
 233   getpeername (handle, (struct sockaddr *) &addr, &len);
 234
 235   if (addr.ss_family == AF_INET)
 236     {
 237       struct sockaddr_in *s = (struct sockaddr_in *) &addr;
 238       peer_port = ntohs (s->sin_port);
 239       is_localhost = (htonl (s->sin_addr.s_addr) == INADDR_LOOPBACK);
 240     }
 241   else if (addr.ss_family == AF_INET6)
 242     {
 243       _dbus_verbose ("FIXME [61922]: IPV6 support not working on windows\n");
 244       return 0;
 245       /*
 246          struct sockaddr_in6 *s = (struct sockaddr_in6 * )&addr;
 247          peer_port = ntohs (s->sin6_port);
 248          is_localhost = (memcmp(s->sin6_addr.s6_addr, in6addr_loopback.s6_addr, 16) == 0);
 249          _dbus_verbose ("IPV6 %08x %08x\n", s->sin6_addr.s6_addr, in6addr_loopback.s6_addr);
 250        */
 251     }
 252   else
 253     {
 254       _dbus_verbose ("no idea what address family %d is\n", addr.ss_family);
 255       return 0;
 256     }
 257
 258   if (!is_localhost)
 259     {
 260       _dbus_verbose ("could not fetch process id from remote process\n");
 261       return 0;
 262     }
 263
 264   if (peer_port == 0)
 265     {
 266       _dbus_verbose
 267         ("Error not been able to fetch tcp peer port from connection\n");
 268       return 0;
 269     }
 270
 271   _dbus_verbose ("\n");
 272
 273   result = get_pid_from_extended_tcp_table(peer_port);
 274   if (result > 0)
 275       return result;
 276   result = get_pid_from_tcp_ex_table(peer_port);
 277   return result;
 278 }
 279
 280 /* Convert GetLastError() to a dbus error.  */
 281 const char*
 282 _dbus_win_error_from_last_error (void)
 283 {
 284   switch (GetLastError())
 285     {
 286     case 0:
 287       return DBUS_ERROR_FAILED;
 288
 289     case ERROR_NO_MORE_FILES:
 290     case ERROR_TOO_MANY_OPEN_FILES:
 291       return DBUS_ERROR_LIMITS_EXCEEDED; /* kernel out of memory */
 292
 293     case ERROR_ACCESS_DENIED:
 294     case ERROR_CANNOT_MAKE:
 295       return DBUS_ERROR_ACCESS_DENIED;
 296
 297     case ERROR_NOT_ENOUGH_MEMORY:
 298       return DBUS_ERROR_NO_MEMORY;
 299
 300     case ERROR_FILE_EXISTS:
 301       return DBUS_ERROR_FILE_EXISTS;
 302
 303     case ERROR_FILE_NOT_FOUND:
 304     case ERROR_PATH_NOT_FOUND:
 305       return DBUS_ERROR_FILE_NOT_FOUND;
 306     }
 307
 308   return DBUS_ERROR_FAILED;
 309 }
 310
 311
 312 char*
 313 _dbus_win_error_string (int error_number)
 314 {
 315   char *msg;
 316
 317   FormatMessageA (FORMAT_MESSAGE_ALLOCATE_BUFFER |
 318                   FORMAT_MESSAGE_IGNORE_INSERTS |
 319                   FORMAT_MESSAGE_FROM_SYSTEM,
 320                   NULL, error_number, 0,
 321                   (LPSTR) &msg, 0, NULL);
 322
 323   if (msg[strlen (msg) - 1] == '\n')
 324     msg[strlen (msg) - 1] = '\0';
 325   if (msg[strlen (msg) - 1] == '\r')
 326     msg[strlen (msg) - 1] = '\0';
 327
 328   return msg;
 329 }
 330
 331 void
 332 _dbus_win_free_error_string (char *string)
 333 {
 334   LocalFree (string);
 335 }
 336
 337 /**
 338  * Socket interface
 339  *
 340  */
 341
 342 /**
 343  * Thin wrapper around the read() system call that appends
 344  * the data it reads to the DBusString buffer. It appends
 345  * up to the given count, and returns the same value
 346  * and same errno as read(). The only exception is that
 347  * _dbus_read_socket() handles EINTR for you.
 348  * _dbus_read_socket() can return ENOMEM, even though
 349  * regular UNIX read doesn't.
 350  *
 351  * @param fd the file descriptor to read from
 352  * @param buffer the buffer to append data to
 353  * @param count the amount of data to read
 354  * @returns the number of bytes read or -1
 355  */
 356
 357 int
 358 _dbus_read_socket (int               fd,
 359                    DBusString       *buffer,
 360                    int               count)
 361 {
 362   int bytes_read;
 363   int start;
 364   char *data;
 365
 366   _dbus_assert (count >= 0);
 367
 368   start = _dbus_string_get_length (buffer);
 369
 370   if (!_dbus_string_lengthen (buffer, count))
 371     {
 372       _dbus_win_set_errno (ENOMEM);
 373       return -1;
 374     }
 375
 376   data = _dbus_string_get_data_len (buffer, start, count);
 377
 378  again:
 379
 380   _dbus_verbose ("recv: count=%d fd=%d\n", count, fd);
 381   bytes_read = recv (fd, data, count, 0);
 382
 383   if (bytes_read == SOCKET_ERROR)
 384         {
 385           DBUS_SOCKET_SET_ERRNO();
 386           _dbus_verbose ("recv: failed: %s (%d)\n", _dbus_strerror (errno), errno);
 387           bytes_read = -1;
 388         }
 389         else
 390           _dbus_verbose ("recv: = %d\n", bytes_read);
 391
 392   if (bytes_read < 0)
 393     {
 394       if (errno == EINTR)
 395         goto again;
 396       else
 397         {
 398           /* put length back (note that this doesn't actually realloc anything) */
 399           _dbus_string_set_length (buffer, start);
 400           return -1;
 401         }
 402     }
 403   else
 404     {
 405       /* put length back (doesn't actually realloc) */
 406       _dbus_string_set_length (buffer, start + bytes_read);
 407
 408 #if 0
 409       if (bytes_read > 0)
 410         _dbus_verbose_bytes_of_string (buffer, start, bytes_read);
 411 #endif
 412
 413       return bytes_read;
 414     }
 415 }
 416
 417 /**
 418  * Thin wrapper around the write() system call that writes a part of a
 419  * DBusString and handles EINTR for you.
 420  *
 421  * @param fd the file descriptor to write
 422  * @param buffer the buffer to write data from
 423  * @param start the first byte in the buffer to write
 424  * @param len the number of bytes to try to write
 425  * @returns the number of bytes written or -1 on error
 426  */
 427 int
 428 _dbus_write_socket (int               fd,
 429                     const DBusString *buffer,
 430                     int               start,
 431                     int               len)
 432 {
 433   const char *data;
 434   int bytes_written;
 435
 436   data = _dbus_string_get_const_data_len (buffer, start, len);
 437
 438  again:
 439
 440   _dbus_verbose ("send: len=%d fd=%d\n", len, fd);
 441   bytes_written = send (fd, data, len, 0);
 442
 443   if (bytes_written == SOCKET_ERROR)
 444     {
 445       DBUS_SOCKET_SET_ERRNO();
 446       _dbus_verbose ("send: failed: %s\n", _dbus_strerror_from_errno ());
 447       bytes_written = -1;
 448     }
 449     else
 450       _dbus_verbose ("send: = %d\n", bytes_written);
 451
 452   if (bytes_written < 0 && errno == EINTR)
 453     goto again;
 454
 455 #if 0
 456   if (bytes_written > 0)
 457     _dbus_verbose_bytes_of_string (buffer, start, bytes_written);
 458 #endif
 459
 460   return bytes_written;
 461 }
 462
 463
 464 /**
 465  * Closes a file descriptor.
 466  *
 467  * @param fd the file descriptor
 468  * @param error error object
 469  * @returns #FALSE if error set
 470  */
 471 dbus_bool_t
 472 _dbus_close_socket (int        fd,
 473                     DBusError *error)
 474 {
 475   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
 476
 477  again:
 478   if (closesocket (fd) == SOCKET_ERROR)
 479     {
 480       DBUS_SOCKET_SET_ERRNO ();
 481
 482       if (errno == EINTR)
 483         goto again;
 484
 485       dbus_set_error (error, _dbus_error_from_errno (errno),
 486                       "Could not close socket: socket=%d, , %s",
 487                       fd, _dbus_strerror_from_errno ());
 488       return FALSE;
 489     }
 490   _dbus_verbose ("_dbus_close_socket: socket=%d, \n", fd);
 491
 492   return TRUE;
 493 }
 494
 495 /**
 496  * Sets the file descriptor to be close
 497  * on exec. Should be called for all file
 498  * descriptors in D-Bus code.
 499  *
 500  * @param fd the file descriptor
 501  */
 502 void
 503 _dbus_fd_set_close_on_exec (intptr_t handle)
 504 {
 505   if ( !SetHandleInformation( (HANDLE) handle,
 506                         HANDLE_FLAG_INHERIT | HANDLE_FLAG_PROTECT_FROM_CLOSE,
 507                         0 /*disable both flags*/ ) )
 508     {
 509       _dbus_win_warn_win_error ("Disabling socket handle inheritance failed:", GetLastError());
 510     }
 511 }
 512
 513 /**
 514  * Sets a file descriptor to be nonblocking.
 515  *
 516  * @param fd the file descriptor.
 517  * @param error address of error location.
 518  * @returns #TRUE on success.
 519  */
 520 dbus_bool_t
 521 _dbus_set_fd_nonblocking (int             handle,
 522                           DBusError      *error)
 523 {
 524   u_long one = 1;
 525
 526   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
 527
 528   if (ioctlsocket (handle, FIONBIO, &one) == SOCKET_ERROR)
 529     {
 530       DBUS_SOCKET_SET_ERRNO ();
 531       dbus_set_error (error, _dbus_error_from_errno (errno),
 532                       "Failed to set socket %d:%d to nonblocking: %s", handle,
 533                       _dbus_strerror_from_errno ());
 534       return FALSE;
 535     }
 536
 537   return TRUE;
 538 }
 539
 540
 541 /**
 542  * Like _dbus_write() but will use writev() if possible
 543  * to write both buffers in sequence. The return value
 544  * is the number of bytes written in the first buffer,
 545  * plus the number written in the second. If the first
 546  * buffer is written successfully and an error occurs
 547  * writing the second, the number of bytes in the first
 548  * is returned (i.e. the error is ignored), on systems that
 549  * don't have writev. Handles EINTR for you.
 550  * The second buffer may be #NULL.
 551  *
 552  * @param fd the file descriptor
 553  * @param buffer1 first buffer
 554  * @param start1 first byte to write in first buffer
 555  * @param len1 number of bytes to write from first buffer
 556  * @param buffer2 second buffer, or #NULL
 557  * @param start2 first byte to write in second buffer
 558  * @param len2 number of bytes to write in second buffer
 559  * @returns total bytes written from both buffers, or -1 on error
 560  */
 561 int
 562 _dbus_write_socket_two (int               fd,
 563                         const DBusString *buffer1,
 564                         int               start1,
 565                         int               len1,
 566                         const DBusString *buffer2,
 567                         int               start2,
 568                         int               len2)
 569 {
 570   WSABUF vectors[2];
 571   const char *data1;
 572   const char *data2;
 573   int rc;
 574   DWORD bytes_written;
 575
 576   _dbus_assert (buffer1 != NULL);
 577   _dbus_assert (start1 >= 0);
 578   _dbus_assert (start2 >= 0);
 579   _dbus_assert (len1 >= 0);
 580   _dbus_assert (len2 >= 0);
 581
 582
 583   data1 = _dbus_string_get_const_data_len (buffer1, start1, len1);
 584
 585   if (buffer2 != NULL)
 586     data2 = _dbus_string_get_const_data_len (buffer2, start2, len2);
 587   else
 588     {
 589       data2 = NULL;
 590       start2 = 0;
 591       len2 = 0;
 592     }
 593
 594   vectors[0].buf = (char*) data1;
 595   vectors[0].len = len1;
 596   vectors[1].buf = (char*) data2;
 597   vectors[1].len = len2;
 598
 599  again:
 600
 601   _dbus_verbose ("WSASend: len1+2=%d+%d fd=%d\n", len1, len2, fd);
 602   rc = WSASend (fd,
 603                 vectors,
 604                 data2 ? 2 : 1,
 605                 &bytes_written,
 606                 0,
 607                 NULL,
 608                 NULL);
 609
 610   if (rc == SOCKET_ERROR)
 611     {
 612       DBUS_SOCKET_SET_ERRNO ();
 613       _dbus_verbose ("WSASend: failed: %s\n", _dbus_strerror_from_errno ());
 614       bytes_written = -1;
 615     }
 616   else
 617     _dbus_verbose ("WSASend: = %ld\n", bytes_written);
 618
 619   if (bytes_written < 0 && errno == EINTR)
 620     goto again;
 621
 622   return bytes_written;
 623 }
 624
 625 dbus_bool_t
 626 _dbus_socket_is_invalid (int fd)
 627 {
 628     return fd == INVALID_SOCKET ? TRUE : FALSE;
 629 }
 630
 631 #if 0
 632
 633 /**
 634  * Opens the client side of a Windows named pipe. The connection D-BUS
 635  * file descriptor index is returned. It is set up as nonblocking.
 636  *
 637  * @param path the path to named pipe socket
 638  * @param error return location for error code
 639  * @returns connection D-BUS file descriptor or -1 on error
 640  */
 641 int
 642 _dbus_connect_named_pipe (const char     *path,
 643                           DBusError      *error)
 644 {
 645   _dbus_assert_not_reached ("not implemented");
 646 }
 647
 648 #endif
 649
 650
 651
 652 void
 653 _dbus_win_startup_winsock (void)
 654 {
 655   /* Straight from MSDN, deuglified */
 656
 657   static dbus_bool_t beenhere = FALSE;
 658
 659   WORD wVersionRequested;
 660   WSADATA wsaData;
 661   int err;
 662
 663   if (beenhere)
 664     return;
 665
 666   wVersionRequested = MAKEWORD (2, 0);
 667
 668   err = WSAStartup (wVersionRequested, &wsaData);
 669   if (err != 0)
 670     {
 671       _dbus_assert_not_reached ("Could not initialize WinSock");
 672       _dbus_abort ();
 673     }
 674
 675   /* Confirm that the WinSock DLL supports 2.0.  Note that if the DLL
 676    * supports versions greater than 2.0 in addition to 2.0, it will
 677    * still return 2.0 in wVersion since that is the version we
 678    * requested.
 679    */
 680   if (LOBYTE (wsaData.wVersion) != 2 ||
 681       HIBYTE (wsaData.wVersion) != 0)
 682     {
 683       _dbus_assert_not_reached ("No usable WinSock found");
 684       _dbus_abort ();
 685     }
 686
 687   beenhere = TRUE;
 688 }
 689
 690
 691
 692
 693
 694
 695
 696
 697
 698 /************************************************************************
 699
 700  UTF / string code
 701
 702  ************************************************************************/
 703
 704 /**
 705  * Measure the message length without terminating nul
 706  */
 707 int _dbus_printf_string_upper_bound (const char *format,
 708                                      va_list args)
 709 {
 710   /* MSVCRT's vsnprintf semantics are a bit different */
 711   char buf[1024];
 712   int bufsize;
 713   int len;
 714   va_list args_copy;
 715
 716   bufsize = sizeof (buf);
 717   DBUS_VA_COPY (args_copy, args);
 718   len = _vsnprintf (buf, bufsize - 1, format, args_copy);
 719   va_end (args_copy);
 720
 721   while (len == -1) /* try again */
 722     {
 723       char *p;
 724
 725       bufsize *= 2;
 726
 727       p = malloc (bufsize);
 728
 729       if (p == NULL)
 730         return -1;
 731
 732       DBUS_VA_COPY (args_copy, args);
 733       len = _vsnprintf (p, bufsize - 1, format, args_copy);
 734       va_end (args_copy);
 735       free (p);
 736     }
 737
 738   return len;
 739 }
 740
 741
 742 /**
 743  * Returns the UTF-16 form of a UTF-8 string. The result should be
 744  * freed with dbus_free() when no longer needed.
 745  *
 746  * @param str the UTF-8 string
 747  * @param error return location for error code
 748  */
 749 wchar_t *
 750 _dbus_win_utf8_to_utf16 (const char *str,
 751                          DBusError  *error)
 752 {
 753   DBusString s;
 754   int n;
 755   wchar_t *retval;
 756
 757   _dbus_string_init_const (&s, str);
 758
 759   if (!_dbus_string_validate_utf8 (&s, 0, _dbus_string_get_length (&s)))
 760     {
 761       dbus_set_error_const (error, DBUS_ERROR_FAILED, "Invalid UTF-8");
 762       return NULL;
 763     }
 764
 765   n = MultiByteToWideChar (CP_UTF8, 0, str, -1, NULL, 0);
 766
 767   if (n == 0)
 768     {
 769       _dbus_win_set_error_from_win_error (error, GetLastError ());
 770       return NULL;
 771     }
 772
 773   retval = dbus_new (wchar_t, n);
 774
 775   if (!retval)
 776     {
 777       _DBUS_SET_OOM (error);
 778       return NULL;
 779     }
 780
 781   if (MultiByteToWideChar (CP_UTF8, 0, str, -1, retval, n) != n)
 782     {
 783       dbus_free (retval);
 784       dbus_set_error_const (error, DBUS_ERROR_FAILED, "MultiByteToWideChar inconsistency");
 785       return NULL;
 786     }
 787
 788   return retval;
 789 }
 790
 791 /**
 792  * Returns the UTF-8 form of a UTF-16 string. The result should be
 793  * freed with dbus_free() when no longer needed.
 794  *
 795  * @param str the UTF-16 string
 796  * @param error return location for error code
 797  */
 798 char *
 799 _dbus_win_utf16_to_utf8 (const wchar_t *str,
 800                          DBusError     *error)
 801 {
 802   int n;
 803   char *retval;
 804
 805   n = WideCharToMultiByte (CP_UTF8, 0, str, -1, NULL, 0, NULL, NULL);
 806
 807   if (n == 0)
 808     {
 809       _dbus_win_set_error_from_win_error (error, GetLastError ());
 810       return NULL;
 811     }
 812
 813   retval = dbus_malloc (n);
 814
 815   if (!retval)
 816     {
 817       _DBUS_SET_OOM (error);
 818       return NULL;
 819     }
 820
 821   if (WideCharToMultiByte (CP_UTF8, 0, str, -1, retval, n, NULL, NULL) != n)
 822     {
 823       dbus_free (retval);
 824       dbus_set_error_const (error, DBUS_ERROR_FAILED, "WideCharToMultiByte inconsistency");
 825       return NULL;
 826     }
 827
 828   return retval;
 829 }
 830
 831
 832
 833
 834
 835
 836 /************************************************************************
 837
 838
 839  ************************************************************************/
 840
 841 dbus_bool_t
 842 _dbus_win_account_to_sid (const wchar_t *waccount,
 843                           void           **ppsid,
 844                           DBusError       *error)
 845 {
 846   dbus_bool_t retval = FALSE;
 847   DWORD sid_length, wdomain_length;
 848   SID_NAME_USE use;
 849   wchar_t *wdomain;
 850
 851   *ppsid = NULL;
 852
 853   sid_length = 0;
 854   wdomain_length = 0;
 855   if (!LookupAccountNameW (NULL, waccount, NULL, &sid_length,
 856                            NULL, &wdomain_length, &use) &&
 857       GetLastError () != ERROR_INSUFFICIENT_BUFFER)
 858     {
 859       _dbus_win_set_error_from_win_error (error, GetLastError ());
 860       return FALSE;
 861     }
 862
 863   *ppsid = dbus_malloc (sid_length);
 864   if (!*ppsid)
 865     {
 866       _DBUS_SET_OOM (error);
 867       return FALSE;
 868     }
 869
 870   wdomain = dbus_new (wchar_t, wdomain_length);
 871   if (!wdomain)
 872     {
 873       _DBUS_SET_OOM (error);
 874       goto out1;
 875     }
 876
 877   if (!LookupAccountNameW (NULL, waccount, (PSID) *ppsid, &sid_length,
 878                            wdomain, &wdomain_length, &use))
 879     {
 880       _dbus_win_set_error_from_win_error (error, GetLastError ());
 881       goto out2;
 882     }
 883
 884   if (!IsValidSid ((PSID) *ppsid))
 885     {
 886       dbus_set_error_const (error, DBUS_ERROR_FAILED, "Invalid SID");
 887       goto out2;
 888     }
 889
 890   retval = TRUE;
 891
 892 out2:
 893   dbus_free (wdomain);
 894 out1:
 895   if (!retval)
 896     {
 897       dbus_free (*ppsid);
 898       *ppsid = NULL;
 899     }
 900
 901   return retval;
 902 }
 903
 904 /** @} end of sysdeps-win */
 905
 906
 907 /**
 908  * The only reason this is separate from _dbus_getpid() is to allow it
 909  * on Windows for logging but not for other purposes.
 910  *
 911  * @returns process ID to put in log messages
 912  */
 913 unsigned long
 914 _dbus_pid_for_log (void)
 915 {
 916   return _dbus_getpid ();
 917 }
 918
 919 #ifndef DBUS_WINCE
 920
 921 static BOOL is_winxp_sp3_or_lower()
 922 {
 923    OSVERSIONINFOEX osvi;
 924    DWORDLONG dwlConditionMask = 0;
 925    int op=VER_LESS_EQUAL;
 926
 927    // Initialize the OSVERSIONINFOEX structure.
 928
 929    ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));
 930    osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);
 931    osvi.dwMajorVersion = 5;
 932    osvi.dwMinorVersion = 1;
 933    osvi.wServicePackMajor = 3;
 934    osvi.wServicePackMinor = 0;
 935
 936    // Initialize the condition mask.
 937
 938    VER_SET_CONDITION( dwlConditionMask, VER_MAJORVERSION, op );
 939    VER_SET_CONDITION( dwlConditionMask, VER_MINORVERSION, op );
 940    VER_SET_CONDITION( dwlConditionMask, VER_SERVICEPACKMAJOR, op );
 941    VER_SET_CONDITION( dwlConditionMask, VER_SERVICEPACKMINOR, op );
 942
 943    // Perform the test.
 944
 945    return VerifyVersionInfo(
 946       &osvi,
 947       VER_MAJORVERSION | VER_MINORVERSION |
 948       VER_SERVICEPACKMAJOR | VER_SERVICEPACKMINOR,
 949       dwlConditionMask);
 950 }
 951
 952 /** Gets our SID
 953  * @param sid points to sid buffer, need to be freed with LocalFree()
 954  * @param process_id the process id for which the sid should be returned
 955  * @returns process sid
 956  */
 957 static dbus_bool_t
 958 _dbus_getsid(char **sid, dbus_pid_t process_id)
 959 {
 960   HANDLE process_token = INVALID_HANDLE_VALUE;
 961   TOKEN_USER *token_user = NULL;
 962   DWORD n;
 963   PSID psid;
 964   int retval = FALSE;
 965
 966   HANDLE process_handle = OpenProcess(is_winxp_sp3_or_lower() ? PROCESS_QUERY_INFORMATION : PROCESS_QUERY_LIMITED_INFORMATION, FALSE, process_id);
 967
 968   if (!OpenProcessToken (process_handle, TOKEN_QUERY, &process_token))
 969     {
 970       _dbus_win_warn_win_error ("OpenProcessToken failed", GetLastError ());
 971       goto failed;
 972     }
 973   if ((!GetTokenInformation (process_token, TokenUser, NULL, 0, &n)
 974             && GetLastError () != ERROR_INSUFFICIENT_BUFFER)
 975            || (token_user = alloca (n)) == NULL
 976            || !GetTokenInformation (process_token, TokenUser, token_user, n, &n))
 977     {
 978       _dbus_win_warn_win_error ("GetTokenInformation failed", GetLastError ());
 979       goto failed;
 980     }
 981   psid = token_user->User.Sid;
 982   if (!IsValidSid (psid))
 983     {
 984       _dbus_verbose("%s invalid sid\n",__FUNCTION__);
 985       goto failed;
 986     }
 987   if (!ConvertSidToStringSidA (psid, sid))
 988     {
 989       _dbus_verbose("%s invalid sid\n",__FUNCTION__);
 990       goto failed;
 991     }
 992 //okay:
 993   retval = TRUE;
 994
 995 failed:
 996   CloseHandle (process_handle);
 997   if (process_token != INVALID_HANDLE_VALUE)
 998     CloseHandle (process_token);
 999
1000   _dbus_verbose("_dbus_getsid() got '%s' and returns %d\n", *sid, retval);
1001   return retval;
1002 }
1003 #endif
1004
1005 /************************************************************************
1006
1007  pipes
1008
1009  ************************************************************************/
1010
1011 /**
1012  * Creates a full-duplex pipe (as in socketpair()).
1013  * Sets both ends of the pipe nonblocking.
1014  *
1015  * @param fd1 return location for one end
1016  * @param fd2 return location for the other end
1017  * @param blocking #TRUE if pipe should be blocking
1018  * @param error error return
1019  * @returns #FALSE on failure (if error is set)
1020  */
1021 dbus_bool_t
1022 _dbus_full_duplex_pipe (int        *fd1,
1023                         int        *fd2,
1024                         dbus_bool_t blocking,
1025                         DBusError  *error)
1026 {
1027   SOCKET temp, socket1 = -1, socket2 = -1;
1028   struct sockaddr_in saddr;
1029   int len;
1030   u_long arg;
1031
1032   _dbus_win_startup_winsock ();
1033
1034   temp = socket (AF_INET, SOCK_STREAM, 0);
1035   if (temp == INVALID_SOCKET)
1036     {
1037       DBUS_SOCKET_SET_ERRNO ();
1038       goto out0;
1039     }
1040
1041   _DBUS_ZERO (saddr);
1042   saddr.sin_family = AF_INET;
1043   saddr.sin_port = 0;
1044   saddr.sin_addr.s_addr = htonl (INADDR_LOOPBACK);
1045
1046   if (bind (temp, (struct sockaddr *)&saddr, sizeof (saddr)) == SOCKET_ERROR)
1047     {
1048       DBUS_SOCKET_SET_ERRNO ();
1049       goto out0;
1050     }
1051
1052   if (listen (temp, 1) == SOCKET_ERROR)
1053     {
1054       DBUS_SOCKET_SET_ERRNO ();
1055       goto out0;
1056     }
1057
1058   len = sizeof (saddr);
1059   if (getsockname (temp, (struct sockaddr *)&saddr, &len) == SOCKET_ERROR)
1060     {
1061       DBUS_SOCKET_SET_ERRNO ();
1062       goto out0;
1063     }
1064
1065   socket1 = socket (AF_INET, SOCK_STREAM, 0);
1066   if (socket1 == INVALID_SOCKET)
1067     {
1068       DBUS_SOCKET_SET_ERRNO ();
1069       goto out0;
1070     }
1071
1072   if (connect (socket1, (struct sockaddr  *)&saddr, len) == SOCKET_ERROR)
1073     {
1074       DBUS_SOCKET_SET_ERRNO ();
1075       goto out1;
1076     }
1077
1078   socket2 = accept (temp, (struct sockaddr *) &saddr, &len);
1079   if (socket2 == INVALID_SOCKET)
1080     {
1081       DBUS_SOCKET_SET_ERRNO ();
1082       goto out1;
1083     }
1084
1085   if (!blocking)
1086     {
1087       arg = 1;
1088       if (ioctlsocket (socket1, FIONBIO, &arg) == SOCKET_ERROR)
1089         {
1090           DBUS_SOCKET_SET_ERRNO ();
1091           goto out2;
1092         }
1093
1094       arg = 1;
1095       if (ioctlsocket (socket2, FIONBIO, &arg) == SOCKET_ERROR)
1096         {
1097           DBUS_SOCKET_SET_ERRNO ();
1098           goto out2;
1099         }
1100     }
1101
1102   *fd1 = socket1;
1103   *fd2 = socket2;
1104
1105   _dbus_verbose ("full-duplex pipe %d:%d <-> %d:%d\n",
1106                  *fd1, socket1, *fd2, socket2);
1107
1108   closesocket (temp);
1109
1110   return TRUE;
1111
1112 out2:
1113   closesocket (socket2);
1114 out1:
1115   closesocket (socket1);
1116 out0:
1117   closesocket (temp);
1118
1119   dbus_set_error (error, _dbus_error_from_errno (errno),
1120                   "Could not setup socket pair: %s",
1121                   _dbus_strerror_from_errno ());
1122
1123   return FALSE;
1124 }
1125
1126 /**
1127  * Wrapper for poll().
1128  *
1129  * @param fds the file descriptors to poll
1130  * @param n_fds number of descriptors in the array
1131  * @param timeout_milliseconds timeout or -1 for infinite
1132  * @returns numbers of fds with revents, or <0 on error
1133  */
1134 int
1135 _dbus_poll (DBusPollFD *fds,
1136             int         n_fds,
1137             int         timeout_milliseconds)
1138 {
1139 #define USE_CHRIS_IMPL 0
1140
1141 #if USE_CHRIS_IMPL
1142
1143 #define DBUS_POLL_CHAR_BUFFER_SIZE 2000
1144   char msg[DBUS_POLL_CHAR_BUFFER_SIZE];
1145   char *msgp;
1146
1147   int ret = 0;
1148   int i;
1149   struct timeval tv;
1150   int ready;
1151
1152 #define DBUS_STACK_WSAEVENTS 256
1153   WSAEVENT eventsOnStack[DBUS_STACK_WSAEVENTS];
1154   WSAEVENT *pEvents = NULL;
1155   if (n_fds > DBUS_STACK_WSAEVENTS)
1156     pEvents = calloc(sizeof(WSAEVENT), n_fds);
1157   else
1158     pEvents = eventsOnStack;
1159
1160
1161 #ifdef DBUS_ENABLE_VERBOSE_MODE
1162   msgp = msg;
1163   msgp += sprintf (msgp, "WSAEventSelect: to=%d\n\t", timeout_milliseconds);
1164   for (i = 0; i < n_fds; i++)
1165     {
1166       DBusPollFD *fdp = &fds[i];
1167
1168
1169       if (fdp->events & _DBUS_POLLIN)
1170         msgp += sprintf (msgp, "R:%d ", fdp->fd);
1171
1172       if (fdp->events & _DBUS_POLLOUT)
1173         msgp += sprintf (msgp, "W:%d ", fdp->fd);
1174
1175       msgp += sprintf (msgp, "E:%d\n\t", fdp->fd);
1176
1177       // FIXME: more robust code for long  msg
1178       //        create on heap when msg[] becomes too small
1179       if (msgp >= msg + DBUS_POLL_CHAR_BUFFER_SIZE)
1180         {
1181           _dbus_assert_not_reached ("buffer overflow in _dbus_poll");
1182         }
1183     }
1184
1185   msgp += sprintf (msgp, "\n");
1186   _dbus_verbose ("%s",msg);
1187 #endif
1188   for (i = 0; i < n_fds; i++)
1189     {
1190       DBusPollFD *fdp = &fds[i];
1191       WSAEVENT ev;
1192       long lNetworkEvents = FD_OOB;
1193
1194       ev = WSACreateEvent();
1195
1196       if (fdp->events & _DBUS_POLLIN)
1197         lNetworkEvents |= FD_READ | FD_ACCEPT | FD_CLOSE;
1198
1199       if (fdp->events & _DBUS_POLLOUT)
1200         lNetworkEvents |= FD_WRITE | FD_CONNECT;
1201
1202       WSAEventSelect(fdp->fd, ev, lNetworkEvents);
1203
1204       pEvents[i] = ev;
1205     }
1206
1207
1208   ready = WSAWaitForMultipleEvents (n_fds, pEvents, FALSE, timeout_milliseconds, FALSE);
1209
1210   if (DBUS_SOCKET_API_RETURNS_ERROR (ready))
1211     {
1212       DBUS_SOCKET_SET_ERRNO ();
1213       if (errno != WSAEWOULDBLOCK)
1214         _dbus_verbose ("WSAWaitForMultipleEvents: failed: %s\n", _dbus_strerror_from_errno ());
1215       ret = -1;
1216     }
1217   else if (ready == WSA_WAIT_TIMEOUT)
1218     {
1219       _dbus_verbose ("WSAWaitForMultipleEvents: WSA_WAIT_TIMEOUT\n");
1220       ret = 0;
1221     }
1222   else if (ready >= WSA_WAIT_EVENT_0 && ready < (int)(WSA_WAIT_EVENT_0 + n_fds))
1223     {
1224       msgp = msg;
1225       msgp += sprintf (msgp, "WSAWaitForMultipleEvents: =%d\n\t", ready);
1226
1227       for (i = 0; i < n_fds; i++)
1228         {
1229           DBusPollFD *fdp = &fds[i];
1230           WSANETWORKEVENTS ne;
1231
1232           fdp->revents = 0;
1233
1234           WSAEnumNetworkEvents(fdp->fd, pEvents[i], &ne);
1235
1236           if (ne.lNetworkEvents & (FD_READ | FD_ACCEPT | FD_CLOSE))
1237             fdp->revents |= _DBUS_POLLIN;
1238
1239           if (ne.lNetworkEvents & (FD_WRITE | FD_CONNECT))
1240             fdp->revents |= _DBUS_POLLOUT;
1241
1242           if (ne.lNetworkEvents & (FD_OOB))
1243             fdp->revents |= _DBUS_POLLERR;
1244
1245           if (ne.lNetworkEvents & (FD_READ | FD_ACCEPT | FD_CLOSE))
1246               msgp += sprintf (msgp, "R:%d ", fdp->fd);
1247
1248           if (ne.lNetworkEvents & (FD_WRITE | FD_CONNECT))
1249               msgp += sprintf (msgp, "W:%d ", fdp->fd);
1250
1251           if (ne.lNetworkEvents & (FD_OOB))
1252               msgp += sprintf (msgp, "E:%d ", fdp->fd);
1253
1254           msgp += sprintf (msgp, "lNetworkEvents:%d ", ne.lNetworkEvents);
1255
1256           if(ne.lNetworkEvents)
1257             ret++;
1258
1259           WSAEventSelect(fdp->fd, pEvents[i], 0);
1260         }
1261
1262       msgp += sprintf (msgp, "\n");
1263       _dbus_verbose ("%s",msg);
1264     }
1265   else
1266     {
1267       _dbus_verbose ("WSAWaitForMultipleEvents: failed for unknown reason!");
1268       ret = -1;
1269     }
1270
1271   for(i = 0; i < n_fds; i++)
1272     {
1273       WSACloseEvent(pEvents[i]);
1274     }
1275
1276   if (n_fds > DBUS_STACK_WSAEVENTS)
1277     free(pEvents);
1278
1279   return ret;
1280
1281 #else   /* USE_CHRIS_IMPL */
1282
1283 #define DBUS_POLL_CHAR_BUFFER_SIZE 2000
1284   char msg[DBUS_POLL_CHAR_BUFFER_SIZE];
1285   char *msgp;
1286
1287   fd_set read_set, write_set, err_set;
1288   int max_fd = 0;
1289   int i;
1290   struct timeval tv;
1291   int ready;
1292
1293   FD_ZERO (&read_set);
1294   FD_ZERO (&write_set);
1295   FD_ZERO (&err_set);
1296
1297
1298 #ifdef DBUS_ENABLE_VERBOSE_MODE
1299   msgp = msg;
1300   msgp += sprintf (msgp, "select: to=%d\n\t", timeout_milliseconds);
1301   for (i = 0; i < n_fds; i++)
1302     {
1303       DBusPollFD *fdp = &fds[i];
1304
1305
1306       if (fdp->events & _DBUS_POLLIN)
1307         msgp += sprintf (msgp, "R:%d ", fdp->fd);
1308
1309       if (fdp->events & _DBUS_POLLOUT)
1310         msgp += sprintf (msgp, "W:%d ", fdp->fd);
1311
1312       msgp += sprintf (msgp, "E:%d\n\t", fdp->fd);
1313
1314       // FIXME: more robust code for long  msg
1315       //        create on heap when msg[] becomes too small
1316       if (msgp >= msg + DBUS_POLL_CHAR_BUFFER_SIZE)
1317         {
1318           _dbus_assert_not_reached ("buffer overflow in _dbus_poll");
1319         }
1320     }
1321
1322   msgp += sprintf (msgp, "\n");
1323   _dbus_verbose ("%s",msg);
1324 #endif
1325   for (i = 0; i < n_fds; i++)
1326     {
1327       DBusPollFD *fdp = &fds[i];
1328
1329       if (fdp->events & _DBUS_POLLIN)
1330         FD_SET (fdp->fd, &read_set);
1331
1332       if (fdp->events & _DBUS_POLLOUT)
1333         FD_SET (fdp->fd, &write_set);
1334
1335       FD_SET (fdp->fd, &err_set);
1336
1337       max_fd = MAX (max_fd, fdp->fd);
1338     }
1339
1340   // Avoid random lockups with send(), for lack of a better solution so far
1341   tv.tv_sec = timeout_milliseconds < 0 ? 1 : timeout_milliseconds / 1000;
1342   tv.tv_usec = timeout_milliseconds < 0 ? 0 : (timeout_milliseconds % 1000) * 1000;
1343
1344   ready = select (max_fd + 1, &read_set, &write_set, &err_set, &tv);
1345
1346   if (DBUS_SOCKET_API_RETURNS_ERROR (ready))
1347     {
1348       DBUS_SOCKET_SET_ERRNO ();
1349       if (errno != WSAEWOULDBLOCK)
1350         _dbus_verbose ("select: failed: %s\n", _dbus_strerror_from_errno ());
1351     }
1352   else if (ready == 0)
1353     _dbus_verbose ("select: = 0\n");
1354   else
1355     if (ready > 0)
1356       {
1357 #ifdef DBUS_ENABLE_VERBOSE_MODE
1358         msgp = msg;
1359         msgp += sprintf (msgp, "select: = %d:\n\t", ready);
1360
1361         for (i = 0; i < n_fds; i++)
1362           {
1363             DBusPollFD *fdp = &fds[i];
1364
1365             if (FD_ISSET (fdp->fd, &read_set))
1366               msgp += sprintf (msgp, "R:%d ", fdp->fd);
1367
1368             if (FD_ISSET (fdp->fd, &write_set))
1369               msgp += sprintf (msgp, "W:%d ", fdp->fd);
1370
1371             if (FD_ISSET (fdp->fd, &err_set))
1372               msgp += sprintf (msgp, "E:%d\n\t", fdp->fd);
1373           }
1374         msgp += sprintf (msgp, "\n");
1375         _dbus_verbose ("%s",msg);
1376 #endif
1377
1378         for (i = 0; i < n_fds; i++)
1379           {
1380             DBusPollFD *fdp = &fds[i];
1381
1382             fdp->revents = 0;
1383
1384             if (FD_ISSET (fdp->fd, &read_set))
1385               fdp->revents |= _DBUS_POLLIN;
1386
1387             if (FD_ISSET (fdp->fd, &write_set))
1388               fdp->revents |= _DBUS_POLLOUT;
1389
1390             if (FD_ISSET (fdp->fd, &err_set))
1391               fdp->revents |= _DBUS_POLLERR;
1392           }
1393       }
1394   return ready;
1395 #endif  /* USE_CHRIS_IMPL */
1396 }
1397
1398
1399
1400
1401 /******************************************************************************
1402
1403 Original CVS version of dbus-sysdeps.c
1404
1405 ******************************************************************************/
1406 /* -*- mode: C; c-file-style: "gnu"; indent-tabs-mode: nil; -*- */
1407 /* dbus-sysdeps.c Wrappers around system/libc features (internal to D-Bus implementation)
1408  *
1409  * Copyright (C) 2002, 2003  Red Hat, Inc.
1410  * Copyright (C) 2003 CodeFactory AB
1411  * Copyright (C) 2005 Novell, Inc.
1412  *
1413  * Licensed under the Academic Free License version 2.1
1414  *
1415  * This program is free software; you can redistribute it and/or modify
1416  * it under the terms of the GNU General Public License as published by
1417  * the Free Software Foundation; either version 2 of the License, or
1418  * (at your option) any later version.
1419  *
1420  * This program is distributed in the hope that it will be useful,
1421  * but WITHOUT ANY WARRANTY; without even the implied warranty of
1422  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
1423  * GNU General Public License for more details.
1424  *
1425  * You should have received a copy of the GNU General Public License
1426  * along with this program; if not, write to the Free Software
1427  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
1428  *
1429  */
1430
1431
1432 /**
1433  * Exit the process, returning the given value.
1434  *
1435  * @param code the exit code
1436  */
1437 void
1438 _dbus_exit (int code)
1439 {
1440   _exit (code);
1441 }
1442
1443 /**
1444  * Creates a socket and connects to a socket at the given host
1445  * and port. The connection fd is returned, and is set up as
1446  * nonblocking.
1447  *
1448  * @param host the host name to connect to
1449  * @param port the port to connect to
1450  * @param family the address family to listen on, NULL for all
1451  * @param error return location for error code
1452  * @returns connection file descriptor or -1 on error
1453  */
1454 int
1455 _dbus_connect_tcp_socket (const char     *host,
1456                           const char     *port,
1457                           const char     *family,
1458                           DBusError      *error)
1459 {
1460   return _dbus_connect_tcp_socket_with_nonce (host, port, family, (const char*)NULL, error);
1461 }
1462
1463 int
1464 _dbus_connect_tcp_socket_with_nonce (const char     *host,
1465                                      const char     *port,
1466                                      const char     *family,
1467                                      const char     *noncefile,
1468                                      DBusError      *error)
1469 {
1470   int fd = -1, res;
1471   struct addrinfo hints;
1472   struct addrinfo *ai, *tmp;
1473
1474   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
1475
1476   _dbus_win_startup_winsock ();
1477
1478   _DBUS_ZERO (hints);
1479
1480   if (!family)
1481     hints.ai_family = AF_UNSPEC;
1482   else if (!strcmp(family, "ipv4"))
1483     hints.ai_family = AF_INET;
1484   else if (!strcmp(family, "ipv6"))
1485     hints.ai_family = AF_INET6;
1486   else
1487     {
1488       dbus_set_error (error,
1489                       DBUS_ERROR_INVALID_ARGS,
1490                       "Unknown address family %s", family);
1491       return -1;
1492     }
1493   hints.ai_protocol = IPPROTO_TCP;
1494   hints.ai_socktype = SOCK_STREAM;
1495 #ifdef AI_ADDRCONFIG
1496   hints.ai_flags = AI_ADDRCONFIG;
1497 #else
1498   hints.ai_flags = 0;
1499 #endif
1500
1501   if ((res = getaddrinfo(host, port, &hints, &ai)) != 0 || !ai)
1502     {
1503       dbus_set_error (error,
1504                       _dbus_error_from_errno (res),
1505                       "Failed to lookup host/port: \"%s:%s\": %s (%d)",
1506                       host, port, _dbus_strerror(res), res);
1507       return -1;
1508     }
1509
1510   tmp = ai;
1511   while (tmp)
1512     {
1513       if ((fd = socket (tmp->ai_family, SOCK_STREAM, 0)) == INVALID_SOCKET)
1514         {
1515           DBUS_SOCKET_SET_ERRNO ();
1516           dbus_set_error (error,
1517                           _dbus_error_from_errno (errno),
1518                           "Failed to open socket: %s",
1519                           _dbus_strerror_from_errno ());
1520           freeaddrinfo(ai);
1521           return -1;
1522         }
1523       _DBUS_ASSERT_ERROR_IS_CLEAR(error);
1524
1525       if (connect (fd, (struct sockaddr*) tmp->ai_addr, tmp->ai_addrlen) == SOCKET_ERROR)
1526         {
1527           DBUS_SOCKET_SET_ERRNO ();
1528           closesocket(fd);
1529           fd = -1;
1530           tmp = tmp->ai_next;
1531           continue;
1532         }
1533
1534       break;
1535     }
1536   freeaddrinfo(ai);
1537
1538   if (fd == -1)
1539     {
1540       dbus_set_error (error,
1541                       _dbus_error_from_errno (errno),
1542                       "Failed to connect to socket \"%s:%s\" %s",
1543                       host, port, _dbus_strerror_from_errno ());
1544       return -1;
1545     }
1546
1547   if (noncefile != NULL)
1548     {
1549       DBusString noncefileStr;
1550       dbus_bool_t ret;
1551       if (!_dbus_string_init (&noncefileStr) ||
1552           !_dbus_string_append(&noncefileStr, noncefile))
1553         {
1554           closesocket (fd);
1555           dbus_set_error (error, DBUS_ERROR_NO_MEMORY, NULL);
1556           return -1;
1557         }
1558
1559       ret = _dbus_send_nonce (fd, &noncefileStr, error);
1560
1561       _dbus_string_free (&noncefileStr);
1562
1563       if (!ret)
1564         {
1565           closesocket (fd);
1566           return -1;
1567         }
1568     }
1569
1570   _dbus_fd_set_close_on_exec (fd);
1571
1572   if (!_dbus_set_fd_nonblocking (fd, error))
1573     {
1574       closesocket (fd);
1575       return -1;
1576     }
1577
1578   return fd;
1579 }
1580
1581 /**
1582  * Creates a socket and binds it to the given path, then listens on
1583  * the socket. The socket is set to be nonblocking.  In case of port=0
1584  * a random free port is used and returned in the port parameter.
1585  * If inaddr_any is specified, the hostname is ignored.
1586  *
1587  * @param host the host name to listen on
1588  * @param port the port to listen on, if zero a free port will be used
1589  * @param family the address family to listen on, NULL for all
1590  * @param retport string to return the actual port listened on
1591  * @param fds_p location to store returned file descriptors
1592  * @param error return location for errors
1593  * @returns the number of listening file descriptors or -1 on error
1594  */
1595
1596 int
1597 _dbus_listen_tcp_socket (const char     *host,
1598                          const char     *port,
1599                          const char     *family,
1600                          DBusString     *retport,
1601                          int           **fds_p,
1602                          DBusError      *error)
1603 {
1604   int nlisten_fd = 0, *listen_fd = NULL, res, i, port_num = -1;
1605   struct addrinfo hints;
1606   struct addrinfo *ai, *tmp;
1607
1608   // On Vista, sockaddr_gen must be a sockaddr_in6, and not a sockaddr_in6_old
1609   //That's required for family == IPv6(which is the default on Vista if family is not given)
1610   //So we use our own union instead of sockaddr_gen:
1611
1612   typedef union {
1613         struct sockaddr Address;
1614         struct sockaddr_in AddressIn;
1615         struct sockaddr_in6 AddressIn6;
1616   } mysockaddr_gen;
1617
1618   *fds_p = NULL;
1619   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
1620
1621   _dbus_win_startup_winsock ();
1622
1623   _DBUS_ZERO (hints);
1624
1625   if (!family)
1626     hints.ai_family = AF_UNSPEC;
1627   else if (!strcmp(family, "ipv4"))
1628     hints.ai_family = AF_INET;
1629   else if (!strcmp(family, "ipv6"))
1630     hints.ai_family = AF_INET6;
1631   else
1632     {
1633       dbus_set_error (error,
1634                       DBUS_ERROR_INVALID_ARGS,
1635                       "Unknown address family %s", family);
1636       return -1;
1637     }
1638
1639   hints.ai_protocol = IPPROTO_TCP;
1640   hints.ai_socktype = SOCK_STREAM;
1641 #ifdef AI_ADDRCONFIG
1642   hints.ai_flags = AI_ADDRCONFIG | AI_PASSIVE;
1643 #else
1644   hints.ai_flags = AI_PASSIVE;
1645 #endif
1646
1647  redo_lookup_with_port:
1648   if ((res = getaddrinfo(host, port, &hints, &ai)) != 0 || !ai)
1649     {
1650       dbus_set_error (error,
1651                       _dbus_error_from_errno (res),
1652                       "Failed to lookup host/port: \"%s:%s\": %s (%d)",
1653                       host ? host : "*", port, _dbus_strerror(res), res);
1654       return -1;
1655     }
1656
1657   tmp = ai;
1658   while (tmp)
1659     {
1660       int fd = -1, *newlisten_fd;
1661       if ((fd = socket (tmp->ai_family, SOCK_STREAM, 0)) == INVALID_SOCKET)
1662         {
1663           DBUS_SOCKET_SET_ERRNO ();
1664           dbus_set_error (error,
1665                           _dbus_error_from_errno (errno),
1666                          "Failed to open socket: %s",
1667                          _dbus_strerror_from_errno ());
1668           goto failed;
1669         }
1670       _DBUS_ASSERT_ERROR_IS_CLEAR(error);
1671
1672       if (bind (fd, (struct sockaddr*) tmp->ai_addr, tmp->ai_addrlen) == SOCKET_ERROR)
1673         {
1674           DBUS_SOCKET_SET_ERRNO ();
1675           dbus_set_error (error, _dbus_error_from_errno (errno),
1676                           "Failed to bind socket \"%s:%s\": %s",
1677                           host ? host : "*", port, _dbus_strerror_from_errno ());
1678           closesocket (fd);
1679           goto failed;
1680     }
1681
1682       if (listen (fd, 30 /* backlog */) == SOCKET_ERROR)
1683         {
1684           DBUS_SOCKET_SET_ERRNO ();
1685           dbus_set_error (error, _dbus_error_from_errno (errno),
1686                           "Failed to listen on socket \"%s:%s\": %s",
1687                           host ? host : "*", port, _dbus_strerror_from_errno ());
1688           closesocket (fd);
1689           goto failed;
1690         }
1691
1692       newlisten_fd = dbus_realloc(listen_fd, sizeof(int)*(nlisten_fd+1));
1693       if (!newlisten_fd)
1694         {
1695           closesocket (fd);
1696           dbus_set_error (error, DBUS_ERROR_NO_MEMORY,
1697                           "Failed to allocate file handle array");
1698           goto failed;
1699         }
1700       listen_fd = newlisten_fd;
1701       listen_fd[nlisten_fd] = fd;
1702       nlisten_fd++;
1703
1704       if (!_dbus_string_get_length(retport))
1705         {
1706           /* If the user didn't specify a port, or used 0, then
1707              the kernel chooses a port. After the first address
1708              is bound to, we need to force all remaining addresses
1709              to use the same port */
1710           if (!port || !strcmp(port, "0"))
1711             {
1712               mysockaddr_gen addr;
1713               socklen_t addrlen = sizeof(addr);
1714               char portbuf[10];
1715
1716               if (getsockname(fd, &addr.Address, &addrlen) == SOCKET_ERROR)
1717                 {
1718                   DBUS_SOCKET_SET_ERRNO ();
1719                   dbus_set_error (error, _dbus_error_from_errno (errno),
1720                                   "Failed to resolve port \"%s:%s\": %s",
1721                                   host ? host : "*", port, _dbus_strerror_from_errno());
1722                   goto failed;
1723                 }
1724               snprintf( portbuf, sizeof( portbuf ) - 1, "%d", addr.AddressIn.sin_port );
1725               if (!_dbus_string_append(retport, portbuf))
1726                 {
1727                   dbus_set_error (error, DBUS_ERROR_NO_MEMORY, NULL);
1728                   goto failed;
1729                 }
1730
1731               /* Release current address list & redo lookup */
1732               port = _dbus_string_get_const_data(retport);
1733               freeaddrinfo(ai);
1734               goto redo_lookup_with_port;
1735             }
1736           else
1737             {
1738               if (!_dbus_string_append(retport, port))
1739                 {
1740                     dbus_set_error (error, DBUS_ERROR_NO_MEMORY, NULL);
1741                     goto failed;
1742                 }
1743             }
1744         }
1745
1746       tmp = tmp->ai_next;
1747     }
1748   freeaddrinfo(ai);
1749   ai = NULL;
1750
1751   if (!nlisten_fd)
1752     {
1753       _dbus_win_set_errno (WSAEADDRINUSE);
1754       dbus_set_error (error, _dbus_error_from_errno (errno),
1755                       "Failed to bind socket \"%s:%s\": %s",
1756                       host ? host : "*", port, _dbus_strerror_from_errno ());
1757       return -1;
1758     }
1759
1760   sscanf(_dbus_string_get_const_data(retport), "%d", &port_num);
1761
1762   for (i = 0 ; i < nlisten_fd ; i++)
1763     {
1764       _dbus_fd_set_close_on_exec (listen_fd[i]);
1765       if (!_dbus_set_fd_nonblocking (listen_fd[i], error))
1766         {
1767           goto failed;
1768         }
1769     }
1770
1771   *fds_p = listen_fd;
1772
1773   return nlisten_fd;
1774
1775  failed:
1776   if (ai)
1777     freeaddrinfo(ai);
1778   for (i = 0 ; i < nlisten_fd ; i++)
1779     closesocket (listen_fd[i]);
1780   dbus_free(listen_fd);
1781   return -1;
1782 }
1783
1784
1785 /**
1786  * Accepts a connection on a listening socket.
1787  * Handles EINTR for you.
1788  *
1789  * @param listen_fd the listen file descriptor
1790  * @returns the connection fd of the client, or -1 on error
1791  */
1792 int
1793 _dbus_accept  (int listen_fd)
1794 {
1795   int client_fd;
1796
1797  retry:
1798   client_fd = accept (listen_fd, NULL, NULL);
1799
1800   if (DBUS_SOCKET_IS_INVALID (client_fd))
1801     {
1802       DBUS_SOCKET_SET_ERRNO ();
1803       if (errno == EINTR)
1804         goto retry;
1805     }
1806
1807   _dbus_verbose ("client fd %d accepted\n", client_fd);
1808
1809   return client_fd;
1810 }
1811
1812
1813
1814
1815 dbus_bool_t
1816 _dbus_send_credentials_socket (int            handle,
1817                         DBusError      *error)
1818 {
1819 /* FIXME: for the session bus credentials shouldn't matter (?), but
1820  * for the system bus they are presumably essential. A rough outline
1821  * of a way to implement the credential transfer would be this:
1822  *
1823  * client waits to *read* a byte.
1824  *
1825  * server creates a named pipe with a random name, sends a byte
1826  * contining its length, and its name.
1827  *
1828  * client reads the name, connects to it (using Win32 API).
1829  *
1830  * server waits for connection to the named pipe, then calls
1831  * ImpersonateNamedPipeClient(), notes its now-current credentials,
1832  * calls RevertToSelf(), closes its handles to the named pipe, and
1833  * is done. (Maybe there is some other way to get the SID of a named
1834  * pipe client without having to use impersonation?)
1835  *
1836  * client closes its handles and is done.
1837  *
1838  * Ralf: Why not sending credentials over the given this connection ?
1839  * Using named pipes makes it impossible to be connected from a unix client.
1840  *
1841  */
1842   int bytes_written;
1843   DBusString buf;
1844
1845   _dbus_string_init_const_len (&buf, "\0", 1);
1846 again:
1847   bytes_written = _dbus_write_socket (handle, &buf, 0, 1 );
1848
1849   if (bytes_written < 0 && errno == EINTR)
1850     goto again;
1851
1852   if (bytes_written < 0)
1853     {
1854       dbus_set_error (error, _dbus_error_from_errno (errno),
1855                       "Failed to write credentials byte: %s",
1856                      _dbus_strerror_from_errno ());
1857       return FALSE;
1858     }
1859   else if (bytes_written == 0)
1860     {
1861       dbus_set_error (error, DBUS_ERROR_IO_ERROR,
1862                       "wrote zero bytes writing credentials byte");
1863       return FALSE;
1864     }
1865   else
1866     {
1867       _dbus_assert (bytes_written == 1);
1868       _dbus_verbose ("wrote 1 zero byte, credential sending isn't implemented yet\n");
1869       return TRUE;
1870     }
1871   return TRUE;
1872 }
1873
1874 /**
1875  * Reads a single byte which must be nul (an error occurs otherwise),
1876  * and reads unix credentials if available. Fills in pid/uid/gid with
1877  * -1 if no credentials are available. Return value indicates whether
1878  * a byte was read, not whether we got valid credentials. On some
1879  * systems, such as Linux, reading/writing the byte isn't actually
1880  * required, but we do it anyway just to avoid multiple codepaths.
1881  *
1882  * Fails if no byte is available, so you must select() first.
1883  *
1884  * The point of the byte is that on some systems we have to
1885  * use sendmsg()/recvmsg() to transmit credentials.
1886  *
1887  * @param client_fd the client file descriptor
1888  * @param credentials struct to fill with credentials of client
1889  * @param error location to store error code
1890  * @returns #TRUE on success
1891  */
1892 dbus_bool_t
1893 _dbus_read_credentials_socket  (int              handle,
1894                                 DBusCredentials *credentials,
1895                                 DBusError       *error)
1896 {
1897   int bytes_read = 0;
1898   DBusString buf;
1899
1900   char *sid = NULL;
1901   dbus_pid_t pid;
1902   int retval = FALSE;
1903
1904   // could fail due too OOM
1905   if (_dbus_string_init (&buf))
1906     {
1907       bytes_read = _dbus_read_socket (handle, &buf, 1 );
1908
1909       if (bytes_read > 0)
1910         _dbus_verbose ("got one zero byte from server\n");
1911
1912       _dbus_string_free (&buf);
1913     }
1914
1915   pid = _dbus_get_peer_pid_from_tcp_handle (handle);
1916   if (pid == 0)
1917     return TRUE;
1918
1919   _dbus_credentials_add_pid (credentials, pid);
1920
1921   if (_dbus_getsid (&sid, pid))
1922     {
1923       if (!_dbus_credentials_add_windows_sid (credentials, sid))
1924         goto out;
1925     }
1926
1927   retval = TRUE;
1928
1929 out:
1930   if (sid)
1931     LocalFree (sid);
1932
1933   return retval;
1934 }
1935
1936 /**
1937 * Checks to make sure the given directory is
1938 * private to the user
1939 *
1940 * @param dir the name of the directory
1941 * @param error error return
1942 * @returns #FALSE on failure
1943 **/
1944 dbus_bool_t
1945 _dbus_check_dir_is_private_to_user (DBusString *dir, DBusError *error)
1946 {
1947   /* TODO */
1948   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
1949   return TRUE;
1950 }
1951
1952
1953 /**
1954  * Appends the given filename to the given directory.
1955  *
1956  * @todo it might be cute to collapse multiple '/' such as "foo//"
1957  * concat "//bar"
1958  *
1959  * @param dir the directory name
1960  * @param next_component the filename
1961  * @returns #TRUE on success
1962  */
1963 dbus_bool_t
1964 _dbus_concat_dir_and_file (DBusString       *dir,
1965                            const DBusString *next_component)
1966 {
1967   dbus_bool_t dir_ends_in_slash;
1968   dbus_bool_t file_starts_with_slash;
1969
1970   if (_dbus_string_get_length (dir) == 0 ||
1971       _dbus_string_get_length (next_component) == 0)
1972     return TRUE;
1973
1974   dir_ends_in_slash =
1975     ('/' == _dbus_string_get_byte (dir, _dbus_string_get_length (dir) - 1) ||
1976      '\\' == _dbus_string_get_byte (dir, _dbus_string_get_length (dir) - 1));
1977
1978   file_starts_with_slash =
1979     ('/' == _dbus_string_get_byte (next_component, 0) ||
1980      '\\' == _dbus_string_get_byte (next_component, 0));
1981
1982   if (dir_ends_in_slash && file_starts_with_slash)
1983     {
1984       _dbus_string_shorten (dir, 1);
1985     }
1986   else if (!(dir_ends_in_slash || file_starts_with_slash))
1987     {
1988       if (!_dbus_string_append_byte (dir, '\\'))
1989         return FALSE;
1990     }
1991
1992   return _dbus_string_copy (next_component, 0, dir,
1993                             _dbus_string_get_length (dir));
1994 }
1995
1996 /*---------------- DBusCredentials ----------------------------------*/
1997
1998 /**
1999  * Adds the credentials corresponding to the given username.
2000  *
2001  * @param credentials credentials to fill in
2002  * @param username the username
2003  * @returns #TRUE if the username existed and we got some credentials
2004  */
2005 dbus_bool_t
2006 _dbus_credentials_add_from_user (DBusCredentials  *credentials,
2007                                      const DBusString *username)
2008 {
2009   return _dbus_credentials_add_windows_sid (credentials,
2010                     _dbus_string_get_const_data(username));
2011 }
2012
2013 /**
2014  * Adds the credentials of the current process to the
2015  * passed-in credentials object.
2016  *
2017  * @param credentials credentials to add to
2018  * @returns #FALSE if no memory; does not properly roll back on failure, so only some credentials may have been added
2019  */
2020
2021 dbus_bool_t
2022 _dbus_credentials_add_from_current_process (DBusCredentials *credentials)
2023 {
2024   dbus_bool_t retval = FALSE;
2025   char *sid = NULL;
2026
2027   if (!_dbus_getsid(&sid, _dbus_getpid()))
2028     goto failed;
2029
2030   if (!_dbus_credentials_add_pid (credentials, _dbus_getpid()))
2031     goto failed;
2032
2033   if (!_dbus_credentials_add_windows_sid (credentials,sid))
2034     goto failed;
2035
2036   retval = TRUE;
2037   goto end;
2038 failed:
2039   retval = FALSE;
2040 end:
2041   if (sid)
2042     LocalFree(sid);
2043
2044   return retval;
2045 }
2046
2047 /**
2048  * Append to the string the identity we would like to have when we
2049  * authenticate, on UNIX this is the current process UID and on
2050  * Windows something else, probably a Windows SID string.  No escaping
2051  * is required, that is done in dbus-auth.c. The username here
2052  * need not be anything human-readable, it can be the machine-readable
2053  * form i.e. a user id.
2054  *
2055  * @param str the string to append to
2056  * @returns #FALSE on no memory
2057  * @todo to which class belongs this
2058  */
2059 dbus_bool_t
2060 _dbus_append_user_from_current_process (DBusString *str)
2061 {
2062   dbus_bool_t retval = FALSE;
2063   char *sid = NULL;
2064
2065   if (!_dbus_getsid(&sid, _dbus_getpid()))
2066     return FALSE;
2067
2068   retval = _dbus_string_append (str,sid);
2069
2070   LocalFree(sid);
2071   return retval;
2072 }
2073
2074 /**
2075  * Gets our process ID
2076  * @returns process ID
2077  */
2078 dbus_pid_t
2079 _dbus_getpid (void)
2080 {
2081   return GetCurrentProcessId ();
2082 }
2083
2084 /** nanoseconds in a second */
2085 #define NANOSECONDS_PER_SECOND       1000000000
2086 /** microseconds in a second */
2087 #define MICROSECONDS_PER_SECOND      1000000
2088 /** milliseconds in a second */
2089 #define MILLISECONDS_PER_SECOND      1000
2090 /** nanoseconds in a millisecond */
2091 #define NANOSECONDS_PER_MILLISECOND  1000000
2092 /** microseconds in a millisecond */
2093 #define MICROSECONDS_PER_MILLISECOND 1000
2094
2095 /**
2096  * Sleeps the given number of milliseconds.
2097  * @param milliseconds number of milliseconds
2098  */
2099 void
2100 _dbus_sleep_milliseconds (int milliseconds)
2101 {
2102   Sleep (milliseconds);
2103 }
2104
2105
2106 /**
2107  * Get current time, as in gettimeofday(). Never uses the monotonic
2108  * clock.
2109  *
2110  * @param tv_sec return location for number of seconds
2111  * @param tv_usec return location for number of microseconds
2112  */
2113 void
2114 _dbus_get_real_time (long *tv_sec,
2115                      long *tv_usec)
2116 {
2117   FILETIME ft;
2118   dbus_uint64_t time64;
2119
2120   GetSystemTimeAsFileTime (&ft);
2121
2122   memcpy (&time64, &ft, sizeof (time64));
2123
2124   /* Convert from 100s of nanoseconds since 1601-01-01
2125   * to Unix epoch. Yes, this is Y2038 unsafe.
2126   */
2127   time64 -= DBUS_INT64_CONSTANT (116444736000000000);
2128   time64 /= 10;
2129
2130   if (tv_sec)
2131     *tv_sec = time64 / 1000000;
2132
2133   if (tv_usec)
2134     *tv_usec = time64 % 1000000;
2135 }
2136
2137 /**
2138  * Get current time, as in gettimeofday(). Use the monotonic clock if
2139  * available, to avoid problems when the system time changes.
2140  *
2141  * @param tv_sec return location for number of seconds
2142  * @param tv_usec return location for number of microseconds
2143  */
2144 void
2145 _dbus_get_monotonic_time (long *tv_sec,
2146                           long *tv_usec)
2147 {
2148   /* no implementation yet, fall back to wall-clock time */
2149   _dbus_get_real_time (tv_sec, tv_usec);
2150 }
2151
2152 /**
2153  * signal (SIGPIPE, SIG_IGN);
2154  */
2155 void
2156 _dbus_disable_sigpipe (void)
2157 {
2158 }
2159
2160 /**
2161  * Creates a directory; succeeds if the directory
2162  * is created or already existed.
2163  *
2164  * @param filename directory filename
2165  * @param error initialized error object
2166  * @returns #TRUE on success
2167  */
2168 dbus_bool_t
2169 _dbus_create_directory (const DBusString *filename,
2170                         DBusError        *error)
2171 {
2172   const char *filename_c;
2173
2174   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
2175
2176   filename_c = _dbus_string_get_const_data (filename);
2177
2178   if (!CreateDirectoryA (filename_c, NULL))
2179     {
2180       if (GetLastError () == ERROR_ALREADY_EXISTS)
2181         return TRUE;
2182
2183       dbus_set_error (error, DBUS_ERROR_FAILED,
2184                       "Failed to create directory %s: %s\n",
2185                       filename_c, _dbus_strerror_from_errno ());
2186       return FALSE;
2187     }
2188   else
2189     return TRUE;
2190 }
2191
2192
2193 /**
2194  * Generates the given number of random bytes,
2195  * using the best mechanism we can come up with.
2196  *
2197  * @param str the string
2198  * @param n_bytes the number of random bytes to append to string
2199  * @returns #TRUE on success, #FALSE if no memory
2200  */
2201 dbus_bool_t
2202 _dbus_generate_random_bytes (DBusString *str,
2203                              int         n_bytes)
2204 {
2205   int old_len;
2206   char *p;
2207   HCRYPTPROV hprov;
2208
2209   old_len = _dbus_string_get_length (str);
2210
2211   if (!_dbus_string_lengthen (str, n_bytes))
2212     return FALSE;
2213
2214   p = _dbus_string_get_data_len (str, old_len, n_bytes);
2215
2216   if (!CryptAcquireContext (&hprov, NULL, NULL, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT))
2217     return FALSE;
2218
2219   if (!CryptGenRandom (hprov, n_bytes, p))
2220     {
2221       CryptReleaseContext (hprov, 0);
2222       return FALSE;
2223     }
2224
2225   CryptReleaseContext (hprov, 0);
2226
2227   return TRUE;
2228 }
2229
2230 /**
2231  * Gets the temporary files directory by inspecting the environment variables
2232  * TMPDIR, TMP, and TEMP in that order. If none of those are set "/tmp" is returned
2233  *
2234  * @returns location of temp directory
2235  */
2236 const char*
2237 _dbus_get_tmpdir(void)
2238 {
2239   static const char* tmpdir = NULL;
2240   static char buf[1000];
2241
2242   if (tmpdir == NULL)
2243     {
2244       char *last_slash;
2245
2246       if (!GetTempPathA (sizeof (buf), buf))
2247         {
2248           _dbus_warn ("GetTempPath failed\n");
2249           _dbus_abort ();
2250         }
2251
2252       /* Drop terminating backslash or slash */
2253       last_slash = _mbsrchr (buf, '\\');
2254       if (last_slash > buf && last_slash[1] == '\0')
2255         last_slash[0] = '\0';
2256       last_slash = _mbsrchr (buf, '/');
2257       if (last_slash > buf && last_slash[1] == '\0')
2258         last_slash[0] = '\0';
2259
2260       tmpdir = buf;
2261     }
2262
2263   _dbus_assert(tmpdir != NULL);
2264
2265   return tmpdir;
2266 }
2267
2268
2269 /**
2270  * Deletes the given file.
2271  *
2272  * @param filename the filename
2273  * @param error error location
2274  *
2275  * @returns #TRUE if unlink() succeeded
2276  */
2277 dbus_bool_t
2278 _dbus_delete_file (const DBusString *filename,
2279                    DBusError        *error)
2280 {
2281   const char *filename_c;
2282
2283   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
2284
2285   filename_c = _dbus_string_get_const_data (filename);
2286
2287   if (DeleteFileA (filename_c) == 0)
2288     {
2289       dbus_set_error (error, DBUS_ERROR_FAILED,
2290                       "Failed to delete file %s: %s\n",
2291                       filename_c, _dbus_strerror_from_errno ());
2292       return FALSE;
2293     }
2294   else
2295     return TRUE;
2296 }
2297
2298 /*
2299  * replaces the term DBUS_PREFIX in configure_time_path by the
2300  * current dbus installation directory. On unix this function is a noop
2301  *
2302  * @param configure_time_path
2303  * @return real path
2304  */
2305 const char *
2306 _dbus_replace_install_prefix (const char *configure_time_path)
2307 {
2308 #ifndef DBUS_PREFIX
2309   return configure_time_path;
2310 #else
2311   static char retval[1000];
2312   static char runtime_prefix[1000];
2313   int len = 1000;
2314   int i;
2315
2316   if (!configure_time_path)
2317     return NULL;
2318
2319   if ((!_dbus_get_install_root(runtime_prefix, len) ||
2320        strncmp (configure_time_path, DBUS_PREFIX "/",
2321                 strlen (DBUS_PREFIX) + 1))) {
2322      strcat (retval, configure_time_path);
2323      return retval;
2324   }
2325
2326   strcpy (retval, runtime_prefix);
2327   strcat (retval, configure_time_path + strlen (DBUS_PREFIX) + 1);
2328
2329   /* Somehow, in some situations, backslashes get collapsed in the string.
2330    * Since windows C library accepts both forward and backslashes as
2331    * path separators, convert all backslashes to forward slashes.
2332    */
2333
2334   for(i = 0; retval[i] != '\0'; i++) {
2335     if(retval[i] == '\\')
2336       retval[i] = '/';
2337   }
2338   return retval;
2339 #endif
2340 }
2341
2342 #if !defined (DBUS_DISABLE_ASSERT) || defined(DBUS_ENABLE_EMBEDDED_TESTS)
2343
2344 #if defined(_MSC_VER) || defined(DBUS_WINCE)
2345 # ifdef BACKTRACES
2346 #  undef BACKTRACES
2347 # endif
2348 #else
2349 # define BACKTRACES
2350 #endif
2351
2352 #ifdef BACKTRACES
2353 /*
2354  * Backtrace Generator
2355  *
2356  * Copyright 2004 Eric Poech
2357  * Copyright 2004 Robert Shearman
2358  *
2359  * This library is free software; you can redistribute it and/or
2360  * modify it under the terms of the GNU Lesser General Public
2361  * License as published by the Free Software Foundation; either
2362  * version 2.1 of the License, or (at your option) any later version.
2363  *
2364  * This library is distributed in the hope that it will be useful,
2365  * but WITHOUT ANY WARRANTY; without even the implied warranty of
2366  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
2367  * Lesser General Public License for more details.
2368  *
2369  * You should have received a copy of the GNU Lesser General Public
2370  * License along with this library; if not, write to the Free Software
2371  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
2372  */
2373
2374 #include <winver.h>
2375 #include <imagehlp.h>
2376 #include <stdio.h>
2377
2378 #define DPRINTF _dbus_warn
2379
2380 #ifdef _MSC_VER
2381 #define BOOL int
2382
2383 #define __i386__
2384 #endif
2385
2386 //#define MAKE_FUNCPTR(f) static typeof(f) * p##f
2387
2388 //MAKE_FUNCPTR(StackWalk);
2389 //MAKE_FUNCPTR(SymGetModuleBase);
2390 //MAKE_FUNCPTR(SymFunctionTableAccess);
2391 //MAKE_FUNCPTR(SymInitialize);
2392 //MAKE_FUNCPTR(SymGetSymFromAddr);
2393 //MAKE_FUNCPTR(SymGetModuleInfo);
2394 static BOOL (WINAPI *pStackWalk)(
2395   DWORD MachineType,
2396   HANDLE hProcess,
2397   HANDLE hThread,
2398   LPSTACKFRAME StackFrame,
2399   PVOID ContextRecord,
2400   PREAD_PROCESS_MEMORY_ROUTINE ReadMemoryRoutine,
2401   PFUNCTION_TABLE_ACCESS_ROUTINE FunctionTableAccessRoutine,
2402   PGET_MODULE_BASE_ROUTINE GetModuleBaseRoutine,
2403   PTRANSLATE_ADDRESS_ROUTINE TranslateAddress
2404 );
2405 #ifdef _WIN64
2406 static DWORD64 (WINAPI *pSymGetModuleBase)(
2407   HANDLE hProcess,
2408   DWORD64 dwAddr
2409 );
2410 static PVOID  (WINAPI *pSymFunctionTableAccess)(
2411   HANDLE hProcess,
2412   DWORD64 AddrBase
2413 );
2414 #else
2415 static DWORD (WINAPI *pSymGetModuleBase)(
2416   HANDLE hProcess,
2417   DWORD dwAddr
2418 );
2419 static PVOID  (WINAPI *pSymFunctionTableAccess)(
2420   HANDLE hProcess,
2421   DWORD AddrBase
2422 );
2423 #endif
2424 static BOOL  (WINAPI *pSymInitialize)(
2425   HANDLE hProcess,
2426   PSTR UserSearchPath,
2427   BOOL fInvadeProcess
2428 );
2429 static BOOL  (WINAPI *pSymGetSymFromAddr)(
2430   HANDLE hProcess,
2431   DWORD Address,
2432   PDWORD Displacement,
2433   PIMAGEHLP_SYMBOL Symbol
2434 );
2435 static BOOL  (WINAPI *pSymGetModuleInfo)(
2436   HANDLE hProcess,
2437   DWORD dwAddr,
2438   PIMAGEHLP_MODULE ModuleInfo
2439 );
2440 static DWORD  (WINAPI *pSymSetOptions)(
2441   DWORD SymOptions
2442 );
2443
2444
2445 static BOOL init_backtrace()
2446 {
2447     HMODULE hmodDbgHelp = LoadLibraryA("dbghelp");
2448 /*
2449     #define GETFUNC(x) \
2450     p##x = (typeof(x)*)GetProcAddress(hmodDbgHelp, #x); \
2451     if (!p##x) \
2452     { \
2453         return FALSE; \
2454     }
2455     */
2456
2457
2458 //    GETFUNC(StackWalk);
2459 //    GETFUNC(SymGetModuleBase);
2460 //    GETFUNC(SymFunctionTableAccess);
2461 //    GETFUNC(SymInitialize);
2462 //    GETFUNC(SymGetSymFromAddr);
2463 //    GETFUNC(SymGetModuleInfo);
2464
2465 #define FUNC(x) #x
2466
2467       pStackWalk = (BOOL  (WINAPI *)(
2468 DWORD MachineType,
2469 HANDLE hProcess,
2470 HANDLE hThread,
2471 LPSTACKFRAME StackFrame,
2472 PVOID ContextRecord,
2473 PREAD_PROCESS_MEMORY_ROUTINE ReadMemoryRoutine,
2474 PFUNCTION_TABLE_ACCESS_ROUTINE FunctionTableAccessRoutine,
2475 PGET_MODULE_BASE_ROUTINE GetModuleBaseRoutine,
2476 PTRANSLATE_ADDRESS_ROUTINE TranslateAddress
2477 ))GetProcAddress (hmodDbgHelp, FUNC(StackWalk));
2478 #ifdef _WIN64
2479     pSymGetModuleBase=(DWORD64  (WINAPI *)(
2480   HANDLE hProcess,
2481   DWORD64 dwAddr
2482 ))GetProcAddress (hmodDbgHelp, FUNC(SymGetModuleBase));
2483     pSymFunctionTableAccess=(PVOID  (WINAPI *)(
2484   HANDLE hProcess,
2485   DWORD64 AddrBase
2486 ))GetProcAddress (hmodDbgHelp, FUNC(SymFunctionTableAccess));
2487 #else
2488     pSymGetModuleBase=(DWORD  (WINAPI *)(
2489   HANDLE hProcess,
2490   DWORD dwAddr
2491 ))GetProcAddress (hmodDbgHelp, FUNC(SymGetModuleBase));
2492     pSymFunctionTableAccess=(PVOID  (WINAPI *)(
2493   HANDLE hProcess,
2494   DWORD AddrBase
2495 ))GetProcAddress (hmodDbgHelp, FUNC(SymFunctionTableAccess));
2496 #endif
2497     pSymInitialize = (BOOL  (WINAPI *)(
2498   HANDLE hProcess,
2499   PSTR UserSearchPath,
2500   BOOL fInvadeProcess
2501 ))GetProcAddress (hmodDbgHelp, FUNC(SymInitialize));
2502     pSymGetSymFromAddr = (BOOL  (WINAPI *)(
2503   HANDLE hProcess,
2504   DWORD Address,
2505   PDWORD Displacement,
2506   PIMAGEHLP_SYMBOL Symbol
2507 ))GetProcAddress (hmodDbgHelp, FUNC(SymGetSymFromAddr));
2508     pSymGetModuleInfo = (BOOL  (WINAPI *)(
2509   HANDLE hProcess,
2510   DWORD dwAddr,
2511   PIMAGEHLP_MODULE ModuleInfo
2512 ))GetProcAddress (hmodDbgHelp, FUNC(SymGetModuleInfo));
2513 pSymSetOptions = (DWORD  (WINAPI *)(
2514 DWORD SymOptions
2515 ))GetProcAddress (hmodDbgHelp, FUNC(SymSetOptions));
2516
2517
2518     pSymSetOptions(SYMOPT_UNDNAME);
2519
2520     pSymInitialize(GetCurrentProcess(), NULL, TRUE);
2521
2522     return TRUE;
2523 }
2524
2525 static void dump_backtrace_for_thread(HANDLE hThread)
2526 {
2527     STACKFRAME sf;
2528     CONTEXT context;
2529     DWORD dwImageType;
2530
2531     if (!pStackWalk)
2532         if (!init_backtrace())
2533             return;
2534
2535     /* can't use this function for current thread as GetThreadContext
2536      * doesn't support getting context from current thread */
2537     if (hThread == GetCurrentThread())
2538         return;
2539
2540     DPRINTF("Backtrace:\n");
2541
2542     _DBUS_ZERO(context);
2543     context.ContextFlags = CONTEXT_FULL;
2544
2545     SuspendThread(hThread);
2546
2547     if (!GetThreadContext(hThread, &context))
2548     {
2549         DPRINTF("Couldn't get thread context (error %ld)\n", GetLastError());
2550         ResumeThread(hThread);
2551         return;
2552     }
2553
2554     _DBUS_ZERO(sf);
2555
2556 #ifdef __i386__
2557     sf.AddrFrame.Offset = context.Ebp;
2558     sf.AddrFrame.Mode = AddrModeFlat;
2559     sf.AddrPC.Offset = context.Eip;
2560     sf.AddrPC.Mode = AddrModeFlat;
2561     dwImageType = IMAGE_FILE_MACHINE_I386;
2562 #elif _M_X64
2563   dwImageType                = IMAGE_FILE_MACHINE_AMD64;
2564   sf.AddrPC.Offset    = context.Rip;
2565   sf.AddrPC.Mode      = AddrModeFlat;
2566   sf.AddrFrame.Offset = context.Rsp;
2567   sf.AddrFrame.Mode   = AddrModeFlat;
2568   sf.AddrStack.Offset = context.Rsp;
2569   sf.AddrStack.Mode   = AddrModeFlat;
2570 #elif _M_IA64
2571   dwImageType                 = IMAGE_FILE_MACHINE_IA64;
2572   sf.AddrPC.Offset    = context.StIIP;
2573   sf.AddrPC.Mode      = AddrModeFlat;
2574   sf.AddrFrame.Offset = context.IntSp;
2575   sf.AddrFrame.Mode   = AddrModeFlat;
2576   sf.AddrBStore.Offset= context.RsBSP;
2577   sf.AddrBStore.Mode  = AddrModeFlat;
2578   sf.AddrStack.Offset = context.IntSp;
2579   sf.AddrStack.Mode   = AddrModeFlat;
2580 #else
2581 # error You need to fill in the STACKFRAME structure for your architecture
2582 #endif
2583
2584     while (pStackWalk(dwImageType, GetCurrentProcess(),
2585                      hThread, &sf, &context, NULL, pSymFunctionTableAccess,
2586                      pSymGetModuleBase, NULL))
2587     {
2588         BYTE buffer[256];
2589         IMAGEHLP_SYMBOL * pSymbol = (IMAGEHLP_SYMBOL *)buffer;
2590         DWORD dwDisplacement;
2591
2592         pSymbol->SizeOfStruct = sizeof(IMAGEHLP_SYMBOL);
2593         pSymbol->MaxNameLength = sizeof(buffer) - sizeof(IMAGEHLP_SYMBOL) + 1;
2594
2595         if (!pSymGetSymFromAddr(GetCurrentProcess(), sf.AddrPC.Offset,
2596                                 &dwDisplacement, pSymbol))
2597         {
2598             IMAGEHLP_MODULE ModuleInfo;
2599             ModuleInfo.SizeOfStruct = sizeof(ModuleInfo);
2600
2601             if (!pSymGetModuleInfo(GetCurrentProcess(), sf.AddrPC.Offset,
2602                                    &ModuleInfo))
2603                 DPRINTF("1\t%p\n", (void*)sf.AddrPC.Offset);
2604             else
2605                 DPRINTF("2\t%s+0x%lx\n", ModuleInfo.ImageName,
2606                     sf.AddrPC.Offset - ModuleInfo.BaseOfImage);
2607         }
2608         else if (dwDisplacement)
2609             DPRINTF("3\t%s+0x%lx\n", pSymbol->Name, dwDisplacement);
2610         else
2611             DPRINTF("4\t%s\n", pSymbol->Name);
2612     }
2613
2614     ResumeThread(hThread);
2615 }
2616
2617 static DWORD WINAPI dump_thread_proc(LPVOID lpParameter)
2618 {
2619     dump_backtrace_for_thread((HANDLE)lpParameter);
2620     return 0;
2621 }
2622
2623 /* cannot get valid context from current thread, so we have to execute
2624  * backtrace from another thread */
2625 static void dump_backtrace()
2626 {
2627     HANDLE hCurrentThread;
2628     HANDLE hThread;
2629     DWORD dwThreadId;
2630     DuplicateHandle(GetCurrentProcess(), GetCurrentThread(),
2631         GetCurrentProcess(), &hCurrentThread, 0, FALSE, DUPLICATE_SAME_ACCESS);
2632     hThread = CreateThread(NULL, 0, dump_thread_proc, (LPVOID)hCurrentThread,
2633         0, &dwThreadId);
2634     WaitForSingleObject(hThread, INFINITE);
2635     CloseHandle(hThread);
2636     CloseHandle(hCurrentThread);
2637 }
2638 #endif
2639 #endif /* asserts or tests enabled */
2640
2641 #ifdef BACKTRACES
2642 void _dbus_print_backtrace(void)
2643 {
2644   init_backtrace();
2645   dump_backtrace();
2646 }
2647 #else
2648 void _dbus_print_backtrace(void)
2649 {
2650   _dbus_verbose ("  D-Bus not compiled with backtrace support\n");
2651 }
2652 #endif
2653
2654 static dbus_uint32_t fromAscii(char ascii)
2655 {
2656     if(ascii >= '0' && ascii <= '9')
2657         return ascii - '0';
2658     if(ascii >= 'A' && ascii <= 'F')
2659         return ascii - 'A' + 10;
2660     if(ascii >= 'a' && ascii <= 'f')
2661         return ascii - 'a' + 10;
2662     return 0;
2663 }
2664
2665 dbus_bool_t _dbus_read_local_machine_uuid   (DBusGUID         *machine_id,
2666                                              dbus_bool_t       create_if_not_found,
2667                                              DBusError        *error)
2668 {
2669 #ifdef DBUS_WINCE
2670         return TRUE;
2671   // TODO
2672 #else
2673     HW_PROFILE_INFOA info;
2674     char *lpc = &info.szHwProfileGuid[0];
2675     dbus_uint32_t u;
2676
2677     //  the hw-profile guid lives long enough
2678     if(!GetCurrentHwProfileA(&info))
2679       {
2680         dbus_set_error (error, DBUS_ERROR_NO_MEMORY, NULL); // FIXME
2681         return FALSE;
2682       }
2683
2684     // Form: {12340001-4980-1920-6788-123456789012}
2685     lpc++;
2686     // 12340001
2687     u = ((fromAscii(lpc[0]) <<  0) |
2688          (fromAscii(lpc[1]) <<  4) |
2689          (fromAscii(lpc[2]) <<  8) |
2690          (fromAscii(lpc[3]) << 12) |
2691          (fromAscii(lpc[4]) << 16) |
2692          (fromAscii(lpc[5]) << 20) |
2693          (fromAscii(lpc[6]) << 24) |
2694          (fromAscii(lpc[7]) << 28));
2695     machine_id->as_uint32s[0] = u;
2696
2697     lpc += 9;
2698     // 4980-1920
2699     u = ((fromAscii(lpc[0]) <<  0) |
2700          (fromAscii(lpc[1]) <<  4) |
2701          (fromAscii(lpc[2]) <<  8) |
2702          (fromAscii(lpc[3]) << 12) |
2703          (fromAscii(lpc[5]) << 16) |
2704          (fromAscii(lpc[6]) << 20) |
2705          (fromAscii(lpc[7]) << 24) |
2706          (fromAscii(lpc[8]) << 28));
2707     machine_id->as_uint32s[1] = u;
2708
2709     lpc += 10;
2710     // 6788-1234
2711     u = ((fromAscii(lpc[0]) <<  0) |
2712          (fromAscii(lpc[1]) <<  4) |
2713          (fromAscii(lpc[2]) <<  8) |
2714          (fromAscii(lpc[3]) << 12) |
2715          (fromAscii(lpc[5]) << 16) |
2716          (fromAscii(lpc[6]) << 20) |
2717          (fromAscii(lpc[7]) << 24) |
2718          (fromAscii(lpc[8]) << 28));
2719     machine_id->as_uint32s[2] = u;
2720
2721     lpc += 9;
2722     // 56789012
2723     u = ((fromAscii(lpc[0]) <<  0) |
2724          (fromAscii(lpc[1]) <<  4) |
2725          (fromAscii(lpc[2]) <<  8) |
2726          (fromAscii(lpc[3]) << 12) |
2727          (fromAscii(lpc[4]) << 16) |
2728          (fromAscii(lpc[5]) << 20) |
2729          (fromAscii(lpc[6]) << 24) |
2730          (fromAscii(lpc[7]) << 28));
2731     machine_id->as_uint32s[3] = u;
2732 #endif
2733     return TRUE;
2734 }
2735
2736 static
2737 HANDLE _dbus_global_lock (const char *mutexname)
2738 {
2739   HANDLE mutex;
2740   DWORD gotMutex;
2741
2742   mutex = CreateMutexA( NULL, FALSE, mutexname );
2743   if( !mutex )
2744     {
2745       return FALSE;
2746     }
2747
2748    gotMutex = WaitForSingleObject( mutex, INFINITE );
2749    switch( gotMutex )
2750      {
2751        case WAIT_ABANDONED:
2752                ReleaseMutex (mutex);
2753                CloseHandle (mutex);
2754                return 0;
2755        case WAIT_FAILED:
2756        case WAIT_TIMEOUT:
2757                return 0;
2758      }
2759
2760    return mutex;
2761 }
2762
2763 static
2764 void _dbus_global_unlock (HANDLE mutex)
2765 {
2766   ReleaseMutex (mutex);
2767   CloseHandle (mutex);
2768 }
2769
2770 // for proper cleanup in dbus-daemon
2771 static HANDLE hDBusDaemonMutex = NULL;
2772 static HANDLE hDBusSharedMem = NULL;
2773 // sync _dbus_daemon_publish_session_bus_address, _dbus_daemon_unpublish_session_bus_address and _dbus_daemon_already_runs
2774 static const char *cUniqueDBusInitMutex = "UniqueDBusInitMutex";
2775 // sync _dbus_get_autolaunch_address
2776 static const char *cDBusAutolaunchMutex = "DBusAutolaunchMutex";
2777 // mutex to determine if dbus-daemon is already started (per user)
2778 static const char *cDBusDaemonMutex = "DBusDaemonMutex";
2779 // named shm for dbus adress info (per user)
2780 static const char *cDBusDaemonAddressInfo = "DBusDaemonAddressInfo";
2781
2782 static dbus_bool_t
2783 _dbus_get_install_root_as_hash(DBusString *out)
2784 {
2785     DBusString install_path;
2786
2787     char path[MAX_PATH*2];
2788     int path_size = sizeof(path);
2789
2790     if (!_dbus_get_install_root(path,path_size))
2791         return FALSE;
2792
2793     _dbus_string_init(&install_path);
2794     _dbus_string_append(&install_path,path);
2795
2796     _dbus_string_init(out);
2797     _dbus_string_tolower_ascii(&install_path,0,_dbus_string_get_length(&install_path));
2798
2799     if (!_dbus_sha_compute (&install_path, out))
2800         return FALSE;
2801
2802     return TRUE;
2803 }
2804
2805 static dbus_bool_t
2806 _dbus_get_address_string (DBusString *out, const char *basestring, const char *scope)
2807 {
2808   _dbus_string_init(out);
2809   _dbus_string_append(out,basestring);
2810
2811   if (!scope)
2812     {
2813       return TRUE;
2814     }
2815   else if (strcmp(scope,"*install-path") == 0
2816         // for 1.3 compatibility
2817         || strcmp(scope,"install-path") == 0)
2818     {
2819       DBusString temp;
2820       if (!_dbus_get_install_root_as_hash(&temp))
2821         {
2822           _dbus_string_free(out);
2823            return FALSE;
2824         }
2825       _dbus_string_append(out,"-");
2826       _dbus_string_append(out,_dbus_string_get_const_data(&temp));
2827       _dbus_string_free(&temp);
2828     }
2829   else if (strcmp(scope,"*user") == 0)
2830     {
2831       _dbus_string_append(out,"-");
2832       if (!_dbus_append_user_from_current_process(out))
2833         {
2834            _dbus_string_free(out);
2835            return FALSE;
2836         }
2837     }
2838   else if (strlen(scope) > 0)
2839     {
2840       _dbus_string_append(out,"-");
2841       _dbus_string_append(out,scope);
2842       return TRUE;
2843     }
2844   return TRUE;
2845 }
2846
2847 static dbus_bool_t
2848 _dbus_get_shm_name (DBusString *out,const char *scope)
2849 {
2850   return _dbus_get_address_string (out,cDBusDaemonAddressInfo,scope);
2851 }
2852
2853 static dbus_bool_t
2854 _dbus_get_mutex_name (DBusString *out,const char *scope)
2855 {
2856   return _dbus_get_address_string (out,cDBusDaemonMutex,scope);
2857 }
2858
2859 dbus_bool_t
2860 _dbus_daemon_is_session_bus_address_published (const char *scope)
2861 {
2862   HANDLE lock;
2863   DBusString mutex_name;
2864
2865   if (!_dbus_get_mutex_name(&mutex_name,scope))
2866     {
2867       _dbus_string_free( &mutex_name );
2868       return FALSE;
2869     }
2870
2871   if (hDBusDaemonMutex)
2872       return TRUE;
2873
2874   // sync _dbus_daemon_publish_session_bus_address, _dbus_daemon_unpublish_session_bus_address and _dbus_daemon_already_runs
2875   lock = _dbus_global_lock( cUniqueDBusInitMutex );
2876
2877   // we use CreateMutex instead of OpenMutex because of possible race conditions,
2878   // see http://msdn.microsoft.com/en-us/library/ms684315%28VS.85%29.aspx
2879   hDBusDaemonMutex = CreateMutexA( NULL, FALSE, _dbus_string_get_const_data(&mutex_name) );
2880
2881   /* The client uses mutex ownership to detect a running server, so the server should do so too.
2882      Fortunally the client deletes the mutex in the lock protected area, so checking presence
2883      will work too.  */
2884
2885   _dbus_global_unlock( lock );
2886
2887   _dbus_string_free( &mutex_name );
2888
2889   if (hDBusDaemonMutex  == NULL)
2890       return FALSE;
2891   if (GetLastError() == ERROR_ALREADY_EXISTS)
2892     {
2893       CloseHandle(hDBusDaemonMutex);
2894       hDBusDaemonMutex = NULL;
2895       return TRUE;
2896     }
2897   // mutex wasn't created before, so return false.
2898   // We leave the mutex name allocated for later reusage
2899   // in _dbus_daemon_publish_session_bus_address.
2900   return FALSE;
2901 }
2902
2903 dbus_bool_t
2904 _dbus_daemon_publish_session_bus_address (const char* address, const char *scope)
2905 {
2906   HANDLE lock;
2907   char *shared_addr = NULL;
2908   DBusString shm_name;
2909   DBusString mutex_name;
2910
2911   _dbus_assert (address);
2912
2913   if (!_dbus_get_mutex_name(&mutex_name,scope))
2914     {
2915       _dbus_string_free( &mutex_name );
2916       return FALSE;
2917     }
2918
2919   // sync _dbus_daemon_publish_session_bus_address, _dbus_daemon_unpublish_session_bus_address and _dbus_daemon_already_runs
2920   lock = _dbus_global_lock( cUniqueDBusInitMutex );
2921
2922   if (!hDBusDaemonMutex)
2923     {
2924       hDBusDaemonMutex = CreateMutexA( NULL, FALSE, _dbus_string_get_const_data(&mutex_name) );
2925     }
2926   _dbus_string_free( &mutex_name );
2927
2928   // acquire the mutex
2929   if (WaitForSingleObject( hDBusDaemonMutex, 10 ) != WAIT_OBJECT_0)
2930     {
2931       _dbus_global_unlock( lock );
2932       CloseHandle( hDBusDaemonMutex );
2933       return FALSE;
2934     }
2935
2936   if (!_dbus_get_shm_name(&shm_name,scope))
2937     {
2938       _dbus_string_free( &shm_name );
2939       _dbus_global_unlock( lock );
2940       return FALSE;
2941     }
2942
2943   // create shm
2944   hDBusSharedMem = CreateFileMappingA( INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE,
2945                                        0, strlen( address ) + 1, _dbus_string_get_const_data(&shm_name) );
2946   _dbus_assert( hDBusSharedMem );
2947
2948   shared_addr = MapViewOfFile( hDBusSharedMem, FILE_MAP_WRITE, 0, 0, 0 );
2949
2950   _dbus_assert (shared_addr);
2951
2952   strcpy( shared_addr, address);
2953
2954   // cleanup
2955   UnmapViewOfFile( shared_addr );
2956
2957   _dbus_global_unlock( lock );
2958   _dbus_verbose( "published session bus address at %s\n",_dbus_string_get_const_data (&shm_name) );
2959
2960   _dbus_string_free( &shm_name );
2961   return TRUE;
2962 }
2963
2964 void
2965 _dbus_daemon_unpublish_session_bus_address (void)
2966 {
2967   HANDLE lock;
2968
2969   // sync _dbus_daemon_publish_session_bus_address, _dbus_daemon_unpublish_session_bus_address and _dbus_daemon_already_runs
2970   lock = _dbus_global_lock( cUniqueDBusInitMutex );
2971
2972   CloseHandle( hDBusSharedMem );
2973
2974   hDBusSharedMem = NULL;
2975
2976   ReleaseMutex( hDBusDaemonMutex );
2977
2978   CloseHandle( hDBusDaemonMutex );
2979
2980   hDBusDaemonMutex = NULL;
2981
2982   _dbus_global_unlock( lock );
2983 }
2984
2985 static dbus_bool_t
2986 _dbus_get_autolaunch_shm (DBusString *address, DBusString *shm_name)
2987 {
2988   HANDLE sharedMem;
2989   char *shared_addr;
2990   int i;
2991
2992   // read shm
2993   for(i=0;i<20;++i) {
2994       // we know that dbus-daemon is available, so we wait until shm is available
2995       sharedMem = OpenFileMappingA( FILE_MAP_READ, FALSE, _dbus_string_get_const_data(shm_name));
2996       if( sharedMem == 0 )
2997           Sleep( 100 );
2998       if ( sharedMem != 0)
2999           break;
3000   }
3001
3002   if( sharedMem == 0 )
3003       return FALSE;
3004
3005   shared_addr = MapViewOfFile( sharedMem, FILE_MAP_READ, 0, 0, 0 );
3006
3007   if( !shared_addr )
3008       return FALSE;
3009
3010   _dbus_string_init( address );
3011
3012   _dbus_string_append( address, shared_addr );
3013
3014   // cleanup
3015   UnmapViewOfFile( shared_addr );
3016
3017   CloseHandle( sharedMem );
3018
3019   return TRUE;
3020 }
3021
3022 static dbus_bool_t
3023 _dbus_daemon_already_runs (DBusString *address, DBusString *shm_name, const char *scope)
3024 {
3025   HANDLE lock;
3026   HANDLE daemon;
3027   DBusString mutex_name;
3028   dbus_bool_t bRet = TRUE;
3029
3030   if (!_dbus_get_mutex_name(&mutex_name,scope))
3031     {
3032       _dbus_string_free( &mutex_name );
3033       return FALSE;
3034     }
3035
3036   // sync _dbus_daemon_publish_session_bus_address, _dbus_daemon_unpublish_session_bus_address and _dbus_daemon_already_runs
3037   lock = _dbus_global_lock( cUniqueDBusInitMutex );
3038
3039   // do checks
3040   daemon = CreateMutexA( NULL, FALSE, _dbus_string_get_const_data(&mutex_name) );
3041   if(WaitForSingleObject( daemon, 10 ) != WAIT_TIMEOUT)
3042     {
3043       ReleaseMutex (daemon);
3044       CloseHandle (daemon);
3045
3046       _dbus_global_unlock( lock );
3047       _dbus_string_free( &mutex_name );
3048       return FALSE;
3049     }
3050
3051   // read shm
3052   bRet = _dbus_get_autolaunch_shm( address, shm_name );
3053
3054   // cleanup
3055   CloseHandle ( daemon );
3056
3057   _dbus_global_unlock( lock );
3058   _dbus_string_free( &mutex_name );
3059
3060   return bRet;
3061 }
3062
3063 dbus_bool_t
3064 _dbus_get_autolaunch_address (const char *scope, DBusString *address,
3065                               DBusError *error)
3066 {
3067   HANDLE mutex;
3068   STARTUPINFOA si;
3069   PROCESS_INFORMATION pi;
3070   dbus_bool_t retval = FALSE;
3071   LPSTR lpFile;
3072   char dbus_exe_path[MAX_PATH];
3073   char dbus_args[MAX_PATH * 2];
3074   const char * daemon_name = DBUS_DAEMON_NAME ".exe";
3075   DBusString shm_name;
3076
3077   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
3078
3079   if (!_dbus_get_shm_name(&shm_name,scope))
3080     {
3081         dbus_set_error_const (error, DBUS_ERROR_FAILED, "could not determine shm name");
3082         return FALSE;
3083     }
3084
3085   mutex = _dbus_global_lock ( cDBusAutolaunchMutex );
3086
3087   if (_dbus_daemon_already_runs(address,&shm_name,scope))
3088     {
3089         _dbus_verbose( "found running dbus daemon at %s\n",
3090                        _dbus_string_get_const_data (&shm_name) );
3091         retval = TRUE;
3092         goto out;
3093     }
3094
3095   if (!SearchPathA(NULL, daemon_name, NULL, sizeof(dbus_exe_path), dbus_exe_path, &lpFile))
3096     {
3097       // Look in directory containing dbus shared library
3098       HMODULE hmod;
3099       char dbus_module_path[MAX_PATH];
3100       DWORD rc;
3101
3102       _dbus_verbose( "did not found dbus daemon executable on default search path, "
3103             "trying path where dbus shared library is located");
3104
3105       hmod = _dbus_win_get_dll_hmodule();
3106       rc = GetModuleFileNameA(hmod, dbus_module_path, sizeof(dbus_module_path));
3107       if (rc <= 0)
3108         {
3109           dbus_set_error_const (error, DBUS_ERROR_FAILED, "could not retrieve dbus shared library file name");
3110           retval = FALSE;
3111           goto out;
3112         }
3113       else
3114         {
3115           char *ext_idx = strrchr(dbus_module_path, '\\');
3116           if (ext_idx)
3117           *ext_idx = '\0';
3118           if (!SearchPathA(dbus_module_path, daemon_name, NULL, sizeof(dbus_exe_path), dbus_exe_path, &lpFile))
3119             {
3120               dbus_set_error_const (error, DBUS_ERROR_FAILED, "could not find dbus-daemon executable");
3121               retval = FALSE;
3122               printf ("please add the path to %s to your PATH environment variable\n", daemon_name);
3123               printf ("or start the daemon manually\n\n");
3124               goto out;
3125             }
3126           _dbus_verbose( "found dbus daemon executable at %s",dbus_module_path);
3127         }
3128     }
3129
3130
3131   // Create process
3132   ZeroMemory( &si, sizeof(si) );
3133   si.cb = sizeof(si);
3134   ZeroMemory( &pi, sizeof(pi) );
3135
3136   _snprintf(dbus_args, sizeof(dbus_args) - 1, "\"%s\" %s", dbus_exe_path,  " --session");
3137
3138 //  argv[i] = "--config-file=bus\\session.conf";
3139 //  printf("create process \"%s\" %s\n", dbus_exe_path, dbus_args);
3140   if(CreateProcessA(dbus_exe_path, dbus_args, NULL, NULL, FALSE, CREATE_NO_WINDOW, NULL, NULL, &si, &pi))
3141     {
3142       CloseHandle (pi.hThread);
3143       CloseHandle (pi.hProcess);
3144       retval = _dbus_get_autolaunch_shm( address, &shm_name );
3145       if (retval == FALSE)
3146         dbus_set_error_const (error, DBUS_ERROR_FAILED, "Failed to get autolaunch address from launched dbus-daemon");
3147     }
3148   else
3149     {
3150       dbus_set_error_const (error, DBUS_ERROR_FAILED, "Failed to launch dbus-daemon");
3151       retval = FALSE;
3152     }
3153
3154 out:
3155   if (retval)
3156     _DBUS_ASSERT_ERROR_IS_CLEAR (error);
3157   else
3158     _DBUS_ASSERT_ERROR_IS_SET (error);
3159
3160   _dbus_global_unlock (mutex);
3161
3162   return retval;
3163  }
3164
3165
3166 /** Makes the file readable by every user in the system.
3167  *
3168  * @param filename the filename
3169  * @param error error location
3170  * @returns #TRUE if the file's permissions could be changed.
3171  */
3172 dbus_bool_t
3173 _dbus_make_file_world_readable(const DBusString *filename,
3174                                DBusError *error)
3175 {
3176   // TODO
3177   return TRUE;
3178 }
3179
3180 /**
3181  * return the relocated DATADIR
3182  *
3183  * @returns relocated DATADIR static string
3184  */
3185
3186 static const char *
3187 _dbus_windows_get_datadir (void)
3188 {
3189         return _dbus_replace_install_prefix(DBUS_DATADIR);
3190 }
3191
3192 #undef DBUS_DATADIR
3193 #define DBUS_DATADIR _dbus_windows_get_datadir ()
3194
3195
3196 #define DBUS_STANDARD_SESSION_SERVICEDIR "/dbus-1/services"
3197 #define DBUS_STANDARD_SYSTEM_SERVICEDIR "/dbus-1/system-services"
3198
3199 /**
3200  * Returns the standard directories for a session bus to look for service
3201  * activation files
3202  *
3203  * On Windows this should be data directories:
3204  *
3205  * %CommonProgramFiles%/dbus
3206  *
3207  * and
3208  *
3209  * relocated DBUS_DATADIR
3210  *
3211  * @param dirs the directory list we are returning
3212  * @returns #FALSE on OOM
3213  */
3214
3215 dbus_bool_t
3216 _dbus_get_standard_session_servicedirs (DBusList **dirs)
3217 {
3218   const char *common_progs;
3219   DBusString servicedir_path;
3220
3221   if (!_dbus_string_init (&servicedir_path))
3222     return FALSE;
3223
3224 #ifdef DBUS_WINCE
3225   {
3226     /* On Windows CE, we adjust datadir dynamically to installation location.  */
3227     const char *data_dir = _dbus_getenv ("DBUS_DATADIR");
3228
3229     if (data_dir != NULL)
3230       {
3231         if (!_dbus_string_append (&servicedir_path, data_dir))
3232           goto oom;
3233
3234         if (!_dbus_string_append (&servicedir_path, _DBUS_PATH_SEPARATOR))
3235           goto oom;
3236       }
3237   }
3238 #else
3239 /*
3240  the code for accessing services requires absolute base pathes
3241  in case DBUS_DATADIR is relative make it absolute
3242 */
3243 #ifdef DBUS_WIN
3244   {
3245     DBusString p;
3246
3247     _dbus_string_init_const (&p, DBUS_DATADIR);
3248
3249     if (!_dbus_path_is_absolute (&p))
3250       {
3251         char install_root[1000];
3252         if (_dbus_get_install_root (install_root, sizeof(install_root)))
3253           if (!_dbus_string_append (&servicedir_path, install_root))
3254             goto oom;
3255       }
3256   }
3257 #endif
3258   if (!_dbus_string_append (&servicedir_path, DBUS_DATADIR))
3259     goto oom;
3260
3261   if (!_dbus_string_append (&servicedir_path, _DBUS_PATH_SEPARATOR))
3262     goto oom;
3263 #endif
3264
3265   common_progs = _dbus_getenv ("CommonProgramFiles");
3266
3267   if (common_progs != NULL)
3268     {
3269       if (!_dbus_string_append (&servicedir_path, common_progs))
3270         goto oom;
3271
3272       if (!_dbus_string_append (&servicedir_path, _DBUS_PATH_SEPARATOR))
3273         goto oom;
3274     }
3275
3276   if (!_dbus_split_paths_and_append (&servicedir_path,
3277                                DBUS_STANDARD_SESSION_SERVICEDIR,
3278                                dirs))
3279     goto oom;
3280
3281   _dbus_string_free (&servicedir_path);
3282   return TRUE;
3283
3284  oom:
3285   _dbus_string_free (&servicedir_path);
3286   return FALSE;
3287 }
3288
3289 /**
3290  * Returns the standard directories for a system bus to look for service
3291  * activation files
3292  *
3293  * On UNIX this should be the standard xdg freedesktop.org data directories:
3294  *
3295  * XDG_DATA_DIRS=${XDG_DATA_DIRS-/usr/local/share:/usr/share}
3296  *
3297  * and
3298  *
3299  * DBUS_DATADIR
3300  *
3301  * On Windows there is no system bus and this function can return nothing.
3302  *
3303  * @param dirs the directory list we are returning
3304  * @returns #FALSE on OOM
3305  */
3306
3307 dbus_bool_t
3308 _dbus_get_standard_system_servicedirs (DBusList **dirs)
3309 {
3310   *dirs = NULL;
3311   return TRUE;
3312 }
3313
3314 /**
3315  * Atomically increments an integer
3316  *
3317  * @param atomic pointer to the integer to increment
3318  * @returns the value before incrementing
3319  *
3320  */
3321 dbus_int32_t
3322 _dbus_atomic_inc (DBusAtomic *atomic)
3323 {
3324   // +/- 1 is needed here!
3325   // no volatile argument with mingw
3326   return InterlockedIncrement (&atomic->value) - 1;
3327 }
3328
3329 /**
3330  * Atomically decrement an integer
3331  *
3332  * @param atomic pointer to the integer to decrement
3333  * @returns the value before decrementing
3334  *
3335  */
3336 dbus_int32_t
3337 _dbus_atomic_dec (DBusAtomic *atomic)
3338 {
3339   // +/- 1 is needed here!
3340   // no volatile argument with mingw
3341   return InterlockedDecrement (&atomic->value) + 1;
3342 }
3343
3344 /**
3345  * Atomically get the value of an integer. It may change at any time
3346  * thereafter, so this is mostly only useful for assertions.
3347  *
3348  * @param atomic pointer to the integer to get
3349  * @returns the value at this moment
3350  */
3351 dbus_int32_t
3352 _dbus_atomic_get (DBusAtomic *atomic)
3353 {
3354   /* In this situation, GLib issues a MemoryBarrier() and then returns
3355    * atomic->value. However, mingw from mingw.org (not to be confused with
3356    * mingw-w64 from mingw-w64.sf.net) does not have MemoryBarrier in its
3357    * headers, so we have to get a memory barrier some other way.
3358    *
3359    * InterlockedIncrement is older, and is documented on MSDN to be a full
3360    * memory barrier, so let's use that.
3361    */
3362   long dummy = 0;
3363
3364   InterlockedExchange (&dummy, 1);
3365
3366   return atomic->value;
3367 }
3368
3369 /**
3370  * Called when the bus daemon is signaled to reload its configuration; any
3371  * caches should be nuked. Of course any caches that need explicit reload
3372  * are probably broken, but c'est la vie.
3373  *
3374  *
3375  */
3376 void
3377 _dbus_flush_caches (void)
3378 {
3379 }
3380
3381 /**
3382  * See if errno is EAGAIN or EWOULDBLOCK (this has to be done differently
3383  * for Winsock so is abstracted)
3384  *
3385  * @returns #TRUE if errno == EAGAIN or errno == EWOULDBLOCK
3386  */
3387 dbus_bool_t
3388 _dbus_get_is_errno_eagain_or_ewouldblock (void)
3389 {
3390   return errno == WSAEWOULDBLOCK;
3391 }
3392
3393 /**
3394  * return the absolute path of the dbus installation
3395  *
3396  * @param s buffer for installation path
3397  * @param len length of buffer
3398  * @returns #FALSE on failure
3399  */
3400 dbus_bool_t
3401 _dbus_get_install_root(char *prefix, int len)
3402 {
3403     //To find the prefix, we cut the filename and also \bin\ if present
3404     DWORD pathLength;
3405     char *lastSlash;
3406     SetLastError( 0 );
3407     pathLength = GetModuleFileNameA(_dbus_win_get_dll_hmodule(), prefix, len);
3408     if ( pathLength == 0 || GetLastError() != 0 ) {
3409         *prefix = '\0';
3410         return FALSE;
3411     }
3412     lastSlash = _mbsrchr(prefix, '\\');
3413     if (lastSlash == NULL) {
3414         *prefix = '\0';
3415         return FALSE;
3416     }
3417     //cut off binary name
3418     lastSlash[1] = 0;
3419
3420     //cut possible "\\bin"
3421
3422     //this fails if we are in a double-byte system codepage and the
3423     //folder's name happens to end with the *bytes*
3424     //"\\bin"... (I.e. the second byte of some Han character and then
3425     //the Latin "bin", but that is not likely I think...
3426     if (lastSlash - prefix >= 4 && strnicmp(lastSlash - 4, "\\bin", 4) == 0)
3427         lastSlash[-3] = 0;
3428     else if (lastSlash - prefix >= 10 && strnicmp(lastSlash - 10, "\\bin\\debug", 10) == 0)
3429         lastSlash[-9] = 0;
3430     else if (lastSlash - prefix >= 12 && strnicmp(lastSlash - 12, "\\bin\\release", 12) == 0)
3431         lastSlash[-11] = 0;
3432
3433     return TRUE;
3434 }
3435
3436 /**
3437   find config file either from installation or build root according to
3438   the following path layout
3439     install-root/
3440       bin/dbus-daemon[d].exe
3441       etc/<config-file>.conf *or* etc/dbus-1/<config-file>.conf
3442       (the former above is what dbus4win uses, the latter above is
3443       what a "normal" Unix-style "make install" uses)
3444
3445     build-root/
3446       bin/dbus-daemon[d].exe
3447       bus/<config-file>.conf
3448 */
3449 dbus_bool_t
3450 _dbus_get_config_file_name(DBusString *config_file, char *s)
3451 {
3452   char path[MAX_PATH*2];
3453   int path_size = sizeof(path);
3454
3455   if (!_dbus_get_install_root(path,path_size))
3456     return FALSE;
3457
3458   if(strlen(s) + 4 + strlen(path) > sizeof(path)-2)
3459     return FALSE;
3460   strcat(path,"etc\\");
3461   strcat(path,s);
3462   if (_dbus_file_exists(path))
3463     {
3464       // find path from executable
3465       if (!_dbus_string_append (config_file, path))
3466         return FALSE;
3467     }
3468   else
3469     {
3470       if (!_dbus_get_install_root(path,path_size))
3471         return FALSE;
3472       if(strlen(s) + 11 + strlen(path) > sizeof(path)-2)
3473         return FALSE;
3474       strcat(path,"etc\\dbus-1\\");
3475       strcat(path,s);
3476
3477       if (_dbus_file_exists(path))
3478         {
3479           if (!_dbus_string_append (config_file, path))
3480             return FALSE;
3481         }
3482       else
3483         {
3484           if (!_dbus_get_install_root(path,path_size))
3485             return FALSE;
3486           if(strlen(s) + 4 + strlen(path) > sizeof(path)-2)
3487             return FALSE;
3488           strcat(path,"bus\\");
3489           strcat(path,s);
3490
3491           if (_dbus_file_exists(path))
3492             {
3493               if (!_dbus_string_append (config_file, path))
3494                 return FALSE;
3495             }
3496         }
3497     }
3498   return TRUE;
3499 }
3500
3501 /**
3502  * Append the absolute path of the system.conf file
3503  * (there is no system bus on Windows so this can just
3504  * return FALSE and print a warning or something)
3505  *
3506  * @param str the string to append to
3507  * @returns #FALSE if no memory
3508  */
3509 dbus_bool_t
3510 _dbus_append_system_config_file (DBusString *str)
3511 {
3512   return _dbus_get_config_file_name(str, "system.conf");
3513 }
3514
3515 /**
3516  * Append the absolute path of the session.conf file.
3517  *
3518  * @param str the string to append to
3519  * @returns #FALSE if no memory
3520  */
3521 dbus_bool_t
3522 _dbus_append_session_config_file (DBusString *str)
3523 {
3524   return _dbus_get_config_file_name(str, "session.conf");
3525 }
3526
3527 /* See comment in dbus-sysdeps-unix.c */
3528 dbus_bool_t
3529 _dbus_lookup_session_address (dbus_bool_t *supported,
3530                               DBusString  *address,
3531                               DBusError   *error)
3532 {
3533   /* Probably fill this in with something based on COM? */
3534   *supported = FALSE;
3535   return TRUE;
3536 }
3537
3538 /**
3539  * Appends the directory in which a keyring for the given credentials
3540  * should be stored.  The credentials should have either a Windows or
3541  * UNIX user in them.  The directory should be an absolute path.
3542  *
3543  * On UNIX the directory is ~/.dbus-keyrings while on Windows it should probably
3544  * be something else, since the dotfile convention is not normal on Windows.
3545  *
3546  * @param directory string to append directory to
3547  * @param credentials credentials the directory should be for
3548  *
3549  * @returns #FALSE on no memory
3550  */
3551 dbus_bool_t
3552 _dbus_append_keyring_directory_for_credentials (DBusString      *directory,
3553                                                 DBusCredentials *credentials)
3554 {
3555   DBusString homedir;
3556   DBusString dotdir;
3557   const char *homepath;
3558   const char *homedrive;
3559
3560   _dbus_assert (credentials != NULL);
3561   _dbus_assert (!_dbus_credentials_are_anonymous (credentials));
3562
3563   if (!_dbus_string_init (&homedir))
3564     return FALSE;
3565
3566   homedrive = _dbus_getenv("HOMEDRIVE");
3567   if (homedrive != NULL && *homedrive != '\0')
3568     {
3569       _dbus_string_append(&homedir,homedrive);
3570     }
3571
3572   homepath = _dbus_getenv("HOMEPATH");
3573   if (homepath != NULL && *homepath != '\0')
3574     {
3575       _dbus_string_append(&homedir,homepath);
3576     }
3577
3578 #ifdef DBUS_ENABLE_EMBEDDED_TESTS
3579   {
3580     const char *override;
3581
3582     override = _dbus_getenv ("DBUS_TEST_HOMEDIR");
3583     if (override != NULL && *override != '\0')
3584       {
3585         _dbus_string_set_length (&homedir, 0);
3586         if (!_dbus_string_append (&homedir, override))
3587           goto failed;
3588
3589         _dbus_verbose ("Using fake homedir for testing: %s\n",
3590                        _dbus_string_get_const_data (&homedir));
3591       }
3592     else
3593       {
3594         static dbus_bool_t already_warned = FALSE;
3595         if (!already_warned)
3596           {
3597             _dbus_warn ("Using your real home directory for testing, set DBUS_TEST_HOMEDIR to avoid\n");
3598             already_warned = TRUE;
3599           }
3600       }
3601   }
3602 #endif
3603
3604 #ifdef DBUS_WINCE
3605   /* It's not possible to create a .something directory in Windows CE
3606      using the file explorer.  */
3607 #define KEYRING_DIR "dbus-keyrings"
3608 #else
3609 #define KEYRING_DIR ".dbus-keyrings"
3610 #endif
3611
3612   _dbus_string_init_const (&dotdir, KEYRING_DIR);
3613   if (!_dbus_concat_dir_and_file (&homedir,
3614                                   &dotdir))
3615     goto failed;
3616
3617   if (!_dbus_string_copy (&homedir, 0,
3618                           directory, _dbus_string_get_length (directory))) {
3619     goto failed;
3620   }
3621
3622   _dbus_string_free (&homedir);
3623   return TRUE;
3624
3625  failed:
3626   _dbus_string_free (&homedir);
3627   return FALSE;
3628 }
3629
3630 /** Checks if a file exists
3631 *
3632 * @param file full path to the file
3633 * @returns #TRUE if file exists
3634 */
3635 dbus_bool_t
3636 _dbus_file_exists (const char *file)
3637 {
3638   DWORD attributes = GetFileAttributesA (file);
3639
3640   if (attributes != INVALID_FILE_ATTRIBUTES && GetLastError() != ERROR_PATH_NOT_FOUND)
3641     return TRUE;
3642   else
3643     return FALSE;
3644 }
3645
3646 /**
3647  * A wrapper around strerror() because some platforms
3648  * may be lame and not have strerror().
3649  *
3650  * @param error_number errno.
3651  * @returns error description.
3652  */
3653 const char*
3654 _dbus_strerror (int error_number)
3655 {
3656 #ifdef DBUS_WINCE
3657   // TODO
3658   return "unknown";
3659 #else
3660   const char *msg;
3661
3662   switch (error_number)
3663     {
3664     case WSAEINTR:
3665       return "Interrupted function call";
3666     case WSAEACCES:
3667       return "Permission denied";
3668     case WSAEFAULT:
3669       return "Bad address";
3670     case WSAEINVAL:
3671       return "Invalid argument";
3672     case WSAEMFILE:
3673       return "Too many open files";
3674     case WSAEWOULDBLOCK:
3675       return "Resource temporarily unavailable";
3676     case WSAEINPROGRESS:
3677       return "Operation now in progress";
3678     case WSAEALREADY:
3679       return "Operation already in progress";
3680     case WSAENOTSOCK:
3681       return "Socket operation on nonsocket";
3682     case WSAEDESTADDRREQ:
3683       return "Destination address required";
3684     case WSAEMSGSIZE:
3685       return "Message too long";
3686     case WSAEPROTOTYPE:
3687       return "Protocol wrong type for socket";
3688     case WSAENOPROTOOPT:
3689       return "Bad protocol option";
3690     case WSAEPROTONOSUPPORT:
3691       return "Protocol not supported";
3692     case WSAESOCKTNOSUPPORT:
3693       return "Socket type not supported";
3694     case WSAEOPNOTSUPP:
3695       return "Operation not supported";
3696     case WSAEPFNOSUPPORT:
3697       return "Protocol family not supported";
3698     case WSAEAFNOSUPPORT:
3699       return "Address family not supported by protocol family";
3700     case WSAEADDRINUSE:
3701       return "Address already in use";
3702     case WSAEADDRNOTAVAIL:
3703       return "Cannot assign requested address";
3704     case WSAENETDOWN:
3705       return "Network is down";
3706     case WSAENETUNREACH:
3707       return "Network is unreachable";
3708     case WSAENETRESET:
3709       return "Network dropped connection on reset";
3710     case WSAECONNABORTED:
3711       return "Software caused connection abort";
3712     case WSAECONNRESET:
3713       return "Connection reset by peer";
3714     case WSAENOBUFS:
3715       return "No buffer space available";
3716     case WSAEISCONN:
3717       return "Socket is already connected";
3718     case WSAENOTCONN:
3719       return "Socket is not connected";
3720     case WSAESHUTDOWN:
3721       return "Cannot send after socket shutdown";
3722     case WSAETIMEDOUT:
3723       return "Connection timed out";
3724     case WSAECONNREFUSED:
3725       return "Connection refused";
3726     case WSAEHOSTDOWN:
3727       return "Host is down";
3728     case WSAEHOSTUNREACH:
3729       return "No route to host";
3730     case WSAEPROCLIM:
3731       return "Too many processes";
3732     case WSAEDISCON:
3733       return "Graceful shutdown in progress";
3734     case WSATYPE_NOT_FOUND:
3735       return "Class type not found";
3736     case WSAHOST_NOT_FOUND:
3737       return "Host not found";
3738     case WSATRY_AGAIN:
3739       return "Nonauthoritative host not found";
3740     case WSANO_RECOVERY:
3741       return "This is a nonrecoverable error";
3742     case WSANO_DATA:
3743       return "Valid name, no data record of requested type";
3744     case WSA_INVALID_HANDLE:
3745       return "Specified event object handle is invalid";
3746     case WSA_INVALID_PARAMETER:
3747       return "One or more parameters are invalid";
3748     case WSA_IO_INCOMPLETE:
3749       return "Overlapped I/O event object not in signaled state";
3750     case WSA_IO_PENDING:
3751       return "Overlapped operations will complete later";
3752     case WSA_NOT_ENOUGH_MEMORY:
3753       return "Insufficient memory available";
3754     case WSA_OPERATION_ABORTED:
3755       return "Overlapped operation aborted";
3756 #ifdef WSAINVALIDPROCTABLE
3757
3758     case WSAINVALIDPROCTABLE:
3759       return "Invalid procedure table from service provider";
3760 #endif
3761 #ifdef WSAINVALIDPROVIDER
3762
3763     case WSAINVALIDPROVIDER:
3764       return "Invalid service provider version number";
3765 #endif
3766 #ifdef WSAPROVIDERFAILEDINIT
3767
3768     case WSAPROVIDERFAILEDINIT:
3769       return "Unable to initialize a service provider";
3770 #endif
3771
3772     case WSASYSCALLFAILURE:
3773       return "System call failure";
3774     }
3775   msg = strerror (error_number);
3776   if (msg == NULL)
3777     msg = "unknown";
3778
3779   return msg;
3780 #endif //DBUS_WINCE
3781 }
3782
3783 /**
3784  * Assigns an error name and message corresponding to a Win32 error
3785  * code to a DBusError. Does nothing if error is #NULL.
3786  *
3787  * @param error the error.
3788  * @param code the Win32 error code
3789  */
3790 void
3791 _dbus_win_set_error_from_win_error (DBusError *error,
3792                                     int        code)
3793 {
3794   char *msg;
3795
3796   /* As we want the English message, use the A API */
3797   FormatMessageA (FORMAT_MESSAGE_ALLOCATE_BUFFER |
3798                   FORMAT_MESSAGE_IGNORE_INSERTS |
3799                   FORMAT_MESSAGE_FROM_SYSTEM,
3800                   NULL, code, MAKELANGID (LANG_ENGLISH, SUBLANG_ENGLISH_US),
3801                   (LPSTR) &msg, 0, NULL);
3802   if (msg)
3803     {
3804       char *msg_copy;
3805
3806       msg_copy = dbus_malloc (strlen (msg));
3807       strcpy (msg_copy, msg);
3808       LocalFree (msg);
3809
3810       dbus_set_error (error, "win32.error", "%s", msg_copy);
3811     }
3812   else
3813     dbus_set_error (error, "win32.error", "Unknown error code %d or FormatMessage failed", code);
3814 }
3815
3816 void
3817 _dbus_win_warn_win_error (const char *message,
3818                           int         code)
3819 {
3820   DBusError error;
3821
3822   dbus_error_init (&error);
3823   _dbus_win_set_error_from_win_error (&error, code);
3824   _dbus_warn ("%s: %s\n", message, error.message);
3825   dbus_error_free (&error);
3826 }
3827
3828 /**
3829  * Removes a directory; Directory must be empty
3830  *
3831  * @param filename directory filename
3832  * @param error initialized error object
3833  * @returns #TRUE on success
3834  */
3835 dbus_bool_t
3836 _dbus_delete_directory (const DBusString *filename,
3837                         DBusError        *error)
3838 {
3839   const char *filename_c;
3840
3841   _DBUS_ASSERT_ERROR_IS_CLEAR (error);
3842
3843   filename_c = _dbus_string_get_const_data (filename);
3844
3845   if (RemoveDirectoryA (filename_c) == 0)
3846     {
3847       char *emsg = _dbus_win_error_string (GetLastError ());
3848       dbus_set_error (error, _dbus_win_error_from_last_error (),
3849                       "Failed to remove directory %s: %s",
3850                       filename_c, emsg);
3851       _dbus_win_free_error_string (emsg);
3852       return FALSE;
3853     }
3854
3855   return TRUE;
3856 }
3857
3858 /**
3859  * Checks whether the filename is an absolute path
3860  *
3861  * @param filename the filename
3862  * @returns #TRUE if an absolute path
3863  */
3864 dbus_bool_t
3865 _dbus_path_is_absolute (const DBusString *filename)
3866 {
3867   if (_dbus_string_get_length (filename) > 0)
3868     return _dbus_string_get_byte (filename, 1) == ':'
3869            || _dbus_string_get_byte (filename, 0) == '\\'
3870            || _dbus_string_get_byte (filename, 0) == '/';
3871   else
3872     return FALSE;
3873 }
3874
3875 dbus_bool_t
3876 _dbus_check_setuid (void)
3877 {
3878   return FALSE;
3879 }
3880
3881 /** @} end of sysdeps-win */
3882 /* tests in dbus-sysdeps-util.c */
3883