Using GtSubprocess instead of OSSubprocess.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-06-22 13:21:24 -05:00
parent 5de6a81029
commit 1cdf89d96f

View File

@ -31,12 +31,11 @@ NanoID class >> binaryFile [
NanoID class >> generate [
self binaryFile exists ifFalse: [ NanoID install].
Smalltalk os isWindows
ifTrue: [ ^ (LibC resultOfCommand:self binaryFile fullName) copyWithoutAll: (Character lf asString) ].
OSSUnixSubprocess new
command: self binaryFile fullName;
redirectStdout;
redirectStdout;
runAndWaitOnExitDo: [ :process :outString | ^ outString copyWithoutAll: (Character lf asString) ]
ifTrue: [ ^ (LibC resultOfCommand:self binaryFile fullName) copyWithoutAll: (Character lf asString) ].
^ (GtSubprocessWithInMemoryOutput new
shellCommand: self binaryFile fullName;
runAndWait;
stdout) copyWithoutAll: (Character lf asString)
]
{ #category : #accessing }