m3front/src/values/Ident.i3


Copyright (C) 1994, Digital Equipment Corp.
File: Ident.i3 Last Modified On Fri Jun 24 09:36:42 PDT 1994 By kalsow

INTERFACE Ident;

IMPORT M3ID;

TYPE
  StringList  = REF ARRAY OF M3ID.T;
  IntegerList = REF ARRAY OF INTEGER;

VAR
  stack  : StringList  := NIL;
  offset : IntegerList := NIL;
  top    : INTEGER := 0; (* points to the first empty stack element *)

PROCEDURE ParseList (): INTEGER;
returns the number of ids in the list

PROCEDURE Reset ();

END Ident.

interface M3ID is in: