Boost logo

Boost-Commit :

Subject: [Boost-commit] svn:boost r61565 - trunk/libs/spirit/example/scheme/test
From: joel_at_[hidden]
Date: 2010-04-25 22:18:02


Author: djowel
Date: 2010-04-25 22:18:02 EDT (Sun, 25 Apr 2010)
New Revision: 61565
URL: http://svn.boost.org/trac/boost/changeset/61565

Log:
qi primitives working
Text files modified:
   trunk/libs/spirit/example/scheme/test/qi_interpreter.cpp | 6 +++---
   1 files changed, 3 insertions(+), 3 deletions(-)

Modified: trunk/libs/spirit/example/scheme/test/qi_interpreter.cpp
==============================================================================
--- trunk/libs/spirit/example/scheme/test/qi_interpreter.cpp (original)
+++ trunk/libs/spirit/example/scheme/test/qi_interpreter.cpp 2010-04-25 22:18:02 EDT (Sun, 25 Apr 2010)
@@ -41,7 +41,7 @@
         int new_rule(Expr const& expr)
         {
             rules.push_back(Rule());
- rules.front() = expr;
+ rules.back() = expr;
             return rules.size()-1;
         }
 
@@ -211,11 +211,11 @@
             "(define r (qi:char_ \"x\"))"
             "(define r2 (qi:int_))";
         interpreter parser(src, "parse.scm", &env);
- //~ std::cout << parser["r"]() << std::endl;
- //~ std::cout << parser["r2"]() << std::endl;
 
         BOOST_TEST(test("x", fragments.get_rule(parser["r"]()), space));
         BOOST_TEST(!test("y", fragments.get_rule(parser["r"]()), space));
+ BOOST_TEST(test("1234", fragments.get_rule(parser["r2"]()), space));
+ BOOST_TEST(!test("x1234", fragments.get_rule(parser["r2"]()), space));
 
 
     }


Boost-Commit list run by bdawes at acm.org, david.abrahams at rcn.com, gregod at cs.rpi.edu, cpdaniel at pacbell.net, john at johnmaddock.co.uk