/*~ Welcome to the ~nifty~ dual-opening daemon: the other gateway to channels!
 *
 * This daemon handles a single peer.  It's happy to trade gossip with the
 * peer until either lightningd asks it to fund a channel, or the peer itself
 * asks to fund a channel.  Then it goes through with the channel opening
 * negotiations.  It's important to note that until this negotiation is complete,
 * there's nothing permanent about the channel: lightningd will only have to
 * commit to the database once dualopend succeeds.
 *
 * Much like the original opening daemon, openingd, dualopend implements the
 * new and improved, two-party opening protocol, which allows bother peers to
 * contribute inputs to the transaction
 */
#include "config.h"
#include <bitcoin/script.h>
#include <ccan/array_size/array_size.h>
#include <ccan/cast/cast.h>
#include <ccan/mem/mem.h>
#include <ccan/tal/str/str.h>
#include <common/billboard.h>
#include <common/blockheight_states.h>
#include <common/initial_channel.h>
#include <common/lease_rates.h>
#include <common/memleak.h>
#include <common/peer_billboard.h>
#include <common/peer_failed.h>
#include <common/peer_io.h>
#include <common/per_peer_state.h>
#include <common/psbt_internal.h>
#include <common/psbt_open.h>
#include <common/read_peer_msg.h>
#include <common/setup.h>
#include <common/status.h>
#include <common/subdaemon.h>
#include <common/wire_error.h>
#include <errno.h>
#include <hsmd/hsmd_wiregen.h>
#include <inttypes.h>
#include <openingd/common.h>
#include <openingd/dualopend_wiregen.h>
#include <unistd.h>
#include <wally_script.h>
#include <wire/wire_sync.h>

/* stdin == lightningd, 3 == peer, 4 = hsmd */
#define REQ_FD STDIN_FILENO
#define HSM_FD 4

/* tx_add_input, tx_add_output, tx_rm_input, tx_rm_output */
#define NUM_TX_MSGS (TX_RM_OUTPUT + 1)
enum tx_msgs {
	TX_ADD_INPUT,
	TX_ADD_OUTPUT,
	TX_RM_INPUT,
	TX_RM_OUTPUT,
};

/*
 * BOLT #2:
 * The maximum inputs and outputs are capped at 252. This effectively fixes
 * the byte size of the input and output counts on the transaction to one (1).
 */
#define MAX_TX_MSG_RCVD (1 << 12)

/*
 * BOLT #2:
 * The receiving node: ...
 * - MUST fail the negotiation if: ...
 *  - there are more than 252 inputs
 *  - there are more than 252 outputs
 */
#define MAX_FUNDING_INPUTS 252
#define MAX_FUNDING_OUTPUTS 252

/* State for a 'new' funding transaction. There should be one
 * for every new funding transaction attempt */
struct tx_state {
	/* Funding and feerate: set by opening peer. */
	struct amount_sat opener_funding;
	struct amount_sat accepter_funding;
	u32 tx_locktime;
	u32 feerate_per_kw_funding;

	struct bitcoin_outpoint funding;

	/* This is a cluster of fields in open_channel and accept_channel which
	 * indicate the restrictions each side places on the channel. */
	struct channel_config localconf, remoteconf;

	/* PSBT of the funding tx */
	struct wally_psbt *psbt;

	/* Set of pending changes to send to peer */
	struct psbt_changeset *changeset;

	/* The serial_id of the funding output */
	u64 funding_serial;

	/* Track how many of each tx collab msg we receive */
	u16 tx_msg_count[NUM_TX_MSGS];

	/* Have we gotten the peer's tx-sigs yet? */
	bool remote_funding_sigs_rcvd;

	/* Have we gotten the peer's commitments yet? */
	bool has_commitments;

	/* Rates that we're using for this open... */
	struct lease_rates *rates;

	/* Lease blockheight start */
	u32 blockheight;

	/* If delay til the channel funds lease expires */
	u32 lease_expiry;

	/* Total fee for lease */
	struct amount_sat lease_fee;

	/* Lease's commit sig */
	secp256k1_ecdsa_signature *lease_commit_sig;

	/* Lease's commited chan max msat */
	u32 lease_chan_max_msat;

	/* Lease's commited chan max ppt */
	u16 lease_chan_max_ppt;
};

static struct tx_state *new_tx_state(const tal_t *ctx)
{
	struct tx_state *tx_state = tal(ctx, struct tx_state);
	tx_state->psbt = NULL;
	tx_state->remote_funding_sigs_rcvd = false;
	tx_state->has_commitments = false;

	tx_state->lease_expiry = 0;
	tx_state->lease_fee = AMOUNT_SAT(0);
	tx_state->blockheight = 0;
	tx_state->lease_commit_sig = NULL;
	tx_state->lease_chan_max_msat = 0;
	tx_state->lease_chan_max_ppt = 0;

	/* no max_htlc_dust_exposure on remoteconf, we exclusively use the local's */
	tx_state->remoteconf.max_dust_htlc_exposure_msat = AMOUNT_MSAT(0);

	for (size_t i = 0; i < NUM_TX_MSGS; i++)
		tx_state->tx_msg_count[i] = 0;

	return tx_state;
}

/* Global state structure.  This is only for the one specific peer and channel */
struct state {
	struct per_peer_state *pps;

	/* --developer? */
	bool developer;

	/* Features they offered */
	u8 *their_features;

	/* Constraints on a channel they open. */
	u32 minimum_depth;
	struct amount_msat min_effective_htlc_capacity;

	/* Limits on what remote config we accept. */
	u32 max_to_self_delay;

	/* These are the points lightningd told us to use when accepting or
	 * opening a channel. */
	struct basepoints our_points;
	struct pubkey our_funding_pubkey;
	struct pubkey their_funding_pubkey;

	/* Information we need between funding_start and funding_complete */
	struct basepoints their_points;

	/* hsmd gives us our first+second per-commitment points, and peer tells us
	 * theirs */
	struct pubkey first_per_commitment_point[NUM_SIDES];
	struct pubkey second_per_commitment_point[NUM_SIDES];

	struct channel_id channel_id;
	u8 channel_flags;

	enum tx_role our_role;

	u32 feerate_per_kw_commitment;

	/* If non-NULL, this is the scriptpubkey we/they *must* close with */
	u8 *upfront_shutdown_script[NUM_SIDES];

	/* If non-NULL, the wallet index for the LOCAL script */
	u32 *local_upfront_shutdown_wallet_index;

	/* The channel structure, as defined in common/initial_channel.h. While
	 * the structure has room for HTLCs, those routines are
	 * channeld-specific as initial channels never have HTLCs. */
	struct channel *channel;

	/* Channel type we agreed on (even before channel populated) */
	struct channel_type *channel_type;

	struct feature_set *our_features;

	/* Tally of which sides are locked, or not */
	bool channel_ready[NUM_SIDES];

	/* Are we shutting down? */
	bool shutdown_sent[NUM_SIDES];

	/* Were we reconnected at start ? */
	bool reconnected;

	/* Did we send tx-abort? */
	const char *aborted_err;

	/* State of inflight funding transaction attempt */
	struct tx_state *tx_state;

	/* Amount of leased sats requested, persisted across
	 * RBF attempts, so we know when we've messed up lol */
	struct amount_sat *requested_lease;

	/* Does this negotation require confirmed inputs? */
	bool require_confirmed_inputs[NUM_SIDES];

	/* Our alias */
	struct short_channel_id local_alias;

	bool dev_accept_any_channel_type;
};

/* psbt_changeset_get_next - Get next message to send
 *
 * This generates the next message to send from a changeset for the
 * interactive transaction protocol.
 *
 * @ctx - allocation context of returned msg
 * @cid - channel_id for the message
 * @set - changeset to get next update from
 *
 * Returns a wire message or NULL if no changes.
 */
static u8 *psbt_changeset_get_next(const tal_t *ctx,
				   struct channel_id *cid,
				   struct psbt_changeset *set)
{
	u64 serial_id;
	u8 *msg;

	if (tal_count(set->added_ins) != 0) {
		const struct input_set *in = &set->added_ins[0];

		if (!psbt_get_serial_id(&in->input.unknowns, &serial_id))
			abort();

		const u8 *prevtx = linearize_wtx(ctx,
						 in->input.utxo);

		msg = towire_tx_add_input(ctx, cid, serial_id,
					  prevtx, in->input.index,
					  in->input.sequence,
					  NULL);

		tal_arr_remove(&set->added_ins, 0);
		return msg;
	}
	if (tal_count(set->rm_ins) != 0) {
		if (!psbt_get_serial_id(&set->rm_ins[0].input.unknowns,
					&serial_id))
			abort();

		msg = towire_tx_remove_input(ctx, cid, serial_id);

		tal_arr_remove(&set->rm_ins, 0);
		return msg;
	}
	if (tal_count(set->added_outs) != 0) {
		struct amount_sat sats;
		struct amount_asset asset_amt;

		const struct output_set *out = &set->added_outs[0];
		if (!psbt_get_serial_id(&out->output.unknowns, &serial_id))
			abort();

		asset_amt = wally_psbt_output_get_amount(&out->output);
		sats = amount_asset_to_sat(&asset_amt);
		const u8 *script = wally_psbt_output_get_script(ctx,
								&out->output);


		msg = towire_tx_add_output(ctx, cid, serial_id,
					   sats.satoshis, /* Raw: wire interface */
					   script);

		tal_arr_remove(&set->added_outs, 0);
		return msg;
	}
	if (tal_count(set->rm_outs) != 0) {
		if (!psbt_get_serial_id(&set->rm_outs[0].output.unknowns,
					&serial_id))
			abort();

		msg = towire_tx_remove_output(ctx, cid, serial_id);

		/* Is this a kosher way to move the list forward? */
		tal_arr_remove(&set->rm_outs, 0);
		return msg;
	}
	return NULL;
}

static void dualopen_shutdown(struct state *state)
{
	u8 *msg = towire_dualopend_shutdown_complete(state);

	wire_sync_write(REQ_FD, msg);
	per_peer_state_fdpass_send(REQ_FD, state->pps);
	status_debug("Sent %s with fds",
		     dualopend_wire_name(fromwire_peektype(msg)));

	/* Give master a chance to pass the fd along */
	sleep(1);

	/* This frees the entire tal tree. */
	tal_free(state);
	daemon_shutdown();
	exit(0);
}

static bool shutdown_complete(const struct state *state)
{
	return state->shutdown_sent[LOCAL]
		&& state->shutdown_sent[REMOTE];
}

/* They failed the open with us */
static void negotiation_aborted(struct state *state, const char *why, bool aborted)
{
	status_debug("aborted opening negotiation: %s", why);

	/* Tell master that funding failed (don't disconnect if we aborted) */
	peer_failed_received_errmsg(state->pps, !aborted, why);
}

/* Softer version of 'warning' (we don't disconnect)
 * Only valid iff *we* haven't sent tx-sigs for a in-progress
 * negotiation */
static void open_abort(struct state *state,
		       const char *fmt, ...)
{
	va_list ap;
	const char *errmsg;
	u8 *msg;

	va_start(ap, fmt);
	errmsg = tal_vfmt(NULL, fmt, ap);
	va_end(ap);

	status_debug("aborted open negotiation, tx-abort: %s", errmsg);

	/*~ The "billboard" (exposed as "status" in the JSON listpeers RPC
	 * call) is a transient per-channel area which indicates important
	 * information about what is happening.  It has a "permanent" area for
	 * each state, which can be used to indicate what went wrong in that
	 * state (such as here), and a single transient area for current
	 * status. */
	peer_billboard(true, errmsg);
	msg = towire_tx_abort(NULL, &state->channel_id,
			      (u8 *)tal_dup_arr(tmpctx, char, errmsg,
						strlen(errmsg), 0));
	peer_write(state->pps, take(msg));

	/* We're now in aborted mode, all
	 * subsequent msgs will be dropped */
	if (!state->aborted_err)
		state->aborted_err = tal_steal(state, errmsg);
	else
		tal_free(errmsg);
}

static void open_err_warn(struct state *state,
			  const char *fmt, ...)
{
	va_list ap;
	const char *errmsg;

	va_start(ap, fmt);
	errmsg = tal_vfmt(tmpctx, fmt, ap);
	va_end(ap);

	status_debug("aborted open negotiation, warn: %s", errmsg);
	peer_failed_warn(state->pps, &state->channel_id, "%s", errmsg);
}

static void open_err_fatal(struct state *state,
			   const char *fmt, ...)
{
	va_list ap;
	const char *errmsg;

	va_start(ap, fmt);
	errmsg = tal_vfmt(tmpctx, fmt, ap);
	va_end(ap);

	status_debug("aborted open negotiation, fatal: %s", errmsg);
	peer_failed_err(state->pps, &state->channel_id, "%s", errmsg);
}


/*~ For negotiation failures: we tell them the parameter we didn't like. */
static void negotiation_failed(struct state *state,
			       const char *fmt, ...)
{
	va_list ap;
	const char *errmsg;

	va_start(ap, fmt);
	errmsg = tal_vfmt(tmpctx, fmt, ap);
	va_end(ap);

	open_abort(state, "You gave bad parameters: %s", errmsg);
}

static void billboard_update(struct state *state)
{
	const char *update = billboard_message(tmpctx, state->channel_ready,
					       NULL,
					       state->shutdown_sent,
					       0, /* Always zero? */
					       0);
	peer_billboard(false, update);
}

static void lock_signer_outpoint(const struct bitcoin_outpoint *outpoint)
{
	const u8 *msg;
	bool is_buried = false;


	/* FIXME(vincenzopalazzo): Sleeping in a deamon of cln should be never fine
	 * howerver the core deamon of cln will never trigger the sleep.
	 *
	 * I think that the correct solution for this is a timer base solution, but this
	 * required to implement all the timers in the deamon.  */
	do {
		/* Make sure the hsmd agrees that this outpoint is
		 * sufficiently buried. */
		msg = towire_hsmd_check_outpoint(NULL, &outpoint->txid, outpoint->n);
		wire_sync_write(HSM_FD, take(msg));
		msg = wire_sync_read(tmpctx, HSM_FD);
		if (!fromwire_hsmd_check_outpoint_reply(msg, &is_buried))
			status_failed(STATUS_FAIL_HSM_IO,
				      "Bad hsmd_check_outpoint_reply: %s",
				      tal_hex(tmpctx, msg));

		/* the signer should have a shorter buried height requirement so
		 * it almost always will be ready ahead of us.*/
		if (!is_buried)
			sleep(10);
	} while (!is_buried);

	/* tell the signer that we are now locked */
	msg = towire_hsmd_lock_outpoint(NULL, &outpoint->txid, outpoint->n);
	wire_sync_write(HSM_FD, take(msg));
	msg = wire_sync_read(tmpctx, HSM_FD);
	if (!fromwire_hsmd_lock_outpoint_reply(msg))
		status_failed(STATUS_FAIL_HSM_IO,
			      "Bad hsmd_lock_outpoint_reply: %s",
			      tal_hex(tmpctx, msg));
}

/* Call this method when channel_ready status are changed. */
static void check_mutual_channel_ready(const struct state *state)
{
	if (state->channel_ready[LOCAL] && state->channel_ready[REMOTE])
		lock_signer_outpoint(&state->channel->funding);
}

static void send_shutdown(struct state *state, const u8 *final_scriptpubkey)
{
	u8 *msg;

	/* FIXME: send wrong_funding */
	msg = towire_shutdown(NULL, &state->channel_id,
			      final_scriptpubkey, NULL);
	peer_write(state->pps, take(msg));
	state->shutdown_sent[LOCAL] = true;
}

static void handle_peer_shutdown(struct state *state, u8 *msg)
{
	u8 *scriptpubkey;
	struct channel_id cid;
	struct tlv_shutdown_tlvs *tlvs;

	if (!fromwire_shutdown(tmpctx, msg, &cid, &scriptpubkey, &tlvs))
		open_err_fatal(state, "Bad shutdown %s", tal_hex(msg, msg));

	if (tal_count(state->upfront_shutdown_script[REMOTE])
	    && !tal_arr_eq(scriptpubkey, state->upfront_shutdown_script[REMOTE]))
		open_err_fatal(state,
			       "scriptpubkey %s is not as agreed upfront (%s)",
			       tal_hex(state, scriptpubkey),
			       tal_hex(state,
				       state->upfront_shutdown_script[REMOTE]));

	/* @niftynei points out that negotiated this together, so this
	 * hack is not required (or safe!). */
	if (tlvs->wrong_funding)
		open_err_fatal(state,
			       "wrong_funding shutdown"
			       " invalid for dual-funding");

	wire_sync_write(REQ_FD,
			take(towire_dualopend_got_shutdown(NULL,
							   scriptpubkey)));
	msg = wire_sync_read(tmpctx, REQ_FD);
	if (!fromwire_dualopend_send_shutdown(tmpctx, msg, &scriptpubkey))
		master_badmsg(fromwire_peektype(msg), msg);

	state->shutdown_sent[REMOTE] = true;
	if (!state->shutdown_sent[LOCAL])
		send_shutdown(state, scriptpubkey);

	billboard_update(state);
}

static void handle_our_shutdown(struct state *state, u8 *msg)
{
	u8 *scriptpubkey;

	if (!fromwire_dualopend_send_shutdown(tmpctx, msg, &scriptpubkey))
		master_badmsg(fromwire_peektype(msg), msg);

	if (!state->shutdown_sent[LOCAL])
		send_shutdown(state, scriptpubkey);

	billboard_update(state);
}

static void handle_failure_fatal(struct state *state, u8 *msg)
{
	char *err;

	if (!fromwire_dualopend_fail(msg, msg, &err))
		master_badmsg(fromwire_peektype(msg), msg);

	/* We're gonna fail here */
	open_err_fatal(state, "%s", err);
}

static void check_channel_id(struct state *state,
			     struct channel_id *id_in,
			     struct channel_id *orig_id)
{
	if (!channel_id_eq(id_in, orig_id))
		open_err_fatal(state, "channel ids don't match."
			       " expected %s, got %s",
			       fmt_channel_id(tmpctx,
					      orig_id),
			       fmt_channel_id(tmpctx,
					      id_in));
}

/* BOLT #2:
 * The receiving node:
 *...
 *  - MUST fail the negotiation if:
 *...
 *    - the `sats` amount is less than the `dust_limit`
 */
static bool is_dust(struct tx_state *tx_state,
		    struct amount_sat amount)
{
	return amount_sat_less(amount, tx_state->localconf.dust_limit)
		|| amount_sat_less(amount, tx_state->remoteconf.dust_limit);
}

static char *validate_inputs(struct state *state,
			     struct tx_state *tx_state,
			     enum tx_role role_to_validate)
{
	/* BOLT #2:
	 *  Upon receipt of consecutive `tx_complete`s, the receiving node:
	 *  ...
	 *  - if it has sent `require_confirmed_inputs` in `open_channel2`,
	 *    `accept_channel2`, `tx_init_rbf` or `tx_ack_rbf`:
	 *    - MUST fail the negotiation if:
	 *      - one of the inputs added by the other peer is unconfirmed
	 */
	u8 *msg;
	char *err_reason;

	msg = towire_dualopend_validate_inputs(NULL, tx_state->psbt,
					       role_to_validate);
	wire_sync_write(REQ_FD, take(msg));
	msg = wire_sync_read(tmpctx, REQ_FD);

	if (!fromwire_dualopend_validate_inputs_reply(msg)) {
		if (!fromwire_dualopend_fail(tmpctx, msg, &err_reason))
			master_badmsg(fromwire_peektype(msg), msg);
		return err_reason;
	}

	return NULL;
}

static void set_reserve(struct tx_state *tx_state,
			struct amount_sat funding_total,
			enum tx_role our_role)
{
	struct amount_sat reserve, dust_limit;

	/* BOLT #2:
	 *
	 * Instead, the channel reserve is fixed at 1% of the total
	 * channel balance (`open_channel2`.`funding_satoshis` +
	 * `accept_channel2`.`funding_satoshis`) rounded down to the
	 * nearest whole satoshi or the `dust_limit_satoshis`, whichever is
	 * greater.
	 */
	reserve = amount_sat_div(funding_total, 100);
	dust_limit = our_role == TX_INITIATOR ?
		tx_state->localconf.dust_limit :
		tx_state->remoteconf.dust_limit;

