-- Copyright (C) 1981, 1982  by Xerox Corporation. All rights reserved. 
-- File: Password.mesa,  Last Edit: HGM  25-Sep-81  1:31:22

Password: DEFINITIONS =
  BEGIN

  -- Copied from Alto OS
  Encrypted: TYPE [8];
  Encrypt: PROCEDURE [name, password: LONG STRING] RETURNS [Encrypted];
  Check: PROCEDURE [password: LONG STRING, old: Encrypted] RETURNS [BOOLEAN];

  -- Talks to Grapevine
  Status: TYPE = {
    yes, nil, allDown, notFound, badPwd, group, no, notGroup, error};
  ValidMemberOfGroup: PROCEDURE [name, password, group: LONG STRING]
    RETURNS [Status];

  END.