diff options
Diffstat (limited to 'ocamlbuild/glob_ast.ml')
| -rw-r--r-- | ocamlbuild/glob_ast.ml | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/ocamlbuild/glob_ast.ml b/ocamlbuild/glob_ast.ml new file mode 100644 index 000000000..2173702ec --- /dev/null +++ b/ocamlbuild/glob_ast.ml @@ -0,0 +1,31 @@ +(***********************************************************************) +(* ocamlbuild *) +(* *) +(* Nicolas Pouillard, Berke Durak, projet Gallium, INRIA Rocquencourt *) +(* *) +(* Copyright 2007 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id$ *) +(* Original author: Berke Durak *) +(* Glob_ast *) + +exception Parse_error of string;; + +type pattern = +| Epsilon +| Star of pattern (* The fucking Kleene star *) +| Class of character_class +| Concat of pattern * pattern +| Union of pattern list +| Word of string +and character_class = (char * char) Bool.boolean +;; + +type 'pattern atom = +| Constant of string +| Pattern of 'pattern +;; |