Mercurial > hg > Gears > Gears

changeset 732:a7f52fd3d546

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
s/file_name/path/g
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 08 Dec 2020 16:42:07 +0900
parents b3d446fb5b93
children 764233676f7c
files src/parallel_execution/generate_stub.pl src/parallel_execution/lib/Gears/Interface.pm src/parallel_execution/lib/Gears/Stub.pm src/parallel_execution/lib/Gears/Util.pm
diffstat 4 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/src/parallel_execution/generate_stub.pl	Thu Nov 26 14:55:17 2020 +0900
+++ b/src/parallel_execution/generate_stub.pl	Tue Dec 08 16:42:07 2020 +0900
@@ -594,13 +594,13 @@
               next unless ($implInterfaceInfo->{genConstructor});
 
               my $constructInterface = {
-                                         name => $implInterfaceInfo->{interface},
-                                         path => $headerNameToInfo->{$implInterfaceInfo->{interface}}->{path}
+                                         name      => $implInterfaceInfo->{interface},
+                                         file_name => $headerNameToInfo->{$implInterfaceInfo->{interface}}->{path}
                                        };
 
               my $constructImpl      = {
-                                        name => $implInterfaceInfo->{implementation},
-                                         path => $headerNameToInfo->{$implInterfaceInfo->{implementation}}->{path}
+                                         name      => $implInterfaceInfo->{implementation},
+                                         file_name => $headerNameToInfo->{$implInterfaceInfo->{implementation}}->{path}
                                        };
 
               unless ($constructImpl->{path}) {
--- a/src/parallel_execution/lib/Gears/Interface.pm	Thu Nov 26 14:55:17 2020 +0900
+++ b/src/parallel_execution/lib/Gears/Interface.pm	Tue Dec 08 16:42:07 2020 +0900
@@ -15,7 +15,8 @@
   my $ir  = {};
   $ir->{file_name} = $file;
 
-  Gears::Util->file_checking($file);
+  return undef unless (Gears::Util->file_checking($file));
+
   open my $fh, '<', $file;
   my $line = <$fh>;
   my $static_data_gear_write_mode = 0;
--- a/src/parallel_execution/lib/Gears/Stub.pm	Thu Nov 26 14:55:17 2020 +0900
+++ b/src/parallel_execution/lib/Gears/Stub.pm	Tue Dec 08 16:42:07 2020 +0900
@@ -23,7 +23,6 @@
 
   my $impl_var_name  = _decamelize($impl_name);
 
-
   my @interface_data = @{$interface_ir->{data}};
   my @impl_data      = @{$impl_ir->{data}};
 
--- a/src/parallel_execution/lib/Gears/Util.pm	Thu Nov 26 14:55:17 2020 +0900
+++ b/src/parallel_execution/lib/Gears/Util.pm	Tue Dec 08 16:42:07 2020 +0900
@@ -1,7 +1,7 @@
 package Gears::Util;
 use strict;
 use warnings;
-use Carp qw/croak/;
+use Carp qw/carp/;
 use File::Find qw/find/;
 
 my $cbc_files;
@@ -17,7 +17,7 @@
 sub file_checking {
   my ($class, $file_name) = @_;
   unless (-f $file_name) {
-    croak "[ERROR] invalid filepath :$file_name\n";
+    carp "[ERROR] invalid filepath :$file_name\n";
   }
   return $file_name;
 }