carp checkers: add carp checker and make it work

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.