Karaby: 1 версия импортирована

2021-12-24T09:29:37Z

1 версия импортирована

← Предыдущая версия	Версия от 09:29, 24 декабря 2021
(нет различий)

bukvica>DonRumata: проверка на отсутствие параметров вообще

2015-06-01T12:26:32Z

проверка на отсутствие параметров вообще

← Предыдущая версия		Версия от 12:26, 1 июня 2015
Строка 56:		Строка 56:

	local function Detag(t)		local function Detag(t)
			if t == nil or t == '' then
			return ''
			end
	-- Вырезаем кавычки и > из литералов в тэгах, а потом сами литералы		-- Вырезаем кавычки и > из литералов в тэгах, а потом сами литералы
	local text,j,i,k=t,0;		local text,j,i,k=t,0;
	repeat		repeat
	text,i=text:gsub('(<%s%a[^>"\']")[^"]*\\["\\]',"%1");--первая \", \\ из 1-го литерала		text,i=text:gsub('(</?%a[^>"\']")[^"]\\["\\]',"%1");--первая \", \\ из 1-го литерала
	text,k=text:gsub("(<%s%a[^>\"']')[^']*\\['\\]","%1");--первая \', \\ из 1-го литерала		text,k=text:gsub("(</?%a[^>\"']')[^']\\['\\]","%1");--первая \', \\ из 1-го литерала
	if i+k==0 then--1-й литерал очищен		if i+k==0 then--1-й литерал очищен
	text,j=text:gsub("(<%s%a[^>])(['\"]).-%2","%1")		text,j=text:gsub("(</?%a[^>]*)(['\"]).-%2","%1")
	end		end
	until i+j+k==0		until i+j+k==0
	-- и вырезать тэги, а также ''курсив'' и '''жирный'''		-- и вырезать тэги, а также ''курсив'' и '''жирный'''
	return (text:gsub("'''?",""):gsub('<%s%a[^>]>',''))		return (text:gsub("'''?",""):gsub('</?%a[^>]*>',''))
	end		end

Karaby: Новая страница: «--[[ Служебные функции для конверсии викитекста Синтаксис: функция со строчной буквы - дл…»

2013-10-17T10:35:50Z

Новая страница: «--[[ Служебные функции для конверсии викитекста Синтаксис: функция со строчной буквы - дл…»

Новая страница

--[[
Служебные функции для конверсии викитекста

Синтаксис: функция со строчной буквы - для {{#invoke:wikitext|fun|...}},
с заглавной - для require(wikitext).Fun()
]]

specns={file='file',image='file',category='cat',
['к']='cat',['категория']='cat',['файл']='file',['изображение']='file'}

linkprefs="http:// gopher:// https:// mailto: news:// ftp:// irc:// //"

local function Delink(text,repl,cat,file,href,colon)
return ( --удаление вики-ссылок
mw.ustring.gsub(text, "%[%[(%s*([^|%]]+)%s*)|?(.-)%]%](%a*)", function(a,l,c,e)
l = l:gsub("%s+"," ");
if specns[mw.ustring.lower(l):match("^(.*):")] then
-- ссылка на специальное п. и.
if specns[mw.ustring.lower(l):match("^(.*):")]=='cat' then--категория
if cat then -- строчка замены, %1=catname, %2=key, %3=mode, %%="%"
return table.concat{ l:gsub("^.-:%s*",''), '|', c }:gsub( "^(.-)|([^|]*)|?(.-)$", cat ) .. e
else
return e -- удалять по умолчанию все категории
end
else--файл. Fixme:пока все поля описания файла не выдаются шаблонам
if file then -- строка замены, %1=filename, %2=parameters, %%="%"
return table.concat{ l:gsub("^.-:%s*",''), '|', c }:gsub( "^(.-)|(.*)", file ) .. e
else return e -- вырезать фалы
end
end--if(файл или категория)
end--if(спец. пространства)
l=string.gsub(l,"^: *", colon or "%1");-- замена начального ":"
if repl then
return mw.ustring.gsub(l..'|'..(c=='' and a..e or c..e),"^(.-)|(.*)$",repl)
else
if c=='' then return a..e else return c..e end-- вырезаем
end
end
):gsub(
"(%[([%a%._\/~%%%-%+&#%?!=%(%)@]+)%s*(.-)%])", function(a,r,t)
--вырезатор внешних ссылок
local p,i=r:match('^(%a*:?//)(.*)')
if not p then p,i=r:match('^(mailto:)(.*)') end
if p then-- Это URL
if href then
return (p..' '..i..' '..t):gsub("^(.-) (.-) (.*)$",href)
else
return t
end
else-- Это не URL
return a
end
end--вырезатор
) )
end

local function Detag(t)
-- Вырезаем кавычки и > из литералов в тэгах, а потом сами литералы
local text,j,i,k=t,0;
repeat
text,i=text:gsub('(<%s*%a[^>"\']*")[^"]*\\["\\]',"%1");--первая \", \\ из 1-го литерала
text,k=text:gsub("(<%s*%a[^>\"']*')[^']*\\['\\]","%1");--первая \', \\ из 1-го литерала
if i+k==0 then--1-й литерал очищен
text,j=text:gsub("(<%s*%a[^>]*)(['\"]).-%2","%1")
end
until i+j+k==0
-- и вырезать тэги, а также ''курсив'' и '''жирный'''
return (text:gsub("'''?",""):gsub('<%s*%a[^>]*>',''))
end

local function Nodis(t) -- Убирает уточнения в скобках
return (t:gsub('%s*%([^%)]+%)$',''))
end

return {
delink=function(f) -- Удаляет ссылки из викитекста
local tf=f:getParent()
return Delink(
f.args[1] or tf.args[1],
f.args['repl'] or tf.args['repl'],
f.args['cat'] or tf.args['cat'],
f.args['file'] or tf.args['file'],
f.args['href'] or tf.args['href'],
f.args[':'] or tf.args[':']
)
end; Delink=Delink;

detag=function(f)
return Detag(f.args[1] or f:getParent().args[1])
end; Detag=Detag;

plain=function(f)
local tf=f:getParent()
return Detag(Delink(
f.args[1] or tf.args[1],
f.args['repl'] or tf.args['repl'],
f.args['cat'] or tf.args['cat'],
f.args['file'] or tf.args['file'],
f.args['href'] or tf.args['href'],
f.args[':'] or tf.args[':']
));
end;

nodis=function(f)
return Nodis(f.args[1] or f:getParent().args[1])
end;Nodis=Nodis
}

Модуль:Wikitext - История изменений

Karaby: 1 версия импортирована

bukvica>DonRumata: проверка на отсутствие параметров вообще

Karaby: Новая страница: «--[[ Служебные функции для конверсии викитекста Синтаксис: функция со строчной буквы - дл…»