Nyaaori/rockbox
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lua rocklib_aux.pl support for enums

Browse source 
everything that would have been added has already been added or
needs more supporting functions so they've been excluded for the time being

Change-Id: I4ae4753c543287934702a3bd2eeccce5b032235d
This commit is contained in:
William Wilgus 2019-09-27 03:15:57 -05:00
parent bad739c0d8
commit 4fb783582f
1 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
apps/plugins/lua/rocklib_aux.pl
View file

@ -21,7 +21,7 @@
# The purpose of this script is to automatically generate Lua wrappers for
# (easily) portable C functions used in the Rockbox plugin API.
# It doesn't contain support for enums, structs or pointers (apart from char*).
# It doesn't contain support for structs or pointers (apart from char*).
#
# The output will be written to <build_dir>/apps/plugins/lua/rocklib_aux.c
@ -104,6 +104,7 @@ my @forbidden_functions = ('^atoi$',
'^pcm_(apply_settings|get_bytes_waiting)$',
'^pcm_(set_frequency|calculate_peaks)$',
'^sound_(set|current|default|min|max|unit|pitch|val2phys)$',
'^mixer_channel.*$',
'^mixer_(set|get)_frequency$',
'^plugin_get_current_filename$',
'^plugin_release_audio_buffer$',
@ -112,12 +113,15 @@ my @forbidden_functions = ('^atoi$',
'^set_dirfilter$',
'^sleep$',
'^system_memory_guard$',
'^system_sound_play$',
'^talk_number$',
'^talk_force_shutup$',
'^talk_spell$',
'^talk_shutup$',
'^(trigger|cancel)_cpu_boost$',
'^thread_',
'^touchscreen_(get|set)_mode$',
'^viewportmanager_theme_undo$',
'^round_value_to_list32$');
my $rocklib = sprintf("%s/rocklib.c", $ARGV[0]);
@ -193,6 +197,7 @@ EOF
;
my %in_types = ('void' => \&in_void,
'enum' => \&in_enum,
'int' => \&in_int,
'unsigned' => \&in_int,
'unsignedint' => \&in_int,
@ -216,6 +221,7 @@ my %in_types = ('void' => \&in_void,
'bool' => \&in_bool,
'_Bool' => \&in_bool
), %out_types = ('void' => \&out_void,
'enum' => \&out_enum,
'int' => \&out_int,
'unsigned' => \&out_int,
'unsignedint' => \&out_int,
@ -245,6 +251,12 @@ sub in_void
return "\t(void)L;\n";
}
sub in_enum
{
my ($name, $type, $pos) = @_;
return sprintf("\t%s %s = luaL_checkint(L, %d); /*(enum)*/\n", "int", $name, $pos);
}
sub in_int
{
my ($name, $type, $pos) = @_;
@ -269,6 +281,12 @@ sub out_void
return sprintf("\t%s;\n\treturn 0;\n", $name);
}
sub out_enum
{
my ($name, $type) = @_;
return sprintf("\t%s result = %s;\n\tlua_pushinteger(L, result);\n\treturn 1; /*(enum)*/\n", "int", $name);
}
sub out_int
{
my ($name, $type) = @_;
@ -310,6 +328,7 @@ foreach my $function (@sorted_functions)
else
{
$literal_type = trim($1), $name = trim($2), $type = trim($1);
$type =~ s/^enum\s+.*/enum/g;
$type =~ s/(\s|const)//g;
if($name eq "")
@ -339,6 +358,7 @@ foreach my $function (@sorted_functions)
# Check for supported return value
my $return = @$function{'return'};
$return =~ s/^enum\s+.*/enum/g;
$return =~ s/(\s|const)//g;
#printf "/* %s: %s [%d] */\n", @$function{'name'}, $return, $valid;
if(!defined $out_types{$return})