00001 // Copyright (C) 2007, 2008, 2009 EPITA Research and Development Laboratory (LRDE) 00002 // 00003 // This file is part of Olena. 00004 // 00005 // Olena is free software: you can redistribute it and/or modify it under 00006 // the terms of the GNU General Public License as published by the Free 00007 // Software Foundation, version 2 of the License. 00008 // 00009 // Olena is distributed in the hope that it will be useful, 00010 // but WITHOUT ANY WARRANTY; without even the implied warranty of 00011 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00012 // General Public License for more details. 00013 // 00014 // You should have received a copy of the GNU General Public License 00015 // along with Olena. If not, see <http://www.gnu.org/licenses/>. 00016 // 00017 // As a special exception, you may use this file as part of a free 00018 // software project without restriction. Specifically, if other files 00019 // instantiate templates or use macros or inline functions from this 00020 // file, or you compile this file and link it with other files to produce 00021 // an executable, this file does not by itself cause the resulting 00022 // executable to be covered by the GNU General Public License. This 00023 // exception does not however invalidate any other reasons why the 00024 // executable file might be covered by the GNU General Public License. 00025 00026 #ifndef MLN_FUN_COMPONENT_SCOMP_HH 00027 # define MLN_FUN_COMPONENT_SCOMP_HH 00028 00033 00034 # include <mln/fun/unary.hh> 00035 # include <mln/fun/component/comp.hh> 00036 00037 namespace mln 00038 { 00039 00040 namespace fun 00041 { 00042 00043 template <unsigned ith> 00044 struct scomp : unary< scomp<ith> > 00045 { 00046 }; 00047 00048 } // end of namespace mln::fun 00049 00050 # ifndef MLN_INCLUDE_ONLY 00051 00052 namespace trait 00053 { 00054 00055 namespace next 00056 { 00057 00058 template <unsigned ith, typename T> 00059 struct set_unary_<fun::scomp<ith>, mln::Object, T> 00060 { 00061 typedef set_unary_ ret; 00062 typedef mln_trait_nunary(fun::comp, T) comp_t; 00063 00064 typedef T argument; 00065 typedef mln_result(comp_t) result; 00066 typedef mln_lvalue(comp_t) lvalue; 00067 00068 static result read(const argument& v) 00069 { 00070 return comp_t::read(ith, v); 00071 } 00072 00073 static void write(lvalue l, const result& r) 00074 { 00075 comp_t::write(ith, l, r); 00076 } 00077 }; 00078 00079 } // end of namespace mln::trait::next 00080 00081 } // end of namespace mln::trait 00082 00083 # endif // ! MLN_INCLUDE_ONLY 00084 00085 } // end of namespace mln 00086 00087 #endif // ! MLN_FUN_COMPONENT_SCOMP_HH