Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
#!/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: