Closer to an evaluator

src/Carp/CarpApplication.class.st

@@ -22,7 +22,7 @@ CarpApplication >> baseApplication [
 CarpApplication >> debuggerClientFor: anException [
 	"Answer the debugger client to be used by the Gt Post Mortem debugger"
 
-	^ CarpPostMortemDebugger new exception: anException
+	^ GtPythonPostMortemDebugger new exception: anException
 ]
 
 { #category : #accessing }

src/Carp/CarpPlatform.class.st

@@ -7,6 +7,11 @@ Class {
 	#category : #'Carp-Processes'
 }
 
+{ #category : #accessing }
+CarpPlatform class >> uiManagerClass [
+	^ LanguageLinkPharoUiManager
+]
+
 { #category : #hooks }
 CarpPlatform class >> weakRegistryClass [
 	^ LanguageLinkPharoWeakRegistry

src/Carp/CarpPythonProcess.class.st

@@ -9,6 +9,31 @@ CarpPythonProcess class >> program [
 	^ 'python'
 ]
 
+{ #category : #accessing }
+CarpPythonProcess >> processArguments [
+	| args |
+
+	args := OrderedCollection new.
+	self settings serverDebugMode ifTrue:
+		[ args addAll: { 
+			'-m'. 
+			'debugpy'. 
+			'--listen'. 
+			self settings debugSocketAddress printAddress. 
+			'--wait-for-client'. } ].
+	args
+		add: (self workingDirectory / self programFile) resolve fullName;
+		add: '--port';
+		add: self settings serverSocketAddress port asString;
+		add: '--pharo';
+		add: self settings clientSocketAddress port asString;
+		add: '--method';
+		add: 'http'.
+	"self debugMode ifTrue: [ args add: '--log' ]."
+	args add: '--log'.
+	^ args
+]
+
 { #category : #accessing }
 CarpPythonProcess >> programFile [
 	^ 'src/languagelink.py'