carp checkers: add carp checker and make it work

Pond.package/CarpChecker.class/README.md

@@ -0,0 +1 @@
+I’m a special case of a Carp process for checking errors.

Pond.package/CarpChecker.class/instance/check.st

@@ -0,0 +1,9 @@
+checking
+check
+	| f |
+	f := FileReference newTempFilePrefix: 'checker' suffix: '.carp'.
+	f writeStreamDo: [:stream | stream nextPutAll: file].
+	proc arguments: {'--check' . f pathString }.
+	self run.
+	excepted ifNotNil: [ CarpError new messageText: excepted messageText ].
+	self died ifFalse: [ ^ CarpCheckParser new parse: proc stdoutStream ]

Pond.package/CarpChecker.class/instance/file..st

@@ -0,0 +1,3 @@
+checking
+file: aString
+	file := aString

Pond.package/CarpChecker.class/instance/file.st

@@ -0,0 +1,3 @@
+checking
+file
+	^ file

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

@@ -0,0 +1,5 @@
+checking
+initialize
+	proc := OSSUnixSubprocess new command: 'carp';
+				redirectStdout;
+				addAllEnvVariablesFromParentWithoutOverride

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

@@ -0,0 +1,4 @@
+checking
+run
+	[ [ proc run ] on: Error do: [ :err | excepted := err ] ] fork.
+	(Delay forMilliseconds: 500) wait.

Pond.package/CarpChecker.class/properties.json

@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "VeitHeller 12/16/2019 10:34",
+	"super" : "CarpProcess",
+	"category" : "Pond",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"file"
+	],
+	"name" : "CarpChecker",
+	"type" : "normal"
+}