text: #include "funding_tx.h"
  #include <bitcoin/pubkey.h>
  #include <bitcoin/script.h>
  #include <bitcoin/tx.h>
  #include <ccan/ptrint/ptrint.h>
  #include <common/key_derive.h>
  #include <common/permute_tx.h>
  #include <common/utxo.h>
  
  #ifndef SUPERVERBOSE
  #define SUPERVERBOSE(...)
  #endif
  
  struct bitcoin_tx *funding_tx(const tal_t *ctx,
  			      u16 *outnum,
  			      const struct utxo **utxomap,
  			      u64 funding_satoshis,
  			      const struct pubkey *local_fundingkey,
  			      const struct pubkey *remote_fundingkey,
  			      u64 change_satoshis,
  			      const struct pubkey *changekey,
  			      const struct ext_key *bip32_base)
  {
  	struct bitcoin_tx *tx = bitcoin_tx(ctx, tal_count(utxomap),
  					   change_satoshis ? 2 : 1);
  	u8 *wscript;
  	size_t i;
  
  	for (i = 0; i < tal_count(utxomap); i++) {
  		tx->input[i].txid = utxomap[i]->txid;
  		tx->input[i].index = utxomap[i]->outnum;
  		tx->input[i].amount = tal_dup(tx, u64, &utxomap[i]->amount);
  		if (utxomap[i]->is_p2sh && bip32_base) {
  			struct pubkey key;
  
  			bip32_pubkey(bip32_base, &key, utxomap[i]->keyindex);
  			tx->input[i].script
  				= bitcoin_scriptsig_p2sh_p2wpkh(tx, &key);
  		}
  	}
  
  	tx->output[0].amount = funding_satoshis;
  	wscript = bitcoin_redeem_2of2(tx, local_fundingkey, remote_fundingkey);
  	SUPERVERBOSE("# funding witness script = %s\n",
  		     tal_hex(wscript, wscript));
  	tx->output[0].script = scriptpubkey_p2wsh(tx, wscript);
  	tal_free(wscript);
  
  	if (change_satoshis != 0) {
  		const void *map[2];
  		map[0] = int2ptr(0);
  		map[1] = int2ptr(1);
  		tx->output[1].script = scriptpubkey_p2wpkh(tx, changekey);
  		tx->output[1].amount = change_satoshis;
  		permute_outputs(tx->output, tal_count(tx->output), map);
  		*outnum = (map[0] == int2ptr(0) ? 0 : 1);
  	} else {
  		*outnum = 0;
  	}
  
  	permute_inputs(tx->input, tal_count(tx->input), (const void **)utxomap);
  	return tx;
  }
  