135 lines
2.5 KiB
C
135 lines
2.5 KiB
C
/* Map C struct members to Python object attributes */
|
|
|
|
#include "allobjects.h"
|
|
|
|
#include "structmember.h"
|
|
|
|
object *
|
|
getmember(addr, mlist, name)
|
|
char *addr;
|
|
struct memberlist *mlist;
|
|
char *name;
|
|
{
|
|
struct memberlist *l;
|
|
|
|
for (l = mlist; l->name != NULL; l++) {
|
|
if (strcmp(l->name, name) == 0) {
|
|
object *v;
|
|
addr += l->offset;
|
|
switch (l->type) {
|
|
case T_SHORT:
|
|
v = newintobject((long) *(short*)addr);
|
|
break;
|
|
case T_INT:
|
|
v = newintobject((long) *(int*)addr);
|
|
break;
|
|
case T_LONG:
|
|
v = newintobject(*(long*)addr);
|
|
break;
|
|
case T_FLOAT:
|
|
v = newfloatobject((double)*(float*)addr);
|
|
break;
|
|
case T_DOUBLE:
|
|
v = newfloatobject(*(double*)addr);
|
|
break;
|
|
case T_STRING:
|
|
if (*(char**)addr == NULL) {
|
|
INCREF(None);
|
|
v = None;
|
|
}
|
|
else
|
|
v = newstringobject(*(char**)addr);
|
|
break;
|
|
case T_OBJECT:
|
|
v = *(object **)addr;
|
|
if (v == NULL)
|
|
v = None;
|
|
INCREF(v);
|
|
break;
|
|
default:
|
|
err_setstr(SystemError, "bad memberlist type");
|
|
v = NULL;
|
|
}
|
|
return v;
|
|
}
|
|
}
|
|
|
|
err_setstr(NameError, name);
|
|
return NULL;
|
|
}
|
|
|
|
int
|
|
setmember(addr, mlist, name, v)
|
|
char *addr;
|
|
struct memberlist *mlist;
|
|
char *name;
|
|
object *v;
|
|
{
|
|
struct memberlist *l;
|
|
|
|
for (l = mlist; l->name != NULL; l++) {
|
|
if (strcmp(l->name, name) == 0) {
|
|
if (l->readonly || l->type == T_STRING) {
|
|
err_setstr(RuntimeError, "readonly attribute");
|
|
return -1;
|
|
}
|
|
addr += l->offset;
|
|
switch (l->type) {
|
|
case T_SHORT:
|
|
if (!is_intobject(v)) {
|
|
err_badarg();
|
|
return -1;
|
|
}
|
|
*(short*)addr = getintvalue(v);
|
|
break;
|
|
case T_INT:
|
|
if (!is_intobject(v)) {
|
|
err_badarg();
|
|
return -1;
|
|
}
|
|
*(int*)addr = getintvalue(v);
|
|
break;
|
|
case T_LONG:
|
|
if (!is_intobject(v)) {
|
|
err_badarg();
|
|
return -1;
|
|
}
|
|
*(long*)addr = getintvalue(v);
|
|
break;
|
|
case T_FLOAT:
|
|
if (is_intobject(v))
|
|
*(float*)addr = getintvalue(v);
|
|
else if (is_floatobject(v))
|
|
*(float*)addr = getfloatvalue(v);
|
|
else {
|
|
err_badarg();
|
|
return -1;
|
|
}
|
|
break;
|
|
case T_DOUBLE:
|
|
if (is_intobject(v))
|
|
*(double*)addr = getintvalue(v);
|
|
else if (is_floatobject(v))
|
|
*(double*)addr = getfloatvalue(v);
|
|
else {
|
|
err_badarg();
|
|
return -1;
|
|
}
|
|
break;
|
|
case T_OBJECT:
|
|
XDECREF(*(object **)addr);
|
|
XINCREF(v);
|
|
*(object **)addr = v;
|
|
break;
|
|
default:
|
|
err_setstr(SystemError, "bad memberlist type");
|
|
return -1;
|
|
}
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
err_setstr(NameError, name);
|
|
return -1;
|
|
}
|