[PD-cvs] externals/hcs/hid make-arrays-from-input.h.pl,1.8,1.9

[Hans-Christoph Steiner]

Update of /cvsroot/pure-data/externals/hcs/hid
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21680

Modified Files:
	make-arrays-from-input.h.pl 
Log Message:
SYN_MAX is not set in linux/input.h and there are only two event codes listed.  But the kernel actually puts out a lot of different SYN events.  So this script now generates a ev_syn array with 512 init'ed items in the array.  That should stop the sigfaults, but it might be a hack

Index: make-arrays-from-input.h.pl
===================================================================
RCS file: /cvsroot/pure-data/externals/hcs/hid/make-arrays-from-input.h.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** make-arrays-from-input.h.pl	11 Jun 2005 03:04:40 -0000	1.8
--- make-arrays-from-input.h.pl	24 Jan 2006 17:44:40 -0000	1.9
***************
*** 1,3 ****
! #!/usr/bin/perl 
  
  use Switch;
--- 1,3 ----
! #!/usr/bin/perl -w
  
  use Switch;
***************
*** 38,42 ****
  	 { 
  		  if ($2) { $index = hex($3); } else { $index = $3; }
! 		  if ($index >=0) 
  		  {
  				$returnArray[0] = $index;
--- 38,42 ----
  	 { 
  		  if ($2) { $index = hex($3); } else { $index = $3; }
! 		  if ($index >= 0) 
  		  {
  				$returnArray[0] = $index;
***************
*** 50,53 ****
--- 50,73 ----
  
  #------------------------------------------------------------------------
+ # 
+ #  this is under construction to make the MAX switch structure cleaner
+ # donno if it works yet.
+ sub createNewArray
+ {
+ 	 my $myTypeName = shift;
+ 	 my $myTypeMaxName = shift;
+ 
+ 	 my $myIndex;
+ 	 my $myValue;
+ 	 my @myNewArray;
+ 
+ 	 ($myIndex, $myValue) = getDataFromHeaderLine($myTypeMaxName);
+ 	 @myNewArray = initArrayWithGenericNames( $myTypeName, $myIndex + 1 );
+ 	 
+ 	 return @myNewArray;
+ }
+ 
+ 
+ #------------------------------------------------------------------------
  # declare each array in the header
  #
***************
*** 157,163 ****
  				case "KEY"       { ($index, $value) = getDataFromHeaderLine($_);
  										 @KEY = initArrayWithGenericNames( "KEY", $index + 1 ); }
!             # BTN codes are actually part of the KEY type
! 				case "BTN"       { ($index, $value) = getDataFromHeaderLine($_);
! 										 @BTN = initArrayWithGenericNames( "KEY", $index + 1 ); }
  				case "REL"       { ($index, $value) = getDataFromHeaderLine($_);
  										 @REL = initArrayWithGenericNames( "REL", $index + 1 ); }
--- 177,183 ----
  				case "KEY"       { ($index, $value) = getDataFromHeaderLine($_);
  										 @KEY = initArrayWithGenericNames( "KEY", $index + 1 ); }
! # BTN codes are actually part of the KEY type, so this array is unused
! #				case "BTN"       { ($index, $value) = getDataFromHeaderLine($_);
! #										 @BTN = initArrayWithGenericNames( "KEY", $index + 1 ); }
  				case "REL"       { ($index, $value) = getDataFromHeaderLine($_);
  										 @REL = initArrayWithGenericNames( "REL", $index + 1 ); }
***************
*** 183,186 ****
--- 203,210 ----
  }
  
+ # there is no SYN_MAX defined in input.h, so we set it here:
+ @SYN = initArrayWithGenericNames( "SYN", 512 );
+ 
+ 
  seek( INPUT_H, 0, 0 );
  while (<INPUT_H>)