	if (amount_sat_greater(dust_limit, reserve)) {
		tx_state->remoteconf.channel_reserve = dust_limit;
		tx_state->localconf.channel_reserve = dust_limit;
	} else {
		tx_state->remoteconf.channel_reserve = reserve;
		tx_state->localconf.channel_reserve = reserve;
	}
}

static bool is_openers(const struct wally_map *unknowns)
{
	/* BOLT #2:
	 * The sending node: ...
	 * - if is the *initiator*:
	 *   - MUST send even `serial_id`s
	 * - if is the *non-initiator*:
	 *   - MUST send odd `serial_id`s
	 */
	u64 serial_id;
	if (!psbt_get_serial_id(unknowns, &serial_id))
		status_failed(STATUS_FAIL_INTERNAL_ERROR,
			      "PSBTs must have serial_ids set");

	return serial_id % 2 == TX_INITIATOR;
}

static bool find_txout(struct wally_psbt *psbt, const u8 *wscript, u32 *funding_txout)
{
	for (size_t i = 0; i < psbt->num_outputs; i++) {
		if (memeq(wscript, tal_bytelen(wscript), psbt->outputs[i].script,
			  psbt->outputs[i].script_len)) {
			*funding_txout = i;
			return true;
		}
	}
	return false;
}

static char *insufficient_err_msg(const tal_t *ctx,
				  char *error,
				  struct wally_psbt *psbt)
{
	return tal_fmt(tmpctx, "Insufficiently funded funding tx, %s. %s",
		       error, fmt_wally_psbt(tmpctx, psbt));
}

static char *check_balances(const tal_t *ctx,
			    struct state *state,
			    struct tx_state *tx_state,
			    struct wally_psbt *psbt,
			    u32 feerate_per_kw_funding)
{
	struct amount_sat initiator_inputs, initiator_outs,
		accepter_inputs, accepter_outs,
		tot_input_amt, tot_output_amt,
		initiator_fee, accepter_fee,
		initiator_diff, accepter_diff;

	bool ok;
	u32 funding_outnum = psbt->num_outputs;
	size_t accepter_weight = 0;


	/* BOLT #2:
	 *
	 * The *initiator* is responsible for paying the fees for the
	 * following fields, to be referred to as the `common fields`.
	 *   - version
	 *   - segwit marker + flag
	 *   - input count
	 *   - output count
	 *   - locktime
	 */
	size_t initiator_weight =
		bitcoin_tx_core_weight(psbt->num_inputs,
				       psbt->num_outputs);

	u8 *funding_wscript =
		bitcoin_redeem_2of2(tmpctx,
				    &state->our_funding_pubkey,
				    &state->their_funding_pubkey);

	/*
	 * BOLT #2:
	 * The receiving node: ...
	 * - MUST fail the negotiation if: ...
	 *  - there are more than 252 inputs
	 */
	if (tx_state->psbt->num_inputs > MAX_FUNDING_INPUTS)
		return tal_fmt(ctx,
			       "Too many inputs. Have %zu,"
			       " Max allowed %u",
			       tx_state->psbt->num_inputs,
			       MAX_FUNDING_INPUTS);
	/*
	 * BOLT #2:
	 * The receiving node: ...
	 * - MUST fail the negotiation if: ...
	 *  - there are more than 252 outputs
	 */
	if (tx_state->psbt->num_outputs > MAX_FUNDING_OUTPUTS)
		return tal_fmt(ctx, "Too many inputs. Have %zu,"
			       " Max allowed %u",
			       tx_state->psbt->num_outputs,
			       MAX_FUNDING_OUTPUTS);

	/* Find funding output, check balance */
	if (find_txout(psbt,
		       scriptpubkey_p2wsh(tmpctx, funding_wscript),
		       &funding_outnum)) {
		struct amount_sat output_val, total_funding;

		output_val = psbt_output_get_amount(psbt,
						    funding_outnum);
		if (!amount_sat_add(&total_funding,
				    tx_state->accepter_funding,
				    tx_state->opener_funding)) {
			return insufficient_err_msg(ctx,
						    "overflow adding desired funding",
						    tx_state->psbt);
		}

		/* BOLT #2:
		 *
		 * Upon receipt of consecutive `tx_complete`s, the receiving
		 * node:
		 * - if is the *accepter*:
		 *   - MUST fail the negotiation if: ...
		 *     - the value of the funding output is not equal to the
		 *       sum of `open_channel2`.`funding_satoshis`
		 *       and `accept_channel2`. `funding_satoshis`
		 */
		if (!amount_sat_eq(total_funding, output_val))
			return insufficient_err_msg(ctx,
						    tal_fmt(tmpctx, "total desired funding %s != "
							    "funding output %s",
							    fmt_amount_sat(tmpctx,
									   total_funding),
							    fmt_amount_sat(tmpctx,
									   output_val)),
						    tx_state->psbt);

		/* BOLT #2:
		 *
		 * Upon receipt of consecutive `tx_complete`s, the receiving
		 * node:
		 *   - if is the *accepter*:
		 *     - MUST fail the negotiation if: ...
		 *     - the value of the funding output is
		 *       less than the `dust_limit`
		 */
		if (is_dust(tx_state, output_val))
			return insufficient_err_msg(ctx, "funding output is dust",
						    tx_state->psbt);
	} else {
		/* BOLT #2:
		 *
		 * Upon receipt of consecutive `tx_complete`s, the receiving
		 * node:
		 *   - if is the *accepter*:
		 *     - MUST fail the negotiation if:
		 *     - no funding output was received
		 */
		return insufficient_err_msg(ctx, "funding output not present",
					    tx_state->psbt);
	}

	/* Find the total input and output sums */
	tot_input_amt = AMOUNT_SAT(0);
	initiator_inputs = AMOUNT_SAT(0);
	accepter_inputs = AMOUNT_SAT(0);
	for (size_t i = 0; i < psbt->num_inputs; i++) {
		struct amount_sat amt =
			psbt_input_get_amount(psbt, i);

		/* Add to total balance check */
		if (!amount_sat_add(&tot_input_amt,
				    tot_input_amt, amt)) {
			return insufficient_err_msg(ctx,
						    "overflow adding input total",
						    tx_state->psbt);
		}

		if (is_openers(&psbt->inputs[i].unknowns)) {
			/* If the above additon passed,
			 * this should also */
			ok = amount_sat_add(&initiator_inputs,
					    initiator_inputs, amt);
			assert(ok);

			initiator_weight +=
				psbt_input_get_weight(psbt, i);
		} else {
			ok = amount_sat_add(&accepter_inputs,
					    accepter_inputs, amt);
			assert(ok);

			accepter_weight +=
				psbt_input_get_weight(psbt, i);
		}
	}
	tot_output_amt = AMOUNT_SAT(0);

	initiator_outs = tx_state->opener_funding;
	accepter_outs = tx_state->accepter_funding;

	/* The lease_fee has been added to the accepter_funding,
	 * but the opener_funding is responsible for covering it,
	 * so we do a little switcheroo here */
	if (!amount_sat_add(&initiator_outs, initiator_outs,
			    tx_state->lease_fee))
		return insufficient_err_msg(ctx, "overflow adding lease_fee"
					    " to initiator's funding",
					    tx_state->psbt);
	if (!amount_sat_sub(&accepter_outs, accepter_outs,
			    tx_state->lease_fee))
		return insufficient_err_msg(ctx, "unable to subtract lease_fee"
					    " from accepter's funding",
					    tx_state->psbt);

	for (size_t i = 0; i < psbt->num_outputs; i++) {
		struct amount_sat amt =
			psbt_output_get_amount(psbt, i);

		/* Add to total balance check */
		if (!amount_sat_add(&tot_output_amt,
				    tot_output_amt, amt)) {
			return insufficient_err_msg(ctx,
						    "overflow adding output total",
						    tx_state->psbt);
		}

		/* BOLT #2:
		 * The receiving node:
		 * ...
		 * - MUST fail the negotiation if:
		 *   ...
		 *   - the `sats` amount is less than the `dust_limit`
		 */
		if (is_dust(tx_state, amt))
			return insufficient_err_msg(ctx, "output is dust",
						    tx_state->psbt);

		if (is_openers(&psbt->outputs[i].unknowns)) {
			/* Don't add the funding output to
			 * the amount */
			if (i != funding_outnum) {
				/* If the above additon passed,
				 * this should also */
				ok = amount_sat_add(&initiator_outs,
						    initiator_outs,
						    amt);
				assert(ok);
			}

			initiator_weight +=
				psbt_output_get_weight(psbt, i);
		} else {
			ok = amount_sat_add(&accepter_outs,
					    accepter_outs, amt);
			assert(ok);
			accepter_weight +=
				psbt_output_get_weight(psbt, i);
		}
	}

	/* BOLT #2:
	 *  The receiving node:
	 *  ...
	 *  - MUST fail the negotiation if:
	 *   ...
	 *   - the peer's total input satoshis is less than their outputs
	 */
	/* We check both, why not? */
	if (!amount_sat_greater_eq(initiator_inputs, initiator_outs)) {
		return insufficient_err_msg(ctx,
					    tal_fmt(tmpctx, "initiator inputs"
						    " less than outputs (%s < %s)"
						    " (lease fee %s)",
						    fmt_amount_sat(tmpctx,
								   initiator_inputs),
						    fmt_amount_sat(tmpctx,
								   initiator_outs),
						    fmt_amount_sat(tmpctx,
								   tx_state->lease_fee)),
					    tx_state->psbt);


	}

	/* BOLT #2:
	 * The receiving node: ...
	 * - MUST fail the negotiation if:
	 *   ...
	 *   - the peer's paid feerate does not meet or exceed the
	 *   agreed `feerate` (based on the `minimum fee`).
	 *   - if is the *non-initiator*:
	 *     - the *initiator*'s fees do not cover the `common` fields
	 */
	if (!amount_sat_sub(&accepter_diff, accepter_inputs,
			    accepter_outs)) {
		return insufficient_err_msg(ctx,
					    tal_fmt(tmpctx, "accepter inputs"
						    " %s less than outputs %s"
						    " (lease fee %s)",
						    fmt_amount_sat(tmpctx,
								   accepter_inputs),
						    fmt_amount_sat(tmpctx,
								   accepter_outs),
						    fmt_amount_sat(tmpctx,
								   tx_state->lease_fee)),
					    tx_state->psbt);
	}

	if (!amount_sat_sub(&initiator_diff, initiator_inputs,
			    initiator_outs)) {
		return insufficient_err_msg(ctx,
					    "initiator inputs less than outputs",
					    tx_state->psbt);
	}

	/* BOLT #2:
	 * The receiving node:  ...
	 * - MUST fail the negotiation if:
	 *   ...
	 *   - the peer's paid feerate does not meet or exceed the
	 *   agreed `feerate` (based on the `minimum fee`).
	 */
	accepter_fee = amount_tx_fee(feerate_per_kw_funding,
				     accepter_weight);
	initiator_fee = amount_tx_fee(feerate_per_kw_funding,
				      initiator_weight);

	if (!amount_sat_greater_eq(accepter_diff, accepter_fee))
		return insufficient_err_msg(ctx,
					    tal_fmt(ctx, "accepter fee not covered"
						    " (need %s > have %s)",
						    fmt_amount_sat(ctx,
								   accepter_fee),
						    fmt_amount_sat(ctx,
								   accepter_diff)),
					    tx_state->psbt);

	if (!amount_sat_greater_eq(initiator_diff, initiator_fee))
		return insufficient_err_msg(ctx,
					    tal_fmt(ctx, "initiator fee %s"
						    " (%zux%d) not covered %s",
						    fmt_amount_sat(ctx,
								   initiator_fee),
						    initiator_weight,
						    feerate_per_kw_funding,
						    fmt_amount_sat(ctx,
								   initiator_diff)),
					    tx_state->psbt);

	return NULL;
}

/*
 * BOLT #2:
 * The receiving node: ...
 *   - MUST fail the negotiation if: ...
 *   - the `scriptPubKey` of the `prevtx_vout` output
 *     of `prevtx` is not exactly a 1-byte push opcode
 *     (for the numeric values `0` to `16`) followed
 *     by a data push between 2 and 40 bytes
 */
static bool is_segwit_output(const struct wally_tx_output *output)
{
	const u8 *script = output->script;
	size_t len = output->script_len;
	u8 opcode, push;

	opcode = fromwire_u8(&script, &len);
	if (opcode != OP_0 && (opcode < OP_1 || opcode > OP_16))
		return false;

	push = fromwire_u8(&script, &len);
	if (push < 2 || push > 40)
		return false;

	/* And there should be that many bytes and nothing else */
	return fromwire(&script, &len, NULL, push) != NULL && len == 0;
}

static void set_remote_upfront_shutdown(struct state *state,
					u8 *shutdown_scriptpubkey STEALS)
{
	char *err;

	err = validate_remote_upfront_shutdown(state, state->our_features,
					       state->their_features,
					       shutdown_scriptpubkey,
					       &state->upfront_shutdown_script[REMOTE]);

	if (err)
		peer_failed_err(state->pps, &state->channel_id, "%s", err);
}

/* FIXME: dualopend doesn't always listen to lightningd, so we call this
 * at closing time, rather than when it asks. */
static void handle_dev_memleak(struct state *state, const u8 *msg)
{
	struct htable *memtable;
	bool found_leak;

	/* Populate a hash table with all our allocations (except msg, which
	 * is in use right now). */
	memtable = memleak_start(tmpctx);
	memleak_ptr(memtable, msg);

	/* Now delete state and things it has pointers to. */
	memleak_scan_obj(memtable, state);

	/* If there's anything left, dump it to logs, and return true. */
	found_leak = dump_memleak(memtable, memleak_status_broken, NULL);
	wire_sync_write(REQ_FD,
			take(towire_dualopend_dev_memleak_reply(NULL,
							        found_leak)));
}

static u8 *psbt_to_tx_sigs_msg(const tal_t *ctx,
			       struct state *state,
			       const struct wally_psbt *psbt)
{
	const struct witness **ws =
		psbt_to_witnesses(tmpctx, psbt, state->our_role, -1);

	return towire_tx_signatures(ctx, &state->channel_id,
				    &state->tx_state->funding.txid,
				    ws,
				    NULL);
}

static void report_channel_hsmd(const struct state *state,
			        const struct tx_state *tx_state)
{
	u8 *msg;
	struct amount_msat accepter_msats;
	struct amount_sat total;

	if (!amount_sat_add(&total, tx_state->opener_funding,
			    tx_state->accepter_funding))
		status_failed(STATUS_FAIL_INTERNAL_ERROR,
			      "Overflow converting adding funding");

	if (!amount_sat_to_msat(&accepter_msats, tx_state->accepter_funding))
		status_failed(STATUS_FAIL_INTERNAL_ERROR,
			      "Overflow converting accepter_funding "
			      "to msats");

	msg = towire_hsmd_setup_channel(NULL, state->our_role == TX_INITIATOR,
					total,
					accepter_msats,
					&tx_state->funding.txid,
					tx_state->funding.n,
					tx_state->localconf.to_self_delay,
					state->upfront_shutdown_script[LOCAL],
					state->local_upfront_shutdown_wallet_index,
					&state->their_points,
					&state->their_funding_pubkey,
					tx_state->remoteconf.to_self_delay,
					state->upfront_shutdown_script[REMOTE],
					state->channel_type);
	wire_sync_write(HSM_FD, take(msg));
	msg = wire_sync_read(tmpctx, HSM_FD);
	if (!fromwire_hsmd_setup_channel_reply(msg))
		status_failed(STATUS_FAIL_HSM_IO, "Bad setup_channel_reply %s",
			      tal_hex(tmpctx, msg));
}

static u8 *msg_for_remote_commit(const tal_t *ctx,
				 const struct state *state,
				 struct penalty_base **pbase,
				 char **error)
{
	struct wally_tx_output *direct_outputs[NUM_SIDES];
	struct bitcoin_tx *remote_commit;
	struct bitcoin_signature local_sig;
	u32 feerate = 0; // unused since there are no htlcs
	u64 commit_num = 0;
        u8 *msg;

	/* Create commitment tx signatures for remote */
	remote_commit = initial_channel_tx(NULL, NULL, state->channel,
					   &state->first_per_commitment_point[REMOTE],
					   REMOTE, direct_outputs, error);

	if (!remote_commit) {
		return NULL;
	}

	/* We ask the HSM to sign their commitment transaction for us: it knows
	 * our funding key, it just needs the remote funding key to create the
	 * witness script.  It also needs the amount of the funding output,
	 * as segwit signatures commit to that as well, even though it doesn't
	 * explicitly appear in the transaction itself. */
	msg = towire_hsmd_sign_remote_commitment_tx(NULL,
						    remote_commit,
						    &state->channel->funding_pubkey[REMOTE],
						    &state->first_per_commitment_point[REMOTE],
						    true,
						    commit_num,
						    NULL, /* no HTLCS */
						    feerate);
	wire_sync_write(HSM_FD, take(msg));
	msg = wire_sync_read(tmpctx, HSM_FD);
	if (!fromwire_hsmd_sign_tx_reply(msg, &local_sig))
		status_failed(STATUS_FAIL_HSM_IO,
			      "Bad sign_tx_reply %s", tal_hex(tmpctx, msg));

	/* You can tell this has been a problem before, since there's a debug
	 * message here: */
	status_debug("signature %s on tx %s using key %s",
		     fmt_bitcoin_signature(tmpctx, &local_sig),
		     fmt_bitcoin_tx(tmpctx, remote_commit),
		     fmt_pubkey(tmpctx,
				&state->our_funding_pubkey));


	assert(local_sig.sighash_type == SIGHASH_ALL);

	if (pbase && direct_outputs[LOCAL])
		*pbase = penalty_base_new(ctx, 0, remote_commit,
					  direct_outputs[LOCAL]);
	else if (pbase)
		*pbase = NULL;

	tal_free(remote_commit);
	return towire_commitment_signed(ctx, &state->channel_id,
					&local_sig.s,
					NULL, NULL);
}

static enum tx_role their_role(const struct state *state)
{
	return state->our_role == TX_INITIATOR ?
		TX_ACCEPTER : TX_INITIATOR;
}

static char *do_reconnect_commit_sigs(const tal_t *ctx,
				      const struct state *state,
				      const struct tx_state *tx_state)
{
	char *error;
	u8 *msg;

	/* Setup HSMD for this channel */
	report_channel_hsmd(state, tx_state);

	/* Build the commitment_signed message */
	msg = msg_for_remote_commit(ctx, state, NULL, &error);
	if (!msg) {
		return error;
	}

	peer_write(state->pps, take(msg));
	return NULL;
}

static char *do_commit_signed_received(const tal_t *ctx,
				       const u8 *msg,
				       struct state *state,
				       struct tx_state *tx_state,
				       struct bitcoin_tx **local_commit,
				       struct bitcoin_signature *remote_sig)
{
	const u8 *wscript;
	char *error;
	struct channel_id cid;
	secp256k1_ecdsa_signature *htlc_sigs;
	struct tlv_commitment_signed_tlvs *cs_tlv
		= tlv_commitment_signed_tlvs_new(tmpctx);

	if (!fromwire_commitment_signed(tmpctx, msg, &cid,
					&remote_sig->s,
					&htlc_sigs, &cs_tlv))
		open_err_fatal(state, "Parsing commitment signed %s",
			       tal_hex(tmpctx, msg));

	remote_sig->sighash_type = SIGHASH_ALL;
	check_channel_id(state, &cid, &state->channel_id);

	if (htlc_sigs != NULL)
		open_err_fatal(state, "Must not send HTLCs with first"
			       " commitment. %s", tal_hex(tmpctx, msg));

	*local_commit = initial_channel_tx(ctx, &wscript, state->channel,
					   &state->first_per_commitment_point[LOCAL],
					   LOCAL, NULL, &error);

	/* This shouldn't happen either, AFAICT. */
	if (!*local_commit)
		return tal_fmt(ctx, "Could not meet our fees"
			       " and reserve: %s", error);

