-- Storage.mesa: A MDS-based Storage for the Grapevine server
-- 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: STRING] RETURNS [CARDINAL] = INLINE {
    RETURN[IF s = NIL THEN 0 ELSE s.length]};

  END.