Add asm.pseudo for z80

libr/parse/p/Makefile

@@ -9,7 +9,7 @@ CFLAGS+=-DCORELIB
 foo: all
 
 ALL_TARGETS=
-ARCHS=att2intel.mk x86_pseudo.mk mreplace.mk arm_pseudo.mk
+ARCHS=att2intel.mk x86_pseudo.mk mreplace.mk arm_pseudo.mk z80_pseudo.mk
 include $(ARCHS)
 
 all: ${ALL_TARGETS}

libr/parse/p/parse_z80_pseudo.c

@@ -0,0 +1,88 @@
+/* radare - LGPL - Copyright 2015 - julien (jvoisin) voisin */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <r_lib.h>
+#include <r_util.h>
+#include <r_flags.h>
+#include <r_anal.h>
+#include <r_parse.h>
+
+static int replace(int argc, const char *argv[], char *newstr) {
+	int i,j,k;
+	struct {
+		char *op;
+		char *str;
+	} ops[] = {
+		{ "adc",  "1 = 1 + 2"},
+		{ "add",  "1 = 1 + 2"},
+		{ "and",  "1 = 1 & 2"},
+		{ "cpl",  "1 = ~1"},
+		{ "ex",   "swap(1, 2)"},
+		{ "in",   "1 = [2]"},
+		{ "jp",   "goto [1]"},
+		{ "jp",   "goto 1"},
+		{ "jr",   "goto +1"},
+		{ "ld",   "1 = 2"},
+		{ "ldd",  "1 = 2--"},
+		{ "neg",  "1 = -1"},
+		{ "nop",  ""},
+		{ "or",   "1 = 1 | 2"},
+		{ "pop",  "pop 1"},
+		{ "push", "push 1"},
+		{ "rr",   "1 = 1 << 2"},
+		{ "sbc",  "1 = 1 - 2"},
+		{ "sla",  "1 = 1 << 2"},
+		{ "sra",  "1 = 1 >> 2"},
+		{ "srl",  "1 = 1 >> 2"},
+		{ "sub",  "1 = 1 - 2"},
+		{ "xor",  "1 = 1 ^ 2"},
+		{ NULL }
+	};
+
+	for (i=0; ops[i].op != NULL; i++) {
+		if (!strcmp (ops[i].op, argv[0])) {
+			if (newstr != NULL) {
+				for (j=k=0;ops[i].str[j]!='\0';j++,k++) {
+					if (ops[i].str[j]>='1' && ops[i].str[j]<='9') {
+						const char *w = argv[ ops[i].str[j]-'0' ];
+						if (w != NULL) {
+							strcpy (newstr+k, w);
+							k += strlen(w)-1;
+						}
+					} else newstr[k] = ops[i].str[j];
+				}
+				newstr[k]='\0';
+			}
+			return R_TRUE;
+		}
+	}
+
+	/* TODO: this is slow */
+	if (newstr != NULL) {
+		newstr[0] = '\0';
+		for (i=0; i<argc; i++) {
+			strcat (newstr, argv[i]);
+			strcat (newstr, (i == 0 || i== argc - 1)?" ":", ");
+		}
+	}
+
+	return R_FALSE;
+}
+
+struct r_parse_plugin_t r_parse_plugin_z80_pseudo = {
+	.name = "z80.pseudo",
+	.desc = "z80 pseudo syntax",
+	.init = NULL,
+	.fini = NULL,
+	.replace = replace,
+};
+
+#ifndef CORELIB
+struct r_lib_struct_t radare_plugin = {
+	.type = R_LIB_TYPE_PARSE,
+	.data = &r_parse_plugin_z80_pseudo
+};
+#endif

libr/parse/p/z80_pseudo.mk

@@ -0,0 +1,10 @@
+OBJ_z80PSEUDO+=parse_z80_pseudo.o
+
+TARGET_z80PSEUDO=parse_z80_pseudo.${EXT_SO}
+ALL_TARGETS+=${TARGET_z80PSEUDO}
+STATIC_OBJ+=${OBJ_z80PSEUDO}
+LIBDEPS=-L../../util -lr_util
+LIBDEPS+=-L../../flags -lr_flags
+
+${TARGET_z80PSEUDO}: ${OBJ_z80PSEUDO}
+	${CC} $(call libname,parse_z80_pseudo) ${LIBDEPS} -shared ${CFLAGS} -o ${TARGET_z80PSEUDO} ${OBJ_z80PSEUDO}