-- 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.