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         #include "lauxlib.h"
  27         #include "lualib.h"
  28 }
  29
  30 #define LUABIND_NO_HEADERS_ONLY
  31
  32 #include <luabind/luabind.hpp>
  33
  34 using namespace luabind::detail;
  35
  36 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)
  37 {
  38         int min_but_one_match = std::numeric_limits<int>::max();
  39         bool found = false;
  40
  41         for (int index = 0; index < num_overloads; ++index)
  42         {
  43                 int match_value = start->match(L, num_params);
  44                 reinterpret_cast<const char*&>(start) += orep_size;
  45
  46                 if (match_value < 0) continue;
  47                 if (match_value < min_match)
  48                 {
  49                         found = true;
  50                         match_index = index;
  51                         min_but_one_match = min_match;
  52                         min_match = match_value;
  53                 }
  54                 else if (match_value < min_but_one_match)
  55                 {
  56                         min_but_one_match = match_value;
  57                 }
  58         }
  59
  60         ambiguous = min_match == min_but_one_match && min_match < std::numeric_limits<int>::max();
  61         return found;
  62 }
  63
  64 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)
  65 {
  66         for (int i = 0; i < num_overloads; ++i)
  67         {
  68                 int match_value = start->match(L, num_params);
  69                 if (match_value == cmp_match) dest.push_back(start);
  70                 reinterpret_cast<const char*&>(start) += orep_size;
  71         }
  72 }