tape-program 0.1.9

Your data, permanently recorded — uncensorable, uneditable, and here for good.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

use tape_api::prelude::*;
use steel::*;

pub fn process_claim(accounts: &[AccountInfo<'_>], data: &[u8]) -> ProgramResult {
    let args = Claim::try_from_bytes(data)?;
    let [
        signer_info, 
        beneficiary_info, 
        proof_info, 
        treasury_info, 
        treasury_ata_info, 
        token_program_info,
    ] = accounts else {
        return Err(ProgramError::NotEnoughAccountKeys);
    };

    signer_info.is_signer()?;

    beneficiary_info
        .is_writable()?
        .as_token_account()?
        .assert(|t| t.mint() == MINT_ADDRESS)?;

    let miner = proof_info
        .as_account_mut::<Miner>(&tape_api::ID)?
        .assert_mut_err(
            |p| p.authority == *signer_info.key,
            ProgramError::MissingRequiredSignature,
        )?;

    treasury_info
        .is_treasury()?;

    treasury_ata_info
        .is_writable()?
        .is_treasury_ata()?;

    token_program_info
        .is_program(&spl_token::ID)?;

    let amount = u64::from_le_bytes(args.amount);

    // Update miner balance.
    miner.unclaimed_rewards = miner
        .unclaimed_rewards
        .checked_sub(amount)
        .ok_or(TapeError::ClaimTooLarge)?;

    // Transfer tokens from treasury to beneficiary.
    transfer_signed(
        treasury_info,
        treasury_ata_info,
        beneficiary_info,
        token_program_info,
        amount,
        &[TREASURY],
    )?;

    Ok(())
}