source: trunk/src/NTDLL/rtl.cpp@ 3781

Last change on this file since 3781 was 1654, checked in by phaller, 26 years ago

Add. RtlCopyLuid added
File size: 17.0 KB
Line 
1/* $Id: rtl.cpp,v 1.9 1999-11-09 09:54:47 phaller Exp $ */
2
3/*
4 * Project Odin Software License can be found in LICENSE.TXT
5 * Win32 NT Runtime / NTDLL for OS/2
6 *
7 * Copyright 1998 original WINE Author
8 * Copyright 1998, 1999 Patrick Haller (phaller@gmx.net)
9 *
10 * NT basis DLL
11 *
12 * This file contains the Rtl* API functions. These should be implementable.
13 *
14 * Copyright 1996-1998 Marcus Meissner
15 * 1999 Alex Korobka
16 */
17
18#include <stdlib.h>
19#include <string.h>
20#include <odinwrap.h>
21
22#include "ntdll.h"
23
24#include "winuser.h"
25#include "winerror.h"
26#include "winreg.h"
27#include "heapstring.h"
28
29ODINDEBUGCHANNEL(NTDLL-RTL)
30
31/*
32 * resource functions
33 */
34
35/***********************************************************************
36 * RtlInitializeResource (NTDLL.409)
37 *
38 * xxxResource() functions implement multiple-reader-single-writer lock.
39 * The code is based on information published in WDJ January 1999 issue.
40 */
41void WINAPI RtlInitializeResource(LPRTL_RWLOCK rwl)
42{
43 dprintf(("NTDLL: RtlInitializeResource(%08xh)\n",
44 rwl));
45
46 if( rwl )
47 {
48 rwl->iNumberActive = 0;
49 rwl->uExclusiveWaiters = 0;
50 rwl->uSharedWaiters = 0;
51 rwl->hOwningThreadId = 0;
52 rwl->dwTimeoutBoost = 0; /* no info on this one, default value is 0 */
53 InitializeCriticalSection( &rwl->rtlCS );
54 rwl->hExclusiveReleaseSemaphore = CreateSemaphoreA( NULL, 0, 65535, NULL );
55 rwl->hSharedReleaseSemaphore = CreateSemaphoreA( NULL, 0, 65535, NULL );
56 }
57}
58
59
60/***********************************************************************
61 * RtlDeleteResource (NTDLL.330)
62 */
63void WINAPI RtlDeleteResource(LPRTL_RWLOCK rwl)
64{
65 dprintf(("NTDLL: RtlDeleteResource(%08xh)\n",
66 rwl));
67
68 if( rwl )
69 {
70 EnterCriticalSection( &rwl->rtlCS );
71 if( rwl->iNumberActive || rwl->uExclusiveWaiters || rwl->uSharedWaiters )
72 dprintf(("NTDLL: RtlDeleteResource active MRSW lock (%p), expect failure\n",
73 rwl));
74
75 rwl->hOwningThreadId = 0;
76 rwl->uExclusiveWaiters = rwl->uSharedWaiters = 0;
77 rwl->iNumberActive = 0;
78 CloseHandle( rwl->hExclusiveReleaseSemaphore );
79 CloseHandle( rwl->hSharedReleaseSemaphore );
80 LeaveCriticalSection( &rwl->rtlCS );
81 DeleteCriticalSection( &rwl->rtlCS );
82 }
83}
84
85
86/***********************************************************************
87 * RtlAcquireResourceExclusive (NTDLL.256)
88 */
89BYTE WINAPI RtlAcquireResourceExclusive(LPRTL_RWLOCK rwl,
90 BYTE fWait)
91{
92 BYTE retVal = 0;
93
94 if( !rwl )
95 return 0;
96
97 dprintf(("NTDLL: RtlAcquireResourceExclusive(%08xh,%08xh)\n",
98 rwl,
99 fWait));
100
101start:
102 EnterCriticalSection( &rwl->rtlCS );
103 if( rwl->iNumberActive == 0 ) /* lock is free */
104 {
105 rwl->iNumberActive = -1;
106 retVal = 1;
107 }
108 else if( rwl->iNumberActive < 0 ) /* exclusive lock in progress */
109 {
110 if( rwl->hOwningThreadId == GetCurrentThreadId() )
111 {
112 retVal = 1;
113 rwl->iNumberActive--;
114 goto done;
115 }
116wait:
117 if( fWait )
118 {
119 rwl->uExclusiveWaiters++;
120
121 LeaveCriticalSection( &rwl->rtlCS );
122 if( WaitForSingleObject( rwl->hExclusiveReleaseSemaphore, INFINITE ) == WAIT_FAILED )
123 goto done;
124 goto start; /* restart the acquisition to avoid deadlocks */
125 }
126 }
127 else /* one or more shared locks are in progress */
128 if( fWait )
129 goto wait;
130
131 if( retVal == 1 )
132 rwl->hOwningThreadId = GetCurrentThreadId();
133done:
134 LeaveCriticalSection( &rwl->rtlCS );
135 return retVal;
136}
137
138/***********************************************************************
139 * RtlAcquireResourceShared (NTDLL.257)
140 */
141BYTE WINAPI RtlAcquireResourceShared(LPRTL_RWLOCK rwl,
142 BYTE fWait)
143{
144 DWORD dwWait = WAIT_FAILED;
145 BYTE retVal = 0;
146
147 if( !rwl )
148 return 0;
149
150 dprintf(("NTDLL: RtlAcquireResourceShared(%08xh,%08xh)\n",
151 rwl,
152 fWait));
153
154start:
155 EnterCriticalSection( &rwl->rtlCS );
156 if( rwl->iNumberActive < 0 )
157 {
158 if( rwl->hOwningThreadId == GetCurrentThreadId() )
159 {
160 rwl->iNumberActive--;
161 retVal = 1;
162 goto done;
163 }
164
165 if( fWait )
166 {
167 rwl->uSharedWaiters++;
168 LeaveCriticalSection( &rwl->rtlCS );
169 if( (dwWait = WaitForSingleObject( rwl->hSharedReleaseSemaphore, INFINITE )) == WAIT_FAILED )
170 goto done;
171 goto start;
172 }
173 }
174 else
175 {
176 if( dwWait != WAIT_OBJECT_0 ) /* otherwise RtlReleaseResource() has already done it */
177 rwl->iNumberActive++;
178 retVal = 1;
179 }
180done:
181 LeaveCriticalSection( &rwl->rtlCS );
182 return retVal;
183}
184
185
186/***********************************************************************
187 * RtlReleaseResource (NTDLL.471)
188 */
189void WINAPI RtlReleaseResource(LPRTL_RWLOCK rwl)
190{
191 dprintf(("NTDLL: RtlReleaseResource(%08xh)\n",
192 rwl));
193
194 EnterCriticalSection( &rwl->rtlCS );
195
196 if( rwl->iNumberActive > 0 ) /* have one or more readers */
197 {
198 if( --rwl->iNumberActive == 0 )
199 {
200 if( rwl->uExclusiveWaiters )
201 {
202wake_exclusive:
203 rwl->uExclusiveWaiters--;
204 ReleaseSemaphore( rwl->hExclusiveReleaseSemaphore, 1, NULL );
205 }
206 }
207 }
208 else
209 if( rwl->iNumberActive < 0 ) /* have a writer, possibly recursive */
210 {
211 if( ++rwl->iNumberActive == 0 )
212 {
213 rwl->hOwningThreadId = 0;
214 if( rwl->uExclusiveWaiters )
215 goto wake_exclusive;
216 else
217 if( rwl->uSharedWaiters )
218 {
219 UINT n = rwl->uSharedWaiters;
220 rwl->iNumberActive = rwl->uSharedWaiters; /* prevent new writers from joining until
221 * all queued readers have done their thing */
222 rwl->uSharedWaiters = 0;
223 ReleaseSemaphore( rwl->hSharedReleaseSemaphore, n, NULL );
224 }
225 }
226 }
227 LeaveCriticalSection( &rwl->rtlCS );
228}
229
230
231/***********************************************************************
232 * RtlDumpResource (NTDLL.340)
233 */
234void WINAPI RtlDumpResource(LPRTL_RWLOCK rwl)
235{
236 dprintf(("NTDLL: RtlDumpResource(%08x)\n",
237 rwl));
238
239 if( rwl )
240 {
241 dprintf(("NTDLL: RtlDumpResource(%p):\n\tactive count = %i\n\twaiting readers = %i\n\twaiting writers = %i\n",
242 rwl,
243 rwl->iNumberActive,
244 rwl->uSharedWaiters,
245 rwl->uExclusiveWaiters));
246
247 if( rwl->iNumberActive )
248 dprintf(("NTDLL: \towner thread = %08x\n",
249 rwl->hOwningThreadId ));
250 }
251}
252
253
254/*
255 * heap functions
256 */
257
258/******************************************************************************
259 * RtlCreateHeap [NTDLL]
260 */
261HANDLE WINAPI RtlCreateHeap(ULONG Flags,
262 PVOID BaseAddress,
263 ULONG SizeToReserve,
264 ULONG SizeToCommit,
265 PVOID Unknown,
266 PRTL_HEAP_DEFINITION Definition)
267{
268 dprintf(("NTDLL: RtlCreateHeap(%08xh,%08xh,%08xh,%08xh,%08xh,%08xh).\n",
269 Flags,
270 BaseAddress,
271 SizeToReserve,
272 SizeToCommit,
273 Unknown,
274 Definition));
275
276 return HeapCreate(Flags,
277 SizeToCommit,
278 SizeToReserve);
279}
280
281
282/******************************************************************************
283 * RtlAllocateHeap [NTDLL]
284 */
285PVOID WINAPI RtlAllocateHeap(HANDLE Heap,
286 ULONG Flags,
287 ULONG Size)
288{
289 dprintf(("NTDLL: RtlAllocateHeap(%08xh,%08xh,%08xh).\n",
290 Heap,
291 Flags,
292 Size));
293
294 return HeapAlloc(Heap,
295 Flags,
296 Size);
297}
298
299
300/******************************************************************************
301 * RtlFreeHeap [NTDLL]
302 */
303BOOLEAN WINAPI RtlFreeHeap(HANDLE Heap,
304 ULONG Flags,
305 PVOID Address)
306{
307 dprintf(("NTDLL: RtlFreeHeap(%08xh,%08xh,%08xh)\n",
308 Heap,
309 Flags,
310 Address));
311
312 return HeapFree(Heap, Flags, Address);
313}
314
315
316/******************************************************************************
317 * RtlDestroyHeap [NTDLL]
318 *
319 * FIXME: prototype guessed
320 */
321BOOLEAN WINAPI RtlDestroyHeap(HANDLE Heap)
322{
323 dprintf(("NTDLL: RtlDestroyHeap(%08xh)\n",
324 Heap));
325
326 return HeapDestroy(Heap);
327}
328
329
330
331/******************************************************************************
332 * RtlSizeHeap [NTDLL]
333 */
334
335ODINFUNCTION3(DWORD,RtlSizeHeap,HANDLE,hHeap,
336 DWORD, dwFlags,
337 PVOID, pAddress)
338{
339 return HeapSize(hHeap,
340 dwFlags,
341 pAddress);
342}
343
344
345
346/*
347 * misc functions
348 */
349
350
351/******************************************************************************
352 * RtlAcquirePebLock [NTDLL]
353 */
354VOID WINAPI RtlAcquirePebLock(void)
355{
356 dprintf(("NTDLL: RtlAcquirePebLock() not implemented.\n"));
357
358 /* enter critical section ? */
359}
360
361
362/******************************************************************************
363 * RtlReleasePebLock [NTDLL]
364 */
365VOID WINAPI RtlReleasePebLock(void)
366{
367 dprintf(("NTDLL: RtlReleasePebLock() not implemented.\n"));
368
369 /* leave critical section ? */
370}
371
372
373/******************************************************************************
374 * RtlIntegerToChar [NTDLL]
375 */
376DWORD WINAPI RtlIntegerToChar(DWORD x1,
377 DWORD x2,
378 DWORD x3,
379 DWORD x4)
380{
381 dprintf(("NTDLL: RtlIntegerToChar(%08xh,%08xh,%08xh,%08xh) not implemented.\n",
382 x1,
383 x2,
384 x3,
385 x4));
386
387 return 0;
388}
389
390
391/******************************************************************************
392 * RtlSetEnvironmentVariable [NTDLL]
393 */
394DWORD WINAPI RtlSetEnvironmentVariable(DWORD x1,
395 PUNICODE_STRING key,
396 PUNICODE_STRING val)
397{
398 dprintf(("NTDLL: RtlSetEnvironmentVariable(%08xh,%08xh,%08xh) not implemented.\n",
399 x1,
400 key,
401 val));
402
403 return 0;
404}
405
406
407/******************************************************************************
408 * RtlNewSecurityObject [NTDLL]
409 */
410DWORD WINAPI RtlNewSecurityObject(DWORD x1,
411 DWORD x2,
412 DWORD x3,
413 DWORD x4,
414 DWORD x5,
415 DWORD x6)
416{
417 dprintf(("NTDLL: RtlNewSecurityObject(%08xh,%08xh,%08xh,%08xh,%08xh,%08xh) not implemented.\n",
418 x1,
419 x2,
420 x3,
421 x4,
422 x5,
423 x6));
424
425 return 0;
426}
427
428
429/******************************************************************************
430 * RtlDeleteSecurityObject [NTDLL]
431 */
432DWORD WINAPI RtlDeleteSecurityObject(DWORD x1)
433{
434 dprintf(("NTDLL: RtlDeleteSecurityObject(%08xh) not implemented.\n",
435 x1));
436
437 return 0;
438}
439
440
441/**************************************************************************
442 * RtlNormalizeProcessParams [NTDLL.441]
443 */
444LPVOID WINAPI RtlNormalizeProcessParams(LPVOID x)
445{
446 dprintf(("NTDLL: RtlNormalizeProcessParams(%08xh) not implemented.\n",
447 x));
448
449 return x;
450}
451
452
453/**************************************************************************
454 * RtlNtStatusToDosError [NTDLL.442]
455 */
456DWORD WINAPI RtlNtStatusToDosError(DWORD error)
457{
458 dprintf(("NTDLL: RtlNtStatusToDosError(%08xh) partially implemented.\n",
459 error));
460
461 switch (error)
462 {
463 case STATUS_SUCCESS: return ERROR_SUCCESS;
464 case STATUS_INVALID_PARAMETER: return ERROR_BAD_ARGUMENTS;
465 case STATUS_BUFFER_TOO_SMALL: return ERROR_INSUFFICIENT_BUFFER;
466/* case STATUS_INVALID_SECURITY_DESCR: return ERROR_INVALID_SECURITY_DESCR;*/
467 case STATUS_NO_MEMORY: return ERROR_NOT_ENOUGH_MEMORY;
468/* case STATUS_UNKNOWN_REVISION:
469 case STATUS_BUFFER_OVERFLOW:*/
470 }
471
472 dprintf(("NTDLL: RtlNtStatusToDosError(%08xh is unknown !)\n",
473 error));
474
475 return ERROR_SUCCESS;
476}
477
478
479/**************************************************************************
480 * RtlGetNtProductType [NTDLL.390]
481 */
482BOOLEAN WINAPI RtlGetNtProductType(LPDWORD type)
483{
484 dprintf(("NTDLL: RtlGetNtProductType(%08xh) not correctly implemented.\n",
485 type));
486
487 *type=3; /* dunno. 1 for client, 3 for server? */
488 return 1;
489}
490
491
492/******************************************************************************
493 * RtlEnlargedIntegerMultiply [NTDLL.341]
494 * Note: This even works, since gcc returns 64bit values in eax/edx just like
495 * the caller expects. However... The relay code won't grok this I think.
496 *
497 * @@@PH: Parameters are unknown
498 */
499/* longlong in VAC++ ? */
500
501extern INT WINAPI RtlEnlargedIntegerMultiply(INT factor1,
502 INT factor2);
503
504
505/******************************************************************************
506 * RtlExtendedLargeIntegerDivide [NTDLL.359]
507 */
508extern INT WINAPI RtlExtendedLargeIntegerDivide(LARGE_INTEGER dividend,
509 DWORD divisor,
510 LPDWORD rest);
511
512/******************************************************************************
513 * RtlExtendedLargeIntegerMultiply [NTDLL.358]
514 * Note: This even works, since gcc returns 64bit values in eax/edx just like
515 * the caller expects. However... The relay code won't grok this I think.
516 */
517/* longlong in VAC++ ? */
518
519extern LARGE_INTEGER WINAPI RtlExtendedIntegerMultiply(LARGE_INTEGER factor1,
520 INT factor2);
521
522/******************************************************************************
523 * RtlFormatCurrentUserKeyPath [NTDLL.371]
524 */
525DWORD WINAPI RtlFormatCurrentUserKeyPath(DWORD x)
526{
527 dprintf(("NTDLL: RtlFormatCurrentUserKeyPath(%08xh) not implemented.\n",
528 x));
529
530 return 1;
531}
532
533
534/******************************************************************************
535 * RtlOpenCurrentUser [NTDLL]
536 */
537DWORD WINAPI RtlOpenCurrentUser(DWORD x1,
538 DWORD *x2)
539{
540 /* Note: this is not the correct solution,
541 * But this works pretty good on wine and NT4.0 binaries
542 */
543 if (x1 == 0x2000000 )
544 {
545 *x2 = HKEY_CURRENT_USER;
546 return TRUE;
547 }
548
549 return FALSE;
550}
551
552
553/**************************************************************************
554 * RtlDosPathNameToNtPathName_U [NTDLL.338]
555 *
556 * FIXME: convert to UNC or whatever is expected here
557 */
558BOOLEAN WINAPI RtlDosPathNameToNtPathName_U(LPWSTR from,
559 PUNICODE_STRING us,
560 DWORD x2,
561 DWORD x3)
562{
563 LPSTR fromA = HEAP_strdupWtoA(GetProcessHeap(),0,from);
564
565 dprintf(("NTDLL: RtlDosPathNameToNtPathName_U(%08xh,%08h,%08xh,%08xh) not implemented.\n",
566 from,
567 us,
568 x2,
569 x3));
570
571 if (us)
572 RtlInitUnicodeString(us,HEAP_strdupW(GetProcessHeap(),0,from));
573
574 return TRUE;
575}
576
577
578/******************************************************************************
579 * RtlCreateEnvironment [NTDLL]
580 */
581DWORD WINAPI RtlCreateEnvironment(DWORD x1,
582 DWORD x2)
583{
584 dprintf(("NTDLL: RtlCreateEnvironment(%08xh, %08xh) not implemented.\n",
585 x1,
586 x2));
587
588 return 0;
589}
590
591
592/******************************************************************************
593 * RtlDestroyEnvironment [NTDLL]
594 */
595DWORD WINAPI RtlDestroyEnvironment(DWORD x)
596{
597 dprintf(("NTDLL: RtlDestroyEnvironment(%08xh) not implemented.\n",
598 x));
599
600 return 0;
601}
602
603
604/******************************************************************************
605 * RtlQueryEnvironmentVariable_U [NTDLL]
606 */
607DWORD WINAPI RtlQueryEnvironmentVariable_U(DWORD x1,
608 PUNICODE_STRING key,
609 PUNICODE_STRING val)
610{
611 dprintf(("NTDLL: RtlQueryEnvironmentVariable_U(%08xh,%08xh,%08xh) not implemented.\n",
612 x1,
613 key,
614 val));
615
616 return 0;
617}
618
619
620/*****************************************************************************
621 * Name : RtlCopyLuid
622 * Purpose : copy local unique identifier?
623 * Parameters: PLUID pluid1
624 * PLUID pluid2
625 * Variables :
626 * Result :
627 * Remark : NTDLL.321
628 * Status : VERIFIED
629 *
630 * Author : Patrick Haller [Tue, 1999/11/09 09:00]
631 *****************************************************************************/
632
633PLUID WINAPI RtlCopyLuid(PLUID pluid1,
634 PLUID pluid2)
635{
636 pluid2->LowPart = pluid1->LowPart;
637 pluid2->HighPart = pluid1->HighPart;
638 return (pluid1);
639}
Note: See TracBrowser for help on using the repository browser.