dlls/ntdll/misc.c

   1 /*
   2  * Helper functions for ntdll
   3  *
   4  * Copyright 2000 Juergen Schmied
   5  * Copyright 2010 Marcus Meissner
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #include "config.h"
  23
  24 #include <time.h>
  25 #include <math.h>
  26 #ifdef HAVE_SYS_UTSNAME_H
  27 #include <sys/utsname.h>
  28 #endif
  29
  30 #include "wine/library.h"
  31 #include "wine/debug.h"
  32 #include "ntdll_misc.h"
  33
  34 WINE_DEFAULT_DEBUG_CHANNEL(ntdll);
  35
  36 LPCSTR debugstr_ObjectAttributes(const OBJECT_ATTRIBUTES *oa)
  37 {
  38     if (!oa) return "<null>";
  39     return wine_dbg_sprintf( "{name=%s, attr=0x%08x, hRoot=%p, sd=%p}\n",
  40                              debugstr_us(oa->ObjectName), oa->Attributes,
  41                              oa->RootDirectory, oa->SecurityDescriptor );
  42 }
  43
  44 LPCSTR debugstr_us( const UNICODE_STRING *us )
  45 {
  46     if (!us) return "<null>";
  47     return debugstr_wn(us->Buffer, us->Length / sizeof(WCHAR));
  48 }
  49
  50 /*********************************************************************
  51  *                  wine_get_version   (NTDLL.@)
  52  */
  53 const char * CDECL NTDLL_wine_get_version(void)
  54 {
  55     return wine_get_version();
  56 }
  57
  58 /*********************************************************************
  59  *                  wine_get_build_id   (NTDLL.@)
  60  */
  61 const char * CDECL NTDLL_wine_get_build_id(void)
  62 {
  63     return wine_get_build_id();
  64 }
  65
  66 /*********************************************************************
  67  *                  wine_get_host_version   (NTDLL.@)
  68  */
  69 void CDECL NTDLL_wine_get_host_version( const char **sysname, const char **release )
  70 {
  71 #ifdef HAVE_SYS_UTSNAME_H
  72     static struct utsname buf;
  73     static BOOL init_done;
  74
  75     if (!init_done)
  76     {
  77         uname( &buf );
  78         init_done = TRUE;
  79     }
  80     if (sysname) *sysname = buf.sysname;
  81     if (release) *release = buf.release;
  82 #else
  83     if (sysname) *sysname = "";
  84     if (release) *release = "";
  85 #endif
  86 }
  87
  88 /*********************************************************************
  89  *                  abs   (NTDLL.@)
  90  */
  91 int CDECL NTDLL_abs( int i )
  92 {
  93     return abs( i );
  94 }
  95
  96 /*********************************************************************
  97  *                  labs   (NTDLL.@)
  98  */
  99 LONG CDECL NTDLL_labs( LONG i )
 100 {
 101     return labs( i );
 102 }
 103
 104 /*********************************************************************
 105  *                  atan   (NTDLL.@)
 106  */
 107 double CDECL NTDLL_atan( double d )
 108 {
 109     return atan( d );
 110 }
 111
 112 /*********************************************************************
 113  *                  ceil   (NTDLL.@)
 114  */
 115 double CDECL NTDLL_ceil( double d )
 116 {
 117     return ceil( d );
 118 }
 119
 120 /*********************************************************************
 121  *                  cos   (NTDLL.@)
 122  */
 123 double CDECL NTDLL_cos( double d )
 124 {
 125     return cos( d );
 126 }
 127
 128 /*********************************************************************
 129  *                  fabs   (NTDLL.@)
 130  */
 131 double CDECL NTDLL_fabs( double d )
 132 {
 133     return fabs( d );
 134 }
 135
 136 /*********************************************************************
 137  *                  floor   (NTDLL.@)
 138  */
 139 double CDECL NTDLL_floor( double d )
 140 {
 141     return floor( d );
 142 }
 143
 144 /*********************************************************************
 145  *                  log   (NTDLL.@)
 146  */
 147 double CDECL NTDLL_log( double d )
 148 {
 149     return log( d );
 150 }
 151
 152 /*********************************************************************
 153  *                  pow   (NTDLL.@)
 154  */
 155 double CDECL NTDLL_pow( double x, double y )
 156 {
 157     return pow( x, y );
 158 }
 159
 160 /*********************************************************************
 161  *                  sin   (NTDLL.@)
 162  */
 163 double CDECL NTDLL_sin( double d )
 164 {
 165     return sin( d );
 166 }
 167
 168 /*********************************************************************
 169  *                  sqrt   (NTDLL.@)
 170  */
 171 double CDECL NTDLL_sqrt( double d )
 172 {
 173     return sqrt( d );
 174 }
 175
 176 /*********************************************************************
 177  *                  tan   (NTDLL.@)
 178  */
 179 double CDECL NTDLL_tan( double d )
 180 {
 181     return tan( d );
 182 }
 183
 184 #if defined(__GNUC__) && defined(__i386__)
 185
 186 #define FPU_DOUBLE(var) double var; \
 187     __asm__ __volatile__( "fstpl %0;fwait" : "=m" (var) : )
 188 #define FPU_DOUBLES(var1,var2) double var1,var2; \
 189     __asm__ __volatile__( "fstpl %0;fwait" : "=m" (var2) : ); \
 190     __asm__ __volatile__( "fstpl %0;fwait" : "=m" (var1) : )
 191
 192 /*********************************************************************
 193  *              _CIcos (NTDLL.@)
 194  */
 195 double CDECL NTDLL__CIcos(void)
 196 {
 197     FPU_DOUBLE(x);
 198     return NTDLL_cos(x);
 199 }
 200
 201 /*********************************************************************
 202  *              _CIlog (NTDLL.@)
 203  */
 204 double CDECL NTDLL__CIlog(void)
 205 {
 206     FPU_DOUBLE(x);
 207     return NTDLL_log(x);
 208 }
 209
 210 /*********************************************************************
 211  *              _CIpow (NTDLL.@)
 212  */
 213 double CDECL NTDLL__CIpow(void)
 214 {
 215     FPU_DOUBLES(x,y);
 216     return NTDLL_pow(x,y);
 217 }
 218
 219 /*********************************************************************
 220  *              _CIsin (NTDLL.@)
 221  */
 222 double CDECL NTDLL__CIsin(void)
 223 {
 224     FPU_DOUBLE(x);
 225     return NTDLL_sin(x);
 226 }
 227
 228 /*********************************************************************
 229  *              _CIsqrt (NTDLL.@)
 230  */
 231 double CDECL NTDLL__CIsqrt(void)
 232 {
 233     FPU_DOUBLE(x);
 234     return NTDLL_sqrt(x);
 235 }
 236
 237 /*********************************************************************
 238  *                  _ftol   (NTDLL.@)
 239  */
 240 LONGLONG CDECL NTDLL__ftol(void)
 241 {
 242     FPU_DOUBLE(x);
 243     return (LONGLONG)x;
 244 }
 245
 246 #endif /* defined(__GNUC__) && defined(__i386__) */
 247
 248 static void
 249 NTDLL_mergesort( void *arr, void *barr, size_t elemsize, int(__cdecl *compar)(const void *, const void *),
 250                  size_t left, size_t right )
 251 {
 252     if(right>left) {
 253         size_t i, j, k, m;
 254         m=left+(right-left)/2;
 255         NTDLL_mergesort( arr, barr, elemsize, compar, left, m);
 256         NTDLL_mergesort( arr, barr, elemsize, compar, m+1, right);
 257
 258 #define X(a,i) ((char*)a+elemsize*(i))
 259         for (k=left, i=left, j=m+1; i<=m && j<=right; k++) {
 260             if (compar(X(arr, i), X(arr,j)) <= 0) {
 261                 memcpy(X(barr,k), X(arr, i), elemsize);
 262                 i++;
 263             } else {
 264                 memcpy(X(barr,k), X(arr, j), elemsize);
 265                 j++;
 266             }
 267         }
 268         if (i<=m)
 269             memcpy(X(barr,k), X(arr,i), (m-i+1)*elemsize);
 270         else
 271             memcpy(X(barr,k), X(arr,j), (right-j+1)*elemsize);
 272
 273         memcpy(X(arr, left), X(barr, left), (right-left+1)*elemsize);
 274     }
 275 #undef X
 276 }
 277
 278 /*********************************************************************
 279  *                  qsort   (NTDLL.@)
 280  */
 281 void __cdecl NTDLL_qsort( void *base, size_t nmemb, size_t size,
 282                           int(__cdecl *compar)(const void *, const void *) )
 283 {
 284     void *secondarr;
 285     if (nmemb < 2 || size == 0) return;
 286     secondarr = RtlAllocateHeap (GetProcessHeap(), 0, nmemb*size);
 287     NTDLL_mergesort( base, secondarr, size, compar, 0, nmemb-1 );
 288     RtlFreeHeap (GetProcessHeap(),0, secondarr);
 289 }
 290
 291 /*********************************************************************
 292  *                  bsearch   (NTDLL.@)
 293  */
 294 void * __cdecl
 295 NTDLL_bsearch( const void *key, const void *base, size_t nmemb,
 296                size_t size, int (__cdecl *compar)(const void *, const void *) )
 297 {
 298     ssize_t min = 0;
 299     ssize_t max = nmemb - 1;
 300
 301     while (min <= max)
 302     {
 303         ssize_t cursor = min + (max - min) / 2;
 304         int ret = compar(key,(const char *)base+(cursor*size));
 305         if (!ret)
 306             return (char*)base+(cursor*size);
 307         if (ret < 0)
 308             max = cursor - 1;
 309         else
 310             min = cursor + 1;
 311     }
 312     return NULL;
 313 }
 314
 315
 316 /*********************************************************************
 317  *                  _lfind   (NTDLL.@)
 318  */
 319 void * __cdecl _lfind( const void *key, const void *base, unsigned int *nmemb,
 320                        size_t size, int(__cdecl *compar)(const void *, const void *) )
 321 {
 322     size_t i, n = *nmemb;
 323
 324     for (i=0;i<n;i++)
 325         if (!compar(key,(char*)base+(size*i)))
 326             return (char*)base+(size*i);
 327     return NULL;
 328 }
 329
 330 /*********************************************************************
 331  *                  WinSqmIsOptedIn   (NTDLL.@)
 332  */
 333 BOOL WINAPI WinSqmIsOptedIn(void)
 334 {
 335     FIXME("() stub\n");
 336     return FALSE;
 337 }