1 files changed, 17 insertions, 0 deletions

diff --git a/lib/forlan.c b/lib/forlan.c
index 2275bc7..977271d 100644
--- a/lib/forlan.c
+++ b/lib/forlan.c
@@ -1051,2 +1051,18 @@ func_decode(forlan_eval_env_t env, struct grecs_list *list)
 static void
+func_dequote(forlan_eval_env_t env, struct grecs_list *list)
+{
+        struct forlan_value *val = list->head->data;
+        char *s = val->v.string;
+        size_t l = strlen(s);
+        
+        if (l >= 2 && s[0] == '"' && s[l-1] == '"') {
+                s++;
+                l -= 2;
+        }
+        env->retval.v.string = grecs_malloc(l + 1);
+        memcpy(env->retval.v.string, s, l);
+        env->retval.v.string[l] = 0;
+}
+
+static void
 func_exit(forlan_eval_env_t env, struct grecs_list *list)
@@ -1129,2 +1145,3 @@ static struct forlan_function functab[] = {
         { "decode", forlan_value_literal, "s", 1, 1, func_decode },
+        { "dequote", forlan_value_literal, "s", 1, 1, func_dequote },
         { "exit",   forlan_value_void, "s", 1, 1, func_exit },