10 my $val = $messages{$msg};
14 $messages{$msg} = $val;
25 $id =~ /^(\w{4}:\w{4})(:.*)?/ or do {
26 warn "Invalid device ID string $id\n";
31 $match = $2 or $match = "*";
33 $devices{$id} or $devices{$id} = {};
34 $devices{$id}->{$match} = $dev;
45 $_[1] =~ s/^(\w+)Mode$/$1/;
49 my $hex_option = [ undef, \&add_hex ];
50 my $msg_option = [ undef, \&add_message ];
51 my $mode_option = [ "Mode", \&add_mode ];
53 TargetVendor => $hex_option,
54 TargetProductList => [ "TargetProduct", sub { return [ map(hex,split(/,/, $_[0])) ]; } ],
55 TargetProduct => [ "TargetProduct", sub { return [ hex($_[0]) ]; } ],
56 TargetClass => $hex_option,
57 MessageContent => $msg_option,
58 MessageContent2 => $msg_option,
59 MessageContent3 => $msg_option,
61 DetachStorageOnly => [ ],
63 HuaweiMode => $mode_option,
64 HuaweiNewMode => $mode_option,
65 OptionMode => $mode_option,
66 SierraMode => $mode_option,
67 SonyMode => $mode_option,
68 QisdaMode => $mode_option,
69 GCTMode => $mode_option,
70 KobilMode => $mode_option,
71 SequansMode => $mode_option,
72 MobileActionMode => $mode_option,
73 CiscoMode => $mode_option,
74 StandardEject => $mode_option,
75 NoDriverLoading => [],
76 MessageEndpoint => $hex_option,
79 ResponseEndpoint => $hex_option,
82 CheckSuccess => $hex_option,
83 Interface => $hex_option,
84 Configuration => $hex_option,
85 AltSetting => $hex_option,
93 $file =~ /\/?([^\/]+)$/ and $id = $1;
95 my $dev = add_device($id);
97 open FILE, "<$file" or die "Cannot open file '$file'\n";
103 /(\w+)\s*=\s*(.+)\s*/ or do {
104 warn "Invalid Line: $_";
108 my ($var, $val) = ($1, $2);
109 $val =~ s/^"(.+)"$/$1/;
111 my $opt = $options{$var};
113 warn "Unrecognized option $var in file $file\n";
117 $opt->[1] and $val = &{$opt->[1]}($val, $var);
118 $opt->[0] and $var = $opt->[0];
123 foreach my $file (@ARGV) {
130 $chr eq "\b" and return "\\b";
131 $chr eq "\n" and return "\\n";
132 $chr eq "\r" and return "\\r";
133 $chr eq "\t" and return "\\t";
134 $chr eq "\\" and return "\\\\";
135 $chr eq "\"" and return "\\\"";
136 $chr eq '/' and return "\\/";
137 return sprintf("\\u%04x", ord($chr));
141 $_[0] =~ s/([\x00- \/"\\])/json_chr($1)/eg;
146 my ($val, $type) = (shift, shift);
147 $type eq 'bool' and $val = $val > 0 ? "true" : "false";
148 $type eq 'string' and $val = "\"$val\"";
153 my ($val, $name, $type, $sep) = (shift, shift, shift, shift);
154 return unless defined($val);
155 if ($type =~ /array:(.+)/) {
159 foreach my $elem (@val) {
160 my $json = json_val($elem, $type);
161 next unless defined $json;
170 $val = json_val($val, $type);
172 print "$$sep\t\t\t\t\"".json_str($name)."\": $val";
181 foreach my $msg (sort { $messages{$a} <=> $messages{$b} } keys %messages) {
182 print "$suffix\t\t\"".json_str($msg)."\"";
192 foreach my $devid (sort keys %devices) {
193 my $dev = $devices{$devid};
195 print "$dev_sep\t\t\"".json_str($devid)."\": {\n";
199 foreach my $match (sort keys %$dev) {
200 my $cur = $dev->{$match};
203 print "$match_sep\t\t\t\"".json_str($match)."\": {\n";
206 dev_opt($cur->{TargetVendor}, "t_vendor", "int", \$sep);
207 dev_opt($cur->{TargetProduct}, "t_product", "array:int", \$sep);
208 dev_opt($cur->{TargetClass}, "t_class", "int", \$sep);
209 dev_opt($cur->{DetachStorageOnly}, "detach_storage", "bool", \$sep);
210 dev_opt($cur->{Mode}, "mode", "string", \$sep);
211 dev_opt($cur->{NoDriverLoading}, "no_driver", "bool", \$sep);
212 dev_opt($cur->{MessageEndpoint}, "msg_endpoint", "int", \$sep);
214 $cur->{MessageContent},
215 $cur->{MessageContent2},
216 $cur->{MessageContent3}
218 dev_opt($msg, "msg", "array:int", \$sep);
219 dev_opt($cur->{WaitBefore}, "wait", "int", \$sep);
220 dev_opt($cur->{ReleaseDelay}, "release_delay", "int", \$sep);
221 dev_opt($cur->{NeedResponse}, "response", "bool", \$sep);
222 dev_opt($cur->{ResponseEndpoint}, "response_endpoint", "int", \$sep);
223 dev_opt($cur->{ResetUSB}, "reset", "bool", \$sep);
224 dev_opt($cur->{InquireDevice}, "inquire", "int", \$sep);
225 dev_opt($cur->{CheckSuccess}, "check", "bool", \$sep);
226 dev_opt($cur->{Interface}, "interface", "int", \$sep);
227 dev_opt($cur->{Configuration}, "config", "int", \$sep);
228 dev_opt($cur->{AltSetting}, "alt", "int", \$sep);