/* SPDX-License-Identifier: BSD-3-Clause
 * Copyright (c) 2021 Stephen Hemminger
 * Based on filter2xdp
 * Copyright (C) 2017 Tobias Klauser
 */

#include <stdio.h>
#include <stdint.h>

#include "rte_bpf.h"

#define BPF_OP_INDEX(x) (BPF_OP(x) >> 4)
#define BPF_SIZE_INDEX(x) (BPF_SIZE(x) >> 3)

static const char *const class_tbl[] = {
	[BPF_LD] = "ld",   [BPF_LDX] = "ldx",	 [BPF_ST] = "st",
	[BPF_STX] = "stx", [BPF_ALU] = "alu",	 [BPF_JMP] = "jmp",
	[BPF_RET] = "ret", [BPF_MISC] = "alu64",
};

static const char *const alu_op_tbl[16] = {
	[BPF_ADD >> 4] = "add",	   [BPF_SUB >> 4] = "sub",
	[BPF_MUL >> 4] = "mul",	   [BPF_DIV >> 4] = "div",
	[BPF_OR >> 4] = "or",	   [BPF_AND >> 4] = "and",
	[BPF_LSH >> 4] = "lsh",	   [BPF_RSH >> 4] = "rsh",
	[BPF_NEG >> 4] = "neg",	   [BPF_MOD >> 4] = "mod",
	[BPF_XOR >> 4] = "xor",	   [EBPF_MOV >> 4] = "mov",
	[EBPF_ARSH >> 4] = "arsh", [EBPF_END >> 4] = "endian",
};

static const char *const size_tbl[] = {
	[BPF_W >> 3] = "w",
	[BPF_H >> 3] = "h",
	[BPF_B >> 3] = "b",
	[EBPF_DW >> 3] = "dw",
};

static const char *const jump_tbl[16] = {
	[BPF_JA >> 4] = "ja",	   [BPF_JEQ >> 4] = "jeq",
	[BPF_JGT >> 4] = "jgt",	   [BPF_JGE >> 4] = "jge",
	[BPF_JSET >> 4] = "jset",  [EBPF_JNE >> 4] = "jne",
	[EBPF_JSGT >> 4] = "jsgt", [EBPF_JSGE >> 4] = "jsge",
	[EBPF_CALL >> 4] = "call", [EBPF_EXIT >> 4] = "exit",
};

void rte_bpf_dump(FILE *f, const struct ebpf_insn *buf, uint32_t len)
{
	uint32_t i;

	for (i = 0; i < len; ++i) {
		const struct ebpf_insn *ins = buf + i;
		uint8_t cls = BPF_CLASS(ins->code);
		const char *op, *postfix = "";

		fprintf(f, " L%u:\t", i);

		switch (cls) {
		default:
			fprintf(f, "unimp 0x%x // class: %s\n",
				ins->code, class_tbl[cls]);
			break;
		case BPF_ALU:
			postfix = "32";
			/* fall through */
		case EBPF_ALU64:
			op = alu_op_tbl[BPF_OP_INDEX(ins->code)];
			if (BPF_SRC(ins->code) == BPF_X)
				fprintf(f, "%s%s r%u, r%u\n", op, postfix, ins->dst_reg,
					ins->src_reg);
			else
				fprintf(f, "%s%s r%u, #0x%x\n", op, postfix,
					ins->dst_reg, ins->imm);
			break;
		case BPF_LD:
			op = "ld";
			postfix = size_tbl[BPF_SIZE_INDEX(ins->code)];
			if (ins->code == (BPF_LD | BPF_IMM | EBPF_DW)) {
				uint64_t val;

				val = (uint32_t)ins[0].imm |
					(uint64_t)(uint32_t)ins[1].imm << 32;
				fprintf(f, "%s%s r%d, #0x%"PRIx64"\n",
					op, postfix, ins->dst_reg, val);
				i++;
			} else if (BPF_MODE(ins->code) == BPF_IMM)
				fprintf(f, "%s%s r%d, #0x%x\n", op, postfix,
					ins->dst_reg, ins->imm);
			else if (BPF_MODE(ins->code) == BPF_ABS)
				fprintf(f, "%s%s r%d, [%d]\n", op, postfix,
					ins->dst_reg, ins->imm);
			else if (BPF_MODE(ins->code) == BPF_IND)
				fprintf(f, "%s%s r%d, [r%u + %d]\n", op, postfix,
					ins->dst_reg, ins->src_reg, ins->imm);
			else
				fprintf(f, "// BUG: LD opcode 0x%02x in eBPF insns\n",
					ins->code);
			break;
		case BPF_LDX:
			op = "ldx";
			postfix = size_tbl[BPF_SIZE_INDEX(ins->code)];
			fprintf(f, "%s%s r%d, [r%u + %d]\n", op, postfix, ins->dst_reg,
				ins->src_reg, ins->off);
			break;
		case BPF_ST:
			op = "st";
			postfix = size_tbl[BPF_SIZE_INDEX(ins->code)];
			if (BPF_MODE(ins->code) == BPF_MEM)
				fprintf(f, "%s%s [r%d + %d], #0x%x\n", op, postfix,
					ins->dst_reg, ins->off, ins->imm);
			else
				fprintf(f, "// BUG: ST opcode 0x%02x in eBPF insns\n",
					ins->code);
			break;
		case BPF_STX:
			op = "stx";
			postfix = size_tbl[BPF_SIZE_INDEX(ins->code)];
			fprintf(f, "%s%s [r%d + %d], r%u\n", op, postfix,
				ins->dst_reg, ins->off, ins->src_reg);
			break;
#define L(pc, off) ((int)(pc) + 1 + (off))
		case BPF_JMP:
			op = jump_tbl[BPF_OP_INDEX(ins->code)];
			if (op == NULL)
				fprintf(f, "invalid jump opcode: %#x\n", ins->code);
			else if (BPF_OP(ins->code) == BPF_JA)
				fprintf(f, "%s L%d\n", op, L(i, ins->off));
			else if (BPF_OP(ins->code) == EBPF_EXIT)
				fprintf(f, "%s\n", op);
			else
				fprintf(f, "%s r%u, #0x%x, L%d\n", op, ins->dst_reg,
					ins->imm, L(i, ins->off));
			break;
		case BPF_RET:
			fprintf(f, "// BUG: RET opcode 0x%02x in eBPF insns\n",
				ins->code);
			break;
		}
	}
}