Commit e49e84e8 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Updated comments.

parent b277b7f8
...@@ -37,8 +37,9 @@ module TokPrecedence = struct ...@@ -37,8 +37,9 @@ module TokPrecedence = struct
in in
levelip id properties levelip id properties
(* This function is invoked after the automaton has been constructed. (* This function prints warnings about useless precedence declarations
It warns about unused precedence levels. *) for terminal symbols (%left, %right, %nonassoc). It should be invoked
after only the automaton has been constructed. *)
let diagnostics () = let diagnostics () =
StringMap.iter (fun id properties -> StringMap.iter (fun id properties ->
...@@ -730,6 +731,10 @@ module Production = struct ...@@ -730,6 +731,10 @@ module Production = struct
), ),
osym osym
(* This function prints warnings about useless precedence declarations for
productions (%prec). It should be invoked after only the automaton has
been constructed. *)
let diagnostics () = let diagnostics () =
iterx (fun prod -> iterx (fun prod ->
let osym = prec_decl.(prod) in let osym = prec_decl.(prod) in
...@@ -1518,6 +1523,10 @@ module Precedence = struct ...@@ -1518,6 +1523,10 @@ module Precedence = struct
end end
(* This function prints warnings about useless precedence declarations for
terminal symbols (%left, %right, %nonassoc) and productions (%prec). It
should be invoked after only the automaton has been constructed. *)
let diagnostics () = let diagnostics () =
TokPrecedence.diagnostics(); TokPrecedence.diagnostics();
Production.diagnostics() Production.diagnostics()
......
...@@ -499,9 +499,9 @@ end ...@@ -499,9 +499,9 @@ end
(* ------------------------------------------------------------------------ *) (* ------------------------------------------------------------------------ *)
(* Diagnostics. *) (* Diagnostics. *)
(* This function prints diagnostics about precedence declarations that (* This function prints warnings about useless precedence declarations for
are never consulted. It is called after the automaton is terminal symbols (%left, %right, %nonassoc) and productions (%prec). It
constructed. *) should be invoked after only the automaton has been constructed. *)
val diagnostics: unit -> unit val diagnostics: unit -> unit
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment