** Gets an optional ending string position from argument 'arg', ** with default value 'def'. ** Negative means back from end: clip result to [0, len] */
| 85 | ** Negative means back from end: clip result to [0, len] |
| 86 | */ |
| 87 | static size_t getendpos (lua_State *L, int arg, lua_Integer def, |
| 88 | size_t len) { |
| 89 | lua_Integer pos = luaL_optinteger(L, arg, def); |
| 90 | if (pos > (lua_Integer)len) |
| 91 | return len; |
| 92 | else if (pos >= 0) |
| 93 | return (size_t)pos; |
| 94 | else if (pos < -(lua_Integer)len) |
| 95 | return 0; |
| 96 | else return len + (size_t)pos + 1; |
| 97 | } |
| 98 | |
| 99 | |
| 100 | static int str_sub (lua_State *L) { |
no test coverage detected