| /*============================================================================= |
| Copyright (c) 2001-2010 Joel de Guzman |
| |
| Distributed under the Boost Software License, Version 1.0. (See accompanying |
| file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt) |
| =============================================================================*/ |
| #include <boost/config/warning_disable.hpp> |
| |
| #include <input/sexpr.hpp> |
| #include <input/parse_sexpr_impl.hpp> |
| #include <utree/io.hpp> |
| #include <iostream> |
| #include <fstream> |
| |
| inline std::ostream& println(std::ostream& out, scheme::utree const& val) |
| { |
| out << val << std::endl; |
| return out; |
| } |
| |
| void test(std::string const& in, std::string const& file) |
| { |
| scheme::utree result; |
| if (scheme::input::parse_sexpr(in, result, file)) |
| { |
| std::cout << "success: "; |
| println(std::cout, result); |
| std::cout << std::endl; |
| } |
| else |
| { |
| std::cout << "parse error" << std::endl; |
| } |
| } |
| |
| /////////////////////////////////////////////////////////////////////////////// |
| // Main program |
| /////////////////////////////////////////////////////////////////////////////// |
| int main() |
| { |
| test("(abc def)", "ok.sexpr"); |
| test("(abc (123 456) def)", "ok.sexpr"); |
| test("(abc \n(\"a string\" 456) \ndef)", "ok.sexpr"); |
| test("(abc \n(\"a string\" 456 \ndef)", "missing close paren.sexpr"); |
| test("(abc \n(\"a string 456) \ndef)", "missing double quote.sexpr"); |
| test("(abc \n(\"a string\" 0xggg) \ndef)", "erronoeus hex.sexpr"); |
| test("(abc \n(\"a \\zstring\" 999) \ndef)", "erronoeus escape.sexpr"); |
| test("(abc \n(\"a \\uzstring\" 999) \ndef)", "erronoeus escape.sexpr"); |
| return 0; |
| } |
| |
| |