I
add functions for accessing cmd structure
Now you can do things like this:
#!perl -w
use strict;
use warnings;
use IDA;
my $addr = ScreenEA();
my $href = ua_ana($addr);
my $str = GetDisasm($addr);
if ( defined($href) )
{
my $iter;
printf("real: %s, %s:\n", $str, get_mnem);
foreach $iter ( keys %$href )
{
printf("%s: %X\n", $iter, $href->{$iter});
}
my $op_idx;
for ( $op_idx = 0; $op_idx < 6; $op_idx++ )
{
my $op = get_op($op_idx);
last if ( !defined $op );
printf("operand %d:\n", $op_idx);
foreach $iter ( keys %$op )
{
printf(" %s ", $iter);
print $op->{$iter} . "\n";
}
}
}