From 6258925c955a31ac0c520ffabdbaf138910e48c1 Mon Sep 17 00:00:00 2001
From: Benoit Giannangeli <giann008@gmail.com>
Date: Wed, 3 May 2017 15:58:45 +0200
Subject: package.searchpath

---
 README.md        | 11 +----------
 src/loadlib.js   | 19 ++++++++++++++++++-
 tests/loadlib.js | 32 ++++++++++++++++++++++++++++++++
 3 files changed, 51 insertions(+), 11 deletions(-)

diff --git a/README.md b/README.md
index 16701df..ebfb588 100644
--- a/README.md
+++ b/README.md
@@ -23,16 +23,7 @@
     - [x] Table
     - [x] utf8
     - [x] os (~~`os.setlocale()`~~)
-    - [ ] Package
-        - [x] `package.config`
-        - [x] `package.cpath`
-        - [x] `package.loaded`
-        - [x] `package.loadlib`
-        - [x] `package.path`
-        - [x] `package.preload`
-        - [x] `package.searchers`
-        - [x] `require`
-        - [ ] `package.searchpath`
+    - [x] Package
     - [ ] io
         - [x] `file:__tostring()`
         - [x] `file:write()`
diff --git a/src/loadlib.js b/src/loadlib.js
index f25e5dc..a161d49 100644
--- a/src/loadlib.js
+++ b/src/loadlib.js
@@ -217,6 +217,22 @@ const searchpath = function(L, name, path, sep, dirsep) {
     return null;  /* not found */
 };
 
+const ll_searchpath = function(L) {
+    let f = searchpath(
+        L,
+        lauxlib.luaL_checkstring(L, 1),
+        lauxlib.luaL_checkstring(L, 2),
+        lauxlib.luaL_optstring(L, 3, [".".charCodeAt(0)]),
+        lauxlib.luaL_optstring(L, 4, [lua.LUA_DIRSEP.charCodeAt(0)])
+    );
+    if (f !== null) return 1;
+    else {  /* error message is on top of the stack */
+        lua.lua_pushnil(L);
+        lua.lua_insert(L, -2);
+        return 2;  /* return nil + error message */
+    }
+};
+
 const findfile = function(L, name, pname, dirsep) {
     lua.lua_getfield(L, lua.lua_upvalueindex(1), pname);
     let path = lua.lua_tostring(L, -1);
@@ -348,7 +364,8 @@ const ll_require = function(L) {
 };
 
 const pk_funcs = {
-    "loadlib": ll_loadlib
+    "loadlib": ll_loadlib,
+    "searchpath": ll_searchpath
 };
 
 const ll_funcs = {
diff --git a/tests/loadlib.js b/tests/loadlib.js
index b840bf5..ee87b4a 100644
--- a/tests/loadlib.js
+++ b/tests/loadlib.js
@@ -98,3 +98,35 @@ test('package.loadlib', function (t) {
     );
 
 });
+
+
+test('package.searchpath', function (t) {
+    let luaCode = `
+        return package.searchpath('module-hello', './?.lua;./tests/?.lua')
+    `, L;
+    
+    t.plan(3);
+
+    t.doesNotThrow(function () {
+
+        L = lauxlib.luaL_newstate();
+
+        lauxlib.luaL_openlibs(L);
+
+        lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode));
+
+    }, "Lua program loaded without error");
+
+    t.doesNotThrow(function () {
+
+        lua.lua_call(L, 0, -1);
+
+    }, "Lua program ran without error");
+
+    t.strictEqual(
+        lua.lua_tojsstring(L, -1),
+        "./tests/module-hello.lua",
+        "Correct element(s) on the stack"
+    );
+
+});
-- 
cgit v1.2.3-70-g09d2