/pliant/fullpliant/password.pli
 
 1  abstract 
 2    [Clear passwords database.] 
 3   
 4  submodule "/pliant/storage/database.pli" 
 5   
 6  public 
 7   
 8   
 9  type Password 
 10    field Str password 
 11    field Str abstract 
 12   
 13  type PasswordDatabase 
 14    field (Set Set:Password) password 
 15   
 16   
 17  (gvar Database:PasswordDatabase password_database) load "security:/password_secret.pdb" 
 18  gvar Data:(Set Set:Password) password :> password_database:data:password 
 19   
 20   
 21  function password server client -> pwd 
 22    arg Str server client pwd 
 23    pwd := password:server:client:password