python 3.10 supported, and fix bugs

framework/bug-mining/bug_commit_classification/code/GetFeature.py

@@ -1,5 +1,5 @@
 from cgi import print_directory
-from distutils import command
+from setuptools import command
 import os
 import numpy as np
 import subprocess
@@ -168,7 +168,9 @@ def get_commit_log(project_path):
                 for i in range(0, len(res)):
                     row[metrics[i]] = res[i]
                 row['father_version'] = father_version
-                new_df = new_df.append(row) #warning
+                new_df = pd.concat([new_df, pd.DataFrame([row])], ignore_index=True)
+
+                #new_df = new_df.append(row) #warning
         except:
              continue
     new_df.to_csv(output_file, index=None)

framework/bug-mining/bug_commit_classification/code/run_model.py

@@ -3,7 +3,8 @@
 os.environ["CUDA_VISIBLE_DEVICES"] = '3'
 
 from transformers import AutoTokenizer, AutoModel, AutoConfig
-from transformers import AdamW, get_scheduler
+from transformers import get_scheduler
+from torch.optim import AdamW
 import torch.nn.functional as F
 import torch.nn as nn
 import torch
@@ -115,7 +116,7 @@ def forward(self, ptm_inputs, mlp_inputs, labels=None):
     num_params += param.numel()
 print("model size", num_params, end=" ")
 model.to(device)
-model.load_state_dict(torch.load('saveT.pt') if torch.cuda.is_available() else torch.load('saveT.pt', map_location='cpu')  )
+model.load_state_dict(torch.load('saveT.pt') if torch.cuda.is_available() else torch.load('saveT.pt', map_location='cpu'),strict =False  )
 model.eval()
 
 labels_list=[]
@@ -126,7 +127,7 @@ def forward(self, ptm_inputs, mlp_inputs, labels=None):
 
 
 def process_metrics( valid_metrics, method="minmax"):
-    valid_metrics = np.asarray(valid_metrics).astype(np.float)
+    valid_metrics = np.asarray(valid_metrics).astype(float)
     whole_metrics =  valid_metrics 
     if method=="minmax":
         min_metric = np.min(whole_metrics)

framework/core/Project/Net.pm

@@ -79,11 +79,47 @@ sub _post_checkout {
 
     my $project_dir = "$PROJECTS_DIR/$self->{pid}";
     # Check whether ant build file exists
-    unless (-e "$work_dir/build.xml") {
-        my $build_files_dir = "$PROJECTS_DIR/$PID/build_files/$rev_id";
-        if (-d "$build_files_dir") {
-            Utils::exec_cmd("cp $build_files_dir/* $work_dir", "Copy generated Ant build file") or die;
+    #unless (-e "$work_dir/build.xml") {
+    my $build_files_dir = "$PROJECTS_DIR/$PID/build_files/$rev_id";
+    if (-d "$build_files_dir") {
+        Utils::exec_cmd("cp -r $build_files_dir/* $work_dir", "Copy generated Ant build file") or die;
+    }
+
+   if (-e "$work_dir/build.xml"){
+        rename("$work_dir/build.xml", "$work_dir/build.xml".'.bak');
+        open(IN, '<'."$work_dir/build.xml".'.bak') or die $!;
+        open(OUT, '>'."$work_dir/build.xml") or die $!;
+        while(<IN>) {
+            $_ =~ s/compile-tests/compile\.tests/g;
+            $_ =~ s/fork="false"/fork="true"/g;
+            print OUT $_;
+        }
+        close(IN);
+        close(OUT);
+    }
+    if (-e "$work_dir/maven-build.xml"){
+        rename("$work_dir/maven-build.xml", "$work_dir/maven-build.xml".'.bak');
+        open(IN, '<'."$work_dir/maven-build.xml".'.bak') or die $!;
+        open(OUT, '>'."$work_dir/maven-build.xml") or die $!;
+        while(<IN>) {
+            $_ =~ s/compile-tests/compile\.tests/g;
+            $_ =~ s/fork="false"/fork="true"/g;
+            print OUT $_;
+        }
+        close(IN);
+        close(OUT);
+    }
+    if (-e "$work_dir/maven-build.properties"){
+        rename("$work_dir/maven-build.properties", "$work_dir/maven-build.properties".'.bak');
+        open(IN, '<'."$work_dir/maven-build.properties".'.bak') or die $!;
+        open(OUT, '>'."$work_dir/maven-build.properties") or die $!;
+        while(<IN>) {
+            $_ =~ s/compile-tests/compile\.tests/g;
+            $_ =~ s/fork="false"/fork="true"/g;
+            print OUT $_;
         }
+        close(IN);
+        close(OUT);
     }
         #exclude the test you don't need
     my $exclude_test1="$work_dir/src/test/java/org/apache/commons/net/pop3/POP3ClientCommandsTest.java";

framework/core/Project/Text.pm

@@ -79,13 +79,47 @@ sub _post_checkout {
 
     my $project_dir = "$PROJECTS_DIR/$self->{pid}";
     # Check whether ant build file exists
-    unless (-e "$work_dir/build.xml") {
-        my $build_files_dir = "$PROJECTS_DIR/$PID/build_files/$rev_id";
-        if (-d "$build_files_dir") {
-            Utils::exec_cmd("cp $build_files_dir/* $work_dir", "Copy generated Ant build file") or die;
+    my $build_files_dir = "$PROJECTS_DIR/$PID/build_files/$rev_id";
+    if (-d "$build_files_dir") {
+        Utils::exec_cmd("cp $build_files_dir/* $work_dir", "Copy generated Ant build file") or die;
+    }
+    if (-e "$work_dir/build.xml"){
+        rename("$work_dir/build.xml", "$work_dir/build.xml".'.bak');
+        open(IN, '<'."$work_dir/build.xml".'.bak') or die $!;
+        open(OUT, '>'."$work_dir/build.xml") or die $!;
+        while(<IN>) {
+            $_ =~ s/compile-tests/compile\.tests/g;
+            $_ =~ s/fork="false"/fork="true"/g;
+            print OUT $_;
+        }
+        close(IN);
+        close(OUT);
+    }
+    if (-e "$work_dir/maven-build.xml"){
+        rename("$work_dir/maven-build.xml", "$work_dir/maven-build.xml".'.bak');
+        open(IN, '<'."$work_dir/maven-build.xml".'.bak') or die $!;
+        open(OUT, '>'."$work_dir/maven-build.xml") or die $!;
+        while(<IN>) {
+            $_ =~ s/compile-tests/compile\.tests/g;
+            $_ =~ s/fork="false"/fork="true"/g;
+            print OUT $_;
         }
+        close(IN);
+        close(OUT);
     }
-
+    if (-e "$work_dir/maven-build.properties"){
+        rename("$work_dir/maven-build.properties", "$work_dir/maven-build.properties".'.bak');
+        open(IN, '<'."$work_dir/maven-build.properties".'.bak') or die $!;
+        open(OUT, '>'."$work_dir/maven-build.properties") or die $!;
+        while(<IN>) {
+            $_ =~ s/compile-tests/compile\.tests/g;
+            $_ =~ s/fork="false"/fork="true"/g;
+            print OUT $_;
+        }
+        close(IN);
+        close(OUT);
+    }
+
     #exclude the test you don't need
     my $exclude_test1="$work_dir/src/test/java/org/apache/commons/text/RandomStringGeneratorTest.java";
     if (-e $exclude_test1){