lib/Funky/Private/ParsedFunction.h

   1 /* Funky: a light-weight embeddable programming language
   2  * Copyright (c) 2007, Ronald Landheer-Cieslak
   3  * All rights reserved
   4  *
   5  * This is free software. You may distribute it and/or modify it and
   6  * distribute modified forms provided that the following terms are met:
   7  *
   8  * * Redistributions of the source code must retain the above copyright
   9  *   notice, this list of conditions and the following disclaimer;
  10  * * Redistributions in binary form must reproduce the above copyright
  11  *   notice, this list of conditions and the following disclaimer in
  12  *   the documentation and/or other materials provided with the distribution;
  13  * * None of the names of the authors of this software may be used to endorse
  14  *   or promote this software, derived software or any distribution of this
  15  *   software or any distribution of which this software is part, without
  16  *   prior written permission from the authors involved;
  17  * * Unless you have received a written statement from Ronald Landheer-Cieslak
  18  *   that says otherwise, the terms of the GNU General Public License, as
  19  *   published by the Free Software Foundation, version 2 or (at your option)
  20  *   any later version, also apply.
  21  *
  22  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  23  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  24  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  25  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
  26  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  27  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  28  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  29  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  30  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  31  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  32  * POSSIBILITY OF SUCH DAMAGE.
  33  */
  34 #ifndef _funky_private_parsedfunction_h
  35 #define _funky_private_parsedfunction_h
  36
  37 namespace Funky
  38 {
  39         namespace Private
  40         {
  41                 // Parsed function. The result of a (!..., (...))
  42                 template < typename Arguments >
  43                 struct ParsedFunction : public StoredFunction< Arguments >
  44                 {
  45                         typedef boost::spirit::tree_node< boost::spirit::node_val_data<> > Node; // This is the type of a node in the parse tree
  46
  47                         ParsedFunction(int expected_args, Node node)
  48                                 : expected_args_(expected_args),
  49                                 node_(node)
  50                         { /* no-op */ }
  51
  52                         virtual Arguments call(Evaluator< Arguments > & evaluator, Arguments * arguments)
  53                         {
  54                                 if (expected_args_ != -1 && arguments->size() != expected_args_)
  55                                         throw Exceptions::FunctionCallError(Exceptions::FunctionCallError::argument_count_mismatch__, expected_args_, static_cast< int >(arguments->size()));
  56                                 else
  57                                 { /* argument count OK */ }
  58                                 return evaluator(node_, arguments).value_;
  59                         }
  60
  61                         int expected_args_;
  62                         Node node_;
  63                 };
  64         }
  65 }
  66
  67 #endif