aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/sn9c201
diff options
context:
space:
mode:
authorMauro Carvalho Chehab <mchehab@s-opensource.com>2017-09-12 11:03:22 -0300
committerMauro Carvalho Chehab <mchehab@s-opensource.com>2017-09-12 11:03:22 -0300
commit25f2a457f9a6615883a81c71c4e6d2dfe4f308b1 (patch)
treeedd5f8893d0eb4c9371d3d8dde977f6dedb6a4c0 /contrib/sn9c201
parentf07b90a87a92bd3df088c7f4a40fc46a26f7c630 (diff)
contrib: move parsers to a separate directory
In order to organize the tree, let's place the USB parsers on a separate directory. Signed-off-by: Mauro Carvalho Chehab <mchehab@s-opensource.com>
Diffstat (limited to 'contrib/sn9c201')
-rwxr-xr-xcontrib/sn9c201/parse_sn9c201.pl206
1 files changed, 0 insertions, 206 deletions
diff --git a/contrib/sn9c201/parse_sn9c201.pl b/contrib/sn9c201/parse_sn9c201.pl
deleted file mode 100755
index b4322878..00000000
--- a/contrib/sn9c201/parse_sn9c201.pl
+++ /dev/null
@@ -1,206 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright (C) 2010 Mauro Carvalho Chehab
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, version 2 of the License.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# This small script parses USB dumps generated by several drivers,
-# decoding USB bits.
-#
-# To use it, do:
-# dmesg | ./parse_usb.pl
-#
-# Also, there are other utilities that produce similar outputs, and it
-# is not hard to parse some USB analyzers log into the expected format.
-#
-use strict;
-use Getopt::Long;
-
-my $debug = 0;
-GetOptions('d' => \$debug);
-
-# FIXME: How to handle multiple registers being changed at the same time?
-
-my %reg_map = (
- 0x10e0 => "SN9C201_R10E0_IMG_FMT",
- 0x1180 => "SN9C201_R1180_HSTART_LOW",
- 0x1181 => "SN9C201_R1181_HSTART_HIGH",
- 0x1182 => "SN9C201_R1182_VSTART_LOW",
- 0x1183 => "SN9C201_R1183_VSTART_HIGH",
- 0x1184 => "SN9C201_R1184_HSIZE",
- 0x1185 => "SN9C201_R1185_VSIZE",
- 0x1189 => "SN9C201_R1189_SCALE",
- 0x11b8 => "SN9C201_R11B8_CLK_CTRL",
-);
-
-
-sub i2c_reg($)
-{
- my %decode;
- my $reg = shift;
-
- $reg =~ s/\s+.*//;
- $reg = hex("$reg");
-
- if ($reg & 0x01) {
- $decode{"speed"} = "400kbps";
- } else {
- $decode{"speed"} = "100kbps";
- }
- if ($reg & 0x02) {
- $decode{"op"} = "RD";
- } else {
- $decode{"op"} = "WR";
- }
- $decode{"busy"} = "BUSY" if (($reg & 0x04) == 0);
- $decode{"err"} = "ERR" if ($reg & 0x08);
- $decode{"size"} = ($reg >> 4) & 7;
- $decode{"i2c"} = "3wire" if (($reg & 0x80) == 0);
-
- return %decode;
-}
-
-sub type_req($)
-{
- my $reqtype = shift;
- my $s;
-
- if ($reqtype & 0x80) {
- $s = "RD ";
- } else {
- $s = "WR ";
- }
- if (($reqtype & 0x60) == 0x20) {
- $s .= "CLAS ";
- } elsif (($reqtype & 0x60) == 0x40) {
- $s .= "VEND ";
- } elsif (($reqtype & 0x60) == 0x60) {
- $s .= "RSVD ";
- }
-
- if (($reqtype & 0x1f) == 0x00) {
- $s .= "DEV ";
- } elsif (($reqtype & 0x1f) == 0x01) {
- $s .= "INT ";
- } elsif (($reqtype & 0x1f) == 0x02) {
- $s .= "EP ";
- } elsif (($reqtype & 0x1f) == 0x03) {
- $s .= "OTHER ";
- } elsif (($reqtype & 0x1f) == 0x04) {
- $s .= "PORT ";
- } elsif (($reqtype & 0x1f) == 0x05) {
- $s .= "RPIPE ";
- } else {
- $s .= sprintf "RECIP 0x%02x ", $reqtype & 0x1f;
- }
-
- $s =~ s/\s+$//;
- return $s;
-}
-
-my %i2c;
-my $i2c_id;
-while (<>) {
- tr/A-F/a-f/;
- if (m/([0-9a-f].) ([0-9a-f].) ([0-9a-f].) ([0-9a-f].) ([0-9a-f].) ([0-9a-f].) ([0-9a-f].) ([0-9a-f].)[\<\>\s]+(.*)/) {
- my $reqtype = hex($1);
- my $req = hex($2);
- my $wvalue = hex("$4$3");
- my $windex = hex("$6$5");
- my $wlen = hex("$8$7");
- my $payload = $9;
- my $fullpayload = $9;
-
- %i2c = i2c_reg($payload) if ($wvalue == 0x10c0);
-
- if (($wvalue >= 0x10c0) && ($wvalue <= 0x10c2)) {
- my $reg = $wvalue;
- if ($reg == 0x10c0) {
- $payload =~ s/^([0-9a-f].)//;
- $payload =~ s/^\s+//;
- $reg++;
- }
- if ($reg == 0x10c1 && $payload ne "") {
- $i2c_id = $payload;
- $i2c_id =~ s/\s+.*//;
- $i2c_id = "addr=0x$i2c_id, ";
- $payload =~ s/^([0-9a-f].)//;
- $payload =~ s/^\s+//;
- $reg++;
- }
-
- my $data;
- for (my $i = 0; ($i < $i2c{"size"}) && ($payload ne ""); $i++) {
- my $tmp = $payload;
- $tmp =~ s/\s+.*//;
- $payload =~ s/^([0-9a-f].)//;
- $payload =~ s/^\s+//;
- $data .= "0x$tmp, ";
- }
- $data =~ s/\,\s+$//;
-
- my $discard;
- for (my $i = 0; ($i < 5) && ($payload ne ""); $i++) {
- my $tmp = $payload;
- $tmp =~ s/\s+.*//;
- $payload =~ s/^([0-9a-f].)//;
- $payload =~ s/^\s+//;
- $discard .= "0x$tmp, ";
- }
- $discard =~ s/\,\s+$//;
-
- my $s = sprintf "%s %s %s %s %s size=%d",
- $i2c{"op"}, $i2c{"speed"}, $i2c{"busy"}, $i2c{"err"}, $i2c{"i2c"}, $i2c{"size"};
- $s =~ s/\s+/ /g;
-
- if ($debug) {
- if ($reqtype & 0x80) {
- printf "Read I2C: $s $i2c_id$data";
- } else {
- printf "I2C $s $i2c_id$data";
- }
- printf " ($discard)" if ($discard);
- printf "Extra: $payload" if ($payload);
- print "\n";
-
- printf("\t%s, Req %3d, wValue: 0x%04x, wIndex 0x%04x, wlen %d: %s\n",
- type_req($reqtype), $req, $wvalue, $windex, $wlen, $fullpayload);
- }
- next if ($reg < 0x10c2);
- if (($i2c{"size"} == 1) && ($reqtype & 0x80)) {
- printf "i2c_r1(gspca_dev, $data);\n";
- } elsif (($i2c{"size"} == 2) && (($reqtype & 0x80) == 0)) {
- printf "i2c_w1(gspca_dev, $data);\n";
- } else {
- if ($reqtype & 0x80) {
- printf "i2c_r(gspca_dev, { $data }, %d);\n", $i2c{"size"};
- } else {
- printf "i2c_w(gspca_dev, { $data }, %d);\n", $i2c{"size"};
- }
- }
- } else {
- printf("%s, Req %3d, wValue: 0x%04x, wIndex 0x%04x, wlen %d: %s\n",
- type_req($reqtype), $req, $wvalue, $windex, $wlen, $payload) if ($debug);
-
- my $reg;
- if (defined($reg_map{$wvalue})) {
- $reg = $reg_map{$wvalue};
- } else {
- $reg = sprintf "0x%04x", $wvalue;
- }
-
- if ($reqtype == 0xc1) {
- printf "reg_r(gspcadev, %s);\t/* read %s*/\n", $reg, $payload;
- } elsif ($reqtype == 0x41) {
- printf "reg_w(gspcadev, %s, { %s });*/\n", $reg, $payload;
- }
- }
- }
-}

Privacy Policy