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