2015-12-01 12:39:12 +01:00

35 lines
801 B
C

/* radare - LGPL - Copyright 2012-2015 - pancake */
#include <r_bin.h>
R_API bool r_bin_lang_objc(RBinFile *binfile) {
RBinObject *o = binfile ? binfile->o : NULL;
RBinInfo *info = o ? o->info : NULL;
RListIter *iter;
RBinSymbol *sym;
bool hasobjc = false;
const char *ft;
char *dsym;
if (!info) return false;
ft = info->rclass;
if (!ft || (!strstr (ft, "mach") && !strstr (ft, "elf")))
return false;
r_list_foreach (o->symbols, iter, sym) {
if (!hasobjc && !strncmp (sym->name, "_OBJC_", 6)) {
hasobjc = true;
break;
}
dsym = r_bin_demangle_objc (binfile, sym->name);
if (dsym) {
// Add type
free (dsym);
}
}
if (hasobjc)
info->lang = "objc";
// create class members and set method names
// iterate on symbols to conscruct class/methods
return hasobjc;
}