Template:LBS/FormatSugar

Revision as of 06:53, 3 February 2012 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}}