Template:LBS/FormatSugar - Revision history

Editor: Replaced content with "{{#invoke:LBS|FormatSugar||{{{1|GlcNAca/b1-3Xyla-4Galb1-3GalNAca1-4(NeuAc?1-2NeuGc4Mea1-3)GalNAcb1-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}}}}"

2023-02-01T07:28:19Z

Replaced content with "{{#invoke:LBS|FormatSugar||{{{1|GlcNAca/b1-3Xyla-4Galb1-3GalNAca1-4(NeuAc?1-2NeuGc4Mea1-3)GalNAcb1-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}}}}"

← Older revision		Revision as of 16:28, 1 February 2023
Line 1:		Line 1:
	{{#~~lua~~:		{{#invoke:LBS\|FormatSugar\|\|{{{1\|GlcNAca/b1-3Xyla-4Galb1-3GalNAca1-4(NeuAc?1-2NeuGc4Mea1-3)GalNAcb1-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}}}}
	~~local seq = stdin:match("[%S()%[%], ]+");~~
	~~local ret = "";~~
	~~seq = string.gsub(seq, "a/b([1-9?]?-[1-9/?]*)", "<sub>α/β%1</sub>");~~
	~~seq = string.gsub(seq, "a([1-9?]?-[1-9/?]*)", "<sub>α%1</sub>");~~
	~~seq = string.gsub(seq, "b([1-9?]?-[1-9/?]*)", "<sub>β%1</sub>");~~
	~~seq = string.gsub(seq, "?([1-9?]?-[1-9/?]*)", "<sub>?%1</sub>");~~
	~~seq = string.gsub(seq, "Cer$", "<b>Cer</b>");~~
	~~seq = string.gsub(seq, "(Gal[NAcH234Me]*)", '<span style="color:Gold"><b>%1</b></span>');~~
	~~seq = string.gsub(seq, "(Glc[NAcH2]*)", '<span style="color:Blue"><b>%1</b></span>');~~
	~~seq = string.gsub(seq, "(Man[A]*)", '<span style="color:Green"><b>%1</b></span>');~~
	~~seq = string.gsub(seq, "(Rha)", '<span style="color:Green"><b>%1</b></span>');~~
	~~seq = string.gsub(seq, "(Fuc[A]*)", '<span style="color:Red"><b>%1</b></span>');~~
	~~seq = string.gsub(seq, "(NeuAc[Me489]*)", '<span style="color:Purple"><b>%1</b></span>');~~
	~~seq = string.gsub(seq, "(NeuGc[Me489]*)", '<span style="color:Gray"><b>%1</b></span>');~~
	~~seq = string.gsub(seq, "(Xyl)", '<span style="color:DarkOrange"><b>%1</b></span>');~~
	~~seq = string.gsub(seq, "(Ara)", '<span style="color:DarkOrange"><b>%1</b></span>');~~
	~~seq = string.gsub(seq, "(KDN)", '<span style="color:Green"><b>%1</b></span>');~~
	~~print(seq);~~
	\|{{{1\|GlcNAca/b1-3Xyla-4Galb1-3GalNAca1-4(NeuAc?1-2NeuGc4Mea1-3)GalNAcb1-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}}}}

Editor at 09:48, 20 November 2014

2014-11-20T09:48:53Z

← Older revision		Revision as of 18:48, 20 November 2014
Line 2:		Line 2:
	local seq = stdin:match("[%S()%[%], ]+");		local seq = stdin:match("[%S()%[%], ]+");
	local ret = "";		local ret = "";
	seq = string.gsub(seq, "a/b([1-9?]%-[1-9/?]*)", "<sub>α/β%1</sub>");		seq = string.gsub(seq, "a/b([1-9?]?-[1-9/?]*)", "<sub>α/β%1</sub>");
	seq = string.gsub(seq, "a([1-9?]%-[1-9/?]*)", "<sub>α%1</sub>");		seq = string.gsub(seq, "a([1-9?]?-[1-9/?]*)", "<sub>α%1</sub>");
	seq = string.gsub(seq, "b([1-9?]%-[1-9/?]*)", "<sub>β%1</sub>");		seq = string.gsub(seq, "b([1-9?]?-[1-9/?]*)", "<sub>β%1</sub>");
	seq = string.gsub(seq, "?([1-9?]%-[1-9/?]*)", "<sub>?%1</sub>");		seq = string.gsub(seq, "?([1-9?]?-[1-9/?]*)", "<sub>?%1</sub>");
	seq = string.gsub(seq, "Cer$", "<b>Cer</b>");		seq = string.gsub(seq, "Cer$", "<b>Cer</b>");
	seq = string.gsub(seq, "(Gal[NAcH234Me]*)", '<span style="color:Gold"><b>%1</b></span>');		seq = string.gsub(seq, "(Gal[NAcH234Me]*)", '<span style="color:Gold"><b>%1</b></span>');
Line 18:		Line 18:
	seq = string.gsub(seq, "(KDN)", '<span style="color:Green"><b>%1</b></span>');		seq = string.gsub(seq, "(KDN)", '<span style="color:Green"><b>%1</b></span>');
	print(seq);		print(seq);
	\|{{{1\|~~GlcNAcb1~~-~~3Xyla1~~-4Galb1-3GalNAca1-4(NeuAc?1-2NeuGc4Mea1-3)GalNAcb1-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}}}}		\|{{{1\|GlcNAca/b1-3Xyla-4Galb1-3GalNAca1-4(NeuAc?1-2NeuGc4Mea1-3)GalNAcb1-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}}}}

