Line 80... |
Line 80... |
$scwin_text -> set_policy ('automatic', 'automatic');
|
$scwin_text -> set_policy ('automatic', 'automatic');
|
$hpaned -> pack2 ($scwin_text, TRUE, TRUE);
|
$hpaned -> pack2 ($scwin_text, TRUE, TRUE);
|
|
|
|
|
my ($scwin_info,$tview)= create_text();
|
my ($scwin_info,$tview)= create_text();
|
add_colored_tag($tview,'red');
|
add_colors_to_textview($tview);
|
add_colored_tag($tview,'blue');
|
|
$vpaned-> pack1 ($hpaned, TRUE, TRUE);
|
$vpaned-> pack1 ($hpaned, TRUE, TRUE);
|
$vpaned ->set_position ($hight*.5);
|
$vpaned ->set_position ($hight*.5);
|
$vpaned-> pack2 ($scwin_info, TRUE, TRUE);
|
$vpaned-> pack2 ($scwin_info, TRUE, TRUE);
|
|
|
|
|
Line 728... |
Line 727... |
return;
|
return;
|
}
|
}
|
|
|
|
|
sub run_make_file {
|
sub run_make_file {
|
my ($dir,$outtext)=@_;
|
my ($dir,$outtext, $args)=@_;
|
my $cmd = "cd \"$dir/\" \n make ";
|
my $cmd = (defined $args) ? "cd \"$dir/\" \n make $args" : "cd \"$dir/\" \n make ";
|
my $error=0;
|
my $error=0;
|
show_info(\$outtext,"$cmd\n");
|
add_info(\$outtext,"$cmd\n");
|
|
|
my ($stdout,$exit,$stderr)=run_cmd_in_back_ground_get_stdout( $cmd);
|
my ($stdout,$exit,$stderr)=run_cmd_in_back_ground_get_stdout( $cmd);
|
|
#($stdout,$exit,$stderr)=run_cmd_in_back_ground_get_stdout( $cmd);
|
|
|
|
|
|
if($exit){
|
if($stderr){
|
if($stderr){
|
$stderr=~ s/[‘,’]//g;
|
$stderr=~ s/[‘,’]//g;
|
add_info(\$outtext,"$stdout\n");
|
add_info(\$outtext,"$stdout\n");
|
add_colored_info(\$outtext,"$stderr\n","red");
|
add_colored_info(\$outtext,"$stderr\n","red");
|
|
}
|
add_colored_info(\$outtext,"Compilation failed.\n",'red');
|
add_colored_info(\$outtext,"Compilation failed.\n",'red');
|
|
return 0;
|
|
|
}else{
|
}else{
|
|
|
add_info(\$outtext,"$stdout\n");
|
add_info(\$outtext,"$stdout\n");
|
|
if($stderr){ #probebly had warning
|
|
$stderr=~ s/[‘,’]//g;
|
|
#add_info(\$outtext,"$stdout\n");
|
|
add_colored_info(\$outtext,"$stderr\n","green");
|
|
}
|
|
|
add_colored_info(\$outtext,"Compilation finished successfully.\n",'blue');
|
add_colored_info(\$outtext,"Compilation finished successfully.\n",'blue');
|
|
return 1;
|
}
|
}
|
|
|
#add_info(\$outtext,"**********Quartus compilation is done successfully in $target_dir!*************\n") if($error==0);
|
#add_info(\$outtext,"**********Quartus compilation is done successfully in $target_dir!*************\n") if($error==0);
|
|
|
|
|