	validate_initial_commitment_signature(HSM_FD, *local_commit, remote_sig);

	/* BOLT #2:
	 *
	 * The recipient:
	 *   - if `signature` is incorrect OR non-compliant with LOW-S-standard
	 *       rule...:
	 *     - MUST send a `warning` and close the connection, or send an
	 *       `error` and fail the channel.
	 */
	if (!check_tx_sig(*local_commit, 0, NULL, wscript,
			  &state->their_funding_pubkey, remote_sig)) {
		/* BOLT #1:
		 *
		 * ### The `error` and `warning` Messages
		 *...
		 * - when failure was caused by an invalid signature check:
		 *    - SHOULD include the raw, hex-encoded transaction in reply
		 *      to a `funding_created`, `funding_signed`,
		 *      `closing_signed`, or `commitment_signed` message.
		 */
		/*~ This verbosity is not only useful for our own testing, but
		 * a courtesy to other implementaters whose brains may be so
		 * twisted by coding in Go, Scala and Rust that they can no
		 * longer read C code. */
		return tal_fmt(ctx,
			       "Bad signature %s on tx %s using key %s"
			       " (funding txid %s, psbt %s)",
			       fmt_bitcoin_signature(tmpctx,
					      remote_sig),
			       fmt_bitcoin_tx(tmpctx,
					      *local_commit),
			       fmt_pubkey(tmpctx,
					  &state->their_funding_pubkey),
			       /* This is the first place we'd discover
				* the funding tx doesn't match up */
			       fmt_bitcoin_txid(tmpctx,
					      &tx_state->funding.txid),
			       fmt_wally_psbt(tmpctx,
					      tx_state->psbt));
	}

	tx_state->has_commitments = true;
	return NULL;
}

static void handle_commit_signed(struct state *state, const u8 *msg)
{
	struct bitcoin_tx *local_commit;
	struct bitcoin_signature remote_sig;
	struct tx_state *tx_state = state->tx_state;
	char *err;

	if (!state->reconnected)
		open_err_fatal(state, "Sent commit signed out of turn (not reconnect)"
			       ": %s", tal_hex(msg, msg));

	report_channel_hsmd(state, tx_state);
	err = do_commit_signed_received(tmpctx, msg, state, tx_state,
					&local_commit, &remote_sig);
	if (err)
		open_err_fatal(state,
			       "They sent invalid commitment sig: %s", err);

	/* Send the commitment_signed to lightningd; will save to db */
	peer_billboard(false, "channel open: commitment received, "
		       "sending to lightningd to save");

	/* FIXME: add pbase for first time commits? */
	msg = towire_dualopend_commit_rcvd(state,
					   local_commit,
					   &remote_sig,
					   NULL);
	wire_sync_write(REQ_FD, take(msg));
}

static void handle_tx_sigs(struct state *state, const u8 *msg)
{
	struct channel_id cid;
	struct bitcoin_txid txid;
	const struct witness **witnesses;
	struct tx_state *tx_state = state->tx_state;

	struct tlv_txsigs_tlvs *txsig_tlvs = tlv_txsigs_tlvs_new(tmpctx);
	if (!fromwire_tx_signatures(tmpctx, msg, &cid, &txid,
				    cast_const3(
					    struct witness ***,
					    &witnesses),
				    &txsig_tlvs))
		open_err_fatal(state, "Bad tx_signatures %s",
			       tal_hex(msg, msg));

	/* Maybe they didn't get our channel_ready message ? */
	if (state->channel_ready[LOCAL]) {
		if (!state->tx_state->remote_funding_sigs_rcvd) {
			state->tx_state->remote_funding_sigs_rcvd = true;
			status_info("Got WIRE_TX_SIGNATURES after channel_ready "
				    "for channel %s, ignoring: %s",
				    fmt_channel_id(tmpctx,
						   &state->channel_id),
				    tal_hex(tmpctx, msg));
		} else {
			status_broken("Got WIRE_TX_SIGNATURES after channel_ready "
				      "for channel %s, ignoring: %s",
				      fmt_channel_id(tmpctx,
						     &state->channel_id),
				      tal_hex(tmpctx, msg));
		}
		return;
	}

	if (state->channel_ready[REMOTE])
		open_err_warn(state,
			      "tx_signatures sent after channel_ready %s",
			      tal_hex(msg, msg));

	if (!tx_state->psbt)
		open_err_warn(state,
			      "tx_signatures for %s received,"
			      " open negotiation still in progress.",
			      fmt_bitcoin_txid(tmpctx,
					     &txid));


	if (!bitcoin_txid_eq(&tx_state->funding.txid, &txid))
		open_err_warn(state,
			      "tx_signatures for %s received,"
			      "working on funding_txid %s",
			      fmt_bitcoin_txid(tmpctx,
					     &txid),
			      fmt_bitcoin_txid(tmpctx,
					     &tx_state->funding.txid));

	if (!tx_state->has_commitments)
		open_err_fatal(state,
			       "tx_signatures sent before commitment sigs %s",
			       tal_hex(msg, msg));

	/* We put the PSBT + sigs all together */
	for (size_t i = 0, j = 0; i < tx_state->psbt->num_inputs; i++) {
		struct wally_psbt_input *in =
			&tx_state->psbt->inputs[i];
		u64 in_serial;

		if (!psbt_get_serial_id(&in->unknowns, &in_serial)) {
			status_broken("PSBT input %zu missing serial_id %s",
				      i, fmt_wally_psbt(tmpctx,
							tx_state->psbt));
			return;
		}
		if (in_serial % 2 != their_role(state))
			continue;

		if (j == tal_count(witnesses))
			open_err_warn(state, "Mismatched witness stack count %s",
				      tal_hex(msg, msg));

		psbt_finalize_input(tx_state->psbt, in, witnesses[j]);
		j++;
	}

	tx_state->remote_funding_sigs_rcvd = true;
	/* Send to the controller, who will broadcast the funding_tx
	 * as soon as we've got our sigs */
	wire_sync_write(REQ_FD,
			take(towire_dualopend_funding_sigs(NULL, tx_state->psbt)));
}

static void handle_send_tx_sigs(struct state *state, const u8 *msg)
{
	struct wally_psbt *psbt;
	struct bitcoin_txid txid;
	struct tx_state *tx_state = state->tx_state;

	if (!fromwire_dualopend_send_tx_sigs(tmpctx, msg, &psbt))
		master_badmsg(WIRE_DUALOPEND_SEND_TX_SIGS, msg);

	/* Check that we've got the same / correct PSBT */
	psbt_txid(NULL, psbt, &txid, NULL);
	if (!bitcoin_txid_eq(&txid, &tx_state->funding.txid))
		status_failed(STATUS_FAIL_INTERNAL_ERROR,
			      "TXID for passed in PSBT does not match"
			      " funding txid for channel. Expected %s, "
			      "received %s",
			      fmt_bitcoin_txid(tmpctx,
					       &tx_state->funding.txid),
			      fmt_bitcoin_txid(tmpctx,
					       &txid));

	tal_wally_start();
	if (wally_psbt_combine(tx_state->psbt, psbt) != WALLY_OK) {
		tal_wally_end(tal_free(tx_state->psbt));
		status_failed(STATUS_FAIL_INTERNAL_ERROR,
			      "Unable to combine PSBTs. received %s\n"
			      "local %s",
			      fmt_wally_psbt(tmpctx,
					     psbt),
			      fmt_wally_psbt(tmpctx,
					     tx_state->psbt));
	}
	tal_wally_end(tx_state->psbt);

	/*  Send our sigs to peer */
	msg = psbt_to_tx_sigs_msg(tmpctx, state, tx_state->psbt);
	peer_write(state->pps, take(msg));

	/* Notify lightningd that we've sent sigs */
	wire_sync_write(REQ_FD, take(towire_dualopend_tx_sigs_sent(NULL)));
}

static bool
fetch_psbt_changes(struct state *state,
		   struct tx_state *tx_state,
		   const struct wally_psbt *psbt,
		   struct wally_psbt **updated_psbt)
{
	u8 *msg;
	char *err;

	/* Go ask lightningd what other changes we've got */
	msg = towire_dualopend_psbt_changed(NULL, &state->channel_id,
					    state->require_confirmed_inputs[REMOTE],
					    tx_state->funding_serial,
					    psbt, state->channel_type);

	wire_sync_write(REQ_FD, take(msg));

	msg = wire_sync_read(tmpctx, REQ_FD);
	while (state->developer && fromwire_dualopend_dev_memleak(msg)) {
		handle_dev_memleak(state, msg);
		msg = wire_sync_read(tmpctx, REQ_FD);
	}

	if (fromwire_dualopend_fail(msg, msg, &err)) {
		open_abort(state, "%s", err);
	} else if (fromwire_dualopend_psbt_updated(state, msg, updated_psbt)) {
		return true;
	} else
		master_badmsg(fromwire_peektype(msg), msg);

	return false;
}

static bool send_next(struct state *state,
		      struct tx_state *tx_state,
		      struct wally_psbt **psbt,
		      bool *aborted)
{
	u8 *msg;
	bool finished = false;
	struct wally_psbt *updated_psbt;
	struct psbt_changeset *cs = tx_state->changeset;
	*aborted = false;

	/* First we check our cached changes */
	msg = psbt_changeset_get_next(tmpctx, &state->channel_id, cs);
	if (msg)
		goto sendmsg;

	/* If we don't have any changes cached, go ask Alice for
	 * what changes they've got for us */
	if (!fetch_psbt_changes(state, tx_state, *psbt,
				&updated_psbt)) {
		*aborted = true;
		return !finished;
	}

	tx_state->changeset = tal_free(tx_state->changeset);
	tx_state->changeset = psbt_get_changeset(tx_state, *psbt, updated_psbt);

	/* We want this old psbt to be cleaned up when the changeset is freed */
	tal_steal(tx_state->changeset, notleak(*psbt));
	*psbt = tal_steal(tx_state, updated_psbt);
	msg = psbt_changeset_get_next(tmpctx, &state->channel_id,
				      tx_state->changeset);
	/*
	 * If there's no more moves, we send tx_complete
	 * and reply that we're finished */
	if (!msg) {
		msg = towire_tx_complete(tmpctx, &state->channel_id);
		finished = true;
	}

sendmsg:
	peer_write(state->pps, msg);

	return !finished;
}

static void init_changeset(struct tx_state *tx_state, struct wally_psbt *psbt)
{
	/* We need an empty to compare to */
	struct wally_psbt *empty_psbt = create_psbt(tmpctx, 0, 0, 0);

	tx_state->changeset = psbt_get_changeset(tx_state, empty_psbt, psbt);
}

static void handle_tx_abort(struct state *state, u8 *msg)
{
	const char *desc;

	/*
	 * BOLT #2:
	 *
	 * Echoing back `tx_abort` allows the peer to ack
	 * that they've seen the abort message, permitting
	 * the originating peer to terminate the in-flight
	 * process without worrying about stale messages.
	 */
	if (!state->aborted_err) {
		/* If they sent this after tx-sigs, it's a
		 * protocol error */
		if (state->tx_state->remote_funding_sigs_rcvd)
			open_err_fatal(state, "tx-abort rcvd after"
				       " tx-sigs");

		open_abort(state, "%s", "Rcvd tx-abort");
		desc = tal_fmt(tmpctx, "They sent %s",
			       sanitize_error(tmpctx, msg, NULL));
	} else
		desc = state->aborted_err;

	negotiation_aborted(state, desc, true);
}

static u8 *handle_channel_ready(struct state *state, u8 *msg)
{
	struct channel_id cid;
	struct pubkey remote_per_commit;
	struct tlv_channel_ready_tlvs *tlvs;

	if (!fromwire_channel_ready(tmpctx, msg, &cid, &remote_per_commit, &tlvs))
		open_err_fatal(state, "Bad channel_ready %s",
			       tal_hex(msg, msg));

	check_channel_id(state, &cid, &state->channel_id);

	/* If we haven't gotten their tx_sigs yet, this is a protocol error */
	if (!state->tx_state->remote_funding_sigs_rcvd) {
		open_err_warn(state,
			      "channel_ready sent before tx_signatures %s",
			      tal_hex(msg, msg));
	}

	/* We save when the peer locks, so we do the right
	 * thing on reconnects */
	if (!state->channel_ready[REMOTE]) {
		msg = towire_dualopend_peer_locked(NULL, &remote_per_commit, tlvs->short_channel_id);
		wire_sync_write(REQ_FD, take(msg));
	}

	state->channel_ready[REMOTE] = true;
	check_mutual_channel_ready(state);
	billboard_update(state);

	if (state->channel_ready[LOCAL])
		return towire_dualopend_channel_locked(state);

	return NULL;
}

/*~ Handle random messages we might get during opening negotiation, (eg. gossip)
 * returning the first non-handled one, or NULL if we aborted negotiation. */
static u8 *opening_negotiate_msg(const tal_t *ctx, struct state *state)
{
	/* This is an event loop of its own.  That's generally considered poor
	 * form, but we use it in a very limited way. */
	for (;;) {
		u8 *msg;
		const char *err;
		enum peer_wire t;

		/* The event loop is responsible for freeing tmpctx, so our
		 * temporary allocations don't grow unbounded. */
		clean_tmpctx();

		/* This helper routine polls the peer. */
		msg = peer_read(ctx, state->pps);

		/* BOLT #1:
		 *
		 * A receiving node:
		 *   - upon receiving a message of _odd_, unknown type:
		 *     - MUST ignore the received message.
		 */
		if (is_unknown_msg_discardable(msg))
			continue;

		/* A helper which decodes an error. */
		err = is_peer_error(tmpctx, msg);
		if (err) {
			negotiation_aborted(state,
					    tal_fmt(tmpctx, "They sent %s",
						    err), false);
			/* Return NULL so caller knows to stop negotiating. */
			return tal_free(msg);
		}

		err = is_peer_warning(tmpctx, msg);
		if (err) {
			status_info("They sent %s", err);
			tal_free(msg);
			continue;
		}

		/* In theory, we're in the middle of an open/RBF, but
		 * it's possible we can get some different messages in
		 * the meantime! */
		t = fromwire_peektype(msg);
		if (state->aborted_err && t != WIRE_TX_ABORT) {
			status_debug("Rcvd %s but already"
				     " sent TX_ABORT,"
				     " dropping",
				     peer_wire_name(t));
			continue;
		}
		switch (t) {
		case WIRE_TX_SIGNATURES:
			/* We can get these when we restart and immediately
			 * startup an RBF */
			handle_tx_sigs(state, msg);
			continue;
		case WIRE_CHANNEL_READY:
			handle_channel_ready(state, msg);
			return NULL;
		case WIRE_SHUTDOWN:
			handle_peer_shutdown(state, msg);
			/* If we're done, exit */
			if (shutdown_complete(state))
				dualopen_shutdown(state);
			return NULL;
		case WIRE_TX_ABORT:
			handle_tx_abort(state, msg);
			return NULL;
		case WIRE_TX_INIT_RBF:
		case WIRE_OPEN_CHANNEL2:
		case WIRE_INIT:
		case WIRE_ERROR:
		case WIRE_OPEN_CHANNEL:
		case WIRE_ACCEPT_CHANNEL:
		case WIRE_FUNDING_CREATED:
		case WIRE_FUNDING_SIGNED:
		case WIRE_CLOSING_SIGNED:
		case WIRE_CLOSING_COMPLETE:
		case WIRE_CLOSING_SIG:
		case WIRE_UPDATE_ADD_HTLC:
		case WIRE_UPDATE_FULFILL_HTLC:
		case WIRE_UPDATE_FAIL_HTLC:
		case WIRE_UPDATE_FAIL_MALFORMED_HTLC:
		case WIRE_PROTOCOL_BATCH_ELEMENT:
		case WIRE_START_BATCH:
		case WIRE_COMMITMENT_SIGNED:
		case WIRE_REVOKE_AND_ACK:
		case WIRE_UPDATE_FEE:
		case WIRE_UPDATE_BLOCKHEIGHT:
		case WIRE_CHANNEL_REESTABLISH:
		case WIRE_ANNOUNCEMENT_SIGNATURES:
		case WIRE_GOSSIP_TIMESTAMP_FILTER:
		case WIRE_ONION_MESSAGE:
		case WIRE_ACCEPT_CHANNEL2:
		case WIRE_TX_ADD_INPUT:
		case WIRE_TX_REMOVE_INPUT:
		case WIRE_TX_ADD_OUTPUT:
		case WIRE_TX_REMOVE_OUTPUT:
		case WIRE_TX_COMPLETE:
		case WIRE_TX_ACK_RBF:
		case WIRE_CHANNEL_ANNOUNCEMENT:
		case WIRE_CHANNEL_UPDATE:
		case WIRE_NODE_ANNOUNCEMENT:
		case WIRE_QUERY_CHANNEL_RANGE:
		case WIRE_REPLY_CHANNEL_RANGE:
		case WIRE_QUERY_SHORT_CHANNEL_IDS:
		case WIRE_REPLY_SHORT_CHANNEL_IDS_END:
		case WIRE_WARNING:
		case WIRE_PING:
		case WIRE_PONG:
		case WIRE_PEER_STORAGE:
		case WIRE_PEER_STORAGE_RETRIEVAL:
		case WIRE_STFU:
		case WIRE_SPLICE:
		case WIRE_SPLICE_ACK:
		case WIRE_SPLICE_LOCKED:
			break;
		}

		/* If we get here, it's an interesting message. */
		return msg;
	}
}

static bool run_tx_interactive(struct state *state,
			       struct tx_state *tx_state,
			       struct wally_psbt **orig_psbt,
			       enum tx_role our_role)
{
	/* Opener always sends the first utxo info */
	bool we_complete = false, they_complete = false;
	u8 *msg;
	struct wally_psbt *psbt = *orig_psbt;

