bcfba08055
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21023 a1c6a512-1295-4272-9138-f99709370657
42 lines
1.3 KiB
Perl
Executable file
42 lines
1.3 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!";
|
|
|
|
print "-- Don't change this file!\n";
|
|
print "-- It is automatically generated of action.h\n";
|
|
print "rb.actions = {\n";
|
|
|
|
$i = 0;
|
|
while(my $line = <ACTION>)
|
|
{
|
|
chomp($line);
|
|
if($line =~ /^\s*(ACTION_[^\s]+)(\s*=.*)?,$/)
|
|
{
|
|
printf "\t%s = %d,\n", $1, $i;
|
|
$i++;
|
|
}
|
|
}
|
|
|
|
print "}\n";
|
|
|
|
close(ACTION);
|