conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

pic_obj_alloc is not a public api

This commit is contained in:
Yuichi Nishiwaki 2016-02-19 13:58:45 +09:00
parent 5402611323
commit fe54b1315b
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extlib/benz/include/picrin.h
View File

@ -196,8 +196,6 @@ struct pic_data *pic_data_value(pic_state *, void *ptr, const pic_data_type *typ
#define pic_port_p(pic, v) (pic_type(pic, v) == PIC_TYPE_PORT) #define pic_port_p(pic, v) (pic_type(pic, v) == PIC_TYPE_PORT)
#define pic_sym_p(pic,v) (pic_type(pic,v) == PIC_TYPE_SYMBOL) #define pic_sym_p(pic,v) (pic_type(pic,v) == PIC_TYPE_SYMBOL)
#include "picrin/type.h"
int pic_type(pic_state *, pic_value); int pic_type(pic_state *, pic_value);
const char *pic_typename(pic_state *, int); const char *pic_typename(pic_state *, int);
@ -217,7 +215,7 @@ pic_value pic_cdar(pic_state *, pic_value);
pic_value pic_cddr(pic_state *, pic_value); pic_value pic_cddr(pic_state *, pic_value);
/* list */ /* list */
pic_value pic_nil_value(pic_state *); PIC_INLINE pic_value pic_nil_value(pic_state *);
bool pic_list_p(pic_state *, pic_value); bool pic_list_p(pic_state *, pic_value);
pic_value pic_make_list(pic_state *, int n, pic_value *argv); pic_value pic_make_list(pic_state *, int n, pic_value *argv);
pic_value pic_list(pic_state *, int n, ...); pic_value pic_list(pic_state *, int n, ...);
@ -266,8 +264,11 @@ struct pic_string *pic_str_sub(pic_state *, struct pic_string *, int, int);
int pic_str_cmp(pic_state *, struct pic_string *, struct pic_string *); int pic_str_cmp(pic_state *, struct pic_string *, struct pic_string *);
int pic_str_hash(pic_state *, struct pic_string *); int pic_str_hash(pic_state *, struct pic_string *);
/* extra stuff */ /* extra stuff */
#include "picrin/type.h"
#include "picrin/state.h" #include "picrin/state.h"
#include "picrin/cont.h" #include "picrin/cont.h"
@ -280,8 +281,6 @@ void *pic_default_allocf(void *, void *, size_t);
pic_errorf(pic, "expected " #type ", but got ~s", v); \ pic_errorf(pic, "expected " #type ", but got ~s", v); \
} }
struct pic_object *pic_obj_alloc(pic_state *, size_t, int type);
struct pic_port *pic_make_port(pic_state *, xFILE *file); struct pic_port *pic_make_port(pic_state *, xFILE *file);
void pic_close_port(pic_state *, struct pic_port *port); void pic_close_port(pic_state *, struct pic_port *port);

3
extlib/benz/include/picrin/object.h
View File

@ -10,6 +10,9 @@ extern "C" {
#endif #endif
struct pic_object *pic_obj_alloc(pic_state *, size_t, int type);
/* symbol & identifier */ /* symbol & identifier */
struct pic_id { struct pic_id {

1
extlib/benz/state.c
View File

@ -3,6 +3,7 @@
*/ */
#include "picrin.h" #include "picrin.h"
#include "picrin/object.h"
static void static void
pic_init_features(pic_state *pic) pic_init_features(pic_state *pic)