	while (!(we_complete && they_complete)) {
		struct channel_id cid;
		enum peer_wire t;
		u64 serial_id;
		bool aborted;

		/* Reset their_complete to false every round,
		 * they have to re-affirm every time  */
		they_complete = false;

		msg = opening_negotiate_msg(tmpctx, state);
		if (!msg)
			return false;
		t = fromwire_peektype(msg);
		switch (t) {
		case WIRE_TX_ADD_INPUT: {
			const u8 *tx_bytes;
			u32 sequence;
			size_t len;
			struct bitcoin_tx *tx;
			struct bitcoin_outpoint outpoint;
			struct amount_sat amt;
			struct tlv_tx_add_input_tlvs *tlvs;

			if (!fromwire_tx_add_input(tmpctx, msg, &cid,
						   &serial_id,
						   cast_const2(u8 **,
							       &tx_bytes),
						   &outpoint.n, &sequence,
						   &tlvs))
				open_err_fatal(state,
					       "Parsing tx_add_input %s",
					       tal_hex(tmpctx, msg));

			check_channel_id(state, &cid, &state->channel_id);

			/*
			 * BOLT #2:
			 * The receiving node: ...
			 *   - MUST fail the negotiation if: ...
			 *   - if has received 4096 `tx_add_input`
			 *   messages during this negotiation
			 */
			if (++tx_state->tx_msg_count[TX_ADD_INPUT] > MAX_TX_MSG_RCVD) {
				open_abort(state, "Too many `tx_add_input`s"
					   " received %d", MAX_TX_MSG_RCVD);
				return false;
			}

			/*
			 * BOLT #2:
			 * The receiving node: ...
			 *   - MUST fail the negotiation if: ...
			 *   - the `serial_id` has the wrong parity
			 */
			if (serial_id % 2 == our_role) {
				open_abort(state,
					   "Invalid serial_id rcvd. %"PRIu64,
					   serial_id);
				return false;
			}
			/*
			 * BOLT #2:
			 * The receiving node: ...
			 *   - MUST fail the negotiation if: ...
			 *   - the `serial_id` is already included in
			 *   the transaction
			 */
			if (psbt_find_serial_input(psbt, serial_id) != -1) {
				open_abort(state, "Duplicate serial_id rcvd."
					   " %"PRIu64, serial_id);
				return false;
			}

			/* Convert tx_bytes to a tx! */
			len = tal_bytelen(tx_bytes);
			tx = pull_bitcoin_tx_only(tmpctx, &tx_bytes, &len);
			if (!tx || len != 0) {
				open_abort(state, "%s", "Invalid tx sent.");
				return false;
			}

			if (outpoint.n >= tx->wtx->num_outputs) {
				open_abort(state,
					   "Invalid tx outnum sent. %u",
					   outpoint.n);
				return false;
			}

			/*
			 * BOLT #2:
			 * The receiving node: ...
			 *   - MUST fail the negotiation if: ...
			 *   - the `scriptPubKey` of the `prevtx_vout` output
			 *     of `prevtx` is not exactly a 1-byte push opcode
			 *     (for the numeric values `0` to `16`) followed
			 *     by a data push between 2 and 40 bytes
			 */
			if (!is_segwit_output(&tx->wtx->outputs[outpoint.n])) {
				open_abort(state,
					   "Invalid tx sent. Not SegWit %s",
					   fmt_bitcoin_tx(tmpctx,
							  tx));
				return false;
			}

			/*
			 * BOLT #2:
			 *   The receiving node: ...
			 *    - MUST fail the negotiation if:...
			 *    - the `prevtx` and `prevtx_vout` are
			 *    identical to a previously added (and not
			 *    removed) input's
			 */
			bitcoin_txid(tx, &outpoint.txid);
			if (psbt_has_input(psbt, &outpoint)) {
				open_abort(state,
					   "Unable to add input %s- "
					   "already present",
					   fmt_bitcoin_outpoint(tmpctx,
							  &outpoint));
				return false;
			}

			/*
			 * BOLT #2:
			 * The receiving node:
			 *  - MUST add all received inputs to the transaction
			 */
			struct wally_psbt_input *in =
				psbt_append_input(psbt, &outpoint,
						  sequence, NULL,
						  NULL, NULL);
			if (!in) {
				open_abort(state,
					   "Unable to add input %s",
					   fmt_bitcoin_outpoint(tmpctx,
							  &outpoint));
				return false;
			}

			tal_wally_start();
			wally_psbt_input_set_utxo(in, tx->wtx);
			tal_wally_end(psbt);

			if (is_elements(chainparams)) {
				struct amount_asset asset;

				bitcoin_tx_output_get_amount_sat(tx, outpoint.n,
								 &amt);

				/* FIXME: persist asset tags */
				asset = amount_sat_to_asset(&amt,
							    chainparams->fee_asset_tag);
				/* FIXME: persist nonces */
				psbt_elements_input_set_asset(psbt,
							      outpoint.n,
							      &asset);
			}
			psbt_input_set_serial_id(psbt, in, serial_id);

			break;
		}
		case WIRE_TX_REMOVE_INPUT: {
			int input_index;

			if (!fromwire_tx_remove_input(msg, &cid, &serial_id))
				open_err_fatal(state,
					       "Parsing tx_remove_input %s",
					       tal_hex(tmpctx, msg));

			check_channel_id(state, &cid, &state->channel_id);

			/* BOLT #2:
			 * The receiving node:  ...
			 *   - MUST fail the negotiation if: ...
			 *   - the input or output identified by the
			 *   `serial_id` was not added by the sender
			 */
			if (serial_id % 2 == our_role) {
				open_abort(state,
					   "Invalid serial_id rcvd. %"PRIu64,
					   serial_id);
				return false;
			}


			/* BOLT #2:
			 * The receiving node:  ...
			 *   - MUST fail the negotiation if: ...
			 *   - the `serial_id` does not correspond
			 *     to a currently added input (or output)
			 */
			input_index = psbt_find_serial_input(psbt, serial_id);
			/* We choose to error/fail negotiation */
			if (input_index == -1) {
				open_abort(state,
					   "No input added with serial_id"
					   " %"PRIu64, serial_id);
				return false;
			}

			psbt_rm_input(psbt, input_index);
			break;
		}
		case WIRE_TX_ADD_OUTPUT: {
			u64 value;
			u8 *scriptpubkey;
			struct wally_psbt_output *out;
			struct amount_sat amt;
			if (!fromwire_tx_add_output(tmpctx, msg, &cid,
						    &serial_id, &value,
						    &scriptpubkey))
				open_err_fatal(state,
					       "Parsing tx_add_output %s",
					       tal_hex(tmpctx, msg));
			check_channel_id(state, &cid, &state->channel_id);

			/*
			 * BOLT #2:
			 * The receiving node: ...
			 * - MUST fail the negotiation if: ...
			 *   - it has received 4096 `tx_add_output`
			 *   messages during this negotiation
			 */
			if (++tx_state->tx_msg_count[TX_ADD_OUTPUT] > MAX_TX_MSG_RCVD) {
				open_abort(state,
					   "Too many `tx_add_output`s"
					   " received (%d)",
					   MAX_TX_MSG_RCVD);
				return false;
			}

			/* BOLT #2:
			 * The receiving node: ...
			 * - MUST fail the negotiation if: ...
			 *   - the `serial_id` has the wrong parity
			 */
			if (serial_id % 2 == our_role) {
				open_abort(state,
					   "Invalid serial_id rcvd. %"PRIu64,
					   serial_id);
				return false;
			}

			/* BOLT #2:
			 * The receiving node: ...
			 * - MUST fail the negotiation if: ...
			 *   - the `serial_id` is already included
			 *   in the transaction */
			if (psbt_find_serial_output(psbt, serial_id) != -1) {
				open_abort(state,
					   "Duplicate serial_id rcvd."
					   " %"PRIu64, serial_id);
				return false;
			}
			amt = amount_sat(value);

			/* BOLT #2:
			 * The receiving node: ...
			 * - MAY fail the negotiation if `script`
			 *   is non-standard */
			if (!is_known_scripttype(scriptpubkey, tal_bytelen(scriptpubkey))) {
				open_abort(state, "Script is not standard");
				return false;
			}

			out = psbt_append_output(psbt, scriptpubkey, amt);
			psbt_output_set_serial_id(psbt, out, serial_id);
			break;
		}
		case WIRE_TX_REMOVE_OUTPUT: {
			int output_index;

			if (!fromwire_tx_remove_output(msg, &cid, &serial_id))
				open_err_fatal(state,
					       "Parsing tx_remove_output %s",
					       tal_hex(tmpctx, msg));

			check_channel_id(state, &cid, &state->channel_id);

			/* BOLT #2:
			 * The receiving node: ...
			 * - MUST fail the negotiation if: ...
			 *   - the input or output identified by the
			 *   `serial_id` was not added by the sender
			 */
			if (serial_id % 2 == our_role) {
				open_abort(state, "Invalid serial_id rcvd."
					   " %"PRIu64, serial_id);
				return false;
			}

			/* BOLT #2:
			 * The receiving node: ...
			 * - MUST fail the negotiation if: ...
			 *   - the `serial_id` does not correspond to a
			 *     currently added input (or output)
			 */
			output_index = psbt_find_serial_output(psbt, serial_id);
			if (output_index == -1) {
				open_abort(state, "No output added with serial_id"
					   " %"PRIu64, serial_id);
				return false;
			}
			psbt_rm_output(psbt, output_index);
			break;
		}
		case WIRE_TX_COMPLETE:
			if (!fromwire_tx_complete(msg, &cid))
				open_err_fatal(state,
					       "Parsing tx_complete %s",
					       tal_hex(tmpctx, msg));
			check_channel_id(state, &cid, &state->channel_id);
			they_complete = true;
			break;
		case WIRE_TX_ABORT:
			handle_tx_abort(state, msg);
			return false;
		case WIRE_INIT:
		case WIRE_ERROR:
		case WIRE_WARNING:
		case WIRE_OPEN_CHANNEL:
		case WIRE_ACCEPT_CHANNEL:
		case WIRE_FUNDING_CREATED:
		case WIRE_FUNDING_SIGNED:
		case WIRE_CHANNEL_READY:
		case WIRE_SHUTDOWN:
		case WIRE_CLOSING_SIGNED:
		case WIRE_CLOSING_COMPLETE:
		case WIRE_CLOSING_SIG:
		case WIRE_UPDATE_ADD_HTLC:
		case WIRE_UPDATE_FULFILL_HTLC:
		case WIRE_UPDATE_FAIL_HTLC:
		case WIRE_UPDATE_FAIL_MALFORMED_HTLC:
		case WIRE_PROTOCOL_BATCH_ELEMENT:
		case WIRE_START_BATCH:
		case WIRE_COMMITMENT_SIGNED:
		case WIRE_REVOKE_AND_ACK:
		case WIRE_UPDATE_FEE:
		case WIRE_UPDATE_BLOCKHEIGHT:
		case WIRE_CHANNEL_REESTABLISH:
		case WIRE_ANNOUNCEMENT_SIGNATURES:
		case WIRE_GOSSIP_TIMESTAMP_FILTER:
		case WIRE_ONION_MESSAGE:
		case WIRE_TX_SIGNATURES:
		case WIRE_OPEN_CHANNEL2:
		case WIRE_ACCEPT_CHANNEL2:
		case WIRE_TX_INIT_RBF:
		case WIRE_TX_ACK_RBF:
		case WIRE_CHANNEL_ANNOUNCEMENT:
		case WIRE_CHANNEL_UPDATE:
		case WIRE_NODE_ANNOUNCEMENT:
		case WIRE_QUERY_CHANNEL_RANGE:
		case WIRE_REPLY_CHANNEL_RANGE:
		case WIRE_QUERY_SHORT_CHANNEL_IDS:
		case WIRE_REPLY_SHORT_CHANNEL_IDS_END:
		case WIRE_PING:
		case WIRE_PONG:
		case WIRE_PEER_STORAGE:
		case WIRE_PEER_STORAGE_RETRIEVAL:
		case WIRE_STFU:
		case WIRE_SPLICE:
		case WIRE_SPLICE_ACK:
		case WIRE_SPLICE_LOCKED:
			open_abort(state, "Unexpected wire message %s",
				   tal_hex(tmpctx, msg));
			return false;
		}

		if (!(we_complete && they_complete)) {
			we_complete = !send_next(state, tx_state, &psbt, &aborted);
			if (aborted)
				return false;
		}
	}

	/* Sort psbt! */
	psbt_sort_by_serial_id(psbt);

	/* Return the 'finished' psbt */
	*orig_psbt = psbt;
	return true;
}

/* If there's a failure, we reset the state to the last
 * valid channel */
static void revert_channel_state(struct state *state)
{
	struct tx_state *tx_state = state->tx_state;
	struct amount_sat total;
	struct amount_msat our_msats;
	enum side opener = state->our_role == TX_INITIATOR ? LOCAL : REMOTE;

	/* We've already checked this */
	if (!amount_sat_add(&total, tx_state->opener_funding,
			    tx_state->accepter_funding))
		abort();

	/* We've already checked this */
	if (!amount_sat_to_msat(&our_msats,
				state->our_role == TX_INITIATOR ?
				tx_state->opener_funding :
				tx_state->accepter_funding))
		abort();

	tal_free(state->channel);
	state->channel = new_initial_channel(state,
					     &state->channel_id,
					     &tx_state->funding,
					     state->minimum_depth,
					     take(new_height_states(NULL, opener,
								    &tx_state->blockheight)),
					     tx_state->lease_expiry,
					     total,
					     our_msats,
					     take(new_fee_states(
							  NULL, opener,
							  &state->feerate_per_kw_commitment)),
					     &tx_state->localconf,
					     &tx_state->remoteconf,
					     &state->our_points,
					     &state->their_points,
					     &state->our_funding_pubkey,
					     &state->their_funding_pubkey,
					     state->channel_type,
					     feature_offered(state->their_features,
							     OPT_LARGE_CHANNELS),
					     opener);
}

/* Returns NULL on negotation failure; reason given as *err_reason
 * In case that negotiation_aborted called, *err_reason set NULL */
static u8 *accepter_commits(struct state *state,
			    struct tx_state *tx_state,
			    struct amount_sat total,
			    char **err_reason)
{
	struct bitcoin_tx *local_commit;
	struct bitcoin_signature remote_sig;
	struct penalty_base *pbase;
	struct amount_msat our_msats;
	const u8 *wscript;
	u8 *msg, *commit_msg;
	char *error;

	/* Find the funding transaction txid */
	psbt_txid(NULL, tx_state->psbt, &tx_state->funding.txid, NULL);

	wscript = bitcoin_redeem_2of2(tmpctx,
				      &state->our_funding_pubkey,
				      &state->their_funding_pubkey);

	/* Figure out the txout */
	if (!find_txout(tx_state->psbt,
			scriptpubkey_p2wsh(tmpctx, wscript),
			&tx_state->funding.n)) {
		*err_reason = tal_fmt(tmpctx, "Expected output %s not"
				      " found on funding tx %s",
				      tal_hex(tmpctx,
					      scriptpubkey_p2wsh(tmpctx, wscript)),
				      fmt_wally_psbt(tmpctx,
						     tx_state->psbt));
		return NULL;
	}

	/* Check tx funds are sane */
	*err_reason = check_balances(tmpctx, state, tx_state,
				     tx_state->psbt,
				     tx_state->feerate_per_kw_funding);
	if (*err_reason)
		return NULL;

	if (!amount_sat_to_msat(&our_msats, tx_state->accepter_funding))
		status_failed(STATUS_FAIL_INTERNAL_ERROR,
			      "Overflow converting accepter_funding "
			      "to msats");

	/*~ Report the channel parameters to the signer. */
	report_channel_hsmd(state, tx_state);
	tal_free(state->channel);
	state->channel = new_initial_channel(state,
					     &state->channel_id,
					     &tx_state->funding,
					     state->minimum_depth,
					     take(new_height_states(NULL, REMOTE,
								    &tx_state->blockheight)),

					     tx_state->lease_expiry,
					     total,
					     our_msats,
					     take(new_fee_states(
							  NULL, REMOTE,
							  &state->feerate_per_kw_commitment)),
					     &tx_state->localconf,
					     &tx_state->remoteconf,
					     &state->our_points,
					     &state->their_points,
					     &state->our_funding_pubkey,
					     &state->their_funding_pubkey,
					     state->channel_type,
					     feature_offered(state->their_features,
							     OPT_LARGE_CHANNELS),
					     REMOTE);

	/* Let lightningd know we're about to send our commitment sigs */
	peer_billboard(false, "channel open: commitment ready to send, "
		       "sending channel to lightningd to save");

	msg = towire_dualopend_commit_ready(state,
					    &tx_state->remoteconf,
					    tx_state->psbt,
					    &state->their_points.revocation,
					    &state->their_points.payment,
					    &state->their_points.htlc,
					    &state->their_points.delayed_payment,
					    &state->first_per_commitment_point[REMOTE],
					    &state->their_funding_pubkey,
					    &tx_state->funding,
					    total,
					    tx_state->accepter_funding,
					    state->channel_flags,
					    tx_state->feerate_per_kw_funding,
					    state->feerate_per_kw_commitment,
					    state->upfront_shutdown_script[LOCAL],
					    state->upfront_shutdown_script[REMOTE],
					    state->requested_lease ?
					    *state->requested_lease :
					    AMOUNT_SAT(0),
					    tx_state->blockheight,
					    tx_state->lease_expiry,
					    tx_state->lease_fee,
					    tx_state->lease_commit_sig,
					    tx_state->lease_chan_max_msat,
					    tx_state->lease_chan_max_ppt,
					    state->channel_type);

	wire_sync_write(REQ_FD, take(msg));
	msg = wire_sync_read(tmpctx, REQ_FD);

	if (fromwire_peektype(msg) != WIRE_DUALOPEND_COMMIT_SEND_ACK)
		master_badmsg(WIRE_DUALOPEND_COMMIT_SEND_ACK, msg);

	commit_msg = msg_for_remote_commit(tmpctx, state, &pbase, &error);
	if (!commit_msg) {
		*err_reason = tal_fmt(tmpctx, "Failed building remote commit %s",
				      error);
		revert_channel_state(state);
		return NULL;
	}

	tal_steal(NULL, pbase);
	/* Send our commitment sigs over now */
	peer_write(state->pps, take(commit_msg));

	/* Wait for the peer to send us our commitment tx signature */
	msg = opening_negotiate_msg(tmpctx, state);
	if (!msg) {
		*err_reason = NULL;
		tal_free(pbase);
		return NULL;
	}

	*err_reason = do_commit_signed_received(tmpctx, msg, state, tx_state,
						&local_commit, &remote_sig);
	if (*err_reason) {
		revert_channel_state(state);
		tal_free(pbase);
		return NULL;
	}

	/* Send the commitment_signed to lightningd; will save to db,
	 * then wait to get our sigs back */
	peer_billboard(false, "channel open: commitment received, "
		       "sending to lightningd to save");

	msg = towire_dualopend_commit_rcvd(state,
					   local_commit,
					   &remote_sig,
					   pbase);

	tal_free(pbase);
	wire_sync_write(REQ_FD, take(msg));
	msg = wire_sync_read(tmpctx, REQ_FD);

	if (fromwire_peektype(msg) != WIRE_DUALOPEND_SEND_TX_SIGS)
		master_badmsg(WIRE_DUALOPEND_SEND_TX_SIGS, msg);

	return msg;
}

static void accept_tlv_add_offer(struct tlv_accept_tlvs *a_tlv,
				 struct tx_state *tx_state,
				 struct lease_rates *rates,
				 struct pubkey funding_pubkey,
				 u32 blockheight)
{
	u8 *msg;
	u32 lease_expiry = blockheight + LEASE_RATE_DURATION;
	tx_state->lease_commit_sig = tal(tx_state, secp256k1_ecdsa_signature);

	/* Go get the signature for this lease offer from HSMD */
	msg = towire_hsmd_sign_option_will_fund_offer(NULL,
						      &funding_pubkey,
						      lease_expiry,
						      rates->channel_fee_max_base_msat,
						      rates->channel_fee_max_proportional_thousandths);
	if (!wire_sync_write(HSM_FD, take(msg)))
		status_failed(STATUS_FAIL_HSM_IO,
			      "Could not write to HSM: %s",
			      strerror(errno));
	msg = wire_sync_read(tmpctx, HSM_FD);
	if (!fromwire_hsmd_sign_option_will_fund_offer_reply(msg,
							     tx_state->lease_commit_sig))
		status_failed(STATUS_FAIL_HSM_IO,
			      "Bad sign_option_will_fund_offer_reply %s",
			      tal_hex(tmpctx, msg));

	/* BOLT- #2:
	 * The accepting node:
	 * ...
	 *   - MUST set `funding_fee_base_sat` to the base fee
	 *     (in satoshi) it will charge for the `funding_satoshis`
	 *   - MUST set `funding_fee_proportional_basis` to the amount
	 *     (in thousandths of satoshi) it will charge per `funding_satoshi`
	 *   - MUST set `funding_weight` to the weight they
	 *     will contribute to this channel, to fund the request.
	 *   - MUST set `channel_fee_base_max_msat` to the base fee
	 *     (in millisatoshi) it will charge for any HTLC on this channel
	 *     during the funding period.
	 *   - MUST set `channel_fee_proportional_basis_max` to the amount
	 *     (in thousandths of a satoshi) it will charge per transferred
	 *     satoshi during the funding period.
	 */
	a_tlv->will_fund = tal(a_tlv, struct tlv_accept_tlvs_will_fund);
	a_tlv->will_fund->lease_rates = *rates;
	a_tlv->will_fund->signature = *tx_state->lease_commit_sig;

	tx_state->lease_expiry = lease_expiry;
	tx_state->lease_chan_max_msat
		= rates->channel_fee_max_base_msat;
	tx_state->lease_chan_max_ppt
		= rates->channel_fee_max_proportional_thousandths;
}

