#include <u.h>
#include <libc.h>
#include <ip.h>
#include "dat.h"
#include "protos.h"

typedef struct{
	uchar	bc[2];
	uchar	fw[2];
	uchar	sc;
	uchar	ccmd;
	uchar	len[2];
}Hdr;

enum{
	Hsize	= 8,
};

enum{
	Ocmd,
};

static Field p_fields[] =
{
	{"cmd",		Fnum,	Ocmd,		"cmd",	},
	{0}
};

static void
p_compile(Filter *f)
{
	if(f->op == '='){
		compile_cmp(aoecmd.name, f, p_fields);
		return;
	}
	sysfatal("unknown aoecmd field: %s", f->s);
}

static int
p_filter(Filter *f, Msg *m)
{
	Hdr *h;

	if(m->pe - m->ps < Hsize)
		return 0;

	h = (Hdr*)m->ps;
	m->ps += Hsize;

	switch(f->subop){
	case Ocmd:
		return (h->ccmd & 0xf) == f->ulv;
	}
	return 0;
}

static int
p_seprint(Msg *m)
{
	int ccmd;
	ushort len, rlen;
	Hdr *h;

	if(m->pe - m->ps < Hsize)
		return 0;

	h = (Hdr*)m->ps;
	m->ps += Hsize;

	/* no next protocol */
	m->pr = nil;

	ccmd = h->ccmd & 0xf;
	len = NetS(h->len);

	m->p = seprint(m->p, m->e, "bc=%d fw=%.4x sc=%d ver=%d ccmd=%d len=%d cfg=",
		NetS(h->bc), NetS(h->fw), h->sc, h->ccmd >> 4, ccmd, len);
	m->p = seprint(m->p, m->e, "%.*s", len, (char*)m->ps);
	if(ccmd == 5){	/* AQCtar; is subprotocol */
		m->ps += len;
		if(m->pe - m->ps < 2)
			return 0;
		rlen = NetS(m->ps);
		m->ps += sizeof rlen;
		m->p = seprint(m->p, m->e, " repl=%.*s", rlen, (char*)m->ps);
	}
	return 0;
}

Proto aoecmd =
{
	"aoecmd",
	p_compile,
	p_filter,
	p_seprint,
	nil,
	nil,
	p_fields,
	defaultframer,
};