devs/foxbox
1
0
Fork 0
forked from len0rd/rockbox
Code Pull requests Activity

Lua:

Browse source 
* add action_get_touchscreen_press wrapper
 * fix kbd_input wrapper
 * rework luaL_loadfile
 * add rb.contexts


git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21046 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Maurus Cuelenaere 2009-05-22 22:44:34 +00:00
parent 475b5dc2bb
commit 0f7e4e36ae
6 changed files with 105 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

31
apps/plugins/lua/action_helper.pl
View file

@ -22,21 +22,38 @@ $input = $ARGV[0] . "/../../action.h";
open(ACTION, "<$input") or die "Can't open $input!";
print "-- Don't change this file!\n";
print "-- It is automatically generated of action.h\n";
print "rb.actions = {\n";
$i = 0;
$j = 0;
while(my $line = <ACTION>)
{
chomp($line);
if($line =~ /^\s*(ACTION_[^\s]+)(\s*=.*)?,$/)
if($line =~ /^\s*(ACTION_[^\s]+)(\s*=.*)?,\s*$/)
{
printf "\t%s = %d,\n", $1, $i;
$actions[$i] = sprintf("\t%s = %d,\n", $1, $i);
$i++;
}
elsif($line =~ /^\s*(CONTEXT_[^\s]+)(\s*=.*)?,\s*$/)
{
$contexts[$j] = sprintf("\t%s = %d,\n", $1, $j);
$j++;
}
}
close(ACTION);
print "-- Don't change this file!\n";
printf "-- It is automatically generated of action.h %s\n", '$Revision';
print "rb.actions = {\n";
foreach $action(@actions)
{
print $action;
}
print "}\n";
close(ACTION);
print "rb.contexts = {\n";
foreach $context(@contexts)
{
print $context;
}
print "}\n";