Mercurial > hg > Papers > 2021 > anatofuz-master
view paper/src/NotDefine.pl @ 111:4642d2f215d2
update
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 06 Feb 2021 15:42:26 +0900 |
parents | 46494d9aafb9 |
children |
line wrap: on
line source
if ($implInterfaceInfo->{isImpl} && $filename =~ /\.cbc\z/) { for my $shouldImplCode (map { $_->{name} } grep { $_->{args} =~ /Impl/ } @{$implInterfaceInfo->{parsedInterfaceInfo}->{codes}}) { my $isDefine = $shouldImplCode; for my $implCode (keys %{$codeGearInfo}) { if ($implCode =~ /$shouldImplCode/) { $isDefine = 1; next; } } if ($isDefine ne 1) { die "[ERROR] Not define $isDefine at $filename\n"; } } }