hg/stx-libbasic: comparison Win32OperatingSystem.st

equal deleted inserted replaced

-:a60bc618b504
+:793c81da8cb1
 ]
 								[exBegin]
 "
 ! !
-!Win32OperatingSystem class methodsFor:'debugging'!
-verbose:aBoolean
-%{
-#ifdef PROCESSDEBUGWIN32
-flag_PROCESSDEBUGWIN32 = (aBoolean == true);
-#endif
-%}
-! !
 !Win32OperatingSystem class methodsFor:'initialization'!
 coInitialize
 %{
 HRESULT hres;
 setClipboardData: aCfConstant hMem: aMemHandle
 |result|
 result := self primSetClipboardData: aCfConstant hMem: aMemHandle address.
 result = 0 ifTrue: [ ^self error ].
+! !
+!Win32OperatingSystem class methodsFor:'debugging'!
+verbose:aBoolean
+%{
+#ifdef PROCESSDEBUGWIN32
+flag_PROCESSDEBUGWIN32 = (aBoolean == true);
+#endif
+%}
 ! !
 !Win32OperatingSystem class methodsFor:'directory access'!
 linkInfoFor:osPathname fileSize:fileSize fileAttributes:osFileAttributes osCrtTime:osCrtTime osAccTime:osAccTime osModTime:osModTime
 !
 startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
 errorTo:anExternalErrStream auxFrom:anAuxiliaryStream
 environment:anEvironmentDictionary inDirectory:dir
-showWindow:showWindowBooleanOrNil
+newPgrp:newPgrp showWindow:showWindowBooleanOrNil
 "start executing the OS command as specified by the argument, aCommandString
 as a separate process; do not wait for the command to finish.
 If aCommandString is a String, the commandString is passed to a shell for execution
 - see the description of 'sh -c' in your UNIX manual ('cmd.com' in your MSDOS manual).
 aCommandString isNil ifTrue:[^ nil].
 shellAndArgs := self commandAndArgsForOSCommand:aCommandString.
 (in := anExternalInStream) isNil ifTrue:[
-	nullStream := Filename nullDevice readWriteStream.
+nullStream := Filename nullDevice readWriteStream.
-	in := nullStream.
+in := nullStream.
 ].
 (out := anExternalOutStream) isNil ifTrue:[
-	nullStream isNil ifTrue:[nullStream := Filename nullDevice writeStream].
+nullStream isNil ifTrue:[nullStream := Filename nullDevice writeStream].
-	out := nullStream.
+out := nullStream.
 ].
 (err := anExternalErrStream) isNil ifTrue:[
-	err := out
+err := out
 ].
 rslt := self
-	exec:(shellAndArgs at:1)
+exec:(shellAndArgs at:1)
-	withArguments:(shellAndArgs at:2)
+withArguments:(shellAndArgs at:2)
-	environment:anEvironmentDictionary
+environment:anEvironmentDictionary
-	fileDescriptors:(Array with:in fileHandle
+fileDescriptors:(Array with:in fileHandle
-			       with:out fileHandle
+with:out fileHandle
-			       with:err fileHandle
+with:err fileHandle
-			       with:(anAuxiliaryStream notNil ifTrue:[anAuxiliaryStream fileHandle] ifFalse:[nil]))
+with:(anAuxiliaryStream notNil ifTrue:[anAuxiliaryStream fileHandle] ifFalse:[nil]))
-	fork:true
+fork:true
-	newPgrp:true
+newPgrp:true
-	inDirectory:dir
+inDirectory:dir
-	showWindow:(showWindowBooleanOrNil ? (shellAndArgs at:3)).
+showWindow:(showWindowBooleanOrNil ? (shellAndArgs at:3)).
 nullStream notNil ifTrue:[
-	nullStream close.
+nullStream close.
 ].
 ^ rslt
 "blocking at current prio (i.e. only higher prio threads execute):
 pid := OperatingSystem startProcess:'sleep 10; grep drw' inputFrom:in outputTo:out errorTo:err.
 The following will no longer work. monitorPid has disappeared
 pid notNil ifTrue:[
-	 Processor monitorPid:pid action:[:OSstatus | sema signal ].
+Processor monitorPid:pid action:[:OSstatus | sema signal ].
 ].
 in close.
 out close.
 err close.
 sema wait.
 |pid sema|
 sema := Semaphore new.
 Processor
-	    monitor:[
+monitor:[
-		pid := OperatingSystem startProcess:'dir > out 2>err'
+pid := OperatingSystem startProcess:'dir > out 2>err'
-	    ]
+]
-	    action:[:osStatus | sema signal ].
+action:[:osStatus | sema signal ].
 sema wait.
 Transcript showCR:'finished'
 "
 |pid sema|
 sema := Semaphore new.
 Processor
-	    monitor:[
+monitor:[
-		pid := OperatingSystem startProcess:'(echo 1 & stx --eval "Delay waitForSeconds:100" & dir) >out' withCRs
+pid := OperatingSystem startProcess:'(echo 1 & stx --eval "Delay waitForSeconds:100" & dir) >out' withCRs
-	    ]
+]
-	    action:[:osStatus | sema signal ].
+action:[:osStatus | sema signal ].
 Delay waitForSeconds:5.
 OperatingSystem terminateProcessGroup:pid.
 Transcript showCR:'terminated'
 END"
 |pid sema|
 sema := Semaphore new.
 Processor
-	    monitor:[
+monitor:[
-		pid := OperatingSystem startProcess:{ 'C:\Users\cg\work\stx\projects\smalltalk\stx.com' . '--eval' . '"Delay waitForSeconds:100"' }
+pid := OperatingSystem startProcess:{ 'C:\Users\cg\work\stx\projects\smalltalk\stx.com' . '--eval' . '"Delay waitForSeconds:100"' }
-	    ]
+]
-	    action:[:osStatus | sema signal ].
+action:[:osStatus | sema signal ].
 Delay waitForSeconds:5.
 OperatingSystem terminateProcess:pid.
 Transcript showCR:'terminated'
 END"
-"Modified: / 21-03-1997 / 10:04:35 / dq"
+"Created: / 08-11-2016 / 21:23:17 / cg"
-"Modified: / 15-07-1997 / 16:03:51 / stefan"
-"Created: / 12-11-1998 / 14:39:20 / cg"
-"Modified: / 30-06-2016 / 17:43:46 / cg"
 ! !
 !Win32OperatingSystem class methodsFor:'file access'!
 closeFd:anIntegerOrHandle

changeset 20930	793c81da8cb1
parent 20897	49ffdb7d9c18
child 20966	283c240f38d1