diff options
| author | Luc Maranget <luc.maranget@inria.fr> | 2003-07-24 08:37:34 +0000 |
|---|---|---|
| committer | Luc Maranget <luc.maranget@inria.fr> | 2003-07-24 08:37:34 +0000 |
| commit | b3a4475729c97d8efe8c6d172208d56423af7cd7 (patch) | |
| tree | d4f1d69407e66484e32396d3653dc3023cecc367 | |
| parent | d17755ef49eeef07206bc0fe7c7dcf10b2ffc34e (diff) | |
documentation of ocamllex command-line options
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5731 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | lex/main.ml | 2 | ||||
| -rw-r--r-- | test/Moretest/morematch.ml | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lex/main.ml b/lex/main.ml index fa5d63fba..988db654b 100644 --- a/lex/main.ml +++ b/lex/main.ml @@ -26,7 +26,7 @@ let usage = "usage: ocamlex [options] sourcefile" let _ = Arg.parse ["-ml", Arg.Set ml_automata, - " Output code that does not use the Lexing module"; + " Output code that does not use the Lexing module built-in automata interpreter"; "-o", Arg.String (fun x -> source_name := x), " <file> Set output file name to <file>"; ] diff --git a/test/Moretest/morematch.ml b/test/Moretest/morematch.ml index 5eb60c620..b8f00b81f 100644 --- a/test/Moretest/morematch.ml +++ b/test/Moretest/morematch.ml @@ -216,8 +216,8 @@ let f = function | (x,(0 as y)) | (y,x) -> y-x ;; -test "foo" f (1,0) (-1); -test "foo" f (1,2) (-1) +test "foo1" f (1,0) (-1); +test "foo1" f (1,2) (-1) ;; @@ -378,9 +378,9 @@ let foo (k1, k2) = match k1,k2 with | _, (A|B|C) -> 4 ;; -test "foo" foo (D A,A) 1 ; -test "foo" foo (D A,B) 4 ; -test "foo" foo (A,A) 4 ; () +test "foo2" foo (D A,A) 1 ; +test "foo2" foo (D A,B) 4 ; +test "foo2" foo (A,A) 4 ; () ;; type yaya = A | B |