From 922b80a5bef7ca2a2d0cb0250a6617fed292a4a0 Mon Sep 17 00:00:00 2001
From: Paul Beckingham <paul@beckingham.net>
Date: Tue, 20 May 2014 18:23:25 -0400
Subject: [PATCH] A3t

- ::findPattern now creates sub nodes.
---
 src/A3t.cpp | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/A3t.cpp b/src/A3t.cpp
index 35001e775..d025562e1 100644
--- a/src/A3t.cpp
+++ b/src/A3t.cpp
@@ -748,7 +748,7 @@ const std::vector <std::string> A3t::getWords () const
 }
 
 ////////////////////////////////////////////////////////////////////////////////
-// /pattern/
+// /pattern/ --> description ~ pattern
 void A3t::findPattern ()
 {
   std::vector <Tree*>::iterator i;
@@ -770,7 +770,17 @@ void A3t::findPattern ()
     {
       (*i)->unTag ("?");
       (*i)->tag ("PATTERN");
-      (*i)->attribute ("pattern", pattern);
+      (*i)->tag ("EXPANDED");
+
+      Tree* branch = (*i)->addBranch (new Tree ("argPat"));
+      branch->attribute ("value", "description");
+
+      branch = (*i)->addBranch (new Tree ("argPat"));
+      branch->attribute ("value", "~");
+      branch->tag ("OP");
+
+      branch = (*i)->addBranch (new Tree ("argPat"));
+      branch->attribute ("value", pattern);
     }
   }
 }