This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-07-18 09:23:49 -05:00
commit 45dee962af

View File

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