29 lines
595 B
C
29 lines
595 B
C
#include "picrin.h"
|
|
#include "picrin/object.h"
|
|
|
|
bool
|
|
pic_data_type_p(pic_state *pic, pic_value obj, const pic_data_type *type)
|
|
{
|
|
return pic_data_p(pic, obj) && pic_data_ptr(obj)->type == type;
|
|
}
|
|
|
|
void *
|
|
pic_data(pic_state *pic, pic_value data)
|
|
{
|
|
pic_assert_type(pic, data, data);
|
|
|
|
return pic_data_ptr(data)->data;
|
|
}
|
|
|
|
struct pic_data *
|
|
pic_data_value(pic_state *pic, void *userdata, const pic_data_type *type)
|
|
{
|
|
struct pic_data *data;
|
|
|
|
data = (struct pic_data *)pic_obj_alloc(pic, sizeof(struct pic_data), PIC_TYPE_DATA);
|
|
data->type = type;
|
|
data->data = userdata;
|
|
|
|
return data;
|
|
}
|