static void accepter_start(struct state *state, const u8 *oc2_msg)
{
	struct bitcoin_blkid chain_hash;
	struct tlv_opening_tlvs *open_tlv;
	struct channel_id cid, full_cid;
	char *err_reason;
	u8 *msg;
	struct amount_sat total, our_accept;
	enum dualopend_wire msg_type;
	struct tx_state *tx_state = state->tx_state;

	state->our_role = TX_ACCEPTER;

	if (!fromwire_open_channel2(tmpctx, oc2_msg, &chain_hash,
				    &cid,
				    &tx_state->feerate_per_kw_funding,
				    &state->feerate_per_kw_commitment,
				    &tx_state->opener_funding,
				    &tx_state->remoteconf.dust_limit,
				    &tx_state->remoteconf.max_htlc_value_in_flight,
				    &tx_state->remoteconf.htlc_minimum,
				    &tx_state->remoteconf.to_self_delay,
				    &tx_state->remoteconf.max_accepted_htlcs,
				    &tx_state->tx_locktime,
				    &state->their_funding_pubkey,
				    &state->their_points.revocation,
				    &state->their_points.payment,
				    &state->their_points.delayed_payment,
				    &state->their_points.htlc,
				    &state->first_per_commitment_point[REMOTE],
				    /* We don't actually do anything with this currently,
				     * as they send it to us again in `channel_ready` */
				    &state->second_per_commitment_point[REMOTE],
				    &state->channel_flags,
				    &open_tlv))
		open_err_fatal(state, "Parsing open_channel2 %s",
			       tal_hex(tmpctx, oc2_msg));

	state->require_confirmed_inputs[REMOTE] =
		open_tlv->require_confirmed_inputs != NULL;

	if (open_tlv->upfront_shutdown_script)
		set_remote_upfront_shutdown(state, open_tlv->upfront_shutdown_script);
	else
		state->upfront_shutdown_script[REMOTE] = NULL;

	/* BOLT #2:
	 * When sending `open_channel2`, the peer's revocation basepoint is unknown.
	 * A `temporary_channel_id` must be computed by using a zeroed out basepoint
	 * for the non-initiator.
	 */
	derive_tmp_channel_id(&state->channel_id, /* Temporary! */
			      &state->their_points.revocation);
	if (!channel_id_eq(&state->channel_id, &cid)) {
		peer_failed_err(state->pps, &cid,
				"open_channel2 channel_id incorrect."
				" Expected %s, received %s",
				fmt_channel_id(tmpctx,
					       &state->channel_id),
				fmt_channel_id(tmpctx, &cid));
	}

	/* BOLT #2:
	 * The receiving node MUST fail the channel if:
	 *...
	 *  - It supports `channel_type` and `channel_type` was set:
	 *     - if `type` is not suitable.
	 *     - if `type` includes `option_zeroconf` and it does not trust the sender to open an unconfirmed channel.
	 */
	if (!open_tlv->channel_type) {
		negotiation_failed(state,
				   "open_channel2 missing channel_type");
		return;
	}

	state->channel_type =
		channel_type_accept(state,
				    open_tlv->channel_type,
				    state->our_features);
	if (!state->channel_type) {
		if (state->dev_accept_any_channel_type) {
			status_unusual("dev-any-channel-type: accepting %s",
				       fmt_featurebits(tmpctx,
						       open_tlv->channel_type));
			state->channel_type = channel_type_from(state, open_tlv->channel_type);
		} else {
			negotiation_failed(state,
					   "Did not support channel_type [%s]",
					   fmt_featurebits(tmpctx,
							   open_tlv->channel_type));
			return;
		}
	}

	/* Since anchor outputs are optional, we
	 * only support liquidity ads if those are enabled. */
	if (open_tlv->request_funds &&
	    !anchors_negotiated(state->our_features,
				state->their_features)) {
		negotiation_failed(state, "liquidity ads not supported,"
				   " no anchors.");
		return;
	}

	/* This is an `option_will_fund` request */
	if (open_tlv->request_funds) {
		state->requested_lease = tal(state, struct amount_sat);
		state->requested_lease->satoshis /* Raw: u64 -> sat conversion */
			= open_tlv->request_funds->requested_sats;
		tx_state->blockheight
			= open_tlv->request_funds->blockheight;
	}

	/* BOLT #2:
	 *
	 * The receiving node MUST fail the channel if:
	 *  - the `chain_hash` value is set to a hash of a chain
	 *  that is unknown to the receiver.
	 */
	if (!bitcoin_blkid_eq(&chain_hash, &chainparams->genesis_blockhash)) {
		negotiation_failed(state, "Unknown chain-hash %s",
				   fmt_bitcoin_blkid(tmpctx,
						  &chain_hash));
		return;
	}

	/* BOLT #2:
	 *
	 * The receiving node MUST fail the channel if:
	 *...
	 * - `funding_satoshis` is greater than or equal to 2^24 and the receiver does not support
	 *   `option_support_large_channel`. */
	/* We choose to require *negotiation*, not just support! */
	if (!feature_negotiated(state->our_features, state->their_features,
				OPT_LARGE_CHANNELS)
	    && amount_sat_greater(tx_state->opener_funding,
				  chainparams->max_funding)) {
		negotiation_failed(state,
				   "opener's funding_satoshis %s too large",
				   fmt_amount_sat(tmpctx,
						  tx_state->opener_funding));
		return;
	}

	/* We send the 'real' channel id over to lightningd */
	derive_channel_id_v2(&full_cid,
			     &state->our_points.revocation,
			     &state->their_points.revocation);
	msg = towire_dualopend_got_offer(NULL,
					 &full_cid,
					 tx_state->opener_funding,
					 tx_state->remoteconf.dust_limit,
					 tx_state->remoteconf.max_htlc_value_in_flight,
					 tx_state->remoteconf.htlc_minimum,
					 tx_state->feerate_per_kw_funding,
					 state->feerate_per_kw_commitment,
					 tx_state->remoteconf.to_self_delay,
					 tx_state->remoteconf.max_accepted_htlcs,
					 state->channel_flags,
					 tx_state->tx_locktime,
					 state->upfront_shutdown_script[REMOTE],
					 state->requested_lease,
					 tx_state->blockheight,
					 state->require_confirmed_inputs[REMOTE],
					 state->channel_type);

	wire_sync_write(REQ_FD, take(msg));
	msg = wire_sync_read(tmpctx, REQ_FD);

	if ((msg_type = fromwire_peektype(msg)) == WIRE_DUALOPEND_FAIL) {
		if (!fromwire_dualopend_fail(msg, msg, &err_reason))
			master_badmsg(msg_type, msg);
		open_abort(state, "%s", err_reason);
		return;
	}

	if (!fromwire_dualopend_got_offer_reply(state, msg,
						&tx_state->accepter_funding,
						&tx_state->psbt,
						&state->upfront_shutdown_script[LOCAL],
						&state->local_upfront_shutdown_wallet_index,
						&tx_state->rates))
		master_badmsg(WIRE_DUALOPEND_GOT_OFFER_REPLY, msg);

	if (!tx_state->psbt)
		tx_state->psbt = create_psbt(tx_state, 0, 0,
					     tx_state->tx_locktime);
	else {
		/* Locktimes must match! */
		tx_state->psbt->fallback_locktime = tx_state->tx_locktime;
		if (!psbt_set_version(tx_state->psbt, 2)) {
			status_failed(STATUS_FAIL_INTERNAL_ERROR,
				      "Could not set PSBT version: %s",
				      fmt_wally_psbt(tmpctx,
						     tx_state->psbt));
		}
	}

	/* BOLT- #2:
	 *
	 * - if they decide to accept the offer:
	 *   ...
	 *   - MUST set `funding_satoshis` to a value greater than 0msat
	 */
	if (tx_state->rates && amount_sat_is_zero(tx_state->accepter_funding)) {
		status_broken("opt_will_fund ad passed in, but no funding");
		negotiation_failed(state, "We're unable to accept"
				   " your lease offer.");
		return;
	}

	/* This we bump the accepter_funding iff there's a lease,
	 * so we stash this here so we tell our peer the right amount */
	our_accept = tx_state->accepter_funding;

	/* Add our fee to our amount now */
	if (tx_state->rates) {
		tx_state->lease_expiry
			= tx_state->blockheight + LEASE_RATE_DURATION;

		/* BOLT- #2:
		 * The lease fee is added to the accepter's balance
		 * in a channel, in addition to the `funding_satoshi`
		 * that they are contributing. The channel initiator
		 * must contribute enough funds to cover
		 * `open_channel2`.`funding_satoshis`, the lease fee,
		 * and their tx weight * `funding_feerate_perkw` / 1000.
		 */
		assert(state->requested_lease);
		if (!lease_rates_calc_fee(tx_state->rates,
					  tx_state->accepter_funding,
					  *state->requested_lease,
					  tx_state->feerate_per_kw_funding,
					  &tx_state->lease_fee)) {
			negotiation_failed(state,
					   "Unable to calculate lease fee");
			return;
		}

		/* Add it to the accepter's total */
		if (!amount_sat_add(&tx_state->accepter_funding,
				    tx_state->accepter_funding,
				    tx_state->lease_fee)) {
			negotiation_failed(state,
					   "Unable to add accepter's funding"
					   " and channel lease fee (%s + %s)",
					   fmt_amount_sat(tmpctx,
							  tx_state->accepter_funding),
					   fmt_amount_sat(tmpctx,
							  tx_state->lease_fee));
			return;
		}
	}

	/* Check that total funding doesn't overflow */
	if (!amount_sat_add(&total, tx_state->opener_funding,
			    tx_state->accepter_funding)) {
		negotiation_failed(state,
				   "Amount overflow. Local sats %s. Remote sats %s",
				   fmt_amount_sat(tmpctx,
						  tx_state->accepter_funding),
				   fmt_amount_sat(tmpctx,
						  tx_state->opener_funding));
		return;
	}

	/* Check that total funding doesn't exceed allowed channel capacity */
	/* BOLT #2:
	 *
	 * The receiving node MUST fail the channel if:
	 *...
	 * - `funding_satoshis` is greater than or equal to 2^24 and the receiver does not support
	 *   `option_support_large_channel`. */
	/* We choose to require *negotiation*, not just support! */
	if (!feature_negotiated(state->our_features, state->their_features,
				OPT_LARGE_CHANNELS)
	    && amount_sat_greater(total, chainparams->max_funding)) {
		negotiation_failed(state, "total funding_satoshis %s too large",
				   fmt_amount_sat(tmpctx, total));
		return;
	}

	/* Add all of our inputs/outputs to the changeset */
	init_changeset(tx_state, tx_state->psbt);

	/* Now that we know the total of the channel, we can set the reserve */
	set_reserve(tx_state, total, state->our_role);

	if (!check_config_bounds(tmpctx, total,
				 state->feerate_per_kw_commitment,
				 state->max_to_self_delay,
				 state->min_effective_htlc_capacity,
				 &tx_state->remoteconf,
				 &tx_state->localconf,
				 channel_type_has(state->channel_type, OPT_ANCHORS_ZERO_FEE_HTLC_TX),
				 &err_reason)) {
		negotiation_failed(state, "%s", err_reason);
		return;
	}

	/* If we have an upfront shutdown script, send it to our peer */
	struct tlv_accept_tlvs *a_tlv = tlv_accept_tlvs_new(tmpctx);
	if (!state->upfront_shutdown_script[LOCAL])
		state->upfront_shutdown_script[LOCAL]
			= no_upfront_shutdown_script(state, state->developer,
						     state->our_features,
						     state->their_features);

	if (tal_bytelen(state->upfront_shutdown_script[LOCAL])) {
		a_tlv->upfront_shutdown_script
			= tal_dup_arr(a_tlv, u8,
				      state->upfront_shutdown_script[LOCAL],
				      tal_count(state->upfront_shutdown_script[LOCAL]),
				      0);
	}

	/* BOLT #2:
	 * - if `option_channel_type` was negotiated:
	 *    - MUST set `channel_type` to the `channel_type` from `open_channel`
	 */
	a_tlv->channel_type = state->channel_type->features;

	/* BOLT- #2:
	 * The accepting node:
	 * ...
	 * - if the `option_will_fund` tlv was sent in `open_channel2`:
	 *   - if they decide to accept the offer:
	 *   - MUST include a `will_fund` tlv
	 */
	if (open_tlv->request_funds && tx_state->rates)
		accept_tlv_add_offer(a_tlv, tx_state, tx_state->rates,
				     state->our_funding_pubkey,
				     tx_state->blockheight);

	/* BOLT #2:
	 *
	 * The sending node may require the other participant to
	 * only use confirmed inputs.  This ensures that the sending
	 * node doesn't end up paying the fees of a low feerate
	 * unconfirmed ancestor of one of the other participant's inputs.
	 */
	if (state->require_confirmed_inputs[LOCAL])
		a_tlv->require_confirmed_inputs =
			tal(a_tlv, struct tlv_accept_tlvs_require_confirmed_inputs);

	msg = towire_accept_channel2(tmpctx, &state->channel_id,
				     /* Our amount w/o the lease fee */
				     our_accept,
				     tx_state->localconf.dust_limit,
				     tx_state->localconf.max_htlc_value_in_flight,
				     tx_state->localconf.htlc_minimum,
				     state->minimum_depth,
				     tx_state->localconf.to_self_delay,
				     tx_state->localconf.max_accepted_htlcs,
				     &state->our_funding_pubkey,
				     &state->our_points.revocation,
				     &state->our_points.payment,
				     &state->our_points.delayed_payment,
				     &state->our_points.htlc,
				     &state->first_per_commitment_point[LOCAL],
				     &state->second_per_commitment_point[LOCAL],
				     a_tlv);

	/* Everything's ok. Let's figure out the actual channel_id now */
	derive_channel_id_v2(&state->channel_id,
			     &state->our_points.revocation,
			     &state->their_points.revocation);

	peer_write(state->pps, msg);
	peer_billboard(false, "channel open: accept sent, waiting for reply");

	/* This is unused in this flow. We re-use
	 * the wire method between accepter + opener, so we set it
	 * to an invalid number, 1 (initiator sets; valid is even) */
	tx_state->funding_serial = 1;
	/* Figure out what the funding transaction looks like! */
	if (!run_tx_interactive(state, tx_state, &tx_state->psbt, TX_ACCEPTER))
		return;

	if (state->require_confirmed_inputs[LOCAL]) {
		err_reason = validate_inputs(state, tx_state, TX_INITIATOR);
		if (err_reason) {
			open_abort(state, "%s", err_reason);
			return;
		}
	}

	msg = accepter_commits(state, tx_state, total, &err_reason);
	if (!msg) {
		if (err_reason)
			negotiation_failed(state, "%s", err_reason);
		return;
	}

	/* Finally, send our funding tx sigs */
	handle_send_tx_sigs(state, msg);
}

static void add_funding_output(struct tx_state *tx_state,
			       struct state *state,
			       struct amount_sat total)
{
	const u8 *wscript;
	struct wally_psbt_output *funding_out;

	wscript = bitcoin_redeem_2of2(tmpctx, &state->our_funding_pubkey,
				      &state->their_funding_pubkey);
	funding_out = psbt_append_output(tx_state->psbt,
					 scriptpubkey_p2wsh(tmpctx, wscript),
					 total);

	/* Add a serial_id for this output */
	tx_state->funding_serial = psbt_new_input_serial(tx_state->psbt,
							 TX_INITIATOR);
	psbt_output_set_serial_id(tx_state->psbt,
				  funding_out,
				  tx_state->funding_serial);
}

/* Returns NULL on negotation failure; reason given as *err_reason.
 * If we call negotiation_failed internally, reason will be NULL */
static u8 *opener_commits(struct state *state,
			  struct tx_state *tx_state,
			  struct amount_sat total,
			  char **err_reason)
{
	struct channel_id cid;
	struct amount_msat our_msats;
	struct penalty_base *pbase;
	struct bitcoin_tx *local_commit;
	struct bitcoin_signature remote_sig;
	const u8 *wscript;
	u8 *msg, *commit_msg;
	char *error;
	struct amount_msat their_msats;

	wscript = bitcoin_redeem_2of2(tmpctx, &state->our_funding_pubkey,
				      &state->their_funding_pubkey);
	psbt_txid(NULL, tx_state->psbt, &tx_state->funding.txid, NULL);

	/* Figure out the txout */
	if (!find_txout(tx_state->psbt, scriptpubkey_p2wsh(tmpctx, wscript),
			&tx_state->funding.n)) {
		*err_reason = tal_fmt(tmpctx, "Expected output %s not"
				      " found on funding tx %s",
				      tal_hex(tmpctx,
					      scriptpubkey_p2wsh(tmpctx,
								 wscript)),
				      fmt_wally_psbt(tmpctx,
						     tx_state->psbt));
		return NULL;
	}

	error = check_balances(tmpctx, state, tx_state,
			       tx_state->psbt,
			       tx_state->feerate_per_kw_funding);
	if (error) {
		*err_reason = tal_fmt(tmpctx, "Insufficiently funded funding "
				      "tx, %s. %s", error,
				      fmt_wally_psbt(tmpctx,
						     tx_state->psbt));
		return NULL;
	}

	if (!amount_sat_to_msat(&our_msats, tx_state->opener_funding)) {
		status_failed(STATUS_FAIL_INTERNAL_ERROR,
			      "Rounding error, can't convert opener_funding %s"
			      " to msats",
			      fmt_amount_sat(tmpctx, tx_state->opener_funding));
		return NULL;
	}

	if (!amount_sat_to_msat(&their_msats, tx_state->accepter_funding)) {
		status_failed(STATUS_FAIL_INTERNAL_ERROR,
			      "Overflow error, can't convert accepter_funding %s"
			      " to msats",
			      fmt_amount_sat(tmpctx, tx_state->accepter_funding));
		return NULL;
	}

	/*~ Report the channel parameters to the signer. */
	report_channel_hsmd(state, tx_state);

	tal_free(state->channel);
	state->channel = new_initial_channel(state,
					     &cid,
					     &tx_state->funding,
					     state->minimum_depth,
					     take(new_height_states(NULL, LOCAL,
								    &state->tx_state->blockheight)),
					     tx_state->lease_expiry,
					     total,
					     our_msats,
					     take(new_fee_states(NULL, LOCAL,
								 &state->feerate_per_kw_commitment)),
					     &tx_state->localconf,
					     &tx_state->remoteconf,
					     &state->our_points,
					     &state->their_points,
					     &state->our_funding_pubkey,
					     &state->their_funding_pubkey,
					     state->channel_type,
					     feature_offered(state->their_features,
							     OPT_LARGE_CHANNELS),
					     /* Opener is local */
					     LOCAL);

	commit_msg = msg_for_remote_commit(state, state, &pbase, &error);
	if (!commit_msg) {
		*err_reason = tal_fmt(tmpctx, "%s", error);
		revert_channel_state(state);
		return NULL;
	}

	peer_billboard(false, "channel open: commitment ready to send, "
		       "sending channel to lightningd to save");

	/* We're about to send our commitment_signed, let master know */
	msg = towire_dualopend_commit_ready(state,
					    &tx_state->remoteconf,
					    tx_state->psbt,
					    &state->their_points.revocation,
					    &state->their_points.payment,
					    &state->their_points.htlc,
					    &state->their_points.delayed_payment,
					    &state->first_per_commitment_point[REMOTE],
					    &state->their_funding_pubkey,
					    &tx_state->funding,
					    total,
					    tx_state->opener_funding,
					    state->channel_flags,
					    tx_state->feerate_per_kw_funding,
					    state->feerate_per_kw_commitment,
					    state->upfront_shutdown_script[LOCAL],
					    state->upfront_shutdown_script[REMOTE],
					    state->requested_lease ?
					    *state->requested_lease :
					    AMOUNT_SAT(0),
					    tx_state->blockheight,
					    tx_state->lease_expiry,
					    tx_state->lease_fee,
					    tx_state->lease_commit_sig,
					    tx_state->lease_chan_max_msat,
					    tx_state->lease_chan_max_ppt,
					    state->channel_type);

	wire_sync_write(REQ_FD, take(msg));
	msg = wire_sync_read(tmpctx, REQ_FD);

	if (fromwire_peektype(msg) != WIRE_DUALOPEND_COMMIT_SEND_ACK)
		master_badmsg(WIRE_DUALOPEND_COMMIT_SEND_ACK, msg);

	/* Ok, now send the commitment signed! */
	peer_write(state->pps, take(commit_msg));
	peer_billboard(false, "channel open: commitment sent, waiting for reply");

	/* Wait for the peer to send us our commitment tx signature */
	msg = opening_negotiate_msg(tmpctx, state);
	if (!msg) {
		*err_reason = NULL;
		revert_channel_state(state);
		return NULL;
	}

	error = do_commit_signed_received(tmpctx, msg, state, tx_state,
					  &local_commit,
					  &remote_sig);
	if (error) {
		*err_reason = tal_fmt(tmpctx, "Commit sig error: %s", error);
		revert_channel_state(state);
		return NULL;
	}

	peer_billboard(false, "channel open: commitment received, "
		       "sending to lightningd to save");

	msg = towire_dualopend_commit_rcvd(state,
					   local_commit,
					   &remote_sig,
					   pbase);
	tal_free(pbase);
	return msg;
}

