- print DICT " .name = \"", $attributes{$attr_val}{'name'}, "\", \n";
- if ($attributes{$attr_val}{'vendor'}) {
- print DICT " .vendor = ", $attributes{$attr_val}{'vendor'}, ", \n";
- }
-
- print DICT " .attr = ", $attributes{$attr_val}{'value'}, ", \n";
- print DICT " .type = ", $attributes{$attr_val}{'type'}, ", \n";
-
- if ($attributes{$attr_val}{'flags'}) {
- print DICT " .flags = {\n";
- foreach $flag (keys %{$attributes{$attr_val}{'flags'}}) {
- print DICT " .$flag = $attributes{$attr_val}{'flags'}{$flag},\n";
- }
- print DICT " },\n";
- }
-
+ print DICT " ", $attributes{$attr_val}{'value'}, ", \n";
+ print DICT " ", $attributes{$attr_val}{'type'}, ", \n";
+ print DICT " ", $attributes{$attr_val}{'vendor'}, ", \n";
+ print DICT " { ";
+ &printAttrFlag('has_tag');
+ &printAttrFlag('unknown');
+# &printAttrFlag('has_tlv');
+# &printAttrFlag('is_tlv');
+ &printAttrFlag('extended');
+ &printAttrFlag('extended_flags');
+ &printAttrFlag('evs');
+ &printAttrFlag('encrypt');
+ &printAttrFlag('length');
+ print DICT "},\n";
+ print DICT " \"", $attributes{$attr_val}{'name'}, "\", \n";