diff -r cdc5f8f1b79e -r e2acfa51664f Hid/Tables/genUsageTableEnum.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Hid/Tables/genUsageTableEnum.pl	Sun Mar 15 20:30:00 2015 +0100
@@ -0,0 +1,106 @@
+#!/usr/local/bin/perl
+#Developed by Stéphane Lenclud
+#Generate C# enumeration from parsing Hid Usage Table
+#See ../data/gl.h
+#Usage example
+#perl -S genUsageTableEnum.pl ../data/gl.h
+
+use strict;
+use warnings;	
+
+
+my $inputFile = $ARGV[0];
+
+#my $dummy="lala";
+#$dummy=~s/(^\w)/uc($1)/e;
+#print "$dummy";
+#exit(0);
+
+#Open input file
+open INPUT, "< $inputFile" or die "Can't read $inputFile\n";
+my @lines = <INPUT>;
+close INPUT;
+
+
+my %hash = ();
+
+my $count=0;
+foreach my $line(@lines)
+	{
+	#if ($line=~ /^([a-fA-FxX\d]+)(.+)\s+\w+\s+15\..*$/)	
+	if ($line=~ /^([a-fA-FxX\d]+)(.+)\s+\w+\s+\d+\..*$/)
+		{
+		my $string=$2;
+		my $value=$1;
+		
+		my $varName=FormatVarName($string);	
+
+		
+		$hash{$string}=$value;
+		
+		print "$varName = 0x$value,\n";			
+		}
+	else
+		{
+		#print "NO MATCH $line\n";
+		}
+	}
+
+exit(0);	
+	
+#Output in sorted order	
+for my $string ( sort keys %hash )
+	{	
+    #print "_S8(\"$string\"),$hash{$string}, //$count\n";
+    print "_S8(\"$string\"),$string, //$count\n";						
+    $count++;	
+    }	
+	
+	
+print "$count const found.\n";	
+	
+exit(0);
+
+#	
+
+sub FormatVarName
+	{
+	my $text=$_[0];	
+	my $varName="";
+	Trim($text);
+	#Make sure AC ends up as AppCtrl
+	$text=~s/(^AC)/App Ctrl/;
+	#Make sure AL ends up as AppLaunch
+	$text=~s/(^AL)/App Launch/;		
+	#Replace / by white-space
+	$text=~s/\// /g;
+	#Replace + with Plus
+	$text=~s/\+/Plus/g;
+	#Replace - with white-space
+	$text=~s/-/ /g;
+
+	
+	$text=lc($text);
+	while ($text=~/(\w+)\s+(.+)/)
+		{		
+		my $word=$1;
+		$text=$2;
+		#upper case the first letter
+		$word=~s/(^\w)/uc($1)/e;	
+		$varName.=$word;		
+		}
+	
+	$text=~s/(^\w)/uc($1)/e;					
+	$varName.=$text;		
+	#get ride of -			
+	$varName=~s/-(\w)/uc($1)/e;
+
+	return $varName;
+	}
+	
+sub Trim
+	{
+	$_[0] =~ s/^\s+//; #Trim leading space and line return char
+	$_[0] =~ s/\s+$//; #Trim trailling space and line return char
+	}	
+