From fb386011df80b4bdada33954df27b9ac4719ad97 Mon Sep 17 00:00:00 2001 From: "Yukihiro \"Matz\" Matsumoto" Date: Wed, 20 Nov 2013 08:37:16 +0900 Subject: rename API mrb_str_dup_static() -> mrb_str_pool() --- src/state.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'src/state.c') diff --git a/src/state.c b/src/state.c index 52a1541cb..f8a97cb61 100644 --- a/src/state.c +++ b/src/state.c @@ -147,6 +147,28 @@ mrb_irep_free(mrb_state *mrb, mrb_irep *irep) mrb_free(mrb, irep); } +mrb_value +mrb_str_pool(mrb_state *mrb, mrb_value str) +{ + struct RString *s = mrb_str_ptr(str); + struct RString *ns; + mrb_int len; + + ns = (struct RString *)mrb_malloc(mrb, sizeof(struct RString)); + ns->tt = MRB_TT_STRING; + ns->c = mrb->string_class; + + len = s->len; + ns->len = len; + ns->ptr = (char *)mrb_malloc(mrb, (size_t)len+1); + if (s->ptr) { + memcpy(ns->ptr, s->ptr, len); + } + ns->ptr[len] = '\0'; + + return mrb_obj_value(ns); +} + void mrb_free_context(mrb_state *mrb, struct mrb_context *c) { -- cgit v1.2.3