mirror of
https://github.com/Rockbox/rockbox.git
synced 2026-07-10 13:29:52 -04:00
3152beee32
I was going to convert them to a git hash instead, but that would break builds from tarballs. Change-Id: I76213b8b65df2c6cfb73cba299a4975a22725f36
60 lines
1.7 KiB
Perl
Executable file
60 lines
1.7 KiB
Perl
Executable file
#!/usr/bin/env perl
|
|
############################################################################
|
|
# __________ __ ___.
|
|
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
|
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
|
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
|
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
|
# \/ \/ \/ \/ \/
|
|
#
|
|
# 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.
|
|
#
|
|
############################################################################
|
|
|
|
my $svnrev = '';
|
|
|
|
$i = 0;
|
|
$j = 0;
|
|
while(my $line = <STDIN>)
|
|
{
|
|
chomp($line);
|
|
if($line =~ /^\s*(ACTION_[^\s]+)(\s*=.*)?,\s*$/)
|
|
{
|
|
$actions[$i] = sprintf("\t%s = %d,\n", $1, $i);
|
|
$i++;
|
|
}
|
|
elsif($line =~ /^\s*(PLA_[^\s]+)(\s*=.*)?,\s*$/)
|
|
{
|
|
# PLA_* begins at LAST_ACTION_PLACEHOLDER+1, thus i+1
|
|
$actions[$i] = sprintf("\t%s = %d,\n", $1, $i+1);
|
|
$i++;
|
|
}
|
|
elsif($line =~ /^\s*(CONTEXT_[^\s]+)(\s*=.*)?,\s*$/)
|
|
{
|
|
$contexts[$j] = sprintf("\t%s = %d,\n", $1, $j);
|
|
$j++;
|
|
}
|
|
}
|
|
|
|
print "-- Don't change this file!\n";
|
|
printf "-- It is automatically generated of action.h (%s)\n", $svnrev;
|
|
|
|
print "rb.actions = {\n";
|
|
foreach $action(@actions)
|
|
{
|
|
print $action;
|
|
}
|
|
print "}\n";
|
|
|
|
print "rb.contexts = {\n";
|
|
foreach $context(@contexts)
|
|
{
|
|
print $context;
|
|
}
|
|
print "}\n";
|