parse.pl

华邦的W996[78]cf芯片组的摄象头驱动程序

#!/usr/bin/perl

# Short perl script to produce a useful kernel code for the testing of the 
# winbond_9967cf driver for linux.

# It require as input the data processed by sniff2mod by David Gouchard 
# ([e-mail], http://www.laas.fr/~gauchard) Thanks David!!!

# Use:
# cat sniff2mod_data | ./parse.pl

# by Raffaele Spangaro <[e-mail]>
# http://www.keatch.f2.com


print "short reg_value;\n\n";
while (<>) {
  chomp;
  @values=split(/,/,$_);

  $values[3] =~ /W9968_SET_REG/ && 
    printf("if(w9967cf_reg_set(cam->dev,%s,%s)<0) return -1;\n",$values[5],$values[4]);

  $values[3] =~ /W9968_GET_REG/ &&  
    printf("if(w9967cf_reg_get(cam->dev,%s,&reg_value)<0) return -1;\n",$values[5]);

  
  if ($values[0] =~ /(usb_set)/ ) {
    $_ = $values[2]; s/\)\);//g;
    printf("if(usb_set_interface(cam->dev,0,%s)<0) return -1;\n",$_);
  }
}