internal class Map
{
public MSymbol name;
- public List<Entry> entries;
+ public List<Entry> entries = new List<Entry> ();
public Map (MSymbol name) { this.name = name; }
public Xex.Symbol name;
public MText title;
public Xex.Term[] enter_actions, fallback_actions;
- public Keymap keymap;
+ public Keymap keymap = new Keymap ();
public State (Xex.Symbol name, MText title)
{
private static void transform (MPlist plist)
{
+ return;
+#if false
for (; ! plist.IsEmpty; plist = plist.next)
{
if (plist.IsMText)
}
}
}
+#endif
}
private static MText parse_description (MPlist plist)
foreach (KeyValuePair<MSymbol, Map> kv in maps)
str += " " + kv.Value;
str += ") (states";
- foreach (Xex.Symbol name in states.Keys)
- str += " " + name;
+ foreach (KeyValuePair<Xex.Symbol, State> kv in states)
+ {
+ str += " (" + kv.Key + " " + kv.Value.keymap + ")";
+ }
return str + "))";
}