[GASPP] Add a -verbose option for printing all executed commands

Message ID 1540239818-5586-1-git-send-email-martin@martin.st
State New
Headers show
Series
  • [GASPP] Add a -verbose option for printing all executed commands
Related show

Commit Message

Martin Storsjö Oct. 22, 2018, 8:23 p.m.
---
 gas-preprocessor.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

Comments

Janne Grunau Oct. 26, 2018, 8:44 p.m. | #1
On 2018-10-22 23:23:38 +0300, Martin Storsjö wrote:
> ---
>  gas-preprocessor.pl | 9 +++++++++
>  1 file changed, 9 insertions(+)
> 
> diff --git a/gas-preprocessor.pl b/gas-preprocessor.pl
> index fd9aac8..41d7b69 100755
> --- a/gas-preprocessor.pl
> +++ b/gas-preprocessor.pl
> @@ -27,6 +27,7 @@ my $as_type = "apple-gas";
>  
>  my $fix_unreq = $^O eq "darwin";
>  my $force_thumb = 0;
> +my $verbose = 0;
>  
>  my $arm_cond_codes = "eq|ne|cs|cc|mi|pl|vs|vc|hi|ls|ge|lt|gt|le|al|hs|lo";
>  
> @@ -48,6 +49,7 @@ command. Following options are currently supported:
>      -force-thumb  - assemble as thumb regardless of the input source
>                      (note, this is incomplete and only works for sources
>                      it explicitly was tested with)
> +    -verbose      - print executed commands
>  ";
>  
>  sub usage() {
> @@ -61,6 +63,8 @@ while (@ARGV) {
>          $fix_unreq = $1 ne "no-";
>      } elsif ($opt eq "-force-thumb") {
>          $force_thumb = 1;
> +    } elsif ($opt eq "-verbose") {
> +        $verbose = 1;
>      } elsif ($opt eq "-arch") {
>          $arch = shift;
>          die "unknown arch: '$arch'\n" if not exists $canonical_arch{$arch};
> @@ -90,6 +94,7 @@ if (grep /\.c$/, @gcc_cmd) {
>      # pass -v/--version along, used during probing. Matching '-v' might have
>      # uninteded results but it doesn't matter much if gas-preprocessor or
>      # the compiler fails.
> +    print STDERR join(" ", @gcc_cmd)."\n" if $verbose;
>      exec(@gcc_cmd);
>  } else {
>      die "Unrecognized input filetype";
> @@ -115,6 +120,7 @@ if ($as_type eq "armasm") {
>          $index++;
>      }
>      if (grep /^-MM$/, @preprocess_c_cmd) {
> +        print STDERR join(" ", @preprocess_c_cmd)."\n" if $verbose;
>          system(@preprocess_c_cmd) == 0 or die "Error running preprocessor";
>          exit 0;
>      }
> @@ -206,12 +212,14 @@ $comm = ";" if $as_type =~ /armasm/;
>  my %ppc_spr = (ctr    => 9,
>                 vrsave => 256);
>  
> +print STDERR join(" ", @preprocess_c_cmd)."\n" if $verbose;
>  open(INPUT, "-|", @preprocess_c_cmd) || die "Error running preprocessor";
>  
>  if ($ENV{GASPP_DEBUG}) {
>      open(ASMFILE, ">&STDOUT");
>  } else {
>      if ($as_type ne "armasm") {
> +        print STDERR join(" ", @gcc_cmd)."\n" if $verbose;
>          open(ASMFILE, "|-", @gcc_cmd) or die "Error running assembler";
>      } else {
>          open(ASMFILE, ">", $tempfile);
> @@ -1192,6 +1200,7 @@ if ($as_type ne "armasm") {
>  close(INPUT) or exit 1;
>  close(ASMFILE) or exit 1;
>  if ($as_type eq "armasm" and ! defined $ENV{GASPP_DEBUG}) {
> +    print STDERR join(" ", @gcc_cmd)."\n" if $verbose;
>      system(@gcc_cmd) == 0 or die "Error running assembler";
>  }
>  

ok

Janne

Patch

diff --git a/gas-preprocessor.pl b/gas-preprocessor.pl
index fd9aac8..41d7b69 100755
--- a/gas-preprocessor.pl
+++ b/gas-preprocessor.pl
@@ -27,6 +27,7 @@  my $as_type = "apple-gas";
 
 my $fix_unreq = $^O eq "darwin";
 my $force_thumb = 0;
+my $verbose = 0;
 
 my $arm_cond_codes = "eq|ne|cs|cc|mi|pl|vs|vc|hi|ls|ge|lt|gt|le|al|hs|lo";
 
@@ -48,6 +49,7 @@  command. Following options are currently supported:
     -force-thumb  - assemble as thumb regardless of the input source
                     (note, this is incomplete and only works for sources
                     it explicitly was tested with)
+    -verbose      - print executed commands
 ";
 
 sub usage() {
@@ -61,6 +63,8 @@  while (@ARGV) {
         $fix_unreq = $1 ne "no-";
     } elsif ($opt eq "-force-thumb") {
         $force_thumb = 1;
+    } elsif ($opt eq "-verbose") {
+        $verbose = 1;
     } elsif ($opt eq "-arch") {
         $arch = shift;
         die "unknown arch: '$arch'\n" if not exists $canonical_arch{$arch};
@@ -90,6 +94,7 @@  if (grep /\.c$/, @gcc_cmd) {
     # pass -v/--version along, used during probing. Matching '-v' might have
     # uninteded results but it doesn't matter much if gas-preprocessor or
     # the compiler fails.
+    print STDERR join(" ", @gcc_cmd)."\n" if $verbose;
     exec(@gcc_cmd);
 } else {
     die "Unrecognized input filetype";
@@ -115,6 +120,7 @@  if ($as_type eq "armasm") {
         $index++;
     }
     if (grep /^-MM$/, @preprocess_c_cmd) {
+        print STDERR join(" ", @preprocess_c_cmd)."\n" if $verbose;
         system(@preprocess_c_cmd) == 0 or die "Error running preprocessor";
         exit 0;
     }
@@ -206,12 +212,14 @@  $comm = ";" if $as_type =~ /armasm/;
 my %ppc_spr = (ctr    => 9,
                vrsave => 256);
 
+print STDERR join(" ", @preprocess_c_cmd)."\n" if $verbose;
 open(INPUT, "-|", @preprocess_c_cmd) || die "Error running preprocessor";
 
 if ($ENV{GASPP_DEBUG}) {
     open(ASMFILE, ">&STDOUT");
 } else {
     if ($as_type ne "armasm") {
+        print STDERR join(" ", @gcc_cmd)."\n" if $verbose;
         open(ASMFILE, "|-", @gcc_cmd) or die "Error running assembler";
     } else {
         open(ASMFILE, ">", $tempfile);
@@ -1192,6 +1200,7 @@  if ($as_type ne "armasm") {
 close(INPUT) or exit 1;
 close(ASMFILE) or exit 1;
 if ($as_type eq "armasm" and ! defined $ENV{GASPP_DEBUG}) {
+    print STDERR join(" ", @gcc_cmd)."\n" if $verbose;
     system(@gcc_cmd) == 0 or die "Error running assembler";
 }