From: ntakahas <ntakahas>
Date: Tue, 10 Mar 2009 12:52:35 +0000 (+0000)
Subject: (decode_saction): Add support for "shift-back".
X-Git-Tag: XML-BEFORE-XEX~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9b255372fce0b04c83e46e5e7dd58ae44f04b6ff;p=m17n%2Fm17n-lib.git

(decode_saction): Add support for "shift-back".
---

diff --git a/src/input-xml.c b/src/input-xml.c
index a09370f..84d0647 100644
--- a/src/input-xml.c
+++ b/src/input-xml.c
@@ -717,6 +717,15 @@ decode_saction (xmlDocPtr doc, xmlNodePtr cur, MPlist *parent)
       xmlFree (ptr);
       M17N_OBJECT_UNREF (plist);
     }
+  else if (xmlStrEqual (cur->name, (xmlChar *) "shift-back"))
+    {
+      MPlist *plist = mplist ();
+
+      mplist_add (plist, Msymbol, msymbol ("shift"));
+      mplist_add (plist, Msymbol, Mt);
+      mplist_add (parent, Mplist, plist);
+      M17N_OBJECT_UNREF (plist);
+    }
   else
     decode_action (doc, cur, parent);
 }