562 lines
12 KiB
Perl
562 lines
12 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
# (C) 2007 Jelmer Vernooij <jelmer@samba.org>
|
||
|
|
# Published under the GNU General Public License
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Test::More tests => 47;
|
||
|
|
use FindBin qw($RealBin);
|
||
|
|
use lib "$RealBin";
|
||
|
|
use Util;
|
||
|
|
use Parse::Pidl::Util qw(MyDumper);
|
||
|
|
use Parse::Pidl::NDR qw(GetElementLevelTable ParseElement align_type mapToScalar ParseType can_contain_deferred);
|
||
|
|
|
||
|
|
# Case 1
|
||
|
|
|
||
|
|
my $e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {},
|
||
|
|
'POINTERS' => 0,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'STRUCT' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "unique", 0), [
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 0,
|
||
|
|
'LEVEL_INDEX' => 0,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
my $ne = ParseElement($e, "unique", 0);
|
||
|
|
is($ne->{ORIGINAL}, $e);
|
||
|
|
is($ne->{NAME}, "v");
|
||
|
|
is($ne->{ALIGN}, 1);
|
||
|
|
is($ne->{TYPE}, "uint8");
|
||
|
|
is_deeply($ne->{LEVELS}, [
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 0,
|
||
|
|
'LEVEL_INDEX' => 0,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# Case 2 : pointers
|
||
|
|
#
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {"unique" => 1},
|
||
|
|
'POINTERS' => 1,
|
||
|
|
'PARENT' => { TYPE => 'STRUCT' },
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "unique", 0), [
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 0,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 0,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 1,
|
||
|
|
'LEVEL_INDEX' => 1,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# Case 3 : double pointers
|
||
|
|
#
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {"unique" => 1},
|
||
|
|
'POINTERS' => 2,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'STRUCT' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "unique", 0), [
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 0,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 0,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 1,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 1,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 1,
|
||
|
|
'LEVEL_INDEX' => 2,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# Case 3 : ref pointers
|
||
|
|
#
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {"ref" => 1},
|
||
|
|
'POINTERS' => 1,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'STRUCT' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "unique", 0), [
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 0,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 0,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 1,
|
||
|
|
'LEVEL_INDEX' => 1,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# Case 3 : ref pointers
|
||
|
|
#
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {"ref" => 1},
|
||
|
|
'POINTERS' => 3,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'STRUCT' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "unique", 0), [
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 0,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 0,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 1,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 1,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 2,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 2,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 1,
|
||
|
|
'LEVEL_INDEX' => 3,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# Case 3 : ref pointers
|
||
|
|
#
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {"ref" => 1},
|
||
|
|
'POINTERS' => 3,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'STRUCT' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "ref", 0), [
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 0,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 0,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 1,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 1,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 2,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 2,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 1,
|
||
|
|
'LEVEL_INDEX' => 3,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# Case 4 : top-level ref pointers
|
||
|
|
#
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {"ref" => 1},
|
||
|
|
'POINTERS' => 1,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'FUNCTION' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "unique", 0), [
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 0,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 0,
|
||
|
|
LEVEL => 'TOP'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 0,
|
||
|
|
'LEVEL_INDEX' => 1,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# Case 4 : top-level ref pointers, triple with pointer_default("unique")
|
||
|
|
#
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {"ref" => 1},
|
||
|
|
'POINTERS' => 3,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'FUNCTION' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "unique", 0), [
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 0,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 0,
|
||
|
|
LEVEL => 'TOP'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 1,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 1,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 2,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 2,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 1,
|
||
|
|
'LEVEL_INDEX' => 3,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# Case 4 : top-level unique pointers, triple with pointer_default("unique")
|
||
|
|
#
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {"unique" => 1, "in" => 1},
|
||
|
|
'POINTERS' => 3,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'FUNCTION' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "unique", 0), [
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 0,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 0,
|
||
|
|
LEVEL => 'TOP'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 1,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 1,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 2,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 2,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 1,
|
||
|
|
'LEVEL_INDEX' => 3,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# Case 4 : top-level unique pointers, triple with pointer_default("ref")
|
||
|
|
#
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {"unique" => 1, "in" => 1},
|
||
|
|
'POINTERS' => 3,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'FUNCTION' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "ref", 0), [
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 0,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "unique",
|
||
|
|
POINTER_INDEX => 0,
|
||
|
|
LEVEL => 'TOP'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 1,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 1,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 2,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 2,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 1,
|
||
|
|
'LEVEL_INDEX' => 3,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# Case 4 : top-level ref pointers, triple with pointer_default("ref")
|
||
|
|
#
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => {"ref" => 1},
|
||
|
|
'POINTERS' => 3,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'FUNCTION' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
is_deeply(GetElementLevelTable($e, "ref", 0), [
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 0,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 0,
|
||
|
|
LEVEL => 'TOP'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 1,
|
||
|
|
IS_DEFERRED => 0,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 1,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
LEVEL_INDEX => 2,
|
||
|
|
IS_DEFERRED => 1,
|
||
|
|
TYPE => 'POINTER',
|
||
|
|
POINTER_TYPE => "ref",
|
||
|
|
POINTER_INDEX => 2,
|
||
|
|
LEVEL => 'EMBEDDED'
|
||
|
|
},
|
||
|
|
{
|
||
|
|
'IS_DEFERRED' => 1,
|
||
|
|
'LEVEL_INDEX' => 3,
|
||
|
|
'DATA_TYPE' => 'uint8',
|
||
|
|
'CONTAINS_DEFERRED' => 0,
|
||
|
|
'TYPE' => 'DATA',
|
||
|
|
'IS_SURROUNDING' => 0,
|
||
|
|
}
|
||
|
|
]);
|
||
|
|
|
||
|
|
# representation_type
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => { represent_as => "bar" },
|
||
|
|
'POINTERS' => 0,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'STRUCT' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
$ne = ParseElement($e, undef, 0);
|
||
|
|
is($ne->{REPRESENTATION_TYPE}, "bar");
|
||
|
|
|
||
|
|
# representation_type
|
||
|
|
$e = {
|
||
|
|
'FILE' => 'foo.idl',
|
||
|
|
'NAME' => 'v',
|
||
|
|
'PROPERTIES' => { },
|
||
|
|
'POINTERS' => 0,
|
||
|
|
'TYPE' => 'uint8',
|
||
|
|
'PARENT' => { TYPE => 'STRUCT' },
|
||
|
|
'LINE' => 42 };
|
||
|
|
|
||
|
|
$ne = ParseElement($e, undef, 0);
|
||
|
|
is($ne->{REPRESENTATION_TYPE}, "uint8");
|
||
|
|
|
||
|
|
is(align_type("hyper"), 8);
|
||
|
|
is(align_type("double"), 8);
|
||
|
|
is(align_type("uint32"), 4);
|
||
|
|
is(align_type("uint16"), 2);
|
||
|
|
is(align_type("uint8"), 1);
|
||
|
|
is(align_type({ TYPE => "STRUCT", "NAME" => "bla",
|
||
|
|
ELEMENTS => [ { TYPE => "uint16" } ] }), 4);
|
||
|
|
is(align_type({ TYPE => "STRUCT",
|
||
|
|
ELEMENTS => [ { TYPE => "hyper" } ] }), 8);
|
||
|
|
is(align_type({ TYPE => "TYPEDEF", DATA => {
|
||
|
|
TYPE => "STRUCT",
|
||
|
|
ELEMENTS => [ { TYPE => "hyper" } ] }}), 8);
|
||
|
|
# typedef of struct without body
|
||
|
|
is(align_type({ TYPE => "TYPEDEF", DATA => {
|
||
|
|
TYPE => "STRUCT", ELEMENTS => undef }}), 4);
|
||
|
|
# struct without body
|
||
|
|
is(align_type({ TYPE => "STRUCT", ELEMENTS => undef }), 4);
|
||
|
|
# empty struct
|
||
|
|
is(align_type({ TYPE => "STRUCT", ELEMENTS => [] }), 1);
|
||
|
|
is(align_type({ TYPE => "STRUCT", "NAME" => "bla",
|
||
|
|
ELEMENTS => [ { TYPE => "uint8" } ] }), 4);
|
||
|
|
|
||
|
|
is(mapToScalar("someverymuchnotexistingtype"), undef);
|
||
|
|
is(mapToScalar("uint32"), "uint32");
|
||
|
|
is(mapToScalar({TYPE => "ENUM", PARENT => { PROPERTIES => { enum8bit => 1 } } }), "uint8");
|
||
|
|
is(mapToScalar({TYPE => "BITMAP", PROPERTIES => { bitmap64bit => 1 } }),
|
||
|
|
"hyper");
|
||
|
|
is(mapToScalar({TYPE => "TYPEDEF", DATA => {TYPE => "ENUM", PARENT => { PROPERTIES => { enum8bit => 1 } } }}), "uint8");
|
||
|
|
|
||
|
|
my $t;
|
||
|
|
$t = {
|
||
|
|
TYPE => "STRUCT",
|
||
|
|
NAME => "foo",
|
||
|
|
SURROUNDING_ELEMENT => undef,
|
||
|
|
ELEMENTS => undef,
|
||
|
|
PROPERTIES => undef,
|
||
|
|
ORIGINAL => {
|
||
|
|
TYPE => "STRUCT",
|
||
|
|
NAME => "foo"
|
||
|
|
},
|
||
|
|
ALIGN => undef
|
||
|
|
};
|
||
|
|
is_deeply(ParseType($t->{ORIGINAL}, "ref", 0), $t);
|
||
|
|
|
||
|
|
$t = {
|
||
|
|
TYPE => "UNION",
|
||
|
|
NAME => "foo",
|
||
|
|
SWITCH_TYPE => "uint32",
|
||
|
|
ELEMENTS => undef,
|
||
|
|
PROPERTIES => undef,
|
||
|
|
HAS_DEFAULT => 0,
|
||
|
|
IS_MS_UNION => 0,
|
||
|
|
ORIGINAL => {
|
||
|
|
TYPE => "UNION",
|
||
|
|
NAME => "foo"
|
||
|
|
},
|
||
|
|
ALIGN => undef
|
||
|
|
};
|
||
|
|
is_deeply(ParseType($t->{ORIGINAL}, "ref", 0), $t);
|
||
|
|
|
||
|
|
ok(not can_contain_deferred("uint32"));
|
||
|
|
ok(can_contain_deferred("some_unknown_type"));
|
||
|
|
ok(can_contain_deferred({ TYPE => "STRUCT",
|
||
|
|
ELEMENTS => [ { TYPE => "uint32", POINTERS => 40 } ]}));
|
||
|
|
ok(can_contain_deferred({ TYPE => "TYPEDEF",
|
||
|
|
DATA => { TYPE => "STRUCT",
|
||
|
|
ELEMENTS => [ { TYPE => "uint32", POINTERS => 40 } ]}}));
|
||
|
|
ok(not can_contain_deferred({ TYPE => "STRUCT",
|
||
|
|
ELEMENTS => [ { TYPE => "uint32" } ]}));
|
||
|
|
ok(not can_contain_deferred({ TYPE => "TYPEDEF",
|
||
|
|
DATA => { TYPE => "STRUCT",
|
||
|
|
ELEMENTS => [ { TYPE => "uint32" } ]}}));
|
||
|
|
ok(can_contain_deferred({ TYPE => "STRUCT",
|
||
|
|
ELEMENTS => [ { TYPE => "someunknowntype" } ]}));
|
||
|
|
# Make sure the elements for a enum without body aren't filled in
|
||
|
|
ok(not defined(ParseType({TYPE => "ENUM", NAME => "foo" }, "ref", 0)->{ELEMENTS}));
|
||
|
|
# Make sure the elements for a bitmap without body aren't filled in
|
||
|
|
ok(not defined(ParseType({TYPE => "BITMAP", NAME => "foo" }, "ref", 0)->{ELEMENTS}));
|
||
|
|
# Make sure the elements for a union without body aren't filled in
|
||
|
|
ok(not defined(ParseType({TYPE => "UNION", NAME => "foo" }, "ref", 0)->{ELEMENTS}));
|