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

Activated warning 33 and removed a bunch of unused [open] declarations.

parent 2869d5f2
(* Driver for the back-end. *) (* Driver for the back-end. *)
open UnparameterizedSyntax
module I = Interpret (* artificial dependency; ensures that [Interpret] runs first *) module I = Interpret (* artificial dependency; ensures that [Interpret] runs first *)
(* Define an .ml file writer . *) (* Define an .ml file writer . *)
......
open Printf open Printf
open Lexing
(* TEMPORARY Vrifier que les messages d'erreur sont standardiss au (* TEMPORARY Vrifier que les messages d'erreur sont standardiss au
maximum, localiss au maximum. Supprimer autant de fonctions que maximum, localiss au maximum. Supprimer autant de fonctions que
......
open UnparameterizedSyntax open UnparameterizedSyntax
open Syntax open Syntax
open Stretch
open Positions open Positions
(* ------------------------------------------------------------------------ *) (* ------------------------------------------------------------------------ *)
......
...@@ -2,5 +2,5 @@ ...@@ -2,5 +2,5 @@
(* Everything is in [Back]. *) (* Everything is in [Back]. *)
open Back module B = Back (* artificial dependency *)
...@@ -9,7 +9,7 @@ let flags () = ...@@ -9,7 +9,7 @@ let flags () =
(* -inline 1000 *) (* -inline 1000 *)
flag ["ocaml"; "compile"; "native"] (S [A "-inline"; A "1000"]); flag ["ocaml"; "compile"; "native"] (S [A "-inline"; A "1000"]);
(* nazi warnings *) (* nazi warnings *)
flag ["ocaml"; "compile"; "my_warnings"] (S[A "-w"; A "@1..49-4-9-33-41-44"]) flag ["ocaml"; "compile"; "my_warnings"] (S[A "-w"; A "@1..49-4-9-41-44"])
(* ---------------------------------------------------------------------------- *) (* ---------------------------------------------------------------------------- *)
......
...@@ -3,7 +3,6 @@ ...@@ -3,7 +3,6 @@
(* TEMPORARY clean up and write an .mli file *) (* TEMPORARY clean up and write an .mli file *)
open Syntax open Syntax
open Misc
open Positions open Positions
let app p ps = let app p ps =
......
(* $Id: partialGrammar.ml,v 1.63 2006/10/22 14:07:57 fpottier Exp $ *) (* $Id: partialGrammar.ml,v 1.63 2006/10/22 14:07:57 fpottier Exp $ *)
open Misc open Misc
open Syntax open Syntax
open Stretch
open ConcreteSyntax open ConcreteSyntax
open InternalSyntax open InternalSyntax
open Positions open Positions
......
open Printf open Printf
open Syntax
let read_whole_file filename = let read_whole_file filename =
......
open UnparameterizedSyntax open UnparameterizedSyntax
open Syntax
let rec visit grammar visited symbol = let rec visit grammar visited symbol =
try try
......
...@@ -4,12 +4,6 @@ ...@@ -4,12 +4,6 @@
/* A sentence is a pair of an optional non-terminal start symbol and a list /* A sentence is a pair of an optional non-terminal start symbol and a list
of terminal symbols. */ of terminal symbols. */
%{
open Grammar
%}
%token COLON EOF EOL %token COLON EOF EOL
%token<Grammar.Terminal.t> TERMINAL %token<Grammar.Terminal.t> TERMINAL
%token<Grammar.Nonterminal.t> NONTERMINAL %token<Grammar.Nonterminal.t> NONTERMINAL
......
open Positions open Positions
open Misc
open Syntax open Syntax
open Stretch open Stretch
open UnparameterizedSyntax open UnparameterizedSyntax
......
...@@ -5,7 +5,6 @@ ...@@ -5,7 +5,6 @@
%{ %{
open Keyword
open ConcreteSyntax open ConcreteSyntax
open Syntax open Syntax
open Positions open Positions
......
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