#!/usr/bin/env lua5.1
-- This file:
--   http://angg.twu.net/bin/lua51-e.html
--   http://angg.twu.net/bin/lua51-e
--           (find-angg "bin/lua51-e")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- Taken from an e-mail from Leo Razoumov to lua-l, on 2010dec12:
--   http://lua-users.org/lists/lua-l/2010-12/msg00430.html
-- Note that (t)his one-line solution in much better than both
--   (find-angg ".zshrc" "lua51e")
-- and that my ages-old "argpatch" trick, that I mentioned in:
--   http://lua-users.org/lists/lua-l/2010-12/msg00430.html
-- and whose code is at:
--   (find-es "lua5" "argpatch")
--   (find-angg "LUA/lua50beta-argpatch.sh")
-- I still like the idea of an "-E" option that I described in my
-- e-mail, though.
--   (find-luamanualw3m "#pdf-select")
-- Some tests:
--   (find-sh "lua51-e 'PP(2,3)'")
--   (find-sh "lua51-e 'a,b=...; PP(a,b)' foo bar")

-- 2017ago26: added code to load the init file.
if os.getenv("LUA_INIT") then dofile(os.getenv("LUA_INIT"):sub(2)) end

-- evaluates 1st argument as lua string passing following arguments to the chunk
assert(loadstring(arg[1]))(select(2, ...))


--[[

# (find-man "grep")

* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile(os.getenv("LUA_INIT"):sub(2))

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
lua51-e 'getinscritos()' < /tmp/o

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
mkdir -p ~/bin/
cd       ~/bin/
wget -N http://angg.twu.net/bin/lua51-e
chmod 755 lua51-e

# (find-sh "lua51-e 'PP({22,33})'")

--]]


-- Local Variables:
-- mode: lua
-- End: