Template:LBS/FormatSugar: Difference between revisions

mNo edit summary
mNo edit summary
Line 7: Line 7:
       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:yellow"><b>' .. p .. "</b></span>"
       ret = ret .. '<span style="color:gold"><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>"
Line 15: Line 15:
       ret = ret .. '<span style="color:pink"><b>' .. p .. "</b></span>"
       ret = ret .. '<span style="color:pink"><b>' .. p .. "</b></span>"
     else
     else
       ret = ret .. p
       ret = ret .. '<b>' .. p .. '</b>'
     end
     end



Revision as of 11:48, 5 March 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])([%]%)]?)") do
   if (o) then ret = ret .. o end
   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
   if (q == "a") then ret = ret .. "α"
   elseif (q == "b") then ret = ret .. "β"
   else ret = ret .. "" .. q end
   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}}