1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
#include <stdio.h>
#include <string.h>
#include <r_types.h>
#include <r_util.h>
#include <r_lib.h>
#include <r_asm.h>
enum fspec_instruction {
INS_VERSION,
INS_REG,
INS_PUSH,
INS_PUSHR,
INS_POP,
INS_INCR,
INS_OP,
INS_QUEUE,
INS_IO,
INS_EXEC,
INS_CALL,
INS_JMP,
INS_JMPIF
};
enum fspec_operation {
OP_UNM,
OP_LNOT,
OP_BNOT,
OP_MUL,
OP_DIV,
OP_MOD,
OP_ADD,
OP_SUB,
OP_SHIFTL,
OP_SHIFTR,
OP_LESS,
OP_LESSEQ,
OP_EQ,
OP_NOTEQ,
OP_BAND,
OP_BOR,
OP_BXOR,
OP_LAND,
OP_LOR,
OP_CTERNARY,
OP_SUBSCRIPT
};
static const char*
ins_name_str(const enum fspec_instruction name)
{
switch (name) {
case INS_VERSION: return "version";
case INS_REG: return "reg";
case INS_PUSH: return "push";
case INS_PUSHR: return "pushr";
case INS_INCR: return "incr";
case INS_POP: return "pop";
case INS_OP: return "op";
case INS_QUEUE: return "queue";
case INS_IO: return "io";
case INS_EXEC: return "exec";
case INS_CALL: return "call";
case INS_JMP: return "jmp";
case INS_JMPIF: return "jmpif";
}
return "invalid";
}
static const char*
op_name_str(const enum fspec_operation op)
{
switch (op) {
case OP_UNM: return "unm";
case OP_LNOT: return "lnot";
case OP_BNOT: return "bnot";
case OP_MUL: return "mul";
case OP_DIV: return "div";
case OP_MOD: return "mod";
case OP_ADD: return "add";
case OP_SUB: return "sub";
case OP_SHIFTL: return "shiftl";
case OP_SHIFTR: return "shiftr";
case OP_LESS: return "less";
case OP_LESSEQ: return "lesseq";
case OP_EQ: return "eq";
case OP_NOTEQ: return "noteq";
case OP_BAND: return "band";
case OP_BOR: return "bor";
case OP_BXOR: return "bxor";
case OP_LAND: return "land";
case OP_LOR: return "lor";
case OP_CTERNARY: return "cternary";
case OP_SUBSCRIPT: return "subscript";
}
return "invalid";
}
static int
disassemble(RAsm *a, RAsmOp *op, const ut8 *buf, int len)
{
(void)a;
union {
struct { unsigned name:5; unsigned n:2; uint64_t v:57; } ins;
uint8_t v[sizeof(uint64_t)];
} u = {0};
memcpy(u.v, buf, R_MIN(1, (size_t)len));
const uint8_t insw = 1 << u.ins.n;
memcpy(u.v, buf, R_MIN(insw, len));
const char *buf_asm = "invalid";
const bool reg_arg = (u.ins.name == INS_PUSHR || u.ins.name == INS_INCR || u.ins.name == INS_POP ||
u.ins.name == INS_EXEC || u.ins.name == INS_CALL);
if (u.ins.name == INS_OP)
buf_asm = sdb_fmt("%s %s", ins_name_str(u.ins.name), op_name_str(u.ins.v));
else if (reg_arg)
buf_asm = sdb_fmt("%s r%" PRIu64, ins_name_str(u.ins.name), (uint64_t)u.ins.v);
else
buf_asm = sdb_fmt("%s %" PRIu64, ins_name_str(u.ins.name), (uint64_t)u.ins.v);
r_strbuf_set(&op->buf_asm, buf_asm);
return (op->size = insw + (u.ins.name == INS_REG ? u.ins.v : 0));
}
RAsmPlugin r_asm_plugin_fspec = {
.name = "fspec",
.license = "LGPL3",
.desc = "fspec disassembly plugin",
.arch = "fspec",
.bits = 8 | 16 | 32 | 64,
.endian = R_SYS_ENDIAN_LITTLE,
.disassemble = disassemble
};
#ifndef CORELIB
R_API RLibStruct radare_plugin = {
.type = R_LIB_TYPE_ASM,
.data = &r_asm_plugin_fspec,
.version = R2_VERSION
};
#endif
|