Editor at 09:44, 20 November 2014

2014-11-20T09:44:31Z

← Older revision		Revision as of 18:44, 20 November 2014
Line 2:		Line 2:
	local seq = stdin:match("[%S()%[%], ]+");		local seq = stdin:match("[%S()%[%], ]+");
	local ret = "";		local ret = "";
			seq = string.gsub(seq, "a/b([1-9?]%-[1-9/?]*)", "<sub>α/β%1</sub>");
	seq = string.gsub(seq, "a([1-9?]%-[1-9/?]*)", "<sub>α%1</sub>");		seq = string.gsub(seq, "a([1-9?]%-[1-9/?]*)", "<sub>α%1</sub>");
	seq = string.gsub(seq, "b([1-9?]%-[1-9/?]*)", "<sub>β%1</sub>");		seq = string.gsub(seq, "b([1-9?]%-[1-9/?]*)", "<sub>β%1</sub>");

Editor at 14:21, 3 February 2012

2012-02-03T14:21:56Z

← Older revision		Revision as of 23:21, 3 February 2012
Line 15:		Line 15:
	seq = string.gsub(seq, "(Xyl)", '<span style="color:DarkOrange"><b>%1</b></span>');		seq = string.gsub(seq, "(Xyl)", '<span style="color:DarkOrange"><b>%1</b></span>');
	seq = string.gsub(seq, "(Ara)", '<span style="color:DarkOrange"><b>%1</b></span>');		seq = string.gsub(seq, "(Ara)", '<span style="color:DarkOrange"><b>%1</b></span>');
			seq = string.gsub(seq, "(KDN)", '<span style="color:Green"><b>%1</b></span>');
	print(seq);		print(seq);
	\|{{{1\|GlcNAcb1-3Xyla1-4Galb1-3GalNAca1-4(NeuAc?1-2NeuGc4Mea1-3)GalNAcb1-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}}}}		\|{{{1\|GlcNAcb1-3Xyla1-4Galb1-3GalNAca1-4(NeuAc?1-2NeuGc4Mea1-3)GalNAcb1-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}}}}

Editor at 14:08, 3 February 2012

2012-02-03T14:08:16Z

