Mentions légales du service

Skip to content
Snippets Groups Projects
Commit e49e84e8 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Updated comments.

parent b277b7f8
Branches
Tags
No related merge requests found
...@@ -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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment