(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* File: Ident.i3                                              *)
(* Last Modified On Wed Jul  5 10:07:45 1989 By kalsow         *)

INTERFACE Ident;

IMPORT String, Token;

CONST
  MaxIDs = 200;

VAR
  stack  : ARRAY [0..MaxIDs] OF String.T;
  offset : ARRAY [0..MaxIDs] OF INTEGER;
  top    : INTEGER := 0; (* points to the first empty stack element *)

PROCEDURE ParseList (READONLY fail: Token.Set): INTEGER;
(* returns the number of ids in the list *)

END Ident.