GtShellScriptProcess: don't assume bash location

feenkcom · Oct 21, 2024 · 1ea82b7 · 1ea82b7
1 parent 8c3a392
commit 1ea82b7
Showing 1 changed file with 30 additions and 1 deletion.
diff --git a/src/Lepiter-Snippet-Shell/GtShellScriptProcess.class.st b/src/Lepiter-Snippet-Shell/GtShellScriptProcess.class.st
@@ -19,9 +19,38 @@ Class {
 		'bindings',
 		'onSuccess'
 	],
+	#classVars : [
+		'BashExecutable'
+	],
 	#category : #'Lepiter-Snippet-Shell'
 }
 
+{ #category : #accessing }
+GtShellScriptProcess class >> bashExecutable [
+
+	^ BashExecutable ifNil: [ BashExecutable := self findBashExecutable fullName ]
+]
+
+{ #category : #private }
+GtShellScriptProcess class >> findBashExecutable [
+	"Answer the path to the specified executable.
+	Run this is a shell as some platforms, e.g. Mac, don't set up the same environment for processes started from the file explorer."
+
+	^ GtOsSystemInfo current findExecutable: 'bash'.
+]
+
+{ #category : #initialization }
+GtShellScriptProcess class >> initialize [
+
+	SessionManager default registerSystemClassNamed: self name.
+]
+
+{ #category : #initialization }
+GtShellScriptProcess class >> startUp: resuming [
+
+	resuming ifTrue: [ BashExecutable := nil ]
+]
+
 { #category : #private }
 GtShellScriptProcess >> announce: announcement [
 	self announcer announce: announcement
@@ -224,7 +253,7 @@ GtShellScriptProcess >> newShellScriptBuilder [
 				arg: '-c' ]
 		ifFalse: [ 
 			GtExternalProcessBuilder new
-				command: '/bin/bash';
+				command: self class bashExecutable;
 				arg: '-c' ]
 ]