← Older revision		Revision as of 23:08, 3 February 2012
Line 1:		Line 1:
	{{#lua:		{{#lua:
	local seq = stdin:match("[%S()%[%]]+");		local seq = stdin:match("[%S()%[%], ]+");
	local ret = "";		local ret = "";
	seq = string.gsub(seq, "a([1-9?]%-[1-9/?]*)", "<sub>α%1</sub>");		seq = string.gsub(seq, "a([1-9?]%-[1-9/?]*)", "<sub>α%1</sub>");

Editor at 14:06, 3 February 2012

2012-02-03T14:06:50Z

← Older revision		Revision as of 23:06, 3 February 2012
Line 2:		Line 2:
	local seq = stdin:match("[%S()%[%]]+");		local seq = stdin:match("[%S()%[%]]+");
	local ret = "";		local ret = "";
	~~for o,p,q,r,s,t in~~ string.~~gmatch~~(seq, "([%[%(]?)([/~~%a%$]+~~)([?ab%-~~]?)(~~[1-9]?)%-?([1-9]~~?/?~~[1-9]?~~)([%~~]%)]?)") do		seq = string.gsub(seq, "a([1-9?]%-[1-9/?]*)", "<sub>α%1</sub>");
	~~---Process ( ---~~		seq = string.gsub(seq, "b([1-9?]%-[1-9/?]*)", "<sub>β%1</sub>");
	~~if (o) then ret~~ = ~~ret .. o end~~		seq = string.gsub(seq, "?([1-9?]%-[1-9/?]*)", "<sub>?%1</sub>");
	~~---Process sugar name---~~		seq = string.gsub(seq, "Cer$", "<b>Cer</b>");
	~~if (~~string.~~match~~(p, "^%$~~?Glc~~")~~) then~~		seq = string.gsub(seq, "(Gal[NAcH234Me]*)", '<span style="color:Gold"><b>%1</b></span>');
	~~ret~~ = ~~ret .~~. '<span style="color:~~Blue~~"><b>~~' .. p .. "~~</b></span>"		seq = string.gsub(seq, "(Glc[NAcH2]*)", '<span style="color:Blue"><b>%1</b></span>');
	~~elseif (~~string.~~match~~(p, "~~^%$?Gal~~"~~)) then~~		seq = string.gsub(seq, "(Man[A]*)", '<span style="color:Green"><b>%1</b></span>');
	~~ret = ret ..~~ '<span style="color:~~GoldenRod~~"><b>~~' .. p .. "~~</b></span>"		seq = string.gsub(seq, "(Rha)", '<span style="color:Green"><b>%1</b></span>');
	~~elseif (~~string.~~match~~(p, "~~^%$?~~Man"~~)) then~~		seq = string.gsub(seq, "(Fuc[A]*)", '<span style="color:Red"><b>%1</b></span>');
	~~ret = ret ..~~ '<span style="color:Green"><b>~~' .. p .. "~~</b></span>"		seq = string.gsub(seq, "(NeuAc[Me489]*)", '<span style="color:Purple"><b>%1</b></span>');
	~~elseif (~~string.~~match~~(p, "~~^%$?Fuc~~"~~)) then~~		seq = string.gsub(seq, "(NeuGc[Me489]*)", '<span style="color:Gray"><b>%1</b></span>');
	~~ret = ret ..~~ '<span style="color:~~Red~~"><b>~~' .. p .. "~~</b></span>"		seq = string.gsub(seq, "(Xyl)", '<span style="color:DarkOrange"><b>%1</b></span>');
	~~elseif (~~string.~~match~~(p, "~~^%$?Neu~~"~~)) then~~		seq = string.gsub(seq, "(Ara)", '<span style="color:DarkOrange"><b>%1</b></span>');
	~~ret = ret ..~~ '<span style="color:~~MediumVioletRed~~"><b>~~' .. p .. "~~</b></span>"		print(seq);
	~~else~~		\|{{{1\|GlcNAcb1-3Xyla1-4Galb1-3GalNAca1-4(NeuAc?1-2NeuGc4Mea1-3)GalNAcb1-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}}}}
	~~ret~~ = ~~ret .~~. '<b>~~' .. p .. '~~</b>'
	~~end~~
	~~---Process alpha or beta---~~
	if (~~q ==~~ "a"~~) then ret~~ = ~~ret ..~~ "<~~sub~~>~~α"~~
	~~elseif (q == "~~b~~") then ret = ret .. "~~<~~sub~~>~~&beta~~;"
	~~elseif~~ (~~q == "-~~") ~~then ret = ret ..~~ "<~~sub>*"~~
	~~end~~
	~~---Process bond position---~~
	~~if (r and s) then~~
	~~ret~~ = ~~ret .. r ..~~ "~~-" .. s ..~~ "</~~sub~~>"
	~~end~~
	~~if (t~~) ~~then ret = ret .. t end~~
	~~end~~
	~~if (~~string.~~match~~(seq,"~~Cer$~~"~~)) then~~
	~~ret~~ = ~~ret ..~~ "<b>~~Cer~~</b>"
	~~end~~
	print(~~ret~~)
	\|{{{1\|GlcNAcb1-~~3Galb1~~-3GalNAca1-~~4GalNAcb1~~-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}}}}

Editor at 07:00, 3 February 2012

2012-02-03T07:00:45Z

← Older revision		Revision as of 16:00, 3 February 2012
Line 23:		Line 23:
	elseif (q == "b") then ret = ret .. "<sub>β"		elseif (q == "b") then ret = ret .. "<sub>β"
	elseif (q == "-") then ret = ret .. "<sub>*"		elseif (q == "-") then ret = ret .. "<sub>*"
	~~else ret = ret .. "<sub>" .. q~~ end		end
	---Process bond position---		---Process bond position---
	ret = ret .. r .. "-" .. s .. "</sub>"		if (r and s) then
			ret = ret .. r .. "-" .. s .. "</sub>"
			end
	if (t) then ret = ret .. t end		if (t) then ret = ret .. t end
	end		end

Editor at 06:53, 3 February 2012

2012-02-03T06:53:43Z

← Older revision		Revision as of 15:53, 3 February 2012
Line 2:		Line 2:
	local seq = stdin:match("[%S()%[%]]+");		local seq = stdin:match("[%S()%[%]]+");
	local ret = "";		local ret = "";
	for o,p,q,r,s,t in string.gmatch(seq, "([%[%(]?)([/%a%$]+)([?ab%-])([1-9]?)%-?([1-9]?/?[1-9]?)([%]%)]?)") do		for o,p,q,r,s,t in string.gmatch(seq, "([%[%(]?)([/%a%$]+)([?ab%-]?)([1-9]?)%-?([1-9]?/?[1-9]?)([%]%)]?)") do
	---Process ( ---		---Process ( ---
	if (o) then ret = ret .. o end		if (o) then ret = ret .. o end

Editor at 17:34, 23 October 2011

2011-10-23T17:34:38Z

← Older revision		Revision as of 02:34, 24 October 2011
Line 2:		Line 2:
	local seq = stdin:match("[%S()%[%]]+");		local seq = stdin:match("[%S()%[%]]+");
	local ret = "";		local ret = "";
	for o,p,q,r,s,t in string.gmatch(seq, "([%[%(]?)([%a%$]+)([?ab%-])([1-9]?)%-?([1-9]?/?[1-9]?)([%]%)]?)") do		for o,p,q,r,s,t in string.gmatch(seq, "([%[%(]?)([/%a%$]+)([?ab%-])([1-9]?)%-?([1-9]?/?[1-9]?)([%]%)]?)") do
	---Process ( ---		---Process ( ---
	if (o) then ret = ret .. o end		if (o) then ret = ret .. o end

Editor at 17:26, 23 October 2011

2011-10-23T17:26:38Z

← Older revision		Revision as of 02:26, 24 October 2011
Line 6:		Line 6:
	if (o) then ret = ret .. o end		if (o) then ret = ret .. o end
	---Process sugar name---		---Process sugar name---
	if (string.match(p, "^Glc")) then		if (string.match(p, "^%$?Glc")) then
	ret = ret .. '<span style="color:Blue"><b>' .. p .. "</b></span>"		ret = ret .. '<span style="color:Blue"><b>' .. p .. "</b></span>"
	elseif (string.match(p, "^Gal")) then		elseif (string.match(p, "^%$?Gal")) then
	ret = ret .. '<span style="color:GoldenRod"><b>' .. p .. "</b></span>"		ret = ret .. '<span style="color:GoldenRod"><b>' .. p .. "</b></span>"
	elseif (string.match(p, "^Man")) then		elseif (string.match(p, "^%$?Man")) then
	ret = ret .. '<span style="color:Green"><b>' .. p .. "</b></span>"		ret = ret .. '<span style="color:Green"><b>' .. p .. "</b></span>"
	elseif (string.match(p, "^Fuc")) then		elseif (string.match(p, "^%$?Fuc")) then
	ret = ret .. '<span style="color:Red"><b>' .. p .. "</b></span>"		ret = ret .. '<span style="color:Red"><b>' .. p .. "</b></span>"
	elseif (string.match(p, "^Neu")) then		elseif (string.match(p, "^%$?Neu")) then
	ret = ret .. '<span style="color:MediumVioletRed"><b>' .. p .. "</b></span>"		ret = ret .. '<span style="color:MediumVioletRed"><b>' .. p .. "</b></span>"
	else		else