win32/newfns.c

   1 /*
   2  * Win32 miscellaneous functions
   3  *
   4  * Copyright 1995 Thomas Sandford (tdgsandf@prds-grn.demon.co.uk)
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 /* Misc. new functions - they should be moved into appropriate files
  22 at a later date. */
  23
  24 #include <stdio.h>
  25 #include <string.h>
  26 #include <sys/time.h>
  27 #include <unistd.h>
  28 #include "windef.h"
  29 #include "winbase.h"
  30 #include "winnls.h"
  31 #include "winerror.h"
  32 #include "wine/debug.h"
  33
  34 WINE_DEFAULT_DEBUG_CHANNEL(win32);
  35 WINE_DECLARE_DEBUG_CHANNEL(debug);
  36
  37
  38 static BOOL     QUERYPERF_Initialized           = 0;
  39 #if defined(__i386__) && defined(__GNUC__)
  40 static BOOL     QUERYPERF_RDTSC_Use             = 0;
  41 static LONGLONG QUERYPERF_RDTSC_Frequency       = 0;
  42 #endif
  43
  44 static void QUERYPERF_Init(void)
  45 {
  46 #if defined(__i386__) && defined(__GNUC__)
  47     /* We are running on i386 and compiling on GCC.
  48      * Do a runtime check to see if we have the rdtsc instruction available
  49      */
  50     FILE                *fp;
  51     char                line[256], *s, *value;
  52     double              cpuMHz;
  53
  54     TRACE("()\n");
  55
  56     if (IsProcessorFeaturePresent( PF_RDTSC_INSTRUCTION_AVAILABLE ))
  57     {
  58         /* rdtsc is available.  However, in order to use it
  59          * we also need to be able to get the processor's
  60          * speed.  Currently we do this by reading /proc/cpuinfo
  61          * which makes it Linux-specific.
  62          */
  63
  64         TRACE("rdtsc available\n");
  65
  66         fp = fopen( "/proc/cpuinfo", "r" );
  67         if (fp)
  68         {
  69             while(fgets( line, sizeof(line), fp ))
  70             {
  71                 /* NOTE: the ':' is the only character we can rely on */
  72                 if (!(value = strchr( line, ':' )))
  73                     continue;
  74
  75                 /* terminate the valuename */
  76                 *value++ = '\0';
  77                 /* skip any leading spaces */
  78                 while (*value == ' ') value++;
  79                 if ((s = strchr( value, '\n' )))
  80                     *s = '\0';
  81
  82                 if (!strncasecmp( line, "cpu MHz", strlen( "cpu MHz" ) ))
  83                 {
  84                     if (sscanf( value, "%lf", &cpuMHz ) == 1)
  85                     {
  86                         QUERYPERF_RDTSC_Frequency = (LONGLONG)(cpuMHz * 1000000.0);
  87                         QUERYPERF_RDTSC_Use = TRUE;
  88                         TRACE("using frequency: %lldHz\n", QUERYPERF_RDTSC_Frequency);
  89                         break;
  90                     }
  91                 }
  92             }
  93             fclose(fp);
  94         }
  95     }
  96 #endif
  97     QUERYPERF_Initialized = TRUE;
  98 }
  99
 100
 101 /****************************************************************************
 102  *              QueryPerformanceCounter (KERNEL32.@)
 103  */
 104 BOOL WINAPI QueryPerformanceCounter(PLARGE_INTEGER counter)
 105 {
 106     struct timeval tv;
 107
 108     if (!QUERYPERF_Initialized)
 109         QUERYPERF_Init();
 110
 111 #if defined(__i386__) && defined(__GNUC__)
 112     if (QUERYPERF_RDTSC_Use)
 113     {
 114         /* i586 optimized version */
 115         __asm__ __volatile__ ( "rdtsc"
 116                                : "=a" (counter->s.LowPart), "=d" (counter->s.HighPart) );
 117         return TRUE;
 118     }
 119     /* fall back to generic routine (ie, for i386, i486) */
 120 #endif
 121
 122     /* generic routine */
 123     gettimeofday( &tv, NULL );
 124     counter->QuadPart = (LONGLONG)tv.tv_usec + (LONGLONG)tv.tv_sec * 1000000LL;
 125     return TRUE;
 126 }
 127
 128 /****************************************************************************
 129  *              QueryPerformanceFrequency (KERNEL32.@)
 130  */
 131 BOOL WINAPI QueryPerformanceFrequency(PLARGE_INTEGER frequency)
 132 {
 133     if (!QUERYPERF_Initialized)
 134         QUERYPERF_Init();
 135
 136 #if defined(__i386__) && defined(__GNUC__)
 137     if (QUERYPERF_RDTSC_Use)
 138     {
 139         frequency->QuadPart = QUERYPERF_RDTSC_Frequency;
 140         return TRUE;
 141     }
 142 #endif
 143
 144     frequency->s.LowPart        = 1000000;
 145     frequency->s.HighPart       = 0;
 146     return TRUE;
 147 }
 148
 149 /****************************************************************************
 150  *              FlushInstructionCache (KERNEL32.@)
 151  */
 152 BOOL WINAPI FlushInstructionCache(HANDLE hProcess, LPCVOID lpBaseAddress, DWORD dwSize)
 153 {
 154     if (GetVersion() & 0x80000000) return TRUE; /* not NT, always TRUE */
 155     FIXME_(debug)("(0x%08lx,%p,0x%08lx): stub\n",(DWORD)hProcess, lpBaseAddress, dwSize);
 156     return TRUE;
 157 }
 158
 159 /***********************************************************************
 160  *           GetSystemPowerStatus      (KERNEL32.@)
 161  */
 162 BOOL WINAPI GetSystemPowerStatus(LPSYSTEM_POWER_STATUS sps_ptr)
 163 {
 164     return FALSE;   /* no power management support */
 165 }
 166
 167
 168 /***********************************************************************
 169  *           SetSystemPowerState      (KERNEL32.@)
 170  */
 171 BOOL WINAPI SetSystemPowerState(BOOL suspend_or_hibernate,
 172                                   BOOL force_flag)
 173 {
 174     /* suspend_or_hibernate flag: w95 does not support
 175        this feature anyway */
 176
 177     for ( ;0; )
 178     {
 179         if ( force_flag )
 180         {
 181         }
 182         else
 183         {
 184         }
 185     }
 186     return TRUE;
 187 }
 188
 189
 190 /******************************************************************************
 191  * CreateMailslotA [KERNEL32.@]
 192  */
 193 HANDLE WINAPI CreateMailslotA( LPCSTR lpName, DWORD nMaxMessageSize,
 194                                    DWORD lReadTimeout, LPSECURITY_ATTRIBUTES sa)
 195 {
 196     FIXME("(%s,%ld,%ld,%p): stub\n", debugstr_a(lpName),
 197           nMaxMessageSize, lReadTimeout, sa);
 198     return 1;
 199 }
 200
 201
 202 /******************************************************************************
 203  * CreateMailslotW [KERNEL32.@]  Creates a mailslot with specified name
 204  *
 205  * PARAMS
 206  *    lpName          [I] Pointer to string for mailslot name
 207  *    nMaxMessageSize [I] Maximum message size
 208  *    lReadTimeout    [I] Milliseconds before read time-out
 209  *    sa              [I] Pointer to security structure
 210  *
 211  * RETURNS
 212  *    Success: Handle to mailslot
 213  *    Failure: INVALID_HANDLE_VALUE
 214  */
 215 HANDLE WINAPI CreateMailslotW( LPCWSTR lpName, DWORD nMaxMessageSize,
 216                                    DWORD lReadTimeout, LPSECURITY_ATTRIBUTES sa )
 217 {
 218     FIXME("(%s,%ld,%ld,%p): stub\n", debugstr_w(lpName),
 219           nMaxMessageSize, lReadTimeout, sa);
 220     return 1;
 221 }
 222
 223
 224 /******************************************************************************
 225  * GetMailslotInfo [KERNEL32.@]  Retrieves info about specified mailslot
 226  *
 227  * PARAMS
 228  *    hMailslot        [I] Mailslot handle
 229  *    lpMaxMessageSize [O] Address of maximum message size
 230  *    lpNextSize       [O] Address of size of next message
 231  *    lpMessageCount   [O] Address of number of messages
 232  *    lpReadTimeout    [O] Address of read time-out
 233  *
 234  * RETURNS
 235  *    Success: TRUE
 236  *    Failure: FALSE
 237  */
 238 BOOL WINAPI GetMailslotInfo( HANDLE hMailslot, LPDWORD lpMaxMessageSize,
 239                                LPDWORD lpNextSize, LPDWORD lpMessageCount,
 240                                LPDWORD lpReadTimeout )
 241 {
 242     FIXME("(%04x): stub\n",hMailslot);
 243     if (lpMaxMessageSize) *lpMaxMessageSize = (DWORD)NULL;
 244     if (lpNextSize) *lpNextSize = (DWORD)NULL;
 245     if (lpMessageCount) *lpMessageCount = (DWORD)NULL;
 246     if (lpReadTimeout) *lpReadTimeout = (DWORD)NULL;
 247     return TRUE;
 248 }
 249
 250
 251 /******************************************************************************
 252  * GetCompressedFileSizeA [KERNEL32.@]
 253  *
 254  * NOTES
 255  *    This should call the W function below
 256  */
 257 DWORD WINAPI GetCompressedFileSizeA(
 258     LPCSTR lpFileName,
 259     LPDWORD lpFileSizeHigh)
 260 {
 261     FIXME("(...): stub\n");
 262     return 0xffffffff;
 263 }
 264
 265
 266 /******************************************************************************
 267  * GetCompressedFileSizeW [KERNEL32.@]
 268  *
 269  * RETURNS
 270  *    Success: Low-order doubleword of number of bytes
 271  *    Failure: 0xffffffff
 272  */
 273 DWORD WINAPI GetCompressedFileSizeW(
 274     LPCWSTR lpFileName,     /* [in]  Pointer to name of file */
 275     LPDWORD lpFileSizeHigh) /* [out] Receives high-order doubleword of size */
 276 {
 277     FIXME("(%s,%p): stub\n",debugstr_w(lpFileName),lpFileSizeHigh);
 278     return 0xffffffff;
 279 }
 280
 281
 282 /******************************************************************************
 283  * SetComputerNameA [KERNEL32.@]
 284  */
 285 BOOL WINAPI SetComputerNameA( LPCSTR lpComputerName )
 286 {
 287     BOOL ret;
 288     DWORD len = MultiByteToWideChar( CP_ACP, 0, lpComputerName, -1, NULL, 0 );
 289     LPWSTR nameW = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 290
 291     MultiByteToWideChar( CP_ACP, 0, lpComputerName, -1, nameW, len );
 292     ret = SetComputerNameW( nameW );
 293     HeapFree( GetProcessHeap(), 0, nameW );
 294     return ret;
 295 }
 296
 297
 298 /******************************************************************************
 299  * SetComputerNameW [KERNEL32.@]
 300  *
 301  * PARAMS
 302  *    lpComputerName [I] Address of new computer name
 303  *
 304  * RETURNS STD
 305  */
 306 BOOL WINAPI SetComputerNameW( LPCWSTR lpComputerName )
 307 {
 308     FIXME("(%s): stub\n", debugstr_w(lpComputerName));
 309     return TRUE;
 310 }
 311
 312 /******************************************************************************
 313  *              CreateIoCompletionPort (KERNEL32.@)
 314  */
 315 HANDLE WINAPI CreateIoCompletionPort(HANDLE hFileHandle,
 316 HANDLE hExistingCompletionPort, DWORD dwCompletionKey,
 317 DWORD dwNumberOfConcurrentThreads)
 318 {
 319     FIXME("(%04x, %04x, %08lx, %08lx): stub.\n", hFileHandle, hExistingCompletionPort, dwCompletionKey, dwNumberOfConcurrentThreads);
 320     return (HANDLE)NULL;
 321 }
 322
 323 /******************************************************************************
 324  *              GetQueuedCompletionStatus (KERNEL32.@)
 325  */
 326 BOOL WINAPI GetQueuedCompletionStatus(
 327     HANDLE CompletionPort, LPDWORD lpNumberOfBytesTransferred,
 328     LPDWORD lpCompletionKey, LPOVERLAPPED *lpOverlapped, DWORD dwMilliseconds
 329 ) {
 330     FIXME("(%x,%p,%p,%p,%ld), stub!\n",CompletionPort,lpNumberOfBytesTransferred,lpCompletionKey,lpOverlapped,dwMilliseconds);
 331     SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
 332     return FALSE;
 333 }