mirror of
https://github.com/cemu-project/idapython.git
synced 2024-11-28 03:54:18 +01:00
355 lines
9.1 KiB
OpenEdge ABL
355 lines
9.1 KiB
OpenEdge ABL
// TODO: These could be wrapped
|
|
%ignore enumerate_files;
|
|
%rename (enumerate_files) py_enumerate_files;
|
|
%ignore enumerate_system_files;
|
|
%ignore ioport_bit_t;
|
|
%ignore ioport_bits_t;
|
|
%ignore ioport_t;
|
|
%ignore read_ioports;
|
|
%ignore choose_ioport_device;
|
|
%ignore find_ioport;
|
|
%ignore find_ioport_bit;
|
|
%ignore free_ioports;
|
|
%ignore lread;
|
|
%ignore qlread;
|
|
%ignore qlgets;
|
|
%ignore qlgetc;
|
|
%ignore lreadbytes;
|
|
%ignore lread2bytes;
|
|
%ignore lread2bytes;
|
|
%ignore lread4bytes;
|
|
%ignore lread4bytes;
|
|
%ignore lread8bytes;
|
|
%ignore lread8bytes;
|
|
%ignore qlsize;
|
|
%ignore qlseek;
|
|
%ignore qltell;
|
|
%ignore qlfile;
|
|
%ignore make_linput;
|
|
%ignore unmake_linput;
|
|
%ignore create_remote_linput;
|
|
|
|
// FIXME: These should be wrapped for completeness
|
|
%ignore eread;
|
|
%ignore ewrite;
|
|
|
|
// Ignore kernel-only & unexported symbols
|
|
%ignore get_thread_priority;
|
|
%ignore set_thread_priority;
|
|
%ignore checkdspace;
|
|
%ignore lowdiskgo;
|
|
%ignore ida_argv;
|
|
%ignore exename;
|
|
|
|
%include "diskio.hpp"
|
|
|
|
%{
|
|
//<code(py_diskio)>
|
|
//--------------------------------------------------------------------------
|
|
int idaapi py_enumerate_files_cb(const char *file, void *ud)
|
|
{
|
|
PyObject *py_file = PyString_FromString(file);
|
|
PyObject *py_ret = PyObject_CallFunctionObjArgs((PyObject *)ud, py_file, NULL);
|
|
int r = (py_ret == NULL || !PyNumber_Check(py_ret)) ? 1 /* stop enumeration on failure */ : PyInt_AsLong(py_ret);
|
|
Py_XDECREF(py_file);
|
|
Py_XDECREF(py_ret);
|
|
return r;
|
|
}
|
|
//</code(py_diskio)>
|
|
%}
|
|
|
|
%inline %{
|
|
//<inline(py_diskio)>
|
|
class loader_input_t
|
|
{
|
|
private:
|
|
linput_t *li;
|
|
int own;
|
|
qstring fn;
|
|
enum
|
|
{
|
|
OWN_NONE = 0, // li not created yet
|
|
OWN_CREATE = 1, // Owns li because we created it
|
|
OWN_FROM_LI = 2, // No ownership we borrowed the li from another class
|
|
OWN_FROM_FP = 3, // We got an li instance from an fp instance, we have to unmake_linput() on Close
|
|
};
|
|
|
|
//--------------------------------------------------------------------------
|
|
void _from_cobject(PyObject *pycobject)
|
|
{
|
|
this->set_linput((linput_t *)PyCObject_AsVoidPtr(pycobject));
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
void assign(const loader_input_t &rhs)
|
|
{
|
|
fn = rhs.fn;
|
|
li = rhs.li;
|
|
own = OWN_FROM_LI;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
loader_input_t(const loader_input_t &rhs)
|
|
{
|
|
assign(rhs);
|
|
}
|
|
public:
|
|
// Special attribute that tells the pyvar_to_idcvar how to convert this
|
|
// class from and to IDC. The value of this variable must be set to two
|
|
int __idc_cvt_id__;
|
|
//--------------------------------------------------------------------------
|
|
loader_input_t(PyObject *pycobject = NULL): li(NULL), own(OWN_NONE), __idc_cvt_id__(PY_ICID_OPAQUE)
|
|
{
|
|
if ( pycobject != NULL && PyCObject_Check(pycobject) )
|
|
_from_cobject(pycobject);
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
void close()
|
|
{
|
|
if ( li == NULL )
|
|
return;
|
|
|
|
if ( own == OWN_CREATE )
|
|
close_linput(li);
|
|
else if ( own == OWN_FROM_FP )
|
|
unmake_linput(li);
|
|
|
|
li = NULL;
|
|
own = OWN_NONE;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
~loader_input_t()
|
|
{
|
|
close();
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
PyObject *open(const char *filename, bool remote = false)
|
|
{
|
|
close();
|
|
li = open_linput(filename, remote);
|
|
if ( li == NULL )
|
|
Py_RETURN_FALSE;
|
|
|
|
// Save file name
|
|
fn = filename;
|
|
own = OWN_CREATE;
|
|
Py_RETURN_TRUE;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
void set_linput(linput_t *linput)
|
|
{
|
|
close();
|
|
own = OWN_FROM_LI;
|
|
li = linput;
|
|
fn.sprnt("<linput_t * %p>", linput);
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
static loader_input_t *from_linput(linput_t *linput)
|
|
{
|
|
loader_input_t *l = new loader_input_t();
|
|
l->set_linput(linput);
|
|
return l;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
// This method can be used to pass a linput_t* from C code
|
|
static loader_input_t *from_cobject(PyObject *pycobject)
|
|
{
|
|
if ( !PyCObject_Check(pycobject) )
|
|
return NULL;
|
|
loader_input_t *l = new loader_input_t();
|
|
l->_from_cobject(pycobject);
|
|
return l;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
static loader_input_t *from_fp(FILE *fp)
|
|
{
|
|
linput_t *fp_li = make_linput(fp);
|
|
if ( fp_li == NULL )
|
|
return NULL;
|
|
|
|
loader_input_t *l = new loader_input_t();
|
|
l->own = OWN_FROM_FP;
|
|
l->fn.sprnt("<FILE * %p>", fp);
|
|
l->li = fp_li;
|
|
return l;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
linput_t *get_linput()
|
|
{
|
|
return li;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
PyObject *open_memory(ea_t start, asize_t size = 0)
|
|
{
|
|
linput_t *l = create_memory_linput(start, size);
|
|
if ( l == NULL )
|
|
Py_RETURN_FALSE;
|
|
close();
|
|
li = l;
|
|
fn = "<memory>";
|
|
own = OWN_CREATE;
|
|
Py_RETURN_TRUE;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
int32 seek(int32 pos, int whence = SEEK_SET)
|
|
{
|
|
return qlseek(li, pos, whence);
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
int32 tell()
|
|
{
|
|
return qltell(li);
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
PyObject *getz(size_t sz, int32 fpos = -1)
|
|
{
|
|
do
|
|
{
|
|
char *buf = (char *) malloc(sz + 5);
|
|
if ( buf == NULL )
|
|
break;
|
|
qlgetz(li, fpos, buf, sz);
|
|
PyObject *ret = PyString_FromString(buf);
|
|
free(buf);
|
|
return ret;
|
|
} while ( false );
|
|
Py_RETURN_NONE;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
PyObject *gets(size_t len)
|
|
{
|
|
do
|
|
{
|
|
char *buf = (char *) malloc(len + 5);
|
|
if ( buf == NULL )
|
|
break;
|
|
if ( qlgets(buf, len, li) == NULL )
|
|
{
|
|
free(buf);
|
|
break;
|
|
}
|
|
PyObject *ret = PyString_FromString(buf);
|
|
free(buf);
|
|
return ret;
|
|
} while ( false );
|
|
Py_RETURN_NONE;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
PyObject *read(size_t size)
|
|
{
|
|
do
|
|
{
|
|
char *buf = (char *) malloc(size + 5);
|
|
if ( buf == NULL )
|
|
break;
|
|
ssize_t r = qlread(li, buf, size);
|
|
if ( r == -1 )
|
|
{
|
|
free(buf);
|
|
break;
|
|
}
|
|
PyObject *ret = PyString_FromStringAndSize(buf, r);
|
|
free(buf);
|
|
return ret;
|
|
} while ( false );
|
|
Py_RETURN_NONE;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
bool opened()
|
|
{
|
|
return li != NULL;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
PyObject *readbytes(size_t size, bool big_endian)
|
|
{
|
|
do
|
|
{
|
|
char *buf = (char *) malloc(size + 5);
|
|
if ( buf == NULL )
|
|
break;
|
|
int r = lreadbytes(li, buf, size, big_endian);
|
|
if ( r == -1 )
|
|
{
|
|
free(buf);
|
|
break;
|
|
}
|
|
PyObject *ret = PyString_FromStringAndSize(buf, r);
|
|
free(buf);
|
|
return ret;
|
|
} while ( false );
|
|
Py_RETURN_NONE;
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
int file2base(int32 pos, ea_t ea1, ea_t ea2, int patchable)
|
|
{
|
|
return ::file2base(li, pos, ea1, ea2, patchable);
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
int32 size()
|
|
{
|
|
return qlsize(li);
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
PyObject *filename()
|
|
{
|
|
return PyString_FromString(fn.c_str());
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
PyObject *get_char()
|
|
{
|
|
int ch = qlgetc(li);
|
|
if ( ch == EOF )
|
|
Py_RETURN_NONE;
|
|
return Py_BuildValue("c", ch);
|
|
}
|
|
};
|
|
|
|
|
|
//--------------------------------------------------------------------------
|
|
PyObject *py_enumerate_files(PyObject *path, PyObject *fname, PyObject *callback)
|
|
{
|
|
do
|
|
{
|
|
if ( !PyString_Check(path) || !PyString_Check(fname) || !PyCallable_Check(callback) )
|
|
break;
|
|
const char *_path = PyString_AsString(path);
|
|
const char *_fname = PyString_AsString(fname);
|
|
if ( _path == NULL || _fname == NULL )
|
|
break;
|
|
char answer[MAXSTR];
|
|
answer[0] = '\0';
|
|
int r = enumerate_files(answer, sizeof(answer), _path, _fname, py_enumerate_files_cb, callback);
|
|
return Py_BuildValue("(is)", r, answer);
|
|
} while ( false );
|
|
Py_RETURN_NONE;
|
|
}
|
|
//</inline(py_diskio)>
|
|
%}
|
|
|
|
%pythoncode %{
|
|
#<pycode(py_diskio)>
|
|
def enumerate_system_files(subdir, fname, callback):
|
|
return enumerate_files(idadir(subdir), fname, callback)
|
|
#</pycode(py_diskio)>
|
|
%}
|