/* radare - LGPL - Copyright 2016-2024 - pancake */

#include <r_bin.h>

#define CHECK4INSTR(b, instr, size)       \
	if (!instr (b, 0) ||              \
		!instr ((b), (size)) ||   \
		!instr ((b), (size)*2) || \
		!instr ((b), (size)*3)) { \
		return UT64_MAX;             \
	}

#define CHECK3INSTR(b, instr, size)       \
	if (!instr ((b), (size)) ||       \
		!instr ((b), (size)*2) || \
		!instr ((b), (size)*3)) { \
		return UT64_MAX;             \
	}

typedef struct {
	ut64 tmp_entry;
	RBuffer *b;
} AvrPriv;

static bool rjmp(RBuffer* b, ut64 addr) {
	return (r_buf_read8_at (b, addr + 1) & 0xf0) == 0xc0;
}

static bool jmp(RBuffer* b, ut64 addr) {
	return (r_buf_read8_at (b, addr) == 0x0c) && (r_buf_read8_at (b, addr + 1) == 0x94);
}

static ut64 rjmp_dest(ut64 addr, RBuffer* b) {
	ut64 dst = 2 + addr + r_buf_read8_at (b, addr) * 2;
	dst += ((r_buf_read8_at (b, addr + 1) & 0xf) * 2) << 8;
	return dst;
}

static ut64 jmp_dest(RBuffer* b, ut64 addr) {
	return (r_buf_read8_at (b, addr + 2) + (r_buf_read8_at (b, addr + 3) << 8)) * 2;
}

static ut64 check_rjmp(RBuffer *b) {
	CHECK3INSTR (b, rjmp, 4);
	ut64 dst = rjmp_dest (0, b);
	if (dst < 1 || dst > r_buf_size (b)) {
		return UT64_MAX;
	}
	return dst;
}

static ut64 check_jmp(RBuffer *b) {
	CHECK4INSTR (b, jmp, 4);
	ut64 dst = jmp_dest (b, 0);
	if (dst < 1 || dst > r_buf_size (b)) {
		return UT64_MAX;
	}
	return dst;
}

static bool check_or_load(RBinFile *bf, RBuffer *buf, bool doload) {
	if (r_buf_size (buf) < 32) {
		return false;
	}
	ut64 res = rjmp (buf, 0) ? check_rjmp (buf) : check_jmp (buf);
	if (doload) {
		if (res != UT64_MAX) {
			AvrPriv *ap = R_NEW0 (AvrPriv);
			ap->b = buf; // add a reference imho we dont own that pointer and its ugly
			ap->tmp_entry = res;
			bf->bo->bin_obj = ap;
			return true;
		}
	}
	return res != UT64_MAX;
}

static bool check(RBinFile *bf, RBuffer *buf) {
	return check_or_load (bf, buf, false);
}

static bool load(RBinFile *bf, RBuffer *buf, ut64 loadaddr) {
	return check_or_load (bf, buf, true);
}

static void destroy(RBinFile *bf) {
	AvrPriv *ap = (AvrPriv*)(bf->bo->bin_obj);
	// r_unref (ap->b); // this is freed by RBinFile.free()
	free (ap);
}

static RBinInfo* info(RBinFile *bf) {
	R_RETURN_VAL_IF_FAIL (bf, NULL);
	RBinInfo *bi = R_NEW0 (RBinInfo);
	if (bi) {
		bi->file = strdup (bf->file);
		bi->type = strdup ("ROM");
		bi->machine = strdup ("ATmel");
		bi->os = strdup ("avr");
		bi->has_va = 0; // 1;
		bi->has_lit = false;
		bi->arch = strdup ("avr");
		bi->bits = 8;
	}
	return bi;
}

static RList* entries(RBinFile *bf) {
	RList *ret;
	RBinAddr *ptr = NULL;
	AvrPriv *ap = bf->bo->bin_obj;
	if (ap->tmp_entry == UT64_MAX) {
		return false;
	}
	if (!(ret = r_list_new ())) {
		return NULL;
	}
	ret->free = free;
	if ((ptr = R_NEW0 (RBinAddr))) {
		ut64 addr = ap->tmp_entry;
		ptr->vaddr = ptr->paddr = addr;
		r_list_append (ret, ptr);
	}
	return ret;
}

static void addsym(RVecRBinSymbol *ret, const char *name, ut64 addr) {
	R_RETURN_IF_FAIL (ret && name);
	RBinSymbol *ptr = RVecRBinSymbol_emplace_back (ret);
	ptr->name = r_bin_name_new (name);
	ptr->paddr = ptr->vaddr = addr;
}

static void addptr(RVecRBinSymbol *ret, const char *name, ut64 addr, RBuffer *b) {
	if (b && rjmp (b, 0)) {
		char *k = r_str_newf ("vector.%s", name);
		addsym (ret, k, addr);
		free (k);
		ut64 ptr_addr = rjmp_dest (addr, b);
		k = r_str_newf ("syscall.%s", name);
		addsym (ret, k, ptr_addr);
		free (k);
	}
}

static bool symbols_vec(RBinFile *bf) {
	AvrPriv *ap = bf->bo->bin_obj;
	RVecRBinSymbol *ret = &bf->bo->symbols_vec;
	RBuffer *b = ap->b;
	/* atmega8 */
	addptr (ret, "int0", 2, b);
	addptr (ret, "int1", 4, b);
	addptr (ret, "timer2cmp", 6, b);
	addptr (ret, "timer2ovf", 8, b);
	addptr (ret, "timer1capt", 10, b);
	addptr (ret, "timer1cmpa", 12, b);
	return true;
}

static RVecRBinString *strings(RBinFile *bf) {
	// we dont want to find strings in avr bins because there are lot of false positives
	return NULL;
}

RBinPlugin r_bin_plugin_avr = {
	.meta = {
		.name = "avr",
		.desc = "ATmel AVR MCUs",
		.author = "pancake",
		.license = "LGPL-3.0-only",
	},
	.load = load,
	.destroy = destroy,
	.entries = entries,
	.strings = strings,
	.symbols_vec = symbols_vec,
	.check = check,
	.info = info,
};

#ifndef R2_PLUGIN_INCORE
R_API RLibStruct radare_plugin = {
	.type = R_LIB_TYPE_BIN,
	.data = &r_bin_plugin_avr,
	.version = R2_VERSION
};
#endif