VNFs/DPPD-PROX/lua_compat.h

   1 /*
   2 // Copyright (c) 2010-2017 Intel Corporation
   3 //
   4 // Licensed under the Apache License, Version 2.0 (the "License");
   5 // you may not use this file except in compliance with the License.
   6 // You may obtain a copy of the License at
   7 //
   8 //     http://www.apache.org/licenses/LICENSE-2.0
   9 //
  10 // Unless required by applicable law or agreed to in writing, software
  11 // distributed under the License is distributed on an "AS IS" BASIS,
  12 // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  13 // See the License for the specific language governing permissions and
  14 // limitations under the License.
  15 */
  16
  17 #ifndef _LUA_COMPAT_H_
  18 #define _LUA_COMPAT_H_
  19
  20 #include <lua.h>
  21 #include <lauxlib.h>
  22 #include <lualib.h>
  23
  24 #if LUA_VERSION_NUM < 503
  25 #include <float.h>
  26 static int lua_isinteger(lua_State *L, int idx)
  27 {
  28         if (!lua_isnumber(L, idx)) {
  29                 return -1;
  30         }
  31
  32         double whole = lua_tonumber(L, idx);
  33         whole -= lua_tointeger(L, idx);
  34         return whole < DBL_EPSILON && whole >= -DBL_EPSILON ;
  35 }
  36 #endif
  37
  38 #if LUA_VERSION_NUM < 502
  39 static int lua_len(lua_State *L, int idx)
  40 {
  41        int len = lua_objlen(L, idx);
  42
  43        lua_pushnumber(L, len);
  44        return len;
  45 }
  46 #endif
  47
  48 #endif /* _LUA_COMPAT_H_ */