File indexing completed on 2024-05-12 03:54:29

 #!/usr/bin/perl
 
 if ( @ARGV < 1 ) {
   print STDERR "Missing arg: filename\n";
   exit 1;
 }
 
 $file = $ARGV[0];
 
 $file =~ /^(.*)\.[^\.]*$/;
 $filebase = $1;
 
 $header_extension = @ARGV > 1 ? $ARGV[1] : "h";
 $source_extension = @ARGV > 2 ? $ARGV[2] : "cpp";
 $file_h = "$filebase.$header_extension";
 $file_cpp = "$filebase.$source_extension";
 
 $kcfgc = $file . "c";
 
 $cmd = "./kconfig_compiler_kf6 $file $kcfgc";
 
 #print "CMD $cmd\n";
 
 if ( system( $cmd ) != 0 ) {
   print STDERR "Unable to run kconfig_compiler_kf6\n";
   exit 1;
 }
 
 checkfile( $file_h );
 checkfile( $file_cpp );
 
 exit 0;
 
 sub checkfile()
 {
   my $file = shift;
 
   $file =~ /\/([^\/]*)$/;
   my $filename = $1;
 
   print "Checking '$filename':\n";
 
   my @ref;
   if ( !open( REF, "$file.ref" ) ) {
     print STDERR "Unable to open $file.ref\n";
     exit 1;
   }
   while( <REF> ) {
     push @ref, $_;
   }
   close REF;
 
   if ( !open( READ, $filename ) ) {
     print STDERR "Unable to open $filename\n";
     exit 1;
   }
 
   $error = 0;
   $i = 0;
   $line = 1;
   while( <READ> ) {
     $out = $_;
     $ref = @ref[$i++];
 
     if ( $out ne $ref ) {
       $error++;
       print "  Line $line: Expected        : $ref";
       print "  Line $line: Compiler output : $out";
     }
     
     $line++;
   }
 
   close READ;
 
   if ( $error > 0 ) {
     print "\n  FAILED: $error errors found.\n";
     if ( $error > 5 ) {
       system( "diff -u $file.ref $filename" ); 
     }
     exit 1;
   } else {
     print "  OK\n";
   }
 }