// semver.compare("v1.0.1-beta", "1.2") > 0?
tb_int_t xm_semver_compare(lua_State* lua)
{
// check
tb_assert_and_check_return_val(lua, 0);
// get the version1 string
tb_char_t const* version1_str = luaL_checkstring(lua, 1);
tb_check_return_val(version1_str, 0);
// get the version2 string
tb_char_t const* version2_str = luaL_checkstring(lua, 2);
tb_check_return_val(version2_str, 0);
// try to parse version1 string
semver_t semver1 = {0};
if (semver_tryn(&semver1, version1_str, tb_strlen(version1_str)))
{
lua_pushnil(lua);
lua_pushfstring(lua, "unable to parse semver '%s'", version1_str);
return 2;
}
// try to parse version2 string
semver_t semver2 = {0};
if (semver_tryn(&semver2, version2_str, tb_strlen(version2_str)))
{
lua_pushnil(lua);
lua_pushfstring(lua, "unable to parse semver '%s'", version2_str);
return 2;
}
// do compare
lua_pushinteger(lua, semver_pcmp(&semver1, &semver2));
// end
semver_dtor(&semver1);
semver_dtor(&semver2);
return 1;
}
/* //////////////////////////////////////////////////////////////////////////////////////
* private implementation
*/
static tb_bool_t xm_semver_select_from_versions_tags(lua_State* lua, tb_int_t fromidx, semver_t* semver, semver_range_t const* range, semvers_t* matches)
{
// clear matches
semvers_pclear(matches);
// select all matches
lua_Integer i = 0;
luaL_checktype(lua, fromidx, LUA_TTABLE);
for (i = lua_objlen(lua, fromidx); i > 0; --i)
{
lua_pushinteger(lua, i);
lua_gettable(lua, fromidx);
tb_char_t const* source_str = luaL_checkstring(lua, -1);
if (source_str && semver_tryn(semver, source_str, tb_strlen(source_str)) == 0)
{
if (semver_range_pmatch(semver, range)) semvers_ppush(matches, *semver);
else semver_dtor(semver);
}
}
// no matches?
tb_check_return_val(matches->length, tb_false);
// sort matches
semvers_psort(matches);
// get the newest version
semver_t top = semvers_ppop(matches);
lua_createtable(lua, 0, 2);
// return results
lua_pushstring(lua, top.raw);
lua_setfield(lua, -2, "version");
lua_pushstring(lua, fromidx == 2? "versions" : "tags");
lua_setfield(lua, -2, "source");
// exit the popped semver
semver_dtor(&top);
// ok
return tb_true;
}
// 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;
}
