From 0f7e4e36aeb95f3e39a940d6e19748d910d40d92 Mon Sep 17 00:00:00 2001
From: Maurus Cuelenaere <mcuelenaere@gmail.com>
Date: Fri, 22 May 2009 22:44:34 +0000
Subject: Lua:  * 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
---
 apps/plugins/lua/action_helper.pl | 31 ++++++++++++++++++++++++-------
 1 file changed, 24 insertions(+), 7 deletions(-)

(limited to 'apps/plugins/lua/action_helper.pl')

diff --git a/apps/plugins/lua/action_helper.pl b/apps/plugins/lua/action_helper.pl
index 8460b6cb2a..f1a1e12d60 100755
--- a/apps/plugins/lua/action_helper.pl
+++ b/apps/plugins/lua/action_helper.pl
@@ -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";
-- 
cgit v1.2.3