class AnalysisManager
super Noter
var opts = new OptionContext
-
- init do end
end
abstract class Noter
failed = true
end
- fun reset
- do
- failed = false
- end
+ # Reset failure status
+ fun reset do failed = false
+
+ # Clear list of notes
+ fun clear do notes = new Array[Note]
end
abstract class Note
redef fun prefix do return "Warning: "
end
-class Error
+class P8Error
super Note
init (line: Location, msg: String) do super
init range(from, to: Location, msg: String) do super
redef fun prefix do return "Fatal: "
end
-redef class Object
- protected fun manager: AnalysisManager is abstract
-end
-
redef class Location
# "line 5"
fun to_line_s: String
return file.filename
end
end
+
+fun manager: AnalysisManager do return once new AnalysisManager