From 0cbdb3527041d016097aa3384af9c5908af2cce6 Mon Sep 17 00:00:00 2001
From: Benoit Giannangeli <benoit.giannangeli@boursorama.fr>
Date: Fri, 17 Mar 2017 07:56:18 +0100
Subject: lua_dump, string.dump

---
 src/lstrlib.js | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'src/lstrlib.js')

diff --git a/src/lstrlib.js b/src/lstrlib.js
index b47138f..83e82b0 100644
--- a/src/lstrlib.js
+++ b/src/lstrlib.js
@@ -48,6 +48,23 @@ const str_char = function(L) {
     return 1;
 };
 
+const writer = function(L, b, size, B) {
+    assert(Array.isArray(b));
+    B.push(...b.slice(0, size));
+    return 0;
+};
+
+const str_dump = function(L) {
+    let b = [];
+    let strip = lapi.lua_toboolean(L, 2);
+    lauxlib.luaL_checktype(L, 1, CT.LUA_TFUNCTION);
+    lapi.lua_settop(L, 1);
+    if (lapi.lua_dump(L, writer, b, strip) !== 0)
+        return lauxlib.luaL_error(L, "unable to dump given function");
+    lapi.lua_pushrawstring(L, b.map(e => String.fromCharCode(e)).join(''));
+    return 1;
+};
+
 const SIZELENMOD = luaconf.LUA_NUMBER_FRMLEN.length;
 
 const L_NBFD = 16; // TODO: arbitrary
@@ -379,6 +396,7 @@ const str_byte = function(L) {
 const strlib = {
     "byte":    str_byte,
     "char":    str_char,
+    "dump":    str_dump,
     "format":  str_format,
     "len":     str_len,
     "lower":   str_lower,
-- 
cgit v1.2.3-54-g00ecf