|
Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
-- This file:
-- http://anggtwu.net/LUA/Gdb1.lua.html
-- http://anggtwu.net/LUA/Gdb1.lua
-- (find-angg "LUA/Gdb1.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- Superseded by:
-- (find-lisptree "call-lua.lua")
--
-- (defun ec () (interactive) (find-angg "LUA/Gdb1.c"))
-- (defun el () (interactive) (find-angg "LUA/Gdb1.lua"))
-- (defun eg () (interactive) (find-angg "LUA/Gdb1.gdb"))
-- (defun oc () (interactive) (find-angg ".lua51/PP.c"))
-- (defun og () (interactive) (find-angg ".lua51/PP.gdb"))
-- (find-angg "LUA/lua50init.lua" "edrxlib")
--
-- «.PPstack» (to "PPstack")
if not package.loaded.edrxlib then
dofile((os.getenv"LUA_INIT"):sub(2))
end
Path.addLUAtopath()
-- «PPstack» (to ".PPstack")
-- Used by: (find-angg "LUA/Gdb1.c" "PPstack")
PPstack = function (...)
local L = {...}
for i=1,#L do
print(format("%s/%s: %s", i, i-#L-1, mytostring(L[i])))
end
end
-- (c2m252exsubstp 5 "dica")
-- (c2m252exsubsta "dica")
require "Verbatim4" -- (find-angg "LUA/Verbatim3.lua")
require "CME3" -- (find-angg "LUA/CME3.lua")
-- (find-angg "LUA/CME3.lua" "verbatim")
-- (find-angg "LUA/Verbatim3.lua" "Verbatim-tests")
Verbatim.__index._uncomment = function (vb)
vb.o = vb.o:gsub("%%\n *", "")
end
Verbatim.__index._bgbox = function (vb)
vb:_fmt("\\myvcenter{\\vbtbgbox{%s}}", vb.o)
end
verbatimbgbox = function (bigstr)
local vb = Verbatim.from(splitlines(bigstr))
return vb:act("e h c p v uncomment bgbox").o
end
--[[
-- (sbcp 1 "title")
-- (sbca "title")
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "Gdb1.lua"
dofile "CME3.lua"
str0 = "a__.\n| |\nb c"
vb = Verbatim.from(splitlines(str0))
= vb
= vb:act("e h c p v uncomment bgbox")
= verbatimbgbox(str0)
--]]
-- Local Variables:
-- coding: utf-8-unix
-- End: