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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

use tape_api::prelude::*;
use solana_program::{
    keccak::hashv,
    slot_hashes::SlotHash,
};
use brine_tree::MerkleTree;
use steel::*;

pub fn process_create(accounts: &[AccountInfo<'_>], data: &[u8]) -> ProgramResult {
    let args = Create::try_from_bytes(data)?;
    let [
        signer_info, 
        tape_info,
        writer_info, 
        system_program_info,
        rent_sysvar_info,
        slot_hashes_info,
    ] = accounts else {
        return Err(ProgramError::NotEnoughAccountKeys);
    };

    signer_info.is_signer()?;

    let (tape_address, _tape_bump) = tape_pda(*signer_info.key, &args.name);
    let (writer_address, _writer_bump) = writer_pda(tape_address);

    tape_info
        .is_empty()?
        .is_writable()?
        .has_address(&tape_address)?;

    writer_info
        .is_empty()?
        .is_writable()?
        .has_address(&writer_address)?;

    system_program_info
        .is_program(&system_program::ID)?;

    rent_sysvar_info
        .is_sysvar(&sysvar::rent::ID)?;

    slot_hashes_info
        .is_sysvar(&sysvar::slot_hashes::ID)?;

    create_program_account::<Tape>(
        tape_info,
        system_program_info,
        signer_info,
        &tape_api::ID,
        &[TAPE, signer_info.key.as_ref(), &args.name],
    )?;

    create_program_account::<Writer>(
        writer_info,
        system_program_info,
        signer_info,
        &tape_api::ID,
        &[WRITER, tape_info.key.as_ref()],
    )?;

    let tape = tape_info.as_account_mut::<Tape>(&tape_api::ID)?;
    let writer = writer_info.as_account_mut::<Writer>(&tape_api::ID)?;

    let empty_seed = hashv(&[
        tape_info.key.as_ref(),
        &slot_hashes_info.data.borrow()[
            0..core::mem::size_of::<SlotHash>()
        ],
    ]);

    tape.number            = 0; // (tapes get a number when finalized)
    tape.authority         = *signer_info.key;
    tape.name              = args.name;
    tape.state             = TapeState::Created.into();
    tape.total_segments    = 0;
    tape.total_size        = 0;
    tape.merkle_seed       = empty_seed.to_bytes();
    tape.merkle_root       = [0; 32];
    tape.tail              = [0; 64];

    writer.tape            = *tape_info.key;
    writer.state           = MerkleTree::new(&[empty_seed.as_ref()]);

    Ok(())
}