addUser.rho

#define $directory "testdir"
#define $username "jimscarver"
new ret, ret1, lookup(`rho:registry:lookup`), stdout(`rho:io:stdout`) in {
  lookup!($locker_%%$myusername, *ret) | for(locker <- ret) {
    locker!("get", $myprivkey.hexToBytes(), $locker_nonce_%%$myusername, *stdout, *ret) |
    for (@items  <- ret) {
      /* stdout!(items) | */
      if ( items.get("peek") == Nil ) {
        stdout!("you do not have an mailbox")
      } else {
        stdout!("finding " ++ $directory ++ " in inbox of " ++ $myusername) |
        @{items.get("peek")}!("directory", $directory,*ret) |
        for ( @[{"read": *read, "write": *write, "grant": grant, ..._ }, ..._] <- ret ) {
          if ( *write == Nil ) {
            stdout!("you do not have permission to write to " ++ $directory)
          } else {
            lookup!($inbox_%%$username,*ret) |
            @grant!($username, *ret1) |
            for( inbox <- ret; changekey <- ret1 ) {
              stdout!("adding " ++ $username) |
              write!($username,*inbox, *stdout) |
              inbox!(["directory", $directory, 
                {"read": *read, "changekey": *changekey}], *stdout)
            }
          }
      } } |
      stdout!(["#define $locker_nonce_" ++ $myusername, {$locker_nonce_%%$myusername + 1}])
} } }