File Coverage

blib/lib/CodeGen/Cpppp/Platform.pm

Criterion	Covered	Total	%
statement	27	35	77.1
branch	7	12	58.3
condition	5	6	83.3
subroutine	7	8	87.5
pod			n/a
total	46	61	75.4

package CodeGen::Cpppp::Platform;

our $VERSION = '0.005'; # VERSION
# ABSTRACT: Utility functions for abstracting the host OS

use v5.20;
use warnings;
use Carp;
use experimental 'signatures', 'lexical_subs', 'postderef';
use Exporter 'import';

our @EXPORT_OK= qw( format_commandline );


# could use String::ShellQuote, but aiming for fewer deps
# TODO: move this to a platform-specific utility module
sub _unix_shellquote {
   return "''" unless length $_[0];
   return $_[0] unless $_[0] =~ m|[^-\w!%+,./:@^]|;
   (my $x= $_[0]) =~ s/'/'\\''/g;
   $x= "'$x'";
   $x =~ s/^''//;
   $x =~ s/''$//;
   $x;
}

# This utility function returns a string which could be passed to the
# shell to re-run the current command.
sub _unix_format_commandline {
   # Make a map of which options have arguments
   my %have_arg;
   # This is defined by bin/cpppp.  Use it, if available, else we don't know
   # which options have arguments and everything goes to its own line.
   for (keys %main::option_spec) {
      /^([^=]+)=/ or next;
      $have_arg{$_}= 1 for split '|', $1;
   }
   my @lines;
   for (@main::original_argv? @main::original_argv : @ARGV) {
      my $escaped= _unix_shellquote($_);
      if (@lines && $lines[-1] =~ /^-+(.*)/ && $have_arg{$1}) {
         $lines[-1] .= ' ' . $escaped;
      } else {
         push @lines, $escaped;
      }
   }
   return $0 . ' ' . join(" \\\n    ", @lines);
}

sub _win32_format_commandline {
   require Win32::ShellQuote;
   # Not sure if Win32 can wrap a command, so just drop the whole thing on one line.
   my @argv= ( $0, @main::original_argv? @main::original_argv : @ARGV );
   return Win32::ShellQuote::quote_native(@argv);
}

if ($^O eq 'Win32') {
   *format_commandline= \&_win32_format_commandline;
} else {
   *format_commandline= \&_unix_format_commandline;
}

1;

__END__