[Boost-commit] svn:boost r61577 - trunk/libs/spirit/example/scheme/test/qi

Subject: [Boost-commit] svn:boost r61577 - trunk/libs/spirit/example/scheme/test/qi
From: joel_at_[hidden]
Date: 2010-04-26 09:02:32

Author: djowel
Date: 2010-04-26 09:02:30 EDT (Mon, 26 Apr 2010)
New Revision: 61577
URL: http://svn.boost.org/trac/boost/changeset/61577

Log:
lists of ints grammar almost working
Text files modified: 
   trunk/libs/spirit/example/scheme/test/qi/calc.scm |    25 ++++++++++++++++++++++++-               
   1 files changed, 24 insertions(+), 1 deletions(-)

Modified: trunk/libs/spirit/example/scheme/test/qi/calc.scm
==============================================================================
--- trunk/libs/spirit/example/scheme/test/qi/calc.scm	(original)
+++ trunk/libs/spirit/example/scheme/test/qi/calc.scm	2010-04-26 09:02:30 EDT (Mon, 26 Apr 2010)
@@ -7,4 +7,27 @@
         (qi:*
             (qi:|
                 (qi:>> (qi:char_ "+") (qi:int_))
-                (qi:>> (qi:char_ "-") (qi:int_))))))
\ No newline at end of file
+                (qi:>> (qi:char_ "-") (qi:int_))))))
+
+; (define expression)
+
+; (define factor
+    ; (qi:|
+        ; (qi:int_)
+        ; (qi:>> (qi:char_ "(") (expression) (qi:char_ ")"))
+        ; (qi:>> (qi:char_ "-") (factor))
+        ; (qi:>> (qi:char_ "+") (factor))))
+
+; (define term
+    ; (qi:>> (factor)
+        ; (qi:*
+            ; (qi:|
+                ; (qi:>> (qi:char_ "*") (factor))
+                ; (qi:>> (qi:char_ "/") (factor))))))
+
+; (define expression
+    ; (qi:>> (term)
+        ; (qi:*
+            ; (qi:|
+                ; (qi:>> (qi:char_ "+") (term))
+                ; (qi:>> (qi:char_ "-") (term))))))
\ No newline at end of file