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

remove unused helper functions

This commit is contained in:
Yuichi Nishiwaki 2014-09-21 18:05:43 +09:00
parent 1c2af96340
commit 319db5fc9f
2 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
blob.c
View File

@ -8,23 +8,6 @@
#include "picrin/blob.h" #include "picrin/blob.h"
#include "picrin/pair.h" #include "picrin/pair.h"
char *
pic_strndup(pic_state *pic, const char *s, size_t n)
{
char *r;
r = pic_alloc(pic, n + 1);
memcpy(r, s, n);
r[n] = '\0';
return r;
}
char *
pic_strdup(pic_state *pic, const char *s)
{
return pic_strndup(pic, s, strlen(s));
}
struct pic_blob * struct pic_blob *
pic_make_blob(pic_state *pic, size_t len) pic_make_blob(pic_state *pic, size_t len)
{ {

3
include/picrin.h
View File

@ -170,9 +170,6 @@ pic_sym pic_gensym(pic_state *, pic_sym);
pic_sym pic_ungensym(pic_state *, pic_sym); pic_sym pic_ungensym(pic_state *, pic_sym);
bool pic_interned_p(pic_state *, pic_sym); bool pic_interned_p(pic_state *, pic_sym);
char *pic_strdup(pic_state *, const char *);
char *pic_strndup(pic_state *, const char *, size_t);
pic_value pic_read(pic_state *, struct pic_port *); pic_value pic_read(pic_state *, struct pic_port *);
pic_value pic_read_cstr(pic_state *, const char *); pic_value pic_read_cstr(pic_state *, const char *);