encode_group

This commit is contained in:
2026-04-26 11:43:14 +02:00
parent ff6460ba0f
commit 33eb2c1c60
9 changed files with 67 additions and 28 deletions
+23
View File
@@ -385,4 +385,27 @@ int lua_convert_to_rdscharset(lua_State *localL) {
lua_pushstring(localL, output);
return 1;
}
int lua_encode_group(lua_State *localL) {
size_t len;
const char *grp = luaL_checklstring(localL, 1, &len);
if(len != 1) return luaL_error(localL, "expected a length of 1");
char PS_GROUP = 0;
RDSGroup group;
uint8_t good = check_rds_good_group(enc, grp);
if(good == 0) {
lua_pushboolean(localL, 0);
get_rds_sequence_group(enc, &group, 1, &PS_GROUP);
} else {
lua_pushboolean(localL, 1);
get_rds_sequence_group(enc, &group, 1, grp);
}
lua_pushinteger(localL, group.b);
lua_pushinteger(localL, group.c);
lua_pushinteger(localL, group.d);
return 4;
}