Progress.HookSource***************
*********************************
module RangeSet : sig ... endSet of location ranges
type entry = {name : string;Name of the function
*)mutable range : Mopsa.range option;Location of the currently analyzed statement
*)all_stmt_range_set : RangeSet.t;Location of all statements in the function body
*)mutable analyzed_stmt_range_set : RangeSet.t;Locations of analyzed statements
*)nb_all_stmt : int;Total number of statements
*)mutable nb_analyzed_stmt : int;Number of analyzed statements
*)}Entry of the progression table
********************************************
Clear the current line and move the cursor at its beginning
Move the cursor one line above
*********************
Return the set of statements in the body of a function
Insert a new entry in the progress table
Remove the head function from the progress table
Update the progress table before a statement is analyzed
Update the progress table after a statement is analyzed
******************
*******************