static void opener_start(struct state *state, u8 *msg)
{
	struct tlv_opening_tlvs *open_tlv;
	struct tlv_accept_tlvs *a_tlv;
	struct channel_id cid;
	char *err_reason;
	struct amount_sat total;
	bool dry_run, aborted;
	struct lease_rates *expected_rates;
	struct tx_state *tx_state = state->tx_state;
	struct amount_sat *requested_lease;
	size_t locktime;
	u32 nonanchor_feerate, anchor_feerate;

	if (!fromwire_dualopend_opener_init(state, msg,
					    &tx_state->psbt,
					    &tx_state->opener_funding,
					    &state->upfront_shutdown_script[LOCAL],
					    &state->local_upfront_shutdown_wallet_index,
					    &nonanchor_feerate,
					    &anchor_feerate,
					    &tx_state->feerate_per_kw_funding,
					    &state->channel_flags,
					    &requested_lease,
					    &tx_state->blockheight,
					    &dry_run,
					    &state->channel_type,
					    &expected_rates))
		master_badmsg(WIRE_DUALOPEND_OPENER_INIT, msg);

	state->our_role = TX_INITIATOR;
	wally_psbt_get_locktime(tx_state->psbt, &locktime);
	tx_state->tx_locktime = locktime;
	open_tlv = tlv_opening_tlvs_new(tmpctx);
	open_tlv->channel_type = state->channel_type->features;

	/* Given channel type, which feerate do we use? */
	if (channel_type_has_anchors(state->channel_type))
		state->feerate_per_kw_commitment = anchor_feerate;
	else
		state->feerate_per_kw_commitment = nonanchor_feerate;

	if (requested_lease)
		state->requested_lease = tal_steal(state, requested_lease);

	/* BOLT #2:
	 * When sending `open_channel2`, the peer's revocation basepoint is unknown.
	 * A `temporary_channel_id` must be computed by using a zeroed out basepoint
	 * for the non-initiator.
	 */
	derive_tmp_channel_id(&state->channel_id,
			      &state->our_points.revocation);

	if (!state->upfront_shutdown_script[LOCAL])
		state->upfront_shutdown_script[LOCAL]
			= no_upfront_shutdown_script(state, state->developer,
						     state->our_features,
						     state->their_features);

	if (tal_bytelen(state->upfront_shutdown_script[LOCAL])) {
		open_tlv->upfront_shutdown_script =
			tal_dup_arr(open_tlv, u8,
				    state->upfront_shutdown_script[LOCAL],
				    tal_bytelen(state->upfront_shutdown_script[LOCAL]), 0);
	}

	if (state->requested_lease) {
		open_tlv->request_funds =
			tal(open_tlv, struct tlv_opening_tlvs_request_funds);
		open_tlv->request_funds->requested_sats =
			state->requested_lease->satoshis; /* Raw: struct -> wire */
		open_tlv->request_funds->blockheight = tx_state->blockheight;
	}

	/* BOLT #2:
	 *
	 * The sending node may require the other participant to
	 * only use confirmed inputs.  This ensures that the sending
	 * node doesn't end up paying the fees of a low feerate
	 * unconfirmed ancestor of one of the other participant's inputs.
	 */
	if (state->require_confirmed_inputs[LOCAL])
		open_tlv->require_confirmed_inputs =
			tal(open_tlv, struct tlv_opening_tlvs_require_confirmed_inputs);

	msg = towire_open_channel2(NULL,
				   &chainparams->genesis_blockhash,
				   &state->channel_id,
				   tx_state->feerate_per_kw_funding,
				   state->feerate_per_kw_commitment,
				   tx_state->opener_funding,
				   tx_state->localconf.dust_limit,
				   tx_state->localconf.max_htlc_value_in_flight,
				   tx_state->localconf.htlc_minimum,
				   tx_state->localconf.to_self_delay,
				   tx_state->localconf.max_accepted_htlcs,
				   tx_state->tx_locktime,
				   &state->our_funding_pubkey,
				   &state->our_points.revocation,
				   &state->our_points.payment,
				   &state->our_points.delayed_payment,
				   &state->our_points.htlc,
				   &state->first_per_commitment_point[LOCAL],
				   &state->second_per_commitment_point[LOCAL],
				   state->channel_flags,
				   open_tlv);

	peer_write(state->pps, take(msg));

	/* This is usually a very transient state... */
	peer_billboard(false, "channel open: offered, waiting for"
		       " accept_channel2");

	/* ... since their reply should be immediate. */
	msg = opening_negotiate_msg(tmpctx, state);
	if (!msg)
		return;

	if (!fromwire_accept_channel2(state, msg, &cid,
				      &tx_state->accepter_funding,
				      &tx_state->remoteconf.dust_limit,
				      &tx_state->remoteconf.max_htlc_value_in_flight,
				      &tx_state->remoteconf.htlc_minimum,
				      &state->minimum_depth,
				      &tx_state->remoteconf.to_self_delay,
				      &tx_state->remoteconf.max_accepted_htlcs,
				      &state->their_funding_pubkey,
				      &state->their_points.revocation,
				      &state->their_points.payment,
				      &state->their_points.delayed_payment,
				      &state->their_points.htlc,
				      &state->first_per_commitment_point[REMOTE],
				      /* We don't actually do anything with this currently,
				       * as they send it to us again in `channel_ready` */
				      &state->second_per_commitment_point[REMOTE],
				      &a_tlv))
		open_err_fatal(state,  "Parsing accept_channel2 %s",
			       tal_hex(msg, msg));
	/* FIXME: why? */
	notleak(a_tlv);

	if (!channel_id_eq(&cid, &state->channel_id)) {
		struct channel_id future_chan_id;
		/* FIXME: v0.10.0 actually replied with the complete channel id here,
		 * so we need to accept it for now */
		derive_channel_id_v2(&future_chan_id,
				     &state->our_points.revocation,
				     &state->their_points.revocation);
		if (!channel_id_eq(&cid, &future_chan_id)) {
			peer_failed_err(state->pps, &cid,
					"accept_channel2 ids don't match: "
					"expected %s, got %s",
					fmt_channel_id(msg,
						       &state->channel_id),
					fmt_channel_id(msg, &cid));
		}
	}

	/* Set the require confirms from peer's TLVs */
	state->require_confirmed_inputs[REMOTE] =
		a_tlv->require_confirmed_inputs != NULL;

	if (a_tlv->upfront_shutdown_script)
		set_remote_upfront_shutdown(state, a_tlv->upfront_shutdown_script);
	else
		state->upfront_shutdown_script[REMOTE] = NULL;

	/* Now we know the 'real channel id' */
	derive_channel_id_v2(&state->channel_id,
			     &state->our_points.revocation,
			     &state->their_points.revocation);

	/* If this is a dry run, we just wanted to know
	 * how much they'd put into the channel and their terms */
	if (dry_run) {
		msg = towire_dualopend_dry_run(NULL, &state->channel_id,
					       tx_state->opener_funding,
					       tx_state->accepter_funding,
					       state->require_confirmed_inputs[REMOTE],
					       a_tlv->will_fund
					       ? &a_tlv->will_fund->lease_rates
					       : NULL);

		wire_sync_write(REQ_FD, take(msg));

		/* Note that this *normally* would return an error
		 * to the RPC caller.  We head this off by
		 * sending a message to master just before this,
		 * which works as expected as long as
		 * these messages are queued+processed sequentially */
		open_abort(state, "%s", "Abort requested");
		return;
	}

	/* BOLT #2:
	 * - if `channel_type` is set, and `channel_type` was set in
	 *   `open_channel`, and they are not equal types:
	 *    - MUST fail the channel.
	 */
	if (!a_tlv->channel_type) {
		negotiation_failed(state,
				   "Missing channel_type in accept_channel2");
		return;
	}
	if (!featurebits_eq(a_tlv->channel_type,
			    state->channel_type->features)) {
		negotiation_failed(state,
				   "Return unoffered channel_type: %s",
				   fmt_featurebits(tmpctx,
						   a_tlv->channel_type));
		return;
	}

	/* If we've requested funds and they've failed to provide
	 * to lease us (or give them to us for free?!) then we fail.
	 * This isn't spec'd but it makes the UX predictable */
	if (state->requested_lease
	    && amount_sat_less(tx_state->accepter_funding,
			       *state->requested_lease)) {
		negotiation_failed(state,
				   "We requested %s, which is more"
				   " than they've offered to provide"
				   " (%s)",
				   fmt_amount_sat(tmpctx,
						  *state->requested_lease),
				   fmt_amount_sat(tmpctx,
						  tx_state->accepter_funding));
		return;
	}

	/* BOLT- #2:
	 * The accepting node:  ...
	 *  - if they decide to accept the offer:
	 *    - MUST include a `will_fund` tlv
	 */
	if (state->requested_lease && a_tlv->will_fund) {
		char *err_msg;
		struct lease_rates *rates = &a_tlv->will_fund->lease_rates;

		if (!lease_rates_eq(rates, expected_rates)) {
			negotiation_failed(state,
					   "Expected lease rates (%s),"
					   " their returned lease rates (%s)",
					   lease_rates_fmt(tmpctx,
							   expected_rates),
					   lease_rates_fmt(tmpctx,
							   rates));
			return;
		}


		tx_state->lease_expiry = tx_state->blockheight + LEASE_RATE_DURATION;

		msg = towire_dualopend_validate_lease(NULL,
						      &a_tlv->will_fund->signature,
						      tx_state->lease_expiry,
						      rates->channel_fee_max_base_msat,
						      rates->channel_fee_max_proportional_thousandths,
						      &state->their_funding_pubkey);


		wire_sync_write(REQ_FD, take(msg));
		msg = wire_sync_read(tmpctx, REQ_FD);

		if (!fromwire_dualopend_validate_lease_reply(tmpctx, msg,
							     &err_msg))
			master_badmsg(WIRE_DUALOPEND_VALIDATE_LEASE_REPLY, msg);

		if (err_msg) {
			open_abort(state, "%s", err_msg);
			return;
		}

		/* BOLT- #2:
		 * The lease fee is added to the accepter's balance
		 * in a channel, in addition to the `funding_satoshi`
		 * that they are contributing. The channel initiator
		 * must contribute enough funds to cover
		 * `open_channel2`.`funding_satoshis`, the lease fee,
		 * and their tx weight * `funding_feerate_perkw` / 1000.
		 */
		if (!lease_rates_calc_fee(rates, tx_state->accepter_funding,
					  *state->requested_lease,
					  tx_state->feerate_per_kw_funding,
					  &tx_state->lease_fee)) {
			negotiation_failed(state,
					   "Unable to calculate lease fee");
			return;
		}

		/* Add it to the accepter's total */
		if (!amount_sat_add(&tx_state->accepter_funding,
				    tx_state->accepter_funding,
				    tx_state->lease_fee)) {

			negotiation_failed(state,
					   "Unable to add accepter's funding"
					   " and channel lease fee (%s + %s)",
					   fmt_amount_sat(tmpctx,
							  tx_state->accepter_funding),
					   fmt_amount_sat(tmpctx,
							  tx_state->lease_fee));
			return;
		}

		tx_state->lease_commit_sig
			= tal_dup(tx_state, secp256k1_ecdsa_signature,
				  &a_tlv->will_fund->signature);
		tx_state->lease_chan_max_msat
			= rates->channel_fee_max_base_msat;
		tx_state->lease_chan_max_ppt
			= rates->channel_fee_max_proportional_thousandths;
	}
	/* Keep memleak detector happy! */
	tal_free(expected_rates);

	/* Check that total funding doesn't overflow */
	if (!amount_sat_add(&total, tx_state->opener_funding,
			    tx_state->accepter_funding)) {
		negotiation_failed(state, "Amount overflow. Local sats %s. "
				   "Remote sats %s",
				   fmt_amount_sat(tmpctx, tx_state->opener_funding),
				   fmt_amount_sat(tmpctx, tx_state->accepter_funding));
		return;
	}

	/* Check that total funding doesn't exceed allowed channel capacity */
	/* BOLT #2:
	 *
	 * The receiving node MUST fail the channel if:
	 *...
	 * - `funding_satoshis` is greater than or equal to 2^24 and
	 *    the receiver does not support `option_support_large_channel`. */
	/* We choose to require *negotiation*, not just support! */
	if (!feature_negotiated(state->our_features, state->their_features,
				OPT_LARGE_CHANNELS)
	    && amount_sat_greater(total, chainparams->max_funding)) {
		negotiation_failed(state,
				   "total funding_satoshis %s too large",
				   fmt_amount_sat(tmpctx, total));
		return;
	}

	/* We need to check that the inputs we've already provided
	 * via the API are confirmed :/ */
	if (state->require_confirmed_inputs[REMOTE]) {
		err_reason = validate_inputs(state, tx_state, state->our_role);
		if (err_reason) {
			open_abort(state, "%s", err_reason);
			return;
		}
	}

	/* BOLT #2:
	 * The sending node:
	 * - if is the *opener*:
	 *   - MUST send at least one `tx_add_output`,  which
	 *   contains the channel's funding output
	 */
	add_funding_output(tx_state, state, total);

	/* Add all of our inputs/outputs to the changeset */
	init_changeset(tx_state, tx_state->psbt);

	/* Now that we know the total of the channel, we can
	 * set the reserve */
	set_reserve(tx_state, total, state->our_role);

	if (!check_config_bounds(tmpctx, total,
				 state->feerate_per_kw_commitment,
				 state->max_to_self_delay,
				 state->min_effective_htlc_capacity,
				 &tx_state->remoteconf,
				 &tx_state->localconf,
				 channel_type_has(state->channel_type, OPT_ANCHORS_ZERO_FEE_HTLC_TX),
				 &err_reason)) {
		negotiation_failed(state, "%s", err_reason);
		return;
	}

	/* Send our first message, we're opener we initiate here */
	if (!send_next(state, tx_state, &tx_state->psbt, &aborted)) {
		if (!aborted)
			open_abort(state, "%s", "Peer error, no updates to send");
		return;
	}

	/* Figure out what the funding transaction looks like! */
	if (!run_tx_interactive(state, tx_state, &tx_state->psbt, TX_INITIATOR))
		return;

	if (state->require_confirmed_inputs[LOCAL]) {
		err_reason = validate_inputs(state, tx_state, TX_ACCEPTER);
		if (err_reason) {
			open_abort(state, "%s", err_reason);
			return;
		}
	}


	msg = opener_commits(state, tx_state, total, &err_reason);
	if (!msg) {
		if (err_reason)
			open_abort(state, "%s", err_reason);
		else
			open_abort(state, "%s", "Opener commits failed");
		return;
	}

	/* Normally we would end dualopend here (and in fact this
	 * is where openingd ends). However, now we wait for both our peer
	 * to send us the tx sigs *and* for master to send us the tx sigs. */
	wire_sync_write(REQ_FD, take(msg));
}

static bool check_funding_feerate(u32 proposed_next_feerate,
				  u32 last_feerate)
{
	/*
	 * BOLT #2:
	 *
	 * The recipient:  ...
	 *   - MUST respond with `tx_abort` if:
	 *     - the `feerate` is not greater than or equal to 25/24 times `feerate`
	 *       of the last successfully constructed transaction
	 */
	u32 next_min = last_feerate * 25 / 24;

	if (next_min < last_feerate) {
		status_broken("Overflow calculating next feerate. last %u",
			      last_feerate);
		return false;
	}
	if (last_feerate > proposed_next_feerate)
		return false;

	return next_min <= proposed_next_feerate;
}

/* Takes ownership of tx_state if successful */
static void rbf_wrap_up(struct state *state,
			struct tx_state *tx_state,
			struct amount_sat total)
{
	enum dualopend_wire msg_type;
	char *err_reason;
	bool aborted;
	u8 *msg;

	/* BOLT #2:
	 * The sending node:
	 * - if is the *opener*:
	 *   - MUST send at least one `tx_add_output`,  which contains the
	 *   channel's funding output */
	if (state->our_role == TX_INITIATOR)
		add_funding_output(tx_state, state, total);
	else
		/* if accepter, set to an invalid number, 1 (odd is invalid) */
		tx_state->funding_serial = 1;

	/* Add all of our inputs/outputs to the changeset */
	init_changeset(tx_state, tx_state->psbt);

	if (state->our_role == TX_INITIATOR) {
		/* Send our first message; opener initiates */
		if (!send_next(state, tx_state, &tx_state->psbt, &aborted)) {
			if (!aborted)
				open_abort(state, "Peer error, has no tx updates.");
			return;
		}
	}

	if (!run_tx_interactive(state, tx_state,
				&tx_state->psbt,
				state->our_role)) {
		return;
	}

	if (state->require_confirmed_inputs[LOCAL]) {
		err_reason = validate_inputs(state, tx_state,
					     state->our_role == TX_INITIATOR ?
					     TX_ACCEPTER : TX_INITIATOR);
		if (err_reason) {
			open_abort(state, "%s", err_reason);
			return;
		}
	}

	/* Is this an eligible RBF (at least one overlapping input) */
	msg = towire_dualopend_rbf_validate(NULL, tx_state->psbt);
	wire_sync_write(REQ_FD, take(msg));
	msg = wire_sync_read(tmpctx, REQ_FD);

	while (state->developer && fromwire_dualopend_dev_memleak(msg)) {
		handle_dev_memleak(state, msg);
		msg = wire_sync_read(tmpctx, REQ_FD);
	}

	if ((msg_type = fromwire_peektype(msg)) == WIRE_DUALOPEND_FAIL) {
		if (!fromwire_dualopend_fail(msg, msg, &err_reason))
			master_badmsg(msg_type, msg);
		open_abort(state, "%s", err_reason);
		return;
	}

	if (!fromwire_dualopend_rbf_valid(msg))
		master_badmsg(WIRE_DUALOPEND_RBF_VALID, msg);

	/* Find the funding transaction txid */
	psbt_txid(NULL, tx_state->psbt, &tx_state->funding.txid, NULL);

	if (state->our_role == TX_ACCEPTER)
		/* FIXME: lease fee rate !? */
		msg = accepter_commits(state, tx_state, total, &err_reason);
	else
		msg = opener_commits(state, tx_state, total, &err_reason);

	if (!msg) {
		if (err_reason)
			open_abort(state, "%s", err_reason);
		else
			open_abort(state, "%s", "Unable to commit");
		/* We need to 'reset' the channel to what it
		 * was before we did this. */
		return;
	}

	if (state->our_role == TX_ACCEPTER)
		handle_send_tx_sigs(state, msg);
	else
		wire_sync_write(REQ_FD, take(msg));
}

