diff options
Diffstat (limited to 'parsing/longident.ml')
| -rw-r--r-- | parsing/longident.ml | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/parsing/longident.ml b/parsing/longident.ml deleted file mode 100644 index 57652ea1af..0000000000 --- a/parsing/longident.ml +++ /dev/null @@ -1,38 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 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$ *) - -type t = - Lident of string - | Ldot of t * string - | Lapply of t * t - -let rec flat accu = function - Lident s -> s :: accu - | Ldot(lid, s) -> flat (s :: accu) lid - | Lapply(l1, l2) -> Misc.fatal_error "Longident.flat" - -let flatten lid = flat [] lid - -let rec split_at_dots s pos = - try - let dot = String.index_from s pos '.' in - String.sub s pos (dot - pos) :: split_at_dots s (dot + 1) - with Not_found -> - [String.sub s pos (String.length s - pos)] - -let parse s = - match split_at_dots s 0 with - [] -> Lident "" (* should not happen, but don't put assert false - so as not to crash the toplevel (see Genprintval) *) - | hd :: tl -> List.fold_left (fun p s -> Ldot(p, s)) (Lident hd) tl |