27 lines
683 B
Text
27 lines
683 B
Text
|
#!/usr/bin/env luajit
|
||
|
|
-- vim: set noexpandtab tabstop=3 :miv --
|
||
|
|
|
||
|
|
local ansicolors = require 'ansicolors'
|
||
|
|
local lpeg = require 'lpeg'
|
||
|
|
|
||
|
|
local colors = { 'red', 'green', 'yellow', 'blue', 'magenta', 'cyan' }
|
||
|
|
|
||
|
|
local function uncase(str)
|
||
|
|
local p = lpeg.P(0)
|
||
|
|
for char in str:gmatch('.') do
|
||
|
|
p = p * (lpeg.P(char:upper()) + lpeg.P(char:lower()))
|
||
|
|
end
|
||
|
|
return p
|
||
|
|
end
|
||
|
|
|
||
|
|
local pattern = lpeg.P(false)
|
||
|
|
for i=1, select('#', ...) do
|
||
|
|
pattern = pattern + uncase(select(i, ...)) / function(capture) return ansicolors('%{'..colors[(i-1)%#colors+1]..' underline}'..capture) end
|
||
|
|
end
|
||
|
|
|
||
|
|
pattern = lpeg.Cs((pattern + lpeg.P(1)) ^ 1)
|
||
|
|
|
||
|
|
for line in io.stdin:lines() do
|
||
|
|
print(pattern:match(line) or '')
|
||
|
|
end
|