static void rbf_local_start(struct state *state, u8 *msg)
{
	struct tx_state *tx_state;
	struct channel_id cid;
	struct amount_sat total;
	char *err_reason;
	struct tlv_tx_init_rbf_tlvs *init_rbf_tlvs;
	struct tlv_tx_ack_rbf_tlvs *ack_rbf_tlvs;

	/* tmpctx gets cleaned midway, so we have a context for this fn */
	char *rbf_ctx = notleak_with_children(tal(state, char));
	size_t locktime;

	/* We need a new tx_state! */
	tx_state = new_tx_state(rbf_ctx);
	/* Copy over the channel config info -- everything except
	 * the reserve will be the same */
	tx_state->localconf = state->tx_state->localconf;
	tx_state->remoteconf = state->tx_state->remoteconf;
	init_rbf_tlvs = tlv_tx_init_rbf_tlvs_new(tmpctx);

	if (!fromwire_dualopend_rbf_init(tx_state, msg,
					 &tx_state->opener_funding,
					 &tx_state->feerate_per_kw_funding,
					 &tx_state->psbt))
		master_badmsg(WIRE_DUALOPEND_RBF_INIT, msg);

	peer_billboard(false, "channel rbf: init received from master");

	if (!check_funding_feerate(tx_state->feerate_per_kw_funding,
				   state->tx_state->feerate_per_kw_funding)) {
		open_abort(state, "Proposed funding feerate (%u) invalid",
			   tx_state->feerate_per_kw_funding);
		return;
	}

	/* Have you sent us everything we need yet ? */
	if (!state->tx_state->remote_funding_sigs_rcvd) {
		/* we're still waiting for the last sigs, master
		 * should know better. Tell them no! */
		open_abort(state, "%s",
			   "Still waiting for remote funding sigs"
			   " for last open attempt");
		return;
	}

	wally_psbt_get_locktime(tx_state->psbt, &locktime);
	tx_state->tx_locktime = locktime;
	/* For now, we always just echo/send the funding amount */
	init_rbf_tlvs->funding_output_contribution
		= tal(init_rbf_tlvs, s64);
	*init_rbf_tlvs->funding_output_contribution
		= (s64)tx_state->opener_funding.satoshis; /* Raw: wire conversion */


	/* We repeat whatever we used on initial open for requiring confirmed
	 * inputs */
	if (state->require_confirmed_inputs[LOCAL])
		init_rbf_tlvs->require_confirmed_inputs =
			tal(init_rbf_tlvs, struct tlv_tx_init_rbf_tlvs_require_confirmed_inputs);


	msg = towire_tx_init_rbf(tmpctx, &state->channel_id,
				 tx_state->tx_locktime,
				 tx_state->feerate_per_kw_funding,
				 init_rbf_tlvs);

	peer_write(state->pps, take(msg));

	/* ... since their reply should be immediate. */
	msg = opening_negotiate_msg(tmpctx, state);
	if (!msg) {
		open_abort(state, "%s", "Unable to init rbf");
		return;
	}

	if (!fromwire_tx_ack_rbf(tmpctx, msg, &cid, &ack_rbf_tlvs)) {
		open_abort(state, "Parsing tx_ack_rbf %s",
			   tal_hex(tmpctx, msg));
		return;
	}

	peer_billboard(false, "channel rbf: ack received");
	check_channel_id(state, &cid, &state->channel_id);

	if (ack_rbf_tlvs && ack_rbf_tlvs->funding_output_contribution) {
		tx_state->accepter_funding =
			amount_sat(*ack_rbf_tlvs->funding_output_contribution);

		if (!amount_sat_eq(state->tx_state->accepter_funding,
				   tx_state->accepter_funding))
			status_debug("RBF: accepter amt changed %s->%s",
				     fmt_amount_sat(tmpctx,
						    state->tx_state->accepter_funding),
				     fmt_amount_sat(tmpctx,
						    tx_state->accepter_funding));
	} else
		tx_state->accepter_funding = state->tx_state->accepter_funding;

	/* Set the require_confirmed_inputs to whatever they set here */
	if (ack_rbf_tlvs)
		state->require_confirmed_inputs[REMOTE] =
			ack_rbf_tlvs->require_confirmed_inputs != NULL;
	else
		/* They have to re-affirm to keep it! */
		state->require_confirmed_inputs[REMOTE] = false;

	/* Check that total funding doesn't overflow */
	if (!amount_sat_add(&total, tx_state->opener_funding,
			    tx_state->accepter_funding)) {
		open_abort(state, "Amount overflow. Local sats %s."
			   " Remote sats %s",
			   fmt_amount_sat(tmpctx, tx_state->accepter_funding),
			   fmt_amount_sat(tmpctx, tx_state->opener_funding));
		return;
	}
	/* Check that total funding doesn't exceed allowed channel capacity */
	/* BOLT #2:
	 *
	 * The receiving node MUST fail the channel if:
	 *...
	 * - `funding_satoshis` is greater than or equal to 2^24 and the receiver does not support
	 *   `option_support_large_channel`. */
	/* We choose to require *negotiation*, not just support! */
	if (!feature_negotiated(state->our_features, state->their_features,
				OPT_LARGE_CHANNELS)
	    && amount_sat_greater(total, chainparams->max_funding)) {
		open_abort(state, "Total funding_satoshis %s too large",
			   fmt_amount_sat(tmpctx, total));
		return;
	}

	/* If their new amount is less than the lease we asked for,
	 * abort, abort! */
	if (state->requested_lease
	    && amount_sat_less(tx_state->accepter_funding,
			       *state->requested_lease)) {
		negotiation_failed(state,
				   "We requested %s, which is more"
				   " than they've offered to provide"
				   " (%s)",
				   fmt_amount_sat(tmpctx,
						  *state->requested_lease),
				   fmt_amount_sat(tmpctx,
						  tx_state->accepter_funding));
		return;
	}

	/* Now that we know the total of the channel, we can set the reserve */
	set_reserve(tx_state, total, state->our_role);

	if (!check_config_bounds(tmpctx, total,
				 state->feerate_per_kw_commitment,
				 state->max_to_self_delay,
				 state->min_effective_htlc_capacity,
				 &tx_state->remoteconf,
				 &tx_state->localconf,
				 channel_type_has(state->channel_type, OPT_ANCHORS_ZERO_FEE_HTLC_TX),
				 &err_reason)) {
		open_abort(state, "%s", err_reason);
		return;
	}

	/*  Promote tx_state */
	tal_free(state->tx_state);
	state->tx_state = tal_steal(state, tx_state);

	/* Notify lightningd about require_confirmed state */
	msg = towire_dualopend_update_require_confirmed(NULL,
							state->require_confirmed_inputs[REMOTE]);
	wire_sync_write(REQ_FD, take(msg));

	/* We merge with RBF's we've initiated now */
	rbf_wrap_up(state, tx_state, total);
	tal_free(rbf_ctx);
}

static void rbf_remote_start(struct state *state, const u8 *rbf_msg)
{
	struct channel_id cid;
	struct tx_state *tx_state;
	char *err_reason;
	struct amount_sat total;
	enum dualopend_wire msg_type;
	struct tlv_tx_init_rbf_tlvs *init_rbf_tlvs;
	struct tlv_tx_ack_rbf_tlvs *ack_rbf_tlvs;

	u8 *msg;
	/* tmpctx gets cleaned midway, so we have a context for this fn */
	char *rbf_ctx = notleak_with_children(tal(state, char));

	/* We need a new tx_state! */
	tx_state = new_tx_state(rbf_ctx);
	ack_rbf_tlvs = tlv_tx_ack_rbf_tlvs_new(tmpctx);

	if (!fromwire_tx_init_rbf(tmpctx, rbf_msg, &cid,
				  &tx_state->tx_locktime,
				  &tx_state->feerate_per_kw_funding,
				  &init_rbf_tlvs))
		open_err_fatal(state, "Parsing tx_init_rbf %s",
			       tal_hex(tmpctx, rbf_msg));

	/* Is this the correct channel? */
	check_channel_id(state, &cid, &state->channel_id);
	peer_billboard(false, "channel rbf: init received from peer");

	/* Have you sent us everything we need yet ? */
	if (!state->tx_state->remote_funding_sigs_rcvd)
		open_err_warn(state, "%s",
			      "Last funding attempt not complete:"
			      " missing your funding tx_sigs");

	if (state->our_role == TX_INITIATOR) {
		open_abort(state, "%s",
			   "Only the channel initiator is allowed"
			   " to initiate RBF");
		goto free_rbf_ctx;
	}

	/* Maybe they want a different funding amount! */
	if (init_rbf_tlvs && init_rbf_tlvs->funding_output_contribution) {
		tx_state->opener_funding =
			amount_sat(*init_rbf_tlvs->funding_output_contribution);

		if (!amount_sat_eq(tx_state->opener_funding,
				   state->tx_state->opener_funding))
			status_debug("RBF: opener amt changed %s->%s",
				     fmt_amount_sat(tmpctx,
						    state->tx_state->opener_funding),
				     fmt_amount_sat(tmpctx,
						    tx_state->opener_funding));
	} else
		/* Otherwise we use the last known funding amount */
		tx_state->opener_funding = state->tx_state->opener_funding;

	/* Set the require_confirmed_inputs to whatever they set here */
	if (init_rbf_tlvs)
		state->require_confirmed_inputs[REMOTE] =
			init_rbf_tlvs->require_confirmed_inputs != NULL;
	else
		/* They have to re-affirm to keep it! */
		state->require_confirmed_inputs[REMOTE] = false;

	/* Copy over the channel config info -- everything except
	 * the reserve will be the same */
	tx_state->localconf = state->tx_state->localconf;
	tx_state->remoteconf = state->tx_state->remoteconf;

	if (!check_funding_feerate(tx_state->feerate_per_kw_funding,
				   state->tx_state->feerate_per_kw_funding)) {
		open_abort(state, "Funding feerate not greater than last."
			   "Proposed %u, last feerate %u",
			   tx_state->feerate_per_kw_funding,
			   state->tx_state->feerate_per_kw_funding);
		goto free_rbf_ctx;
	}

	/* We ask master if this is ok */
	msg = towire_dualopend_got_rbf_offer(NULL,
					     &state->channel_id,
					     state->tx_state->opener_funding,
					     tx_state->opener_funding,
					     state->tx_state->accepter_funding,
					     tx_state->feerate_per_kw_funding,
					     tx_state->tx_locktime,
					     state->requested_lease,
					     state->require_confirmed_inputs[REMOTE]);

	wire_sync_write(REQ_FD, take(msg));
	msg = wire_sync_read(tmpctx, REQ_FD);

	if ((msg_type = fromwire_peektype(msg)) == WIRE_DUALOPEND_FAIL) {
		if (!fromwire_dualopend_fail(msg, msg, &err_reason))
			master_badmsg(msg_type, msg);
		open_abort(state, "%s", err_reason);
		goto free_rbf_ctx;
	}

	if (!fromwire_dualopend_got_rbf_offer_reply(state, msg,
						    &tx_state->accepter_funding,
						    &tx_state->psbt))
		master_badmsg(WIRE_DUALOPEND_GOT_RBF_OFFER_REPLY, msg);

	if (!tx_state->psbt)
		tx_state->psbt = create_psbt(tx_state, 0, 0,
					     tx_state->tx_locktime);

	/* Check that total funding doesn't overflow */
	if (!amount_sat_add(&total, tx_state->opener_funding,
			    tx_state->accepter_funding)) {
		open_abort(state,
			   "Amount overflow. Local sats %s. Remote sats %s",
			   fmt_amount_sat(tmpctx,
					  tx_state->accepter_funding),
			   fmt_amount_sat(tmpctx,
					  tx_state->opener_funding));
		goto free_rbf_ctx;
	}

	/* Now that we know the total of the channel, we can set the reserve */
	set_reserve(tx_state, total, state->our_role);

	if (!check_config_bounds(tmpctx, total,
				 state->feerate_per_kw_commitment,
				 state->max_to_self_delay,
				 state->min_effective_htlc_capacity,
				 &tx_state->remoteconf,
				 &tx_state->localconf,
				 channel_type_has(state->channel_type, OPT_ANCHORS_ZERO_FEE_HTLC_TX),
				 &err_reason)) {
		negotiation_failed(state, "%s", err_reason);
		goto free_rbf_ctx;
	}

	/* Check that total funding doesn't exceed allowed channel capacity */
	/* BOLT #2:
	 *
	 * The receiving node MUST fail the channel if:
	 *...
	 * - `funding_satoshis` is greater than or equal to 2^24 and the receiver does not support
	 *   `option_support_large_channel`. */
	/* We choose to require *negotiation*, not just support! */
	if (!feature_negotiated(state->our_features, state->their_features,
				OPT_LARGE_CHANNELS)
	    && amount_sat_greater(total, chainparams->max_funding)) {
		open_abort(state, "Total funding_satoshis %s too large",
			   fmt_amount_sat(tmpctx, total));
		goto free_rbf_ctx;
	}

	/* We always send the funding amount */
	ack_rbf_tlvs->funding_output_contribution
		= tal(ack_rbf_tlvs, s64);
	*ack_rbf_tlvs->funding_output_contribution
		= (s64)tx_state->accepter_funding.satoshis; /* Raw: wire conversion */

	/* We keep whatever we initially set at open for RBFs */
	if (state->require_confirmed_inputs[LOCAL])
		ack_rbf_tlvs->require_confirmed_inputs =
			tal(ack_rbf_tlvs, struct tlv_tx_ack_rbf_tlvs_require_confirmed_inputs);

	msg = towire_tx_ack_rbf(tmpctx, &state->channel_id, ack_rbf_tlvs);
	peer_write(state->pps, msg);
	peer_billboard(false, "channel rbf: ack sent, waiting for reply");

	/*  Promote tx_state */
	tal_free(state->tx_state);
	state->tx_state = tal_steal(state, tx_state);

	/* We merge with RBF's we've initiated now */
	rbf_wrap_up(state, tx_state, total);

free_rbf_ctx:
	tal_free(rbf_ctx);
}

static void hsm_per_commitment_point(u64 index, struct pubkey *point)
{
	struct secret *s;
	const u8 *msg;

	msg = towire_hsmd_get_per_commitment_point(NULL, index);
	wire_sync_write(HSM_FD, take(msg));
	msg = wire_sync_read(tmpctx, HSM_FD);

	if (!fromwire_hsmd_get_per_commitment_point_reply(tmpctx, msg,
							  point, &s))
		status_failed(STATUS_FAIL_HSM_IO,
			      "Bad per_commitment_point reply %s",
			      tal_hex(tmpctx, msg));
}

static void send_channel_ready(struct state *state)
{
	u8 *msg;
	struct pubkey next_local_per_commit;
	struct tlv_channel_ready_tlvs *tlvs = tlv_channel_ready_tlvs_new(tmpctx);
	/* Figure out the next local commit */
	hsm_per_commitment_point(1, &next_local_per_commit);

	tlvs->short_channel_id = &state->local_alias;
	msg = towire_channel_ready(NULL, &state->channel_id,
				   &next_local_per_commit, tlvs);
	peer_write(state->pps, take(msg));

	state->channel_ready[LOCAL] = true;
	check_mutual_channel_ready(state);
	billboard_update(state);
}

static u8 *handle_funding_depth(struct state *state, u8 *msg)
{
	u32 depth;

	if (!fromwire_dualopend_depth_reached(msg, &depth))
		master_badmsg(WIRE_DUALOPEND_DEPTH_REACHED, msg);

	/* Too late, shutting down already */
	if (state->shutdown_sent[LOCAL])
		return NULL;

	/* We check this before we arrive here, but for sanity */
	assert(state->minimum_depth <= depth);

	send_channel_ready(state);
	if (state->channel_ready[REMOTE])
		return towire_dualopend_channel_locked(state);

	return NULL;
}

/* BOLT #2:
 *
 * A receiving node:
 *    - MUST ignore `my_current_per_commitment_point`, but MAY require it to be
 *      a valid point.
 *    - if `next_revocation_number` is greater than expected above, AND
 *    `your_last_per_commitment_secret` is correct for that
 *    `next_revocation_number` minus 1:
 *      - MUST NOT broadcast its commitment transaction.
 *      - SHOULD send an `error` to request the peer to fail the channel.
 */
static void
check_future_dataloss_fields(struct state *state,
			     u64 next_revocation_number,
			     const struct secret *last_local_per_commit_secret)
{
	const u8 *msg;
	bool correct;

	/* We're always at zero in dualopend */
	assert(next_revocation_number > 0);

	msg = towire_hsmd_check_future_secret(NULL,
					      next_revocation_number - 1,
					      last_local_per_commit_secret);
	wire_sync_write(HSM_FD, take(msg));
	msg = wire_sync_read(tmpctx, HSM_FD);

	if (!fromwire_hsmd_check_future_secret_reply(msg, &correct))
		status_failed(STATUS_FAIL_HSM_IO,
			      "Bad hsm_check_future_secret_reply: %s",
			      tal_hex(tmpctx, msg));

	if (!correct)
		open_err_fatal(state,
			       "Bad future last_local_per_commit_secret:"
			       " %"PRIu64" vs %d",
			       next_revocation_number, 0);

	/* Oh shit, they really are from the future! */
	peer_billboard(true, "They have future commitment number %"PRIu64
		       " vs our %d. We must wait for them to close!",
		       next_revocation_number, 0);


	/* BOLT #2:
	 * - MUST NOT broadcast its commitment transaction.
	 * - SHOULD send an `error` to request the peer to fail the channel.
	 */
	wire_sync_write(REQ_FD,
			take(towire_dualopend_fail_fallen_behind(NULL)));

	/* We have to send them an error to trigger dropping to chain. */
	open_err_fatal(state, "%s", "Awaiting unilateral close");
}


static void do_reconnect_dance(struct state *state)
{
	u8 *msg;
	struct channel_id cid;
	/* Note: BOLT #2 uses these names! */
	u64 next_commitment_number, next_revocation_number;
	struct secret last_local_per_commit_secret,
		last_remote_per_commit_secret;
	struct pubkey remote_current_per_commit_point;
	struct tx_state *tx_state = state->tx_state;
	struct tlv_channel_reestablish_tlvs *tlvs;

	/* BOLT #2:
	 *     - if `next_revocation_number` equals 0:
	 *       - MUST set `your_last_per_commitment_secret` to all zeroes
	 */
	/* We always have no revocations in dualopend */
	memset(&last_remote_per_commit_secret, 0,
	       sizeof(last_remote_per_commit_secret));

	/* We always send reconnect/reestablish */

	/* BOLT #2:
	 *
	 * - if it has sent `commitment_signed` for an
	 *   interactive transaction construction but it has
	 *   not received `tx_signatures`:
	 *   - MUST set `next_funding_txid` to the txid of that
	 *     interactive transaction.
	 *   - otherwise:
	 *   - MUST NOT set `next_funding_txid`.
	 */
	tlvs = tlv_channel_reestablish_tlvs_new(tmpctx);
	if (!tx_state->remote_funding_sigs_rcvd) {
		tlvs->next_funding = talz(tlvs, struct tlv_channel_reestablish_tlvs_next_funding);
		tlvs->next_funding->next_funding_txid = tx_state->funding.txid;
		tlvs->next_funding->retransmit_flags = 1; /* COMMITMENT_SIGNED */
	}

	msg = towire_channel_reestablish
		(NULL, &state->channel_id, 1, 0,
		 &last_remote_per_commit_secret,
		 &state->first_per_commitment_point[LOCAL], tlvs);

	peer_write(state->pps, take(msg));

	peer_billboard(false, "Sent reestablish, waiting for theirs");

	/* Read until they say something interesting (don't forward
	 * gossip *to* them yet: we might try sending channel_update
	 * before we've reestablished channel). */
	do {
		clean_tmpctx();
		msg = peer_read(tmpctx, state->pps);
	} while (handle_peer_error_or_warning(state->pps, msg));

	if (!fromwire_channel_reestablish(tmpctx, msg, &cid,
					  &next_commitment_number,
					  &next_revocation_number,
					  &last_local_per_commit_secret,
					  &remote_current_per_commit_point,
					  &tlvs))
		open_err_fatal(state, "Bad reestablish msg: %s %s",
			       peer_wire_name(fromwire_peektype(msg)),
			       tal_hex(msg, msg));

	check_channel_id(state, &cid, &state->channel_id);

	status_debug("Got dualopend reestablish commit=%"PRIu64
		     " revoke=%"PRIu64,
		     next_commitment_number,
		     next_revocation_number);

	/* BOLT #2:
	 *    - if it has not sent `revoke_and_ack`, AND
	 *      `next_revocation_number` is not equal to 0:
	 *      - SHOULD send an `error` and fail the channel.
	 */
	/* It's possible that we've opened an outdated copy of the
	 * database, and the peer is very much ahead of us.
	 */
	if (next_revocation_number != 0) {
		/* Remote claims it's ahead of us: can it prove it?
		 * Does not return. */
		check_future_dataloss_fields(state,
					     next_revocation_number,
					     &last_local_per_commit_secret);
	}

	if (next_commitment_number != 1)
		open_err_fatal(state, "Bad reestablish commitment_number:"
			       "%"PRIu64" vs %d", next_commitment_number, 1);

	/* BOLT #2:
	 * A receiving node:
	 * - if `next_funding_txid` is set:
	 *      - if `next_funding_txid` matches the latest interactive funding transaction:
	 *        - if it has not received `tx_signatures` for that funding transaction:
	 *          - MUST retransmit its `commitment_signed` for that funding transaction.
	 *          - if it has already received `commitment_signed` and it should sign first,
	 *          as specified in the [`tx_signatures` requirements](#the-tx_signatures-message):
	 *            - MUST send its `tx_signatures` for that funding transaction.
	 *        - if it has already received `tx_signatures` for that funding transaction:
	 *          - MUST send its `tx_signatures` for that funding transaction.
	 *       - otherwise:
	 *       - MUST send `tx_abort` to let the sending node know that they can forget
	 *         this funding transaction.
	 */
	if (tlvs->next_funding) {
		/* Does this match ours? */
		if (bitcoin_txid_eq(&tlvs->next_funding->next_funding_txid, &tx_state->funding.txid)) {
			bool send_our_sigs = true;
			char *err;
			/* We haven't gotten their tx_sigs */
			if (!tx_state->remote_funding_sigs_rcvd) {
				err = do_reconnect_commit_sigs(tmpctx, state, tx_state);
				if (err) {
					open_abort(state, "Reconnect failed: %s", err);
					return;
				}

				if (!tx_state->has_commitments)
					send_our_sigs = false;
			}
			if (send_our_sigs && psbt_side_finalized(tx_state->psbt, state->our_role)) {
				msg = psbt_to_tx_sigs_msg(NULL, state, tx_state->psbt);
				peer_write(state->pps, take(msg));

				/* Notify lightningd that we've (re)sent sigs */
				wire_sync_write(REQ_FD, take(towire_dualopend_tx_sigs_sent(NULL)));
			} else if (send_our_sigs) {
				status_debug("Unable to send our sigs, our psbt isn't signed");
			} else
				status_debug("No commitment, not sending our sigs (reconnected)");
		} else {
			peer_billboard(true, "Non-matching next_funding on reconnect. Aborting.");
			open_abort(state, "Sent next_funding_txid %s doesn't match ours %s",

				   fmt_bitcoin_txid(tmpctx,
						    &tlvs->next_funding->next_funding_txid),
				   fmt_bitcoin_txid(tmpctx,
						    &tx_state->funding.txid));
			return;
		}
	}

	if (state->channel_ready[LOCAL]) {
		status_debug("Retransmitting channel_ready for channel %s",
		             fmt_channel_id(tmpctx,
					    &state->channel_id));
		send_channel_ready(state);
	}

	peer_billboard(true, "Reconnected, and reestablished.");
}

