Offray/Fossil
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

New Fossil class using GtSubProcessInMemory.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-09-09 19:43:02 -05:00
parent 6af649e3b5
commit 8ad6c73f45
2 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
repository/Fossil/Fossil.class.st Normal file
View File

@ -0,0 +1,16 @@
Class {
#name : #Fossil,
#superclass : #Object,
#category : #Fossil
}
{ #category : #accessing }
Fossil class >> all: subcommand [
Smalltalk os isWindows ifTrue: [ ^ self shouldBeImplemented ].
^ GtSubprocessWithInMemoryOutput new
shellCommand: 'fossil all ', subcommand;
runAndWait;
stdout
]

12
repository/Fossil/FossilRepo.class.st
View File

@ -48,13 +48,11 @@ FossilRepo class >> local: aFilePath repository: aFossilFilePath [
{ #category : #accessing } { #category : #accessing }
FossilRepo class >> locateExecutable [ FossilRepo class >> locateExecutable [
Smalltalk os isWindows ifTrue: [ ^ self ]. Smalltalk os isWindows ifTrue: [ ^ MiniDocs shouldBeImplemented ].
OSSUnixSubprocess new ^ (GtSubprocessWithInMemoryOutput new
command: 'which'; shellCommand: 'which fossil';
arguments: #('fossil') ; runAndWait;
redirectStdout; stdout) lines first
runAndWaitOnExitDo: [ :process :outString |
^ outString allButLast ]
] ]
{ #category : #operation } { #category : #operation }