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 @@
I represent a line of Carp checker output.

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

View File

@@ -0,0 +1,16 @@
{
"commentStamp" : "VeitHeller 12/16/2019 11:26",
"super" : "Object",
"category" : "Pond",
"classinstvars" : [ ],
"pools" : [ ],
"classvars" : [ ],
"instvars" : [
"file",
"line",
"column",
"message"
],
"name" : "CarpParseError",
"type" : "normal"
}