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"; } |