-class Location
- readable var _file: String
- readable var _line_start: Int
- readable var _line_end: Int
- readable var _column_start: Int
- readable var _column_end: Int
-
- redef meth to_s: String do
- if line_start == line_end then
- if column_start == column_end then
- return "{file}:{line_start},{column_start}"
+class Message
+ super Comparable
+ redef type OTHER: Message
+
+ readable var _location: nullable Location
+ readable var _text: String
+
+ redef fun <(other: OTHER): Bool do
+ if location == null then return true
+ if other.location == null then return false
+
+ return location.as(not null) < other.location.as(not null)
+ end
+
+ redef fun to_s: String
+ do
+ var l = location
+ if l == null then
+ return text
+ else
+ return "{l}: {text}"
+ end
+ end
+
+ fun to_color_string: String
+ do
+ var esc = 27.ascii
+ var red = "{esc}[0;31m"
+ var bred = "{esc}[1;31m"
+ var green = "{esc}[0;32m"
+ var yellow = "{esc}[0;33m"
+ var def = "{esc}[0m"
+
+ var l = location
+ if l == null then
+ return text
+ else if l.file == null then
+ return "{yellow}{l}{def}: {text}"
+ else
+ var i = location.line_start
+ var line_start = l.file.line_starts[i-1]
+ var line_end = line_start
+ var string = l.file.string
+ while line_end+1 < string.length and string[line_end+1] != '\n' and string[line_end+1] != '\r' do
+ line_end += 1
+ end
+ print "{i-1}: {line_start} && {line_end}"
+ var lstart = string.substring(line_start, location.column_start - 1)
+ var cend
+ if i != location.line_end then
+ cend = line_end - line_start + 1