diff options
| author | herbelin | 2000-11-07 12:49:00 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-07 12:49:00 +0000 |
| commit | 32747e53e9cfad90a30d07ebd7a328ad0a6e58d9 (patch) | |
| tree | 5b6163567e187cc1de98659d1d15257bf17fdb00 /kernel/names.mli | |
| parent | 3d4a44bb4a30da00bc70072b36b70571168e6a8d (diff) | |
Nettoyage Names suite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@818 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/names.mli')
| -rw-r--r-- | kernel/names.mli | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/kernel/names.mli b/kernel/names.mli index 1e1b4cb3f3..6ae0f515fb 100644 --- a/kernel/names.mli +++ b/kernel/names.mli @@ -11,14 +11,14 @@ type identifier type name = Name of identifier | Anonymous (* Constructor of an identifier; - [make_ident] builds an identifier from a string and an index; if + [make_ident] builds an identifier from a string and an optional index; if the string ends by a digit, a "_" is inserted *) -val make_ident : string -> int -> identifier +val make_ident : string -> int option -> identifier (* Some destructors of an identifier *) val atompart_of_id : identifier -> string val first_char : identifier -> string -val index_of_id : identifier -> int +val index_of_id : identifier -> int option (* Parsing and printing of identifiers *) val string_of_id : identifier -> string @@ -36,7 +36,7 @@ val next_name_away : name -> identifier list -> identifier val next_name_away_with_default : string -> name -> identifier list -> identifier -(*s path_kind is currently degenerated, only [CCI] is used *) +(*s path_kind is currently degenerated, [FW] is not used *) type path_kind = CCI | FW | OBJ (* parsing and printing of path kinds *) |