PolygLua.lua installs itself.

1 files changed, 25 insertions, 0 deletions

diff --git a/PolygLua.lua b/PolygLua.lua
index 8d63d8a..34f7f39 100755
--- a/PolygLua.lua
+++ b/PolygLua.lua
@@ -312,4 +312,29 @@ _G.__ = function(c)
 end
 
 
+
+if arg[0] == './PolygLua.lua' then
+    local w = __[[whoami]]:noErr():Do().lines[1]
+    local d = __[[pwd]]:noErr():Do().lines[1]
+    local luas = __'ls -d1 /usr/share/lua/*':noErr():Do()
+    for  i,l in ipairs(luas.lines) do
+        local lua = '/usr/local/share/lua/' .. l:sub(16) .. '/PolygLua.lua'
+        if _.exists(lua) then
+            print(lua .. ' installed')
+        else
+            if 'root' == w then
+                __('mkdir -p /usr/local/share/lua/' .. l:sub(16) .. ' ; ln -s ' .. d .. '/PolygLua.lua ' .. lua):Do()
+            else
+                print(lua .. ' NOT installed')
+            end
+        end
+    end
+
+    if 'root' ~= w then
+        E'Need to be root user to install.'
+    end
+end
+
+
+
 return _