Template:LBS/FormatSugar: Difference between revisions

No edit summary
mNo edit summary
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

Revision as of 17:34, 23 October 2011

{{#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}}