|
|
| version 1.1, 2012/02/21 16:23:02 | version 1.1.1.2, 2014/06/15 16:12:54 |
|---|---|
| Line 125 sub print_record { | Line 125 sub print_record { |
| my ($i, $v, $defname); | my ($i, $v, $defname); |
| # each variable gets a macro to access its value | # each variable gets a macro to access its value |
| for ($rec->[1]) { | for ($rec->[1]) { |
| if (/^T_U?INT/) { $v = "ival"; } | if (/^T_INT/) { $v = "ival"; } |
| elsif (/^T_UINT/) { $v = "uival"; } | |
| elsif (/^T_STR/) { $v = "str"; } | elsif (/^T_STR/) { $v = "str"; } |
| elsif (/^T_FLAG/) { $v = "flag"; } | elsif (/^T_FLAG/) { $v = "flag"; } |
| elsif (/^T_MODE/) { $v = "mode"; } | elsif (/^T_MODE/) { $v = "mode"; } |