git.oblomov.eu Git - wine/blob - win32/init.c

   1 /*
   2  * Win32 kernel functions
   3  *
   4  * Copyright 1995 Martin von Loewis and Cameron Heide
   5  * 1999 Peter Ganten
   6  */
   7
   8 #include <string.h>
   9 #include <unistd.h>
  10 #include <stdlib.h>
  11 #include <errno.h>
  12
  13 #include "winnls.h"
  14 #include "winbase.h"
  15 #include "winerror.h"
  16 #include "wine/exception.h"
  17 #include "msvcrt/excpt.h"
  18 #include "debugtools.h"
  19
  20 DEFAULT_DEBUG_CHANNEL(win32);
  21
  22 /* filter for page-fault exceptions */
  23 static WINE_EXCEPTION_FILTER(page_fault)
  24 {
  25     if (GetExceptionCode() == EXCEPTION_ACCESS_VIOLATION)
  26         return EXCEPTION_EXECUTE_HANDLER;
  27     return EXCEPTION_CONTINUE_SEARCH;
  28 }
  29
  30 /***********************************************************************
  31  *              GetComputerNameA         (KERNEL32.@)
  32  */
  33 BOOL WINAPI GetComputerNameA(LPSTR name,LPDWORD size)
  34 {
  35     /* At least Win95OSR2 survives if size is not a pointer (NT crashes though) */
  36     BOOL ret;
  37     __TRY
  38     {
  39         char host_name[256];
  40         TRACE("*size = %ld\n", *size);
  41         ret = (gethostname(host_name, sizeof(host_name)) != -1);
  42         if (ret)
  43         {
  44             lstrcpynA(name, host_name, *size);
  45             *size = strlen(name);
  46         }
  47         else
  48             WARN("gethostname: %s\n", strerror(errno));
  49     }
  50     __EXCEPT(page_fault)
  51     {
  52       SetLastError( ERROR_INVALID_PARAMETER );
  53       return FALSE;
  54     }
  55     __ENDTRY
  56
  57     TRACE("returning (%ld) %s\n", *size, debugstr_a(name));
  58     return ret;
  59 }
  60
  61 /***********************************************************************
  62  *              GetComputerNameW         (KERNEL32.@)
  63  */
  64 BOOL WINAPI GetComputerNameW(LPWSTR name,LPDWORD size)
  65 {
  66     LPSTR nameA = (LPSTR)HeapAlloc( GetProcessHeap(), 0, *size);
  67     BOOL ret = GetComputerNameA(nameA,size);
  68     /* FIXME: should set *size in Unicode chars */
  69     if (ret) MultiByteToWideChar( CP_ACP, 0, nameA, -1, name, *size+1 );
  70     HeapFree( GetProcessHeap(), 0, nameA );
  71     return ret;
  72 }
  73
  74 /***********************************************************************
  75  *              GetComputerNameExA         (KERNEL32.@)
  76  */
  77 BOOL WINAPI GetComputerNameExA(COMPUTER_NAME_FORMAT type, LPSTR name, LPDWORD size)
  78 {
  79     FIXME("(%d, %p, %p) semi-stub!\n", type, name, size);
  80     return GetComputerNameA(name, size);
  81 }
  82
  83 /***********************************************************************
  84  *              GetComputerNameExW         (KERNEL32.@)
  85  */
  86 BOOL WINAPI GetComputerNameExW(COMPUTER_NAME_FORMAT type, LPWSTR name, LPDWORD size)
  87 {
  88     FIXME("(%d, %p, %p) semi-stub!\n", type, name, size);
  89     return GetComputerNameW(name, size);
  90 }