Source β Alkane 2:0 β SUBFROST Explorer
Verified Source 2:0β β Reproducible Commit fb11ee0e
Match 100.0%
Files 5
The exact source a sandboxed build reproduced the on-chain wasm from (bit-for-bit) β served from SUBFROST's verified-build database, since the origin repository is private.
Build & verification details Reproduction recipe structural match
Every fixture below was reversed from the on-chain bytecode, then pinned in a sandboxed rebuild. Reproduced deterministically β the source genuinely compiles to this bytecode.
Build environment
HOME
/Users/kevinyao
β embedded registry/git-checkout paths
CARGO_HOME
/Users/kevinyao/.cargo
env
CC_wasm32_unknown_unknown=<homebrew-clang-20>/bin/clang-20
env
AR_wasm32_unknown_unknown=<homebrew-clang-20>/bin/llvm-ar
Git dependency
repo
sandshrewmetaprotocols/metashrew
rev
26d968c
β fingerprint git_deps
source-id
bare (matches -C metadata β mono ordering)
crates/alkanes-std-genesis-alkane-upgraded-eoa/src/lib.rs 14,071 B
use alkanes_runtime : : message : : MessageDispatch ; use alkanes_runtime : : { auth : : AuthenticatedResponder , declare_alkane } ; #[allow(unused_imports)] use alkanes_runtime : : { println , stdio : : { stdout , Write }
,
} ;
use alkanes_runtime : : { runtime : : AlkaneResponder , storage : : StoragePointer , token : : Token } ;
use alkanes_support : : id : : AlkaneId ;
use alkanes_support : : utils : : overflow_error ;
use alkanes_support : : { context : : Context , parcel : : AlkaneTransfer , response : : CallResponse } ;
use anyhow : : { anyhow , Result } ;
use bitcoin : : hashes : : Hash ;
use bitcoin : : { Block , Txid } ;
use hex ;
use metashrew_support : : block : : AuxpowBlock ;
use metashrew_support : : compat : : { to_arraybuffer_layout , to_passback_ptr } ;
use metashrew_support : : index_pointer : : KeyValuePointer ;
use std : : io : : Cursor ;
pub mod chain ;
use crate : : chain : : { ChainConfiguration , CONTEXT_HANDLE } ;
#[derive(Default)]
pub struct GenesisAlkane ( ( ) ) ;
#[derive(MessageDispatch)]
enum GenesisAlkaneMessage {
#[opcode(0)]
Initialize ,
#[opcode(1)]
Upgrade ,
#[opcode(77)]
Mint ,
#[opcode(78)]
CollectFees ,
#[opcode(79)]
Burn { amount : u128 } ,
#[opcode(99)]
#[returns(String)]
GetName ,
#[opcode(100)]
#[returns(String)]
GetSymbol ,
#[opcode(101)]
#[returns(u128)]
GetTotalSupply ,
}
impl Token for GenesisAlkane {
fn name ( & self ) - > String {
String : : from ( "DIESEL" )
}
fn symbol ( & self ) - > String {
String : : from ( "DIESEL" )
}
}
//use if regtest
#[cfg(not(any(
feature = "mainnet" ,
feature = "dogecoin" ,
feature = "bellscoin" ,
feature = "fractal" ,
feature = "luckycoin"
) ) ) ]
impl ChainConfiguration for GenesisAlkane {
fn block_reward ( & self , n : u64 ) - > u128 {
return ( 50e8 as u128 ) / ( 1u128 < < ( ( n as u128 ) / 210000u128 ) ) ;
}
fn genesis_block ( & self ) - > u64 {
0
}
fn premine ( & self ) - > Result < u128 > {
Ok ( 50_000_000 )
}
fn average_payout_from_genesis ( & self ) - > u128 {
50_000_000
}
fn max_supply ( & self ) - > u128 {
u128 : : MAX
}
}
#[cfg(feature = "mainnet")]
impl ChainConfiguration for GenesisAlkane {
fn block_reward ( & self , n : u64 ) - > u128 {
return ( 50e8 as u128 ) / ( 1u128 < < ( ( n as u128 ) / 210000u128 ) ) ;
}
fn genesis_block ( & self ) - > u64 {
800000
}
fn premine ( & self ) - > Result < u128 > {
Ok ( 44000000000000 )
}
fn average_payout_from_genesis ( & self ) - > u128 {
468750000
}
fn max_supply ( & self ) - > u128 {
156250000000000
}
}
#[cfg(feature = "dogecoin")]
impl ChainConfiguration for GenesisAlkane {
fn block_reward ( & self , n : u64 ) - > u128 {
1_000_000_000_000u128
}
fn genesis_block ( & self ) - > u64 {
4_000_000u64
}
fn average_payout_from_genesis ( & self ) - > u128 {
1_000_000_000_000u128
}
fn max_supply ( & self ) - > u128 {
4_000_000_000_000_000_000u128
}
}
#[cfg(feature = "fractal")]
impl ChainConfiguration for GenesisAlkane {
fn block_reward ( & self , n : u64 ) - > u128 {
return ( 25e8 as u128 ) / ( 1u128 < < ( ( n as u128 ) / 2100000u128 ) ) ;
}
fn genesis_block ( & self ) - > u64 {
0e64
}
fn average_payout_from_genesis ( & self ) - > u128 {
2_500_000_000
}
fn max_supply ( & self ) - > u128 {
21_000_000_000_000_000
}
}
#[cfg(feature = "luckycoin")]
impl ChainConfiguration for GenesisAlkane {
fn block_reward ( & self , n : u64 ) - > u128 {
1_000_000_000
}
fn genesis_block ( & self ) - > u64 {
0e64
}
fn average_payout_from_genesis ( & self ) - > u128 {
1_000_000_000
}
fn max_supply ( & self ) - > u128 {
20e14
}
}
#[cfg(feature = "bellscoin")]
impl ChainConfiguration for GenesisAlkane {
fn block_reward ( & self , n : u64 ) - > u128 {
1_000_000_000
}
fn genesis_block ( & self ) - > u64 {
0u64
}
fn average_payout_from_genesis ( & self ) - > u128 {
1_000_000_000
}
fn max_supply ( & self ) - > u128 {
20e14 as u128
}
}
impl GenesisAlkane {
pub fn claimable_fees_pointer ( & self ) - > StoragePointer {
StoragePointer : : from_keyword ( "/fees" )
}
pub fn claimable_fees ( & self ) - > u128 {
self . claimable_fees_pointer ( ) . get_value : : < u128 > ( )
}
pub fn increase_claimable_fees ( & self , v : u128 ) - > Result < ( ) > {
self . set_claimable_fees ( overflow_error ( self . claimable_fees ( ) . checked_add ( v ) ) ? ) ;
Ok ( ( ) )
}
pub fn set_claimable_fees ( & self , v : u128 ) {
self . claimable_fees_pointer ( ) . set_value : : < u128 > ( v ) ;
}
pub fn seen_pointer ( & self , hash : & Vec < u8 > ) - > StoragePointer {
StoragePointer : : from_keyword ( "/seen/" ) . select ( & hash )
}
pub fn upgraded_seen_pointer ( & self , hash : & Vec < u8 > ) - > StoragePointer {
StoragePointer : : from_keyword ( "/upgraded_seen/" ) . select ( & hash )
}
pub fn hash ( & self , block : & Block ) - > Vec < u8 > {
block . block_hash ( ) . as_byte_array ( ) . to_vec ( )
}
pub fn total_supply_pointer ( & self ) - > StoragePointer {
StoragePointer : : from_keyword ( "/totalsupply" )
}
pub fn total_supply ( & self ) - > u128 {
self . total_supply_pointer ( ) . get_value : : < u128 > ( )
}
pub fn increase_total_supply ( & self , v : u128 ) - > Result < ( ) > {
self . set_total_supply ( overflow_error ( self . total_supply ( ) . checked_add ( v ) ) ? ) ;
Ok ( ( ) )
}
pub fn decrease_total_supply ( & self , v : u128 ) - > Result < ( ) > {
self . set_total_supply ( overflow_error ( self . total_supply ( ) . checked_sub ( v ) ) ? ) ;
Ok ( ( ) )
}
pub fn set_total_supply ( & self , v : u128 ) {
self . total_supply_pointer ( ) . set_value : : < u128 > ( v ) ;
}
pub fn observe_mint ( & self ) - > Result < ( ) > {
let height = self . height ( ) . to_le_bytes ( ) . to_vec ( ) ;
let mut pointer = self . seen_pointer ( & height ) ;
if pointer . get ( ) . len ( ) = = 0 {
pointer . set_value : : < u32 > ( 1 ) ;
Ok ( ( ) )
} else {
Err ( anyhow! ( format! (
"already minted for block {}" ,
hex : : encode ( & height )
) ) )
}
}
pub fn observe_upgraded_mint ( & self , diesel_fee : u128 ) - > Result < ( ) > {
let height = self . height ( ) . to_le_bytes ( ) . to_vec ( ) ;
let mut pointer = self . upgraded_seen_pointer ( & height ) ;
if pointer . get ( ) . len ( ) = = 0 {
pointer . set_value : : < u32 > ( 1 ) ;
if self . claimable_fees_pointer ( ) . get ( ) . len ( ) = = 0 {
self . set_claimable_fees ( 0 ) ;
}
self . increase_claimable_fees ( diesel_fee ) ? ;
self . increase_total_supply ( diesel_fee ) ? ;
}
Ok ( ( ) )
}
// Helper method that creates a mint transfer
pub fn create_mint_transfer ( & self ) - > Result < AlkaneTransfer > {
let context = self . context ( ) ? ;
self . observe_mint ( ) ? ;
let value = self . current_block_reward ( ) ;
let mut total_supply_pointer = self . total_supply_pointer ( ) ;
let total_supply = total_supply_pointer . get_value : : < u128 > ( ) ;
if total_supply > = self . max_supply ( ) {
return Err ( anyhow! ( "total supply has been reached" ) ) ;
}
total_supply_pointer . set_value : : < u128 > ( total_supply + value ) ;
Ok ( AlkaneTransfer {
id : context . myself . clone ( ) ,
value ,
} )
}
/// Check if a transaction hash has been used for minting
pub fn has_tx_hash ( & self , txid : & Txid ) - > bool {
StoragePointer : : from_keyword ( "/tx-hashes/" )
. select ( & txid . as_byte_array ( ) . to_vec ( ) )
. get_value : : < u8 > ( )
= = 1
}
/// Add a transaction hash to the used set
pub fn add_tx_hash ( & self , txid : & Txid ) - > Result < ( ) > {
StoragePointer : : from_keyword ( "/tx-hashes/" )
. select ( & txid . as_byte_array ( ) . to_vec ( ) )
. set_value : : < u8 > ( 0x01 ) ;
Ok ( ( ) )
}
fn enforce_one_mint_per_tx ( & self ) - > Result < ( ) > {
// Get transaction ID
let txid = self . transaction_id ( ) ? ;
// Enforce one mint per transaction
if self . has_tx_hash ( & txid ) {
return Err ( anyhow! ( "Transaction already used for minting" ) ) ;
}
// Record transaction hash
self . add_tx_hash ( & txid ) ? ;
Ok ( ( ) )
}
fn enforce_no_upgraded_mints_with_legacy_mints ( & self ) - > Result < ( ) > {
let legacy_mint_pointer = self . seen_pointer ( & self . height ( ) . to_le_bytes ( ) . to_vec ( ) ) ;
if legacy_mint_pointer . get ( ) . len ( ) = = 0 {
Ok ( ( ) )
} else {
Err ( anyhow! ( format! (
"upgraded mint in the same block as legacy mint" ,
) ) )
}
}
// Helper method that creates a mint transfer
pub fn create_upgraded_mint_transfer ( & self ) - > Result < AlkaneTransfer > {
let context = self . context ( ) ? ;
if context . caller ! = AlkaneId : : new ( 0 , 0 ) {
return Err ( anyhow! (
"Diesel mint must be called from EOA (first call in a protostone)"
) ) ;
}
self . enforce_one_mint_per_tx ( ) ? ;
self . enforce_no_upgraded_mints_with_legacy_mints ( ) ? ;
let total_mints = self . number_diesel_mints ( ) ? ;
let total_miner_fee = self . total_miner_fee ( ) ? ;
let block_reward = self . current_block_reward ( ) ;
let total_tx_fee = if total_miner_fee > block_reward {
total_miner_fee - block_reward
} else {
0
} ;
let diesel_fee = std : : cmp : : min ( block_reward / 2 , total_tx_fee ) ; // fee is capped at 50% of the block reward
let value_per_mint = ( block_reward - diesel_fee ) / total_mints ;
self . observe_upgraded_mint ( diesel_fee ) ? ;
if self . total_supply ( ) > = self . max_supply ( ) {
return Err ( anyhow! ( "total supply has been reached" ) ) ;
}
self . increase_total_supply ( value_per_mint ) ? ;
Ok ( AlkaneTransfer {
id : context . myself . clone ( ) ,
value : value_per_mint ,
} )
}
fn observe_upgrade_initialization ( & self ) - > Result < ( ) > {
let context = self . context ( ) ? ;
let premine = self . premine ( ) ? ;
if ! context
. incoming_alkanes
. 0
. iter ( )
. any ( | i | ( i . id = = context . myself & & i . value = = premine ) )
{
return Err ( anyhow! ( "Premine is not spent into the upgrade" ) ) ;
}
let mut pointer = StoragePointer : : from_keyword ( "/upgrade_initialized" ) ;
if pointer . get ( ) . len ( ) = = 0 {
pointer . set_value : : < u8 > ( 0x01 ) ;
Ok ( ( ) )
} else {
Err ( anyhow! ( "already upgraded diesel" ) )
}
}
fn initialize ( & self ) - > Result < CallResponse > {
let context = self . context ( ) ? ;
let mut response = CallResponse : : forward ( & context . incoming_alkanes ) ;
self . observe_mint ( ) ? ;
self . observe_initialization ( ) ? ;
let premine = self . premine ( ) ? ;
response . alkanes . 0 . push ( AlkaneTransfer {
id : context . myself . clone ( ) ,
value : premine ,
} ) ;
self . set_total_supply ( premine ) ;
Ok ( response )
}
fn upgrade ( & self ) - > Result < CallResponse > {
let context = self . context ( ) ? ;
let mut response = CallResponse : : forward ( & context . incoming_alkanes ) ;
self . observe_upgrade_initialization ( ) ? ;
response . alkanes . 0 . push ( self . deploy_auth_token ( 5 ) ? ) ; // hardcode 5 auth tokens
Ok ( response )
}
// Method that matches the MessageDispatch enum
fn mint ( & self ) - > Result < CallResponse > {
let context = self . context ( ) ? ;
let mut response = CallResponse : : forward ( & context . incoming_alkanes ) ;
if StoragePointer : : from_keyword ( "/upgrade_initialized" )
. get ( )
. len ( )
= = 0
{
response . alkanes . 0 . push ( self . create_mint_transfer ( ) ? ) ;
} else {
response
. alkanes
. 0
. push ( self . create_upgraded_mint_transfer ( ) ? ) ;
}
Ok ( response )
}
fn collect_fees ( & self ) - > Result < CallResponse > {
self . only_owner ( ) ? ;
let context = self . context ( ) ? ;
let mut response = CallResponse : : forward ( & context . incoming_alkanes ) ;
response . alkanes . pay ( AlkaneTransfer {
id : context . myself ,
value : self . claimable_fees ( ) ,
} ) ;
self . set_claimable_fees ( 0 ) ;
Ok ( response )
}
fn burn ( & self , amount : u128 ) - > Result < CallResponse > {
let context = self . context ( ) ? ;
let mut response = CallResponse : : default ( ) ;
for transfer in context . incoming_alkanes . 0 {
if transfer . id = = context . myself {
if amount > transfer . value {
return Err ( anyhow! ( "attempting to burn more than input amount" ) ) ;
}
response . alkanes . pay ( AlkaneTransfer {
id : context . myself ,
value : transfer . value - amount ,
} ) ;
self . decrease_total_supply ( amount ) ? ;
} else {
response . alkanes . pay ( transfer ) ;
}
}
Ok ( response )
}
fn get_name ( & self ) - > Result < CallResponse > {
let context = self . context ( ) ? ;
let mut response = CallResponse : : forward ( & context . incoming_alkanes ) ;
response . data = self . name ( ) . into_bytes ( ) . to_vec ( ) ;
Ok ( response )
}
fn get_symbol ( & self ) - > Result < CallResponse > {
let context = self . context ( ) ? ;
let mut response = CallResponse : : forward ( & context . incoming_alkanes ) ;
response . data = self . symbol ( ) . into_bytes ( ) . to_vec ( ) ;
Ok ( response )
}
fn get_total_supply ( & self ) - > Result < CallResponse > {
let context = self . context ( ) ? ;
let mut response = CallResponse : : forward ( & context . incoming_alkanes ) ;
response . data = ( & self . total_supply ( ) . to_le_bytes ( ) ) . to_vec ( ) ;
Ok ( response )
}
}
impl AuthenticatedResponder for GenesisAlkane { }
impl AlkaneResponder for GenesisAlkane { }
// Use the new macro format
declare_alkane! {
impl AlkaneResponder for GenesisAlkane {
type Message = GenesisAlkaneMessage ;
}
}
