4 @ARGV < 2 and die "Usage: $0 <prefix> <file>\n";
5 my $prefix = shift @ARGV;
12 guint16
=> "uint16_t",
14 guint32
=> "uint32_t",
16 guint64
=> "uint64_t",
20 $prefix eq 'ctl_' and $ctl = 1;
25 $json =~ s/^\s*\/\/.*$//mg;
26 return decode_json
($json);
32 $name =~ s/[^a-zA-Z0-9_]/_/g;
36 sub gen_has_types
($) {
39 foreach my $field (@
$data) {
40 my $type = $field->{"format"};
46 sub gen_tlv_set_func
($$) {
50 $name = gen_cname
($name);
51 if (gen_has_types
($data)) {
52 return "int qmi_set_$name(struct qmi_msg *msg, struct qmi_$name *req)"
54 return "int qmi_set_$name(struct qmi_msg *msg)"
58 sub gen_tlv_parse_func
($$) {
62 $name = gen_cname
($name);
63 if (gen_has_types
($data)) {
64 return "int qmi_parse_$name(struct qmi_msg *msg, struct qmi_$name *res)"
66 return "int qmi_parse_$name(struct qmi_msg *msg)"
70 sub gen_foreach_message_type
($$$)
76 foreach my $entry (@
$data) {
80 next if $entry->{type
} ne 'Message';
81 next if not defined $entry->{input
} and not defined $entry->{output
};
83 &$req_sub($prefix.$entry->{name
}." Request", $entry->{input
}, $entry);
84 &$res_sub($prefix.$entry->{name
}." Response", $entry->{output
}, $entry);