// satisfies wrapper
tb_int_t xm_semver_select(lua_State* lua)
{
semver_t semver = {0};
semvers_t matches = {0};
semver_range_t range = {0};
lua_Integer i;
size_t range_len = 0, source_len;
tb_char_t const* source_str;
tb_char_t const* source;
tb_bool_t is_range;
lua_settop(lua, 4);
// check
tb_assert_and_check_return_val(lua, 0);
// get the version string
tb_char_t const* range_str = luaL_checkstring(lua, 1);
tb_check_return_val(range_str, 0);
range_len = tb_strlen(range_str);
is_range = semver_rangen(&range, range_str, range_len) == 0;
if (is_range) {
source = "versions";
luaL_checktype(lua, 2, LUA_TTABLE);
for (i = lua_objlen(lua, 2); i > 0; --i) {
lua_pushinteger(lua, i);
lua_gettable(lua, 2);
source_str = luaL_checkstring(lua, -1);
tb_check_return_val(source_str, 0);
if (semver_tryn(&semver, source_str, tb_strlen(source_str)) == 0) {
if (semver_range_match(semver, range)) {
semvers_push(matches, semver);
} else {
semver_dtor(&semver);
}
}
}
if (matches.length) {
goto match;
}
semvers_clear(matches);
source = "tags";
luaL_checktype(lua, 3, LUA_TTABLE);
for (i = lua_objlen(lua, 3); i > 0; --i) {
lua_pushinteger(lua, i);
lua_gettable(lua, 3);
source_str = luaL_checkstring(lua, -1);
tb_check_return_val(source_str, 0);
if (semver_tryn(&semver, source_str, tb_strlen(source_str)) == 0) {
if (semver_range_match(semver, range)) {
semvers_push(matches, semver);
} else {
semver_dtor(&semver);
}
}
}
if (matches.length) {
goto match;
}
semvers_dtor(matches);
semver_range_dtor(&range);
}
source = "branches";
luaL_checktype(lua, 4, LUA_TTABLE);
for (i = lua_objlen(lua, 4); i > 0; --i) {
lua_pushinteger(lua, i);
lua_gettable(lua, 4);
source_str = luaL_checkstring(lua, -1);
tb_check_return_val(source_str, 0);
source_len = tb_strlen(source_str);
if (source_len == range_len && tb_memcmp(source_str, range_str, source_len) == 0) {
lua_createtable(lua, 0, 2);
lua_pushlstring(lua, source_str, source_len);
lua_setfield(lua, -2, "version");
lua_pushstring(lua, source);
lua_setfield(lua, -2, "source");
return 1;
}
}
if (!is_range) {
lua_pushnil(lua);
lua_pushfstring(lua, "Unable to parse semver range '%s'", range_str);
return 2;
}
lua_pushnil(lua);
lua_pushfstring(lua, "Unable to select version for range '%s'", range_str);
return 2;
match:
semvers_sort(matches);
semver = semvers_pop(matches);
lua_createtable(lua, 0, 2);
lua_pushstring(lua, semver.raw);
lua_setfield(lua, -2, "version");
lua_pushstring(lua, source);
lua_setfield(lua, -2, "source");
semvers_dtor(matches);
semver_dtor(&semver);
semver_range_dtor(&range);
return 1;
}
/* select version
*
* local versioninfo, errors = semver.select(">=1.5.0 <1.6", {"1.5.0", "1.5.1"}, {"v1.5.0", ..}, {"lastest", "dev"})
*/
tb_int_t xm_semver_select(lua_State* lua)
{
// check
tb_assert_and_check_return_val(lua, 0);
// select version
tb_bool_t ok = tb_false;
tb_bool_t is_range = tb_false;
tb_char_t const* range_str = tb_null;
semver_t semver = {0};
semvers_t matches = {0};
semver_range_t range = {0};
do
{
// get the version range string
range_str = luaL_checkstring(lua, 1);
tb_check_break(range_str);
// get the range string length
tb_size_t range_len = tb_strlen(range_str);
// parse the version range string
is_range = semver_rangen(&range, range_str, range_len) == 0;
if (is_range)
{
// attempt to select version from the versions list first
if (xm_semver_select_from_versions_tags(lua, 2, &semver, &range, &matches))
{
ok = tb_true;
break;
}
// attempt to select version from the tags list
if (xm_semver_select_from_versions_tags(lua, 3, &semver, &range, &matches))
{
ok = tb_true;
break;
}
}
// attempt to select version from the branches
if (xm_semver_select_from_branches(lua, 4, range_str, range_len))
{
ok = tb_true;
break;
}
// select the lastest version from the tags and versions if be lastest
if (!tb_strcmp(range_str, "lastest"))
{
// attempt to select lastest version from the versions list
if (xm_semver_select_lastest_from_versions_tags(lua, 2, &semver, &matches))
{
ok = tb_true;
break;
}
// attempt to select lastest version from the tags list
if (xm_semver_select_lastest_from_versions_tags(lua, 3, &semver, &matches))
{
ok = tb_true;
break;
}
}
} while (0);
// exit matches
semvers_dtor(matches);
// exit range
semver_range_dtor(&range);
// failed?
if (!ok)
{
if (!is_range)
{
lua_pushnil(lua);
lua_pushfstring(lua, "unable to parse semver range '%s'", range_str);
}
lua_pushnil(lua);
lua_pushfstring(lua, "unable to select version for range '%s'", range_str);
return 2;
}
// ok
return 1;
}
