carp checkers: add carp checker and make it work

2019-12-16 12:03:18 +01:00
parent 5763bfc040
commit 3254a9e81d
32 changed files with 145 additions and 11 deletions
--- a/Pond.package/CarpParseError.class/instance/printOn..st
+++ b/Pond.package/CarpParseError.class/instance/printOn..st
@@ -0,0 +1,13 @@
+accessing
+printOn: aStream
+	(file isNil or: [ line isNil or: column isNil ])
+		ifTrue: [ aStream nextPutAll: message ]
+		ifFalse: [
+			aStream nextPutAll: file.
+			aStream nextPutAll: ':'.
+			aStream nextPutAll: line asString.
+			aStream nextPutAll: ':'.
+			aStream nextPutAll: column asString.
+			aStream nextPutAll: ' '.
+			aStream nextPutAll: message.
+		]