src/find_best_match.cpp

   1 // Copyright (c) 2003 Daniel Wallin and Arvid Norberg
   2
   3 // Permission is hereby granted, free of charge, to any person obtaining a
   4 // copy of this software and associated documentation files (the "Software"),
   5 // to deal in the Software without restriction, including without limitation
   6 // the rights to use, copy, modify, merge, publish, distribute, sublicense,
   7 // and/or sell copies of the Software, and to permit persons to whom the
   8 // Software is furnished to do so, subject to the following conditions:
   9
  10 // The above copyright notice and this permission notice shall be included
  11 // in all copies or substantial portions of the Software.
  12
  13 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF
  14 // ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
  15 // TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
  16 // PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT
  17 // SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
  18 // ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
  19 // ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  20 // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE
  21 // OR OTHER DEALINGS IN THE SOFTWARE.
  22
  23 extern "C"
  24 {
  25         #include "lua.h"
  26 }
  27
  28 #include <luabind/luabind.hpp>
  29
  30 using namespace luabind::detail;
  31
  32 bool luabind::detail::find_best_match(lua_State* L, const overload_rep_base* start, int num_overloads, size_t orep_size, bool& ambiguous, int& min_match, int& match_index, int num_params)
  33 {
  34         int min_but_one_match = std::numeric_limits<int>::max();
  35         bool found = false;
  36
  37         for (int index = 0; index < num_overloads; ++index)
  38         {
  39                 int match_value = start->match(L, num_params);
  40                 reinterpret_cast<const char*&>(start) += orep_size;
  41
  42                 if (match_value < 0) continue;
  43                 if (match_value < min_match)
  44                 {
  45                         found = true;
  46                         match_index = index;
  47                         min_but_one_match = min_match;
  48                         min_match = match_value;
  49                 }
  50                 else if (match_value < min_but_one_match)
  51                 {
  52                         min_but_one_match = match_value;
  53                 }
  54         }
  55
  56         ambiguous = min_match == min_but_one_match && min_match < std::numeric_limits<int>::max();
  57         return found;
  58 }
  59
  60 void luabind::detail::find_exact_match(lua_State* L, const overload_rep_base* start, int num_overloads, size_t orep_size, int cmp_match, int num_params, std::vector<const overload_rep_base*>& dest)
  61 {
  62         for (int i = 0; i < num_overloads; ++i)
  63         {
  64                 int match_value = start->match(L, num_params);
  65                 if (match_value == cmp_match) dest.push_back(start);
  66                 reinterpret_cast<const char*&>(start) += orep_size;
  67         }
  68 }