coccinelle release 0.2.5
[bpt/coccinelle.git] / scripts / extract_c_and_res.pl
index 8620f3f..c8352a8 100755 (executable)
@@ -119,11 +119,11 @@ foreach my $f (@files) {
   }                         
   die "PB: one of the file already exist: $base" if (-e "$target_dir/$base");
 
-  `git-cat-file blob $commit_old:$f > $target_dir/$base`;
-  `git-cat-file blob $commit_new:$f > $target_dir/$res`;
+  `git cat-file blob $commit_old:$f > $target_dir/$base`;
+  `git cat-file blob $commit_new:$f > $target_dir/$res`;
 
-  `git-cat-file blob $commit_old:$f > $old_dir/$base`;
-  `git-cat-file blob $commit_new:$f > $new_dir/$base`;
+  `git cat-file blob $commit_old:$f > $old_dir/$base`;
+  `git cat-file blob $commit_new:$f > $new_dir/$base`;
 
   $kerneldir_of_file->{$base} = `dirname $f`;
   chomp $kerneldir_of_file->{$base};
@@ -174,13 +174,13 @@ foreach my $f (@driverheaders_in_include) {
     my $dir = `dirname $f`;
     chomp $dir;
     `mkdir -p $target_dir/$dir`;
-    `git-cat-file blob $commit_old:$f > $target_dir/$f`;
-    `git-cat-file blob $commit_new:$f > $target_dir/$f.res`;
+    `git cat-file blob $commit_old:$f > $target_dir/$f`;
+    `git cat-file blob $commit_new:$f > $target_dir/$f.res`;
 
     `mkdir -p $old_dir/$dir`;
     `mkdir -p $new_dir/$dir`;
-    `git-cat-file blob $commit_old:$f > $old_dir/$f`;
-    `git-cat-file blob $commit_new:$f > $new_dir/$f`;
+    `git cat-file blob $commit_old:$f > $old_dir/$f`;
+    `git cat-file blob $commit_new:$f > $new_dir/$f`;
     
   }
 }
@@ -205,7 +205,7 @@ foreach my $line (@linuxheaders) {
       my $dir = `dirname $f`;
       chomp $dir;
       `mkdir -p $target_dir/include/$dir`;
-      `git-cat-file blob $commit_old:include/$f > $target_dir/include/$f`;
+      `git cat-file blob $commit_old:include/$f > $target_dir/include/$f`;
     }
   } else { pr2 "pb regexp: $line"; }
 }
@@ -248,6 +248,6 @@ foreach my $h (keys %{$hfiles}) {
     pr2 "BUT I CONTINUE, but may have more .failed in the end";
     pr2 "-------------------------------------";
   } else {
-    `git-cat-file blob $commit_old:$h > $target_dir/$base`;
+    `git cat-file blob $commit_old:$h > $target_dir/$base`;
   }
 }