carp checkers: add carp checker and make it work
This commit is contained in:
3
Pond.package/CarpParseError.class/instance/column..st
Normal file
3
Pond.package/CarpParseError.class/instance/column..st
Normal file
@@ -0,0 +1,3 @@
|
||||
accessing
|
||||
column: aNumber
|
||||
column := aNumber
|
3
Pond.package/CarpParseError.class/instance/file..st
Normal file
3
Pond.package/CarpParseError.class/instance/file..st
Normal file
@@ -0,0 +1,3 @@
|
||||
accessing
|
||||
file: aString
|
||||
file := aString
|
3
Pond.package/CarpParseError.class/instance/line..st
Normal file
3
Pond.package/CarpParseError.class/instance/line..st
Normal file
@@ -0,0 +1,3 @@
|
||||
accessing
|
||||
line: aNumber
|
||||
line := aNumber
|
3
Pond.package/CarpParseError.class/instance/message..st
Normal file
3
Pond.package/CarpParseError.class/instance/message..st
Normal file
@@ -0,0 +1,3 @@
|
||||
accessing
|
||||
message: aString
|
||||
message := aString
|
13
Pond.package/CarpParseError.class/instance/printOn..st
Normal file
13
Pond.package/CarpParseError.class/instance/printOn..st
Normal 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.
|
||||
]
|
Reference in New Issue
Block a user