bip-taproot/tapscript: abstract out the common message calculation about bips HOT 4 CLOSED

taproot_message(uint8_t hash_type, uint8_t spend_type, tx, uint32_t input_index) {
  uint8_t epoch = 0;
  bm =  epoch + hash_type + tx.nVersion + tx.nLockTime
  if ((hash_type & ANYONECANPAY)== 0)  bm += sha_prevouts(tx) + sha_amounts(tx) + sha_sequences(tx);
  if ((hash_type & (NONE | SINGLE) == 0) bm += sha_outputs(tx);
  bm += spend_type + scriptPubKey(tx, input_index);
  if (hash_type & ANYONECANPAY) {
    bm += outpoint(tx,input_index) + amount(tx,input_index) + nSequence(tx,input_index);
  } else {
    bm += input_index;
  }
  if (spend_type & 1)  bm += sha_annex(tx, input_index);
  if (hash_type & SINGLE) bm += sha_single_output(tx, input_index);
  return bm;
}

tapscript_message(uint8_t hash_type, uint8_t spend_type, tx, uint32_t input_index,
  uint8_t key_version, uint32_t codeseparator_position)
{
  msg = taproot_message(hash_type, (spend_type | 0x02), tx, input_index);
  msg += tapleaf_hash + key_version + codeseparator_position;
  return msg;
}