From 5f6230da3a314084ff7441b59643c5f90d10fd9b Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Tue, 20 May 2014 18:24:21 -0400
Subject: [PATCH] A3t

- ::findTag now creates sub nodes.
---
 src/A3t.cpp | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/A3t.cpp b/src/A3t.cpp
index d025562e1..b2fdd8fb3 100644
--- a/src/A3t.cpp
+++ b/src/A3t.cpp
@@ -853,8 +853,19 @@ void A3t::findTag ()
     {
       (*i)->unTag ("?");
       (*i)->tag ("TAG");
+      (*i)->tag ("EXPANDED");
       (*i)->attribute ("sign", sign);
       (*i)->attribute ("tag", tag);
+
+      Tree* branch = (*i)->addBranch (new Tree ("argTag"));
+      branch->attribute ("value", "tags");
+
+      branch = (*i)->addBranch (new Tree ("argTag"));
+      branch->attribute ("value", (sign == "+" ? "_hastag_" : "_notag_"));
+      branch->tag ("OP");
+
+      branch = (*i)->addBranch (new Tree ("argTag"));
+      branch->attribute ("value", tag);
     }
   }
 }