carp process: reading and writing works for one iteration

Pond.package/CarpException.class/README.md

@@ -0,0 +1 @@
+I’m an exception that gets thrown when Carp does something funky.

Pond.package/CarpException.class/instance/defaultAction.st

@@ -0,0 +1,3 @@
+accessing
+defaultAction
+	UnhandledError signalForException: self

Pond.package/CarpException.class/instance/from..st

@@ -0,0 +1,3 @@
+instance creation
+from: anError
+	error := anError 

Pond.package/CarpException.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"commentStamp" : "VeitHeller 12/14/2019 17:49",
+	"super" : "Exception",
+	"category" : "Pond",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"parent",
+		"error"
+	],
+	"name" : "CarpException",
+	"type" : "normal"
+}

Pond.package/CarpProcess.class/instance/died.st

@@ -0,0 +1,3 @@
+accessing
+died
+	^ excepted isNotNil

Pond.package/CarpProcess.class/instance/initialize.st

@@ -1,3 +1,7 @@
 initialization
 initialize
-	proc := OSProcess command: 'carp'
+	proc := OSSUnixSubprocess new command: 'carp';
+				redirectStdin;
+				redirectStdout;
+				redirectStderr;
+				addAllEnvVariablesFromParentWithoutOverride

Pond.package/CarpProcess.class/instance/isRunning.st

@@ -0,0 +1,3 @@
+accessing
+isRunning
+	^ self died not and: proc pid; and: proc exitStatus isNil

Pond.package/CarpProcess.class/instance/receiveErrorString.st

@@ -0,0 +1,3 @@
+accessing
+receiveErrorString
+	^ proc stderrStream upToEnd

Pond.package/CarpProcess.class/instance/receiveString.st

@@ -0,0 +1,3 @@
+accessing
+receiveString
+	^ proc stdoutStream upToEnd

Pond.package/CarpProcess.class/instance/run.st

@@ -0,0 +1,3 @@
+accessing
+run
+	[ [ proc run ] on: Error do: [ :err | excepted := err ] ] fork

Pond.package/CarpProcess.class/instance/sendString..st

@@ -0,0 +1,5 @@
+accessing
+sendString: aString
+	proc stdinStream nextPutAll: aString.
+	proc stdinStream close.
+	proc redirectStdin

Pond.package/CarpProcess.class/instance/setCarp..st

@@ -1,3 +1,3 @@
 accessing
 setCarp: aString
-	proc := OSProcess command: aString
+	proc command: aString

Pond.package/CarpProcess.class/instance/setDir..st

@@ -0,0 +1,3 @@
+accessing
+setDir: aString
+	proc environmentAt: 'CARP_DIR' put: aString

Pond.package/CarpProcess.class/properties.json

@@ -6,7 +6,10 @@
 	"pools" : [ ],
 	"classvars" : [ ],
 	"instvars" : [
-		"proc"
+		"proc",
+		"out",
+		"in",
+		"excepted"
 	],
 	"name" : "CarpProcess",
 	"type" : "normal"