From 5860ec2bde3b220eff01b3bd1462e60905ef2fe9 Mon Sep 17 00:00:00 2001
From: Benoit Giannangeli <benoit.giannangeli@boursorama.fr>
Date: Mon, 20 Feb 2017 12:09:05 +0100
Subject: type

---
 README.md         |  2 +-
 src/lbaselib.js   |  8 ++++++++
 tests/lbaselib.js | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 62 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 43bc000..96ca465 100644
--- a/README.md
+++ b/README.md
@@ -210,6 +210,7 @@
         - [x] rawequal
         - [x] rawset
         - [x] rawget
+        - [x] type
         - [ ] assert
         - [ ] collectgarbage
         - [ ] dofile
@@ -224,7 +225,6 @@
         - [ ] rawlen
         - [ ] select
         - [ ] tonumber
-        - [ ] type
         - [ ] xpcall
     - [ ] ...
 - [ ] Debug (errors)
diff --git a/src/lbaselib.js b/src/lbaselib.js
index a89cf9d..db6e61d 100644
--- a/src/lbaselib.js
+++ b/src/lbaselib.js
@@ -81,6 +81,13 @@ const luaB_rawset = function(L) {
     return 1;
 };
 
+const luaB_type = function(L) {
+    let t = lapi.lua_type(L, 1);
+    lauxlib.luaL_argcheck(L, t != CT.LUA_TNONE, 1, "value expected");
+    lapi.lua_pushstring(L, lapi.lua_typename(L, t));
+    return 1;
+};
+
 const base_funcs = {
     "print":        luaB_print,
     "tostring":     luaB_tostring,
@@ -89,6 +96,7 @@ const base_funcs = {
     "rawequal":     luaB_rawequal,
     "rawset":       luaB_rawset,
     "rawget":       luaB_rawget,
+    "type":         luaB_type
 };
 
 const luaopen_base = function(L) {
diff --git a/tests/lbaselib.js b/tests/lbaselib.js
index b3af927..87009ca 100644
--- a/tests/lbaselib.js
+++ b/tests/lbaselib.js
@@ -186,4 +186,57 @@ test('rawset, rawget', function (t) {
         "bye",
         "Correct element(s) on the stack"
     );
+});
+
+
+test('type', function (t) {
+    let luaCode = `
+        return type(1), type(true), type("hello"), type({}), type(nil)
+    `, L;
+    
+    t.plan(6);
+
+    t.doesNotThrow(function () {
+
+        let bc = toByteCode(luaCode).dataView;
+
+        L = lauxlib.luaL_newstate();
+
+        linit.luaL_openlibs(L);
+
+        lapi.lua_load(L, bc, "test-type");
+
+        lapi.lua_call(L, 0, -1);
+
+    }, "JS Lua program ran without error");
+
+    t.strictEqual(
+        lapi.lua_tostring(L, -5),
+        "number",
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tostring(L, -4),
+        "boolean",
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tostring(L, -3),
+        "string",
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tostring(L, -2),
+        "table",
+        "Correct element(s) on the stack"
+    );
+
+    t.strictEqual(
+        lapi.lua_tostring(L, -1),
+        "nil",
+        "Correct element(s) on the stack"
+    );
 });
\ No newline at end of file
-- 
cgit v1.2.3-70-g09d2