/* Standard lightningd-fd-is-ready-to-read demux code.  Again, we could hang
 * here, but if we can't trust our parent, who can we trust? */
static u8 *handle_master_in(struct state *state)
{
	u8 *msg = wire_sync_read(tmpctx, REQ_FD);
	enum dualopend_wire t = fromwire_peektype(msg);

	switch (t) {
	case WIRE_DUALOPEND_DEV_MEMLEAK:
		if (state->developer) {
			handle_dev_memleak(state, msg);
			return NULL;
		}
		break;
	case WIRE_DUALOPEND_OPENER_INIT:
		opener_start(state, msg);
		return NULL;
	case WIRE_DUALOPEND_RBF_INIT:
		rbf_local_start(state, msg);
		return NULL;
	case WIRE_DUALOPEND_SEND_TX_SIGS:
		handle_send_tx_sigs(state, msg);
		return NULL;
	case WIRE_DUALOPEND_DEPTH_REACHED:
		return handle_funding_depth(state, msg);
	case WIRE_DUALOPEND_SEND_SHUTDOWN:
		handle_our_shutdown(state, msg);
		return NULL;
	case WIRE_DUALOPEND_FAIL:
		handle_failure_fatal(state, msg);
		return NULL;

		/* Handled inline */
	case WIRE_DUALOPEND_INIT:
	case WIRE_DUALOPEND_REINIT:
	case WIRE_DUALOPEND_COMMIT_SEND_ACK:
	case WIRE_DUALOPEND_PSBT_UPDATED:
	case WIRE_DUALOPEND_GOT_OFFER_REPLY:
	case WIRE_DUALOPEND_GOT_RBF_OFFER_REPLY:
	case WIRE_DUALOPEND_RBF_VALID:
	case WIRE_DUALOPEND_VALIDATE_LEASE_REPLY:
	case WIRE_DUALOPEND_DEV_MEMLEAK_REPLY:
	case WIRE_DUALOPEND_VALIDATE_INPUTS_REPLY:

		/* Messages we send */
	case WIRE_DUALOPEND_COMMIT_READY:
	case WIRE_DUALOPEND_GOT_OFFER:
	case WIRE_DUALOPEND_GOT_RBF_OFFER:
	case WIRE_DUALOPEND_RBF_VALIDATE:
	case WIRE_DUALOPEND_PSBT_CHANGED:
	case WIRE_DUALOPEND_COMMIT_RCVD:
	case WIRE_DUALOPEND_FUNDING_SIGS:
	case WIRE_DUALOPEND_TX_SIGS_SENT:
	case WIRE_DUALOPEND_PEER_LOCKED:
	case WIRE_DUALOPEND_CHANNEL_LOCKED:
	case WIRE_DUALOPEND_GOT_SHUTDOWN:
	case WIRE_DUALOPEND_SHUTDOWN_COMPLETE:
	case WIRE_DUALOPEND_FAIL_FALLEN_BEHIND:
	case WIRE_DUALOPEND_DRY_RUN:
	case WIRE_DUALOPEND_VALIDATE_LEASE:
	case WIRE_DUALOPEND_VALIDATE_INPUTS:
	case WIRE_DUALOPEND_UPDATE_REQUIRE_CONFIRMED:
	case WIRE_DUALOPEND_GOT_ANNOUNCEMENT:
		break;
	}
	status_failed(STATUS_FAIL_MASTER_IO,
		      "Unknown msg %s", tal_hex(tmpctx, msg));
}

static void handle_announcement_signatures(struct state *state, const u8 *msg)
{
	struct channel_id chanid;
	struct short_channel_id remote_scid;
	secp256k1_ecdsa_signature remote_node_sig, remote_bitcoin_sig;

	if (!fromwire_announcement_signatures(msg,
					      &chanid,
					      &remote_scid,
					      &remote_node_sig,
					      &remote_bitcoin_sig))
		open_err_fatal(state, "Bad announcement_signatures %s", tal_hex(msg, msg));

	wire_sync_write(REQ_FD,
			take(towire_dualopend_got_announcement(NULL,
							       remote_scid,
							       &remote_node_sig,
							       &remote_bitcoin_sig)));
}

/*~ Standard "peer sent a message, handle it" demuxer.  Though it really only
 * handles a few messages, we use the standard form as principle of least
 * surprise. */
static u8 *handle_peer_in(struct state *state)
{
	u8 *msg = peer_read(tmpctx, state->pps);
	enum peer_wire t = fromwire_peektype(msg);
	struct channel_id channel_id;

	if (state->aborted_err && t != WIRE_TX_ABORT) {
		status_debug("Rcvd %s but already"
			     " sent TX_ABORT,"
			     " dropping",
			     peer_wire_name(t));
		return NULL;
	}

	switch (t) {
	case WIRE_OPEN_CHANNEL2:
		if (state->channel) {
			status_broken("Unexpected message %s",
				      peer_wire_name(t));
			peer_failed_connection_lost();
		}
		accepter_start(state, msg);
		return NULL;
	case WIRE_START_BATCH:
		/* We ignore batch messages as we dont need them */
		return NULL;
	case WIRE_COMMITMENT_SIGNED:
		handle_commit_signed(state, msg);
		return NULL;
	case WIRE_TX_SIGNATURES:
		handle_tx_sigs(state, msg);
		return NULL;
	case WIRE_CHANNEL_READY:
		return handle_channel_ready(state, msg);
	case WIRE_SHUTDOWN:
		handle_peer_shutdown(state, msg);
		return NULL;
	case WIRE_TX_INIT_RBF:
		rbf_remote_start(state, msg);
		return NULL;
	case WIRE_TX_ABORT:
		handle_tx_abort(state, msg);
		return NULL;
	case WIRE_ANNOUNCEMENT_SIGNATURES:
		handle_announcement_signatures(state, msg);
		return NULL;
		/* Otherwise we fall through */
	case WIRE_INIT:
	case WIRE_ERROR:
	case WIRE_OPEN_CHANNEL:
	case WIRE_ACCEPT_CHANNEL:
	case WIRE_FUNDING_CREATED:
	case WIRE_FUNDING_SIGNED:
	case WIRE_CLOSING_SIGNED:
	case WIRE_CLOSING_COMPLETE:
	case WIRE_CLOSING_SIG:
	case WIRE_UPDATE_ADD_HTLC:
	case WIRE_UPDATE_FULFILL_HTLC:
	case WIRE_UPDATE_FAIL_HTLC:
	case WIRE_UPDATE_FAIL_MALFORMED_HTLC:
	case WIRE_REVOKE_AND_ACK:
	case WIRE_UPDATE_FEE:
	case WIRE_UPDATE_BLOCKHEIGHT:
	case WIRE_CHANNEL_REESTABLISH:
	case WIRE_GOSSIP_TIMESTAMP_FILTER:
	case WIRE_ONION_MESSAGE:
	case WIRE_ACCEPT_CHANNEL2:
	case WIRE_TX_ADD_INPUT:
	case WIRE_TX_REMOVE_INPUT:
	case WIRE_TX_ADD_OUTPUT:
	case WIRE_TX_REMOVE_OUTPUT:
	case WIRE_TX_COMPLETE:
	case WIRE_TX_ACK_RBF:
	case WIRE_CHANNEL_ANNOUNCEMENT:
	case WIRE_CHANNEL_UPDATE:
	case WIRE_NODE_ANNOUNCEMENT:
	case WIRE_QUERY_CHANNEL_RANGE:
	case WIRE_REPLY_CHANNEL_RANGE:
	case WIRE_QUERY_SHORT_CHANNEL_IDS:
	case WIRE_REPLY_SHORT_CHANNEL_IDS_END:
	case WIRE_WARNING:
	case WIRE_PING:
	case WIRE_PONG:
	case WIRE_PEER_STORAGE:
	case WIRE_PEER_STORAGE_RETRIEVAL:
	case WIRE_STFU:
	case WIRE_SPLICE:
	case WIRE_SPLICE_ACK:
	case WIRE_SPLICE_LOCKED:
	case WIRE_PROTOCOL_BATCH_ELEMENT:
		break;
	}

	/* Handles errors. */
	if (handle_peer_error_or_warning(state->pps, msg))
		return NULL;

	peer_write(state->pps,
		   take(towire_warningfmt(NULL,
					  extract_channel_id(msg,
							     &channel_id) ?
					  &channel_id : NULL,
					  "Unexpected message %s: %s",
					  peer_wire_name(t),
					  tal_hex(tmpctx, msg))));

	/* FIXME: We don't actually want master to try to send an
	 * error, since peer is transient.  This is a hack.
	 */
	status_broken("Unexpected message %s", peer_wire_name(t));
	peer_failed_connection_lost();
}

static void fetch_per_commitment_point(u32 point_count,
				       struct pubkey *commit_point)
{
	u8 *msg;
	struct secret *none;

	wire_sync_write(HSM_FD,
			take(towire_hsmd_get_per_commitment_point(NULL, point_count)));
	msg = wire_sync_read(tmpctx, HSM_FD);
	if (!fromwire_hsmd_get_per_commitment_point_reply(tmpctx, msg,
							  commit_point,
							  &none))
		status_failed(STATUS_FAIL_HSM_IO,
			      "Bad get_per_commitment_point_reply %s",
			      tal_hex(tmpctx, msg));

	/*~ The HSM gives us the N-2'th per-commitment secret when we get the
	 * N'th per-commitment point.  But since N=0, it won't give us one. */
	assert(none == NULL);
}

int main(int argc, char *argv[])
{
	setup_locale();

	struct pollfd pollfd[2];
	struct state *state = tal(NULL, struct state);
	struct fee_states *fee_states;
	enum side opener;
	u8 *msg;
	struct amount_sat total_funding, *requested_lease;
	struct amount_msat our_msat;
	bool from_abort;

	state->developer = subdaemon_setup(argc, argv);

	/* Init the holder for the funding transaction attempt */
	state->tx_state = new_tx_state(state);

	/*~ This makes status_failed, status_debug etc work synchronously by
	 * writing to REQ_FD */
	status_setup_sync(REQ_FD);

	/* Init state to not aborted */
	state->aborted_err = NULL;

	/*~ The very first thing we read from lightningd is our init msg */
	msg = wire_sync_read(tmpctx, REQ_FD);
	if (fromwire_dualopend_init(state, msg,
				    &chainparams,
				    &state->our_features,
				    &state->their_features,
				    &state->tx_state->localconf,
				    &state->max_to_self_delay,
				    &state->min_effective_htlc_capacity,
				    &state->our_points,
				    &state->our_funding_pubkey,
				    &state->minimum_depth,
				    &state->require_confirmed_inputs[LOCAL],
				    &state->local_alias,
				    &state->dev_accept_any_channel_type)) {
		/*~ Initially we're not associated with a channel, but
		 * handle_peer_gossip_or_error compares this. */
		memset(&state->channel_id, 0, sizeof(state->channel_id));
		from_abort = false;
		state->channel = NULL;
		state->tx_state->remote_funding_sigs_rcvd = false;

		/*~ We set these to NULL, meaning no requirements on shutdown */
		state->upfront_shutdown_script[LOCAL]
			= state->upfront_shutdown_script[REMOTE]
			= NULL;

		/*~ We're not locked or shutting down quite yet */
		state->channel_ready[LOCAL]
			= state->channel_ready[REMOTE]
			= false;
		state->shutdown_sent[LOCAL]
			= state->shutdown_sent[REMOTE]
			= false;

		/* No lease requested at start! */
		state->requested_lease = NULL;
	} else if (fromwire_dualopend_reinit(state, msg,
					     &chainparams,
					     &from_abort,
					     &state->our_features,
					     &state->their_features,
					     &state->tx_state->localconf,
					     &state->tx_state->remoteconf,
					     &state->channel_id,
					     &state->max_to_self_delay,
					     &state->min_effective_htlc_capacity,
					     &state->our_points,
					     &state->our_funding_pubkey,
					     &state->their_funding_pubkey,
					     &state->minimum_depth,
					     &state->tx_state->funding,
					     &state->tx_state->feerate_per_kw_funding,
					     &total_funding,
					     &our_msat,
					     &state->their_points,
					     &state->first_per_commitment_point[REMOTE],
					     &state->tx_state->psbt,
					     &opener,
					     &state->channel_ready[LOCAL],
					     &state->channel_ready[REMOTE],
					     &state->shutdown_sent[LOCAL],
					     &state->shutdown_sent[REMOTE],
					     &state->upfront_shutdown_script[LOCAL],
					     &state->upfront_shutdown_script[REMOTE],
					     &state->local_upfront_shutdown_wallet_index,
					     &state->tx_state->remote_funding_sigs_rcvd,
					     &state->tx_state->has_commitments,
					     &fee_states,
					     &state->channel_flags,
					     &state->tx_state->blockheight,
					     &state->tx_state->lease_expiry,
					     &state->tx_state->lease_commit_sig,
					     &state->tx_state->lease_chan_max_msat,
					     &state->tx_state->lease_chan_max_ppt,
					     &requested_lease,
					     &state->channel_type,
					     &state->require_confirmed_inputs[LOCAL],
					     &state->require_confirmed_inputs[REMOTE],
					     &state->local_alias)) {

		bool ok;

		/*~ We only reconnect on channels that the
		 * saved the the database (exchanged commitment sigs) */
		if (requested_lease)
			state->requested_lease = tal_steal(state, requested_lease);
		else
			state->requested_lease = NULL;

		state->channel = new_initial_channel(state,
						     &state->channel_id,
						     &state->tx_state->funding,
						     state->minimum_depth,
						     take(new_height_states(NULL, opener,
									    &state->tx_state->blockheight)),
						     state->tx_state->lease_expiry,
						     total_funding,
						     our_msat,
						     fee_states,
						     &state->tx_state->localconf,
						     &state->tx_state->remoteconf,
						     &state->our_points,
						     &state->their_points,
						     &state->our_funding_pubkey,
						     &state->their_funding_pubkey,
						     state->channel_type,
						     feature_offered(state->their_features,
								     OPT_LARGE_CHANNELS),
						     opener);

		if (opener == LOCAL) {
			state->our_role = TX_INITIATOR;
			ok = amount_msat_to_sat(&state->tx_state->opener_funding, our_msat);
			ok &= amount_sat_sub(&state->tx_state->accepter_funding,
					     total_funding,
					     state->tx_state->opener_funding);
		} else {
			state->our_role = TX_ACCEPTER;
			ok = amount_msat_to_sat(&state->tx_state->accepter_funding, our_msat);
			ok &= amount_sat_sub(&state->tx_state->opener_funding,
					     total_funding,
					     state->tx_state->accepter_funding);
		}
		assert(ok);

		/* We can pull the commitment feerate out of the feestates */
		state->feerate_per_kw_commitment
			= get_feerate(fee_states, opener, LOCAL);

		/* No longer need this */
		tal_free(fee_states);
		/* This psbt belongs to tx_state, not state! */
		tal_steal(state->tx_state, state->tx_state->psbt);
	} else
		master_badmsg(fromwire_peektype(msg), msg);



	/* 3 == peer, 4 = hsmd */
	state->pps = new_per_peer_state(state);
	per_peer_state_set_fd(state->pps, 3);

	/*~ We need an initial per-commitment point whether we're funding or
	 * they are, and lightningd has reserved a unique dbid for us already,
	 * so we might as well get the hsm daemon to generate it now. */
	fetch_per_commitment_point(0, &state->first_per_commitment_point[LOCAL]);
	fetch_per_commitment_point(1, &state->second_per_commitment_point[LOCAL]);

	/*~ We manually run a little poll() loop here.  With only two fds */
	pollfd[0].fd = REQ_FD;
	pollfd[0].events = POLLIN;
	pollfd[1].fd = state->pps->peer_fd;
	pollfd[1].events = POLLIN;

	/* Do reconnect, if need be */
	if (state->channel && !from_abort) {
		do_reconnect_dance(state);
		state->reconnected = true;
	}

	/* We exit when we get a conclusion to write to lightningd: either
	 * opening_funder_reply or opening_fundee. */
	msg = NULL;
	while (!msg) {

		/*~ If we get a signal which aborts the poll() call, valgrind
		 * complains about revents being uninitialized.  I'm not sure
		 * that's correct, but it's easy to be sure. */
		pollfd[0].revents = pollfd[1].revents = 0;

		poll(pollfd, ARRAY_SIZE(pollfd), -1);
		/* Subtle: handle_master_in can do its own poll loop, so
		 * don't try to service more than one fd per loop. */
		/* First priority: messages from lightningd. */
		if (pollfd[0].revents & POLLIN)
			msg = handle_master_in(state);
		/* Second priority: messages from peer. */
		else if (pollfd[1].revents & POLLIN)
			msg = handle_peer_in(state);

		/* If we've shutdown, we're done */
		if (shutdown_complete(state))
			msg = towire_dualopend_shutdown_complete(state);
		/* Since we're the top-level event loop, we clean up */
		clean_tmpctx();
	}

	/*~ Write message and hand back the peer fd.  This also
	 * means that if the peer wrote us any messages we didn't
	 * read yet, it will simply be read by the next daemon. */
	wire_sync_write(REQ_FD, msg);
	per_peer_state_fdpass_send(REQ_FD, state->pps);
	status_debug("Sent %s with fds",
		     dualopend_wire_name(fromwire_peektype(msg)));
	tal_free(msg);

	/* Give master a chance to pass the fd along */
	sleep(1);

	/* This frees the entire tal tree. */
	tal_free(state);
	daemon_shutdown();
	return 0;
}
