#!/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

	}