Change the parameter parser to Piraha

git-svn-id: http://svn.cactuscode.org/flesh/trunk@4960 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 27 insertions, 0 deletions

diff --git a/src/piraha/Seq.cc b/src/piraha/Seq.cc
new file mode 100644
index 00000000..971c3e44
--- /dev/null
+++ b/src/piraha/Seq.cc
@@ -0,0 +1,27 @@
+#include <iostream>
+#include <stdarg.h>
+#include "Piraha.hpp"
+
+Seq::Seq(Pattern *p,...) {
+    va_list ap;
+    va_start(ap,p);
+    patterns.push_back(p);
+    while(true) {
+        Pattern *pat = va_arg(ap,Pattern*);
+        if(pat == NULL)
+            break;
+        assert(patterns.size()<6);
+        patterns.push_back(pat);
+    }
+    va_end(ap);
+}
+Seq::Seq(vector<smart_ptr<Pattern> > p,bool ign,bool show) : patterns(p) {}
+
+bool Seq::match(Matcher *m) {
+    typedef vector<smart_ptr<Pattern> >::iterator pattern_iter;
+    for(pattern_iter p = patterns.begin();p != patterns.end();++p) {
+        if(!(*p)->match(m))
+            return false;
+    }
+    return true;
+}