--▽▽UTF-8▽▽
-- browse a tags database from SciTE!
-- Set this property:
-- ctags.path.cxx=<full path to tags file>
-- 1. Multiple tags are handled correctly; a drop-down
-- list is presented
-- 2. There is a full stack of marks available.
-- 3. If ctags.path.cxx is not defined, will try to find a tags file in the current dir.
--[[
scite_Command {
	--'ASCIITable|ASCIITable|Alt+a',
	--'ascii_table|ascii_table|Alt+b',
	'AsciiTable|AsciiTable|Alt+a',
}
]]--
--[[
-- ASCII Table for SciTE; khman 20050812; public domain
function ASCIITable()
local Ctrl = false -- set to true if ASCII<32 appear as valid chars
--scite.Open("")
local hl = "    +----------------+\n"
output:AddText("ASCII Table:\n"..hl.."Hex |0123456789ABCDEF|\n"..hl)
local start = Ctrl and 0 or 32
for x = start, 240, 16 do
output:AddText(string.format(" %02X |", x))
for y = x, x+15 do output:AddText(string.char(y)) end
output:AddText("|\n")
end
output:AddText(hl)
if not Ctrl then
output:AddText(
"\nControl Characters:\n"..
" 00: NUL SOH STX ETX\n 04: EOT ENQ ACK BEL\n"..
" 08: BS  HT  LF  VT\n 0C: FF  CR  SO  SI\n"..
" 10: DLE DC1 DC2 DC3\n 14: DC4 NAK SYN ETB\n"..
" 18: CAN EM  SUB ESC\n 1C: FS  GS  RS  US\n"
)
end
end



--------------------------------------------------------------------------------

--Ben Fisher, 2006, Public domain
function ascii_table()
local padnum = function (nIn)
if nIn < 10 then return "00"..nIn
elseif nIn < 100 then return "0"..nIn
else return nIn
end
end
local overrides = { [0]="(Null)", [9]="(Tab)",[10]="(\\n Newline)", [13]="(\\r Return)", [32]="(Space)"}
local c
for n=0,126 do
if overrides[n] then c = overrides[n] else c = string.char(n) end
print (padnum(n).."  "..c)
end
end
]]--
--------------------------------------------------------------------------------


--------------------------------------------------------------------
-- Ascii Table
-- Original code by Ben Fisher
-- Improved by Paul Heasley (www.phdesign.com.au)
--------------------------------------------------------------------

function AsciiTable()
	local overrides = { [0] = "(Null)", [9] = "(Tab)", [10] = "(\\n Newline)", [13] = "(\\r Return)", [32] = "(Space)"}
	local c
	local  line=''
	output:BeginUndoAction()
	for n = 0, 126 do
		if overrides[n] then c = overrides[n] else c = string.char(n)end
		local field = string.format("%03d 0x%02X %s", n, n, c)
		
		line = line .. field .. string.rep(' ', 30 - string.len(field) ) 
		if math.fmod( (n+1) , 4) == 0 then
			print(line)
			line=''
		end
		--print(string.format("%03d 0x%02X %s", n, n, c))
	end
	output:EndUndoAction()
end