| // Copyright (c) 2001-2010 Hartmut Kaiser |
| // |
| // 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> |
| |
| #define BOOST_SPIRIT_UNICODE |
| |
| #include <iostream> |
| #include <fstream> |
| #include <iterator> |
| |
| #include <input/parse_sexpr_impl.hpp> |
| #include <output/generate_sexpr_impl.hpp> |
| |
| namespace client |
| { |
| bool parse_sexpr_from_file(char const* filename, scheme::utree& result) |
| { |
| std::ifstream in(filename, std::ios_base::in); |
| |
| if (!in) |
| { |
| std::cerr << "Error: Could not open input file: " |
| << filename << std::endl; |
| exit(-1); |
| } |
| |
| // Ignore the BOM marking the beginning of a UTF-8 file in Windows |
| char c = in.peek(); |
| if (c == '\xef') |
| { |
| char s[3]; |
| in >> s[0] >> s[1] >> s[2]; |
| s[3] = '\0'; |
| if (s != std::string("\xef\xbb\xbf")) |
| { |
| std::cerr << "Error: Unexpected characters from input file: " |
| << filename << std::endl; |
| exit(-1); |
| } |
| } |
| |
| return scheme::input::parse_sexpr(in, result); |
| } |
| |
| bool generate_sexpr_to_file(scheme::utree const& tree, char const* filename) |
| { |
| std::ofstream out(filename); |
| |
| if (!out) |
| { |
| std::cerr << "Error: Could not open output file: " |
| << filename << std::endl; |
| exit(-1); |
| } |
| |
| return scheme::output::generate_sexpr(out, tree); |
| } |
| } |
| |
| int main(int argc, char **argv) |
| { |
| char const* filename_in = NULL; |
| if (argc > 1) |
| { |
| filename_in = argv[1]; |
| } |
| else |
| { |
| std::cerr << "Error: No input file provided." << std::endl; |
| return -1; |
| } |
| |
| char const* filename_out = NULL; |
| if (argc > 2) |
| { |
| filename_out = argv[2]; |
| } |
| else |
| { |
| std::cerr << "Error: No output file provided." << std::endl; |
| return -1; |
| } |
| |
| scheme::utree result; |
| if (client::parse_sexpr_from_file(filename_in, result)) |
| { |
| if (client::generate_sexpr_to_file(result, filename_out)) |
| { |
| std::cout << "success!" << std::endl; |
| } |
| else |
| { |
| std::cout << "generate error" << std::endl; |
| } |
| } |
| else |
| { |
| std::cout << "parse error" << std::endl; |
| } |
| |
| return 0; |
| } |