Commit b689d803 authored by POTTIER Francois's avatar POTTIER Francois

Generate a comment about the type [token] only if this type exists!

parent 95d95c98
......@@ -82,10 +82,16 @@ let table_interface =
(* This is the interface of the generated parser. *)
let tokentypedef =
match tokentypedef with
| [] ->
[]
| _ ->
[ IIComment "The type of tokens."; IITypeDecls tokentypedef ]
let interface = [
IIFunctor (PreFront.grammar.parameters, [
IIComment "The type of tokens.";
IITypeDecls tokentypedef;
IIFunctor (PreFront.grammar.parameters,
tokentypedef @ [
IIComment "This exception is raised by the monolithic API functions.";
IIExcDecls [ excdef ];
IIComment "The monolithic API.";
......
Markdown is supported
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