Template:LBS/FormatSugar

Revision as of 16:56, 23 October 2011 by Editor (talk | contribs)

{{#lua:

 local seq = stdin:match("[%S()%[%]]+");
 local ret = "";
 for o,p,q,r,s,t in string.gmatch(seq, "([%[%(]?)(%a+)([?ab%-])([1-9]?)%-?([1-9]?/?[1-9]?)([%]%)]?)") do
   ---Process ( ---
   if (o) then ret = ret .. o end
   ---Process sugar name---
   if (string.match(p, "^Glc")) then
     ret = ret .. '' .. p .. ""
   elseif (string.match(p, "^Gal")) then
     ret = ret .. '' .. p .. ""
   elseif (string.match(p, "^Man")) then
     ret = ret .. '' .. p .. ""
   elseif (string.match(p, "^Fuc")) then
     ret = ret .. '' .. p .. ""
   elseif (string.match(p, "^Neu")) then
     ret = ret .. '' .. p .. ""
   else
     ret = ret .. '' .. p .. ''
   end
   ---Process alpha or beta---
   if (q == "a") then ret = ret .. "α"
   elseif (q == "b") then ret = ret .. "β"
   elseif (q == "-") then ret = ret .. "*"
   else ret = ret .. "" .. q end
   ---Process bond position---
   ret = ret .. r .. "-" .. s .. ""
   if (t) then ret = ret .. t end
 end
 if (string.match(seq,"Cer$")) then
     ret = ret .. "Cer"
 end
 print(ret)

|GlcNAcb1-3Galb1-3GalNAca1-4GalNAcb1-4(EtnP-6)GlcNAcb1-3Manb1-4Glcb1-1Cer}}