Subject: [Boost-commit] svn:boost r60997 - trunk/libs/spirit/example/scheme/input
From: joel_at_[hidden]
Date: 2010-04-02 08:43:34
Author: djowel
Date: 2010-04-02 08:43:33 EDT (Fri, 02 Apr 2010)
New Revision: 60997
URL: http://svn.boost.org/trac/boost/changeset/60997
Log:
no more actions
Text files modified:
trunk/libs/spirit/example/scheme/input/sexpr.hpp | 21 +++++++++++----------
1 files changed, 11 insertions(+), 10 deletions(-)
Modified: trunk/libs/spirit/example/scheme/input/sexpr.hpp
==============================================================================
--- trunk/libs/spirit/example/scheme/input/sexpr.hpp (original)
+++ trunk/libs/spirit/example/scheme/input/sexpr.hpp 2010-04-02 08:43:33 EDT (Fri, 02 Apr 2010)
@@ -136,27 +136,28 @@
list = '(' >> *start >> ')';
- atom = number [_val = _1]
- | bool_ [_val = _1]
- | string [_val = _1]
- | byte_str [_val = _1]
- | symbol [_val = _1]
+ atom = strict_double
+ | integer
+ | bool_
+ | string
+ | byte_str
+ | symbol
;
char const* exclude = " ();\"\0-\31\127";
symbol = lexeme[+(~char_(exclude))];
- number = strict_double [_val = _1]
- | lexeme[no_case["0x"] >> hex] [_val = _1]
- | lexeme['0' >> oct] [_val = _1]
- | int_ [_val = _1]
+ integer = lexeme[no_case["0x"] >> hex]
+ | lexeme['0' >> oct]
+ | int_
;
byte_str = lexeme[no_case['b'] >> +hex2];
}
rule<Iterator, white_space<Iterator>, utree()> start, list;
- rule<Iterator, utree()> atom, number;
+ rule<Iterator, int()> integer;
+ rule<Iterator, utree()> atom;
rule<Iterator, utf8_symbol()> symbol;
rule<Iterator, binary_string()> byte_str;
scheme::input::string<Iterator> string;