#define crStateP(t, v)				\
    struct t *s; 				\
    if (!(v)) { s = (v) = snew(struct t); s->crLine = 0; }	\
    s = (v);
#define crState(t)	crStateP(t, ssh->t)
#define crFinish(z)	} *crLine = 0; return (z); }
#define crFinishV	} *crLine = 0; return; }
#define crFinishFree(z, s)	} *crLine = 0; sfree(s); return (z); }
#define crFinishFreeV(s)	} *crLine = 0; sfree(s); return; }
#define crReturn(z)	\
	do {\
	    *crLine =__LINE__; return (z); case __LINE__:;\
	} while (0)
#define crReturnV	\
	do {\
	    *crLine=__LINE__; return; case __LINE__:;\

	    if (pktin->type == SSH2_MSG_CHANNEL_SUCCESS) {
		logevent("X11 forwarding enabled");
		ssh->X11_fwd_enabled = TRUE;
	    } else
		logevent("X11 forwarding refused");
	}
    }
    crFinishFreeV(s);
}

static void ssh2_maybe_setup_agent(struct ssh_channel *c, struct Packet *pktin,
				   void *ctx)
{
    struct ssh2_maybe_setup_agent_state {
	int crLine;

	    if (pktin->type == SSH2_MSG_CHANNEL_SUCCESS) {
		logevent("Agent forwarding enabled");
		ssh->agentfwd_enabled = TRUE;
	    } else
		logevent("Agent forwarding refused");
	}
    }
    crFinishFreeV(s);
}

static void ssh2_maybe_setup_pty(struct ssh_channel *c, struct Packet *pktin,
				 void *ctx)
{
    struct ssh2_maybe_setup_pty_state {
	int crLine;

		c_write_str(ssh, "Server refused to allocate pty\r\n");
		ssh->editing = ssh->echoing = 1;
	    }
	}
    } else {
	ssh->editing = ssh->echoing = 1;
    }
    crFinishFreeV(s);
}

static void ssh2_setup_env(struct ssh_channel *c, struct Packet *pktin,
			   void *ctx)
{
    struct ssh2_setup_env_state {
	int crLine;

	} else {
	    logeventf(ssh, "%d environment variables refused",
		      s->num_env - s->env_ok);
	    c_write_str(ssh, "Server refused to set all environment variables\r\n");
	}
    }
  out:;
    crFinishFreeV(s);
}

/*
 * Handle the SSH-2 userauth and connection layers.
 */
static void ssh2_msg_authconn(Ssh ssh, struct Packet *pktin)
{