35 lines
779 B
C
35 lines
779 B
C
/* radare - LGPL - Copyright 2012 - pancake */
|
|
|
|
#include <r_bin.h>
|
|
|
|
R_API int r_bin_lang_objc(RBinFile *binfile) {
|
|
RBinObject *o = binfile ? binfile->o : NULL;
|
|
RBinInfo *info = o ? o->info : NULL;
|
|
RListIter *iter;
|
|
RBinSymbol *sym;
|
|
int hasobjc = false;
|
|
char *dsym;
|
|
const char *ft;
|
|
|
|
if (!info)
|
|
return 0;
|
|
ft = info->rclass;
|
|
|
|
if (!ft || (!strstr (ft, "mach") && !strstr (ft, "elf")))
|
|
return 0;
|
|
r_list_foreach (o->symbols, iter, sym) {
|
|
if (!hasobjc)
|
|
if (!strncmp (sym->name, "_OBJC_", 6))
|
|
hasobjc = true;
|
|
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;
|
|
}
|