Bitcoin HTLC constructor - COMIT

htlc.rs

fn create_htlc(
    recipient_pubkey_hash: &PubkeyHash,
    sender_pubkey_hash: &PubkeyHash,
    secret_hash: &[u8],
    redeem_block_height: u32,
) -> Script {
    let script = Builder::new()
        .push_opcode(OP_IF)
        .push_opcode(OP_SHA256)
        .push_slice(secret_hash)
        .push_opcode(OP_EQUALVERIFY)
        .push_opcode(OP_DUP)
        .push_opcode(OP_HASH160)
        .push_slice(recipient_pubkey_hash.as_ref())
        .push_opcode(OP_ELSE)
        .push_int(i64::from(redeem_block_height))
        .push_opcode(OP_CHECKSEQUENCEVERIFY)
        .push_opcode(OP_DROP)
        .push_opcode(OP_DUP)
        .push_opcode(OP_HASH160)
        .push_slice(sender_pubkey_hash.as_ref())
        .push_opcode(OP_ENDIF)
        .push_opcode(OP_EQUALVERIFY)
        .push_opcode(OP_CHECKSIG)
        .into_script();
    trace!("BTC HTLC: {}", script);
    script
}