1 /*============================================================================= 2 Copyright (c) 1999-2003 Jaakko Jarvi 3 Copyright (c) 1999-2003 Jeremiah Willcock 4 Copyright (c) 2001-2011 Joel de Guzman 5 6 Distributed under the Boost Software License, Version 1.0. (See accompanying 7 file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt) 8 ==============================================================================*/ 9 #if !defined(FUSION_IN_05052005_0121) 10 #define FUSION_IN_05052005_0121 11 12 #include <boost/fusion/support/config.hpp> 13 #include <istream> 14 #include <boost/fusion/sequence/io/detail/manip.hpp> 15 16 #include <boost/mpl/bool.hpp> 17 #include <boost/fusion/sequence/intrinsic/begin.hpp> 18 #include <boost/fusion/sequence/intrinsic/end.hpp> 19 #include <boost/fusion/iterator/deref.hpp> 20 #include <boost/fusion/iterator/next.hpp> 21 #include <boost/fusion/iterator/equal_to.hpp> 22 23 namespace boost { namespace fusion { namespace detail 24 { 25 template <typename Tag> 26 struct delimiter_in 27 { 28 // read a delimiter 29 template <typename IS> 30 static void readboost::fusion::detail::delimiter_in31 read(IS& is, char const* delim, mpl::false_ = mpl::false_()) 32 { 33 detail::string_ios_manip<Tag, IS> manip(is); 34 manip.read(delim); 35 } 36 37 template <typename IS> 38 static void readboost::fusion::detail::delimiter_in39 read(IS&, char const*, mpl::true_) 40 { 41 } 42 }; 43 44 struct read_sequence_loop 45 { 46 template <typename IS, typename First, typename Last> 47 static void callboost::fusion::detail::read_sequence_loop48 call(IS&, First const&, Last const&, mpl::true_) 49 { 50 } 51 52 template <typename IS, typename First, typename Last> 53 static void callboost::fusion::detail::read_sequence_loop54 call(IS& is, First const& first, Last const& last, mpl::false_) 55 { 56 result_of::equal_to< 57 typename result_of::next<First>::type 58 , Last 59 > 60 is_last; 61 62 is >> *first; 63 delimiter_in<tuple_delimiter_tag>::read(is, " ", is_last); 64 call(is, fusion::next(first), last, is_last); 65 } 66 67 template <typename IS, typename First, typename Last> 68 static void callboost::fusion::detail::read_sequence_loop69 call(IS& is, First const& first, Last const& last) 70 { 71 result_of::equal_to<First, Last> eq; 72 call(is, first, last, eq); 73 } 74 }; 75 76 template <typename IS, typename Sequence> 77 inline void read_sequence(IS & is,Sequence & seq)78 read_sequence(IS& is, Sequence& seq) 79 { 80 delimiter_in<tuple_open_tag>::read(is, "("); 81 read_sequence_loop::call(is, fusion::begin(seq), fusion::end(seq)); 82 delimiter_in<tuple_close_tag>::read(is, ")"); 83 } 84 }}} 85 86 #endif 87