uqmi: print radio interfaces in serving system command

[project/uqmi.git] / data / gen-common.pm

diff --git a/data/gen-common.pm b/data/gen-common.pm
index e951776e1ebb73f876a8fc30c85ad0e02baf47e2..9275d4e3a84068894d123441e1e8be045895a80c 100644 (file)
--- a/data/gen-common.pm
+++ b/data/gen-common.pm
@@ -19,6 +19,54 @@ our %tlv_types = (
 );
 our %common_ref = ();
 
+my @c_reserved_keywords = (
+       "alignas",
+       "alignof",
+       "auto",
+       "bool",
+       "break",
+       "case",
+       "char",
+       "const",
+       "constexpr",
+       "continue",
+       "default",
+       "do",
+       "double",
+       "else",
+       "enum",
+       "extern",
+       "false",
+       "float",
+       "for",
+       "goto",
+       "if",
+       "inline",
+       "int",
+       "long",
+       "nullptr",
+       "register",
+       "restrict",
+       "return",
+       "short",
+       "signed",
+       "sizeof",
+       "static",
+       "static_assert",
+       "struct",
+       "switch",
+       "thread_local",
+       "true",
+       "typedef",
+       "typeof",
+       "typeof_unqual",
+       "union",
+       "unsigned",
+       "void",
+       "volatile",
+       "while"
+);
+
 $prefix eq 'ctl_' and $ctl = 1;
 
 sub get_json() {
@@ -32,7 +80,10 @@ sub gen_cname($) {
        my $name = shift;
 
        $name =~ s/[^a-zA-Z0-9_]/_/g;
-       return lc($name);
+       $name = "_${name}" if $name =~ /^\d/;
+       $name = lc($name);
+       $name = "_${name}" if (grep {$_ eq $name} @c_reserved_keywords);
+       return $name;
 }
 
 sub gen_has_types($) {
@@ -81,6 +132,7 @@ sub gen_foreach_message_type($$$)
        my $data = shift;
        my $req_sub = shift;
        my $res_sub = shift;
+       my $ind_sub = shift;
 
        foreach my $entry (@$data) {
                my $args = [];
@@ -94,6 +146,19 @@ sub gen_foreach_message_type($$$)
                &$req_sub($prefix.$entry->{name}." Request", $entry->{input}, $entry);
                &$res_sub($prefix.$entry->{name}." Response", $entry->{output}, $entry);
        }
+
+       foreach my $entry (@$data) {
+               my $args = [];
+               my $fields = [];
+
+               $common_ref{$entry->{'common-ref'}} = $entry if $entry->{'common-ref'} ne '';
+
+               next if $entry->{type} ne 'Indication';
+               next if not defined $entry->{input} and not defined $entry->{output};
+
+               &$ind_sub($prefix.$entry->{name}." Indication", $entry->{output}, $entry);
+       }
 }
 
+
 1;