-- Copyright (C) 1982, 1984 by Xerox Corporation. All rights reserved. -- Storage.mesa: A MDS-based Storage for the Grapevine server -- HGM, 16-Sep-85 19:39:44 -- Mark Johnson, 11-Jan-82 13:04:33 Storage: DEFINITIONS = BEGIN Node: PROC [nwords: CARDINAL] RETURNS [p: POINTER]; Free: PROC [p: POINTER]; String: PROC [nchars: CARDINAL] RETURNS [s: STRING]; FreeString: PROC [s: STRING]; StringLength: PROC [s: LONG STRING] RETURNS [CARDINAL] = INLINE { RETURN[IF s = NIL THEN 0 ELSE s.length]}; END.