"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "3rdparty/nqp-configure/lib/NQP/Macros.pm" between
rakudo-2020.08.2.tar.gz and rakudo-2020.09.tar.gz

About: Rakudo is a compiler for the Perl 6 programming language.

Macros.pm  (rakudo-2020.08.2):Macros.pm  (rakudo-2020.09)
skipping to change at line 94 skipping to change at line 94
use File::Spec; use File::Spec;
use Data::Dumper; use Data::Dumper;
use Carp qw<longmess>; use Carp qw<longmess>;
use IPC::Cmd qw<can_run run>; use IPC::Cmd qw<can_run run>;
require NQP::Config; require NQP::Config;
my %preexpand = map { $_ => 1 } qw< my %preexpand = map { $_ => 1 } qw<
include include_capture nfp nfpl nfpq nfplq q include include_capture nfp nfpl nfpq nfplq q
insert insert_capture insert_filelist insert insert_capture insert_filelist
expand template ctx_template script ctx_script expand template ctx_template script ctx_script
sp_escape nl_escape c_escape fixup uc lc abs2rel sp_escape nl_escape c_escape sq_escape fixup uc
shquot mkquot chomp if bpv bpm bsv bsm echo lc abs2rel shquot mkquot chomp if bpv bpm bsv
use_prereqs bsm echo use_prereqs
>; >;
my %receipe_macro; my %receipe_macro;
# Hash of externally registered macros. # Hash of externally registered macros.
my %external; my %external;
sub new { sub new {
my $class = shift; my $class = shift;
my $self = bless {}, $class; my $self = bless {}, $class;
skipping to change at line 708 skipping to change at line 708
# c_escape(text) # c_escape(text)
# Escaping for c string literals. # Escaping for c string literals.
sub _m_c_escape { sub _m_c_escape {
my $self = shift; my $self = shift;
my $str = shift; my $str = shift;
$str =~ s{\\}{\\\\}sg; $str =~ s{\\}{\\\\}sg;
$str =~ s{"}{\\"}sg; $str =~ s{"}{\\"}sg;
return $str; return $str;
} }
# sq_escape(text)
# Escaping single quotes and backslashes.
# Can e.g. be used in a Perl '' string.
sub _m_sq_escape {
my $self = shift;
my $str = shift;
$str =~ s{\\}{\\\\}sg;
$str =~ s{'}{\\'}sg;
return $str;
}
# sp_unescape(a\ st\ring) # sp_unescape(a\ st\ring)
# Simlpe unescaping horizontal whitespaces from backslashes. # Simple unescaping horizontal whitespaces from backslashes.
sub _m_sp_unescape { sub _m_sp_unescape {
my $self = shift; my $self = shift;
my $str = shift; my $str = shift;
$str =~ s/\\([\\\h])/$1/g; $str =~ s/\\([\\\h])/$1/g;
return $str; return $str;
} }
# Iterate over whitespace separated list and execute callback for non-ws elems. # Iterate over whitespace separated list and execute callback for non-ws elems.
sub _iterate_ws_list { sub _iterate_ws_list {
my $self = shift; my $self = shift;
 End of changes. 3 change blocks. 
4 lines changed or deleted 15 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)