0f7e4e36ae
* 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
59 lines
1.6 KiB
Perl
Executable file
59 lines
1.6 KiB
Perl
Executable file
#!/usr/bin/env perl
|
|
############################################################################
|
|
# __________ __ ___.
|
|
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
|
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
|
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
|
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
|
# \/ \/ \/ \/ \/
|
|
# $Id$
|
|
#
|
|
# Copyright (C) 2009 by Maurus Cuelenaere
|
|
#
|
|
# All files in this archive are subject to the GNU General Public License.
|
|
# See the file COPYING in the source tree root for full license agreement.
|
|
#
|
|
# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
|
|
# KIND, either express or implied.
|
|
#
|
|
############################################################################
|
|
|
|
$input = $ARGV[0] . "/../../action.h";
|
|
|
|
open(ACTION, "<$input") or die "Can't open $input!";
|
|
|
|
$i = 0;
|
|
$j = 0;
|
|
while(my $line = <ACTION>)
|
|
{
|
|
chomp($line);
|
|
if($line =~ /^\s*(ACTION_[^\s]+)(\s*=.*)?,\s*$/)
|
|
{
|
|
$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";
|
|
|
|
print "rb.contexts = {\n";
|
|
foreach $context(@contexts)
|
|
{
|
|
print $context;
|
|
}
|
|
print "}\n";
|