-- 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: