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
  35 LPCSTR debugstr_ObjectAttributes(const OBJECT_ATTRIBUTES *oa)
  36 {
  37     if (!oa) return "<null>";
  38     return wine_dbg_sprintf( "{name=%s, attr=0x%08x, hRoot=%p, sd=%p}\n",
  39                              debugstr_us(oa->ObjectName), oa->Attributes,
  40                              oa->RootDirectory, oa->SecurityDescriptor );
  41 }
  42
  43 LPCSTR debugstr_us( const UNICODE_STRING *us )
  44 {
  45     if (!us) return "<null>";
  46     return debugstr_wn(us->Buffer, us->Length / sizeof(WCHAR));
  47 }
  48
  49 /*********************************************************************
  50  *                  wine_get_version   (NTDLL.@)
  51  */
  52 const char * CDECL NTDLL_wine_get_version(void)
  53 {
  54     return wine_get_version();
  55 }
  56
  57 /*********************************************************************
  58  *                  wine_get_build_id   (NTDLL.@)
  59  */
  60 const char * CDECL NTDLL_wine_get_build_id(void)
  61 {
  62     return wine_get_build_id();
  63 }
  64
  65 /*********************************************************************
  66  *                  wine_get_host_version   (NTDLL.@)
  67  */
  68 void CDECL NTDLL_wine_get_host_version( const char **sysname, const char **release )
  69 {
  70 #ifdef HAVE_SYS_UTSNAME_H
  71     static struct utsname buf;
  72     static BOOL init_done;
  73
  74     if (!init_done)
  75     {
  76         uname( &buf );
  77         init_done = TRUE;
  78     }
  79     if (sysname) *sysname = buf.sysname;
  80     if (release) *release = buf.release;
  81 #else
  82     if (sysname) *sysname = "";
  83     if (release) *release = "";
  84 #endif
  85 }
  86
  87 /*********************************************************************
  88  *                  abs   (NTDLL.@)
  89  */
  90 int CDECL NTDLL_abs( int i )
  91 {
  92     return abs( i );
  93 }
  94
  95 /*********************************************************************
  96  *                  labs   (NTDLL.@)
  97  */
  98 LONG CDECL NTDLL_labs( LONG i )
  99 {
 100     return labs( i );
 101 }
 102
 103 /*********************************************************************
 104  *                  atan   (NTDLL.@)
 105  */
 106 double CDECL NTDLL_atan( double d )
 107 {
 108     return atan( d );
 109 }
 110
 111 /*********************************************************************
 112  *                  ceil   (NTDLL.@)
 113  */
 114 double CDECL NTDLL_ceil( double d )
 115 {
 116     return ceil( d );
 117 }
 118
 119 /*********************************************************************
 120  *                  cos   (NTDLL.@)
 121  */
 122 double CDECL NTDLL_cos( double d )
 123 {
 124     return cos( d );
 125 }
 126
 127 /*********************************************************************
 128  *                  fabs   (NTDLL.@)
 129  */
 130 double CDECL NTDLL_fabs( double d )
 131 {
 132     return fabs( d );
 133 }
 134
 135 /*********************************************************************
 136  *                  floor   (NTDLL.@)
 137  */
 138 double CDECL NTDLL_floor( double d )
 139 {
 140     return floor( d );
 141 }
 142
 143 /*********************************************************************
 144  *                  log   (NTDLL.@)
 145  */
 146 double CDECL NTDLL_log( double d )
 147 {
 148     return log( d );
 149 }
 150
 151 /*********************************************************************
 152  *                  pow   (NTDLL.@)
 153  */
 154 double CDECL NTDLL_pow( double x, double y )
 155 {
 156     return pow( x, y );
 157 }
 158
 159 /*********************************************************************
 160  *                  sin   (NTDLL.@)
 161  */
 162 double CDECL NTDLL_sin( double d )
 163 {
 164     return sin( d );
 165 }
 166
 167 /*********************************************************************
 168  *                  sqrt   (NTDLL.@)
 169  */
 170 double CDECL NTDLL_sqrt( double d )
 171 {
 172     return sqrt( d );
 173 }
 174
 175 /*********************************************************************
 176  *                  tan   (NTDLL.@)
 177  */
 178 double CDECL NTDLL_tan( double d )
 179 {
 180     return tan( d );
 181 }
 182
 183 #if defined(__GNUC__) && defined(__i386__)
 184
 185 #define FPU_DOUBLE(var) double var; \
 186     __asm__ __volatile__( "fstpl %0;fwait" : "=m" (var) : )
 187 #define FPU_DOUBLES(var1,var2) double var1,var2; \
 188     __asm__ __volatile__( "fstpl %0;fwait" : "=m" (var2) : ); \
 189     __asm__ __volatile__( "fstpl %0;fwait" : "=m" (var1) : )
 190
 191 /*********************************************************************
 192  *              _CIcos (NTDLL.@)
 193  */
 194 double CDECL NTDLL__CIcos(void)
 195 {
 196     FPU_DOUBLE(x);
 197     return NTDLL_cos(x);
 198 }
 199
 200 /*********************************************************************
 201  *              _CIlog (NTDLL.@)
 202  */
 203 double CDECL NTDLL__CIlog(void)
 204 {
 205     FPU_DOUBLE(x);
 206     return NTDLL_log(x);
 207 }
 208
 209 /*********************************************************************
 210  *              _CIpow (NTDLL.@)
 211  */
 212 double CDECL NTDLL__CIpow(void)
 213 {
 214     FPU_DOUBLES(x,y);
 215     return NTDLL_pow(x,y);
 216 }
 217
 218 /*********************************************************************
 219  *              _CIsin (NTDLL.@)
 220  */
 221 double CDECL NTDLL__CIsin(void)
 222 {
 223     FPU_DOUBLE(x);
 224     return NTDLL_sin(x);
 225 }
 226
 227 /*********************************************************************
 228  *              _CIsqrt (NTDLL.@)
 229  */
 230 double CDECL NTDLL__CIsqrt(void)
 231 {
 232     FPU_DOUBLE(x);
 233     return NTDLL_sqrt(x);
 234 }
 235
 236 /*********************************************************************
 237  *                  _ftol   (NTDLL.@)
 238  */
 239 LONGLONG CDECL NTDLL__ftol(void)
 240 {
 241     FPU_DOUBLE(x);
 242     return (LONGLONG)x;
 243 }
 244
 245 #endif /* defined(__GNUC__) && defined(__i386__) */
 246
 247 static void
 248 NTDLL_mergesort( void *arr, void *barr, size_t elemsize, int(__cdecl *compar)(const void *, const void *),
 249                  size_t left, size_t right )
 250 {
 251     if(right>left) {
 252         size_t i, j, k, m;
 253         m=left+(right-left)/2;
 254         NTDLL_mergesort( arr, barr, elemsize, compar, left, m);
 255         NTDLL_mergesort( arr, barr, elemsize, compar, m+1, right);
 256
 257 #define X(a,i) ((char*)a+elemsize*(i))
 258         for (k=left, i=left, j=m+1; i<=m && j<=right; k++) {
 259             if (compar(X(arr, i), X(arr,j)) <= 0) {
 260                 memcpy(X(barr,k), X(arr, i), elemsize);
 261                 i++;
 262             } else {
 263                 memcpy(X(barr,k), X(arr, j), elemsize);
 264                 j++;
 265             }
 266         }
 267         if (i<=m)
 268             memcpy(X(barr,k), X(arr,i), (m-i+1)*elemsize);
 269         else
 270             memcpy(X(barr,k), X(arr,j), (right-j+1)*elemsize);
 271
 272         memcpy(X(arr, left), X(barr, left), (right-left+1)*elemsize);
 273     }
 274 #undef X
 275 }
 276
 277 /*********************************************************************
 278  *                  qsort   (NTDLL.@)
 279  */
 280 void __cdecl NTDLL_qsort( void *base, size_t nmemb, size_t size,
 281                           int(__cdecl *compar)(const void *, const void *) )
 282 {
 283     void *secondarr;
 284     if (nmemb < 2 || size == 0) return;
 285     secondarr = RtlAllocateHeap (GetProcessHeap(), 0, nmemb*size);
 286     NTDLL_mergesort( base, secondarr, size, compar, 0, nmemb-1 );
 287     RtlFreeHeap (GetProcessHeap(),0, secondarr);
 288 }
 289
 290 /*********************************************************************
 291  *                  bsearch   (NTDLL.@)
 292  */
 293 void * __cdecl
 294 NTDLL_bsearch( const void *key, const void *base, size_t nmemb,
 295                size_t size, int (__cdecl *compar)(const void *, const void *) )
 296 {
 297     ssize_t min = 0;
 298     ssize_t max = nmemb - 1;
 299
 300     while (min <= max)
 301     {
 302         ssize_t cursor = min + (max - min) / 2;
 303         int ret = compar(key,(const char *)base+(cursor*size));
 304         if (!ret)
 305             return (char*)base+(cursor*size);
 306         if (ret < 0)
 307             max = cursor - 1;
 308         else
 309             min = cursor + 1;
 310     }
 311     return NULL;
 312 }
 313
 314
 315 /*********************************************************************
 316  *                  _lfind   (NTDLL.@)
 317  */
 318 void * __cdecl _lfind( const void *key, const void *base, unsigned int *nmemb,
 319                        size_t size, int(__cdecl *compar)(const void *, const void *) )
 320 {
 321     size_t i, n = *nmemb;
 322
 323     for (i=0;i<n;i++)
 324         if (!compar(key,(char*)base+(size*i)))
 325             return (char*)base+(size*i);
 326     return NULL;
 327 }