hg/stx-libbasic: comparison Win32OperatingSystem.st

equal deleted inserted replaced

-:bd31df28e32a
+:8adc5406f7cb
 "/ 'Creating mutex' printCR.
 self primSetLastError: 0.
 self primGetLastError.
 handle := self primCreateMutex:nil initialOwner: true name: name.
 lastErrorCode := self primGetLastError.
-lastErrorCode printCR.
+"/ lastErrorCode printCR.
 "/    self assert: lastErrorCode == 0.
 "/    lastErrorCode == 5 "ERROR_ACCESS_DENIED" ifTrue:[Transcript showCR: 'Mutex not accesible (GetLastError = ERROR_ACCESS_DENIED)'.].
 "/    lastErrorCode == 183 "ERROR_ALREADY_EXISTS" ifTrue:[Transcript showCR: 'Mutex already exists (GetLastError = ERROR_ALREADY_EXISTS)'.].
 (handle isNil or:[handle address ~~ 0]) ifFalse:[
 Transcript showCR: 'CreateMutexNamed: "', name printString, '" failed'.
 "
 self createMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'
 self releaseMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'
 "
-"Modified: / 03-08-2010 / 16:30:37 / cg"
+"Modified: / 03-08-2010 / 16:57:36 / cg"
 !
 existsMutexNamed: name
 |handle lastErrorCode handleAndLastErrorCode|
 handleAndLastErrorCode := self createMutexNamed: name.
 handle := handleAndLastErrorCode first.
 lastErrorCode := handleAndLastErrorCode second.
 "/    self assert: lastErrorCode == 0.
 ^ handle isNil
-	or:[lastErrorCode == 183 "ERROR_ALREADY_EXISTS"
+or:[lastErrorCode == 183 "ERROR_ALREADY_EXISTS"
-	    or:[ lastErrorCode == 5 "ERROR_ACCESS_DENIED"]]
+or:[ lastErrorCode == 5 "ERROR_ACCESS_DENIED"]]
+"Modified: / 03-08-2010 / 16:59:41 / cg"
 !
 openMutexNamed: name
+"If the function succeeds, the return value is a handle to the mutex object.
-"
+If the function fails, the return value is NULL. To get extended error information, call GetLastError.
-If the function succeeds, the return value is a handle to the mutex object.
+If a named mutex does not exist, the function fails and GetLastError returns ERROR_FILE_NOT_FOUND."
-If the function fails, the return value is NULL. To get extended error information, call GetLastError.
-If a named mutex does not exist, the function fails and GetLastError returns ERROR_FILE_NOT_FOUND.
-"
 |handle |
 handle := self primOpenMutex:nil initialOwner: true name: name.
 "/    lastErrorCode := self primGetLastError.
 "/    lastErrorCode = 2 ifTrue:[Transcript showCR: 'Mutex does not exist (GetLastError = ERROR_FILE_NOT_FOUND)'.].
 "/    lastErrorCode = 5 ifTrue:[Transcript showCR: 'Mutex not accesible (GetLastError = ERROR_ACCESS_DENIED)'.].
 (handle isNil or:[handle address ~~ 0]) ifFalse:[
-	Transcript showCR: 'OpenMutexNamed: "', name printString, '" failed'.
+Transcript showCR: 'OpenMutexNamed: "', name printString, '" failed'.
-	^ nil.
+^ nil.
 ].
 ^ handle
 "
 self openMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'
 "
+"Modified: / 03-08-2010 / 16:59:37 / cg"
 !
 primCreateMutex:lpSecurityDescriptor initialOwner: bInitialOwner name: lpName
+"If the function succeeds, the return value is a handle to the newly created mutex object.
-"
-If the function succeeds, the return value is a handle to the newly created mutex object.
 If the function fails, the return value is NULL.
-If the mutex is a named mutex and the object existed before this function call, the return value is a handle to the existing object.
+If the mutex is a named mutex and the object existed before this function call, the return value is a handle to the existing object."
-"
 <apicall: handle "CreateMutexA" (lpstr bool lpstr) module: "kernel32.dll" >
+"Modified: / 03-08-2010 / 16:59:26 / cg"
 !
 primOpenMutex:lpSecurityDescriptor initialOwner: bInitialOwner name: lpName
+"If the function succeeds, the return value is a handle to the mutex object.
-"
+If the function fails, the return value is NULL. To get extended error information, call GetLastError.
-If the function succeeds, the return value is a handle to the mutex object.
+If a named mutex does not exist, the function fails and GetLastError returns ERROR_FILE_NOT_FOUND."
-If the function fails, the return value is NULL. To get extended error information, call GetLastError.
-If a named mutex does not exist, the function fails and GetLastError returns ERROR_FILE_NOT_FOUND.
-"
 <apicall: handle "OpenMutexA" (lpstr bool lpstr) module: "kernel32.dll" >
+"Modified: / 03-08-2010 / 16:59:11 / cg"
 !
 primReleaseMutex: hMutex
+"If the function succeeds, the return value is nonzero.
-"
+If the function fails, the return value is zero."
-If the function succeeds, the return value is nonzero.
-If the function fails, the return value is zero.
-"
 <apicall: bool "ReleaseMutex" (handle) module: "kernel32.dll" >
+"Modified: / 03-08-2010 / 16:59:55 / cg"
 !
 primWaitForSingleObject: handle milliseconds: dwMilliseconds
+"If the function succeeds, the return value indicates the event that caused the function to return.
-"
+If the function fails, the return value is WAIT_FAILED ((DWORD)0xFFFFFFFF)."
-If the function succeeds, the return value indicates the event that caused the function to return.
-If the function fails, the return value is WAIT_FAILED ((DWORD)0xFFFFFFFF).
-"
 <apicall: dword "WaitForSingleObject" (handle dword) module: "kernel32.dll" >
+"Modified: / 03-08-2010 / 17:00:02 / cg"
 !
 releaseMutex: hMutex
 "Returns true if the Mutex was released. Otherwise, returns false."
 | released|
 hMutex isNil ifTrue:[
-	Transcript showCR: 'hMutex is nil - cannot release'.
+Transcript showCR: 'hMutex is nil - cannot release'.
-	^ false
+^ false
 ].
 released := self primReleaseMutex: hMutex.
 released ifFalse:[Transcript showCR: 'Release Mutex failed'.].
 ^ released
+"Modified: / 03-08-2010 / 17:00:05 / cg"
 !
 releaseMutexNamed: name
 "Returns true if the Mutex was released. Otherwise, returns false."
 | hMutex |
 hMutex := self openMutexNamed: name.
 hMutex isNil ifTrue:[
-	Transcript showCR: 'Cannot release Mutex named: "', name printString,'"'.
+Transcript showCR: 'Cannot release Mutex named: "', name printString,'"'.
-	^ false
+^ false
 ].
 ^ self releaseMutex: hMutex.
+"Modified: / 03-08-2010 / 16:58:25 / cg"
 !
 waitForSingleObject: handle
 |result|
 result := self primWaitForSingleObject: handle milliseconds: 500.
 ^ result
+"Modified: / 03-08-2010 / 17:00:10 / cg"
 ! !
 !Win32OperatingSystem class methodsFor:'os queries'!
 executableFileExtensions
 ! !
 !Win32OperatingSystem class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.408 2010-08-03 14:37:31 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.409 2010-08-03 15:08:47 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.408 2010-08-03 14:37:31 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.409 2010-08-03 15:08:47 cg Exp $'
 ! !
 Win32OperatingSystem initialize!
 Win32OperatingSystem::PerformanceData initialize!
 Win32OperatingSystem::RegistryEntry initialize!

changeset 12987	8adc5406f7cb
parent 12986	bd31df28e32a
child 13108	1bfda4fe09e0