carp checkers: add carp checker and make it work

This commit is contained in:
2019-12-16 12:03:18 +01:00
parent 5763bfc040
commit 3254a9e81d
32 changed files with 145 additions and 11 deletions

View File

@@ -0,0 +1,3 @@
accessing
column: aNumber
column := aNumber

View File

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

View File

@@ -0,0 +1,3 @@
accessing
line: aNumber
line := aNumber

View File

@@ -0,0 +1,3 @@
accessing
message: aString
message := aString

View File

@@ -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.
]