"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/Perl6/SysConfig.nqp" between
rakudo-2020.08.2.tar.gz and rakudo-2020.09.tar.gz

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

SysConfig.nqp  (rakudo-2020.08.2):SysConfig.nqp  (rakudo-2020.09)
class Perl6::SysConfig is HLL::SysConfig { class Perl6::SysConfig is HLL::SysConfig {
has %!rakudo-build-config; has %!rakudo-build-config;
has $!rakudo-home; has $!rakudo-home;
method BUILD() { method new(%rakudo-build-config) {
%!rakudo-build-config := nqp::hash(); my $obj := nqp::create(self);
$obj.BUILD(%rakudo-build-config);
$obj
}
method BUILD(%rakudo-build-config) {
self.build-hll-sysconfig();
%!rakudo-build-config := %rakudo-build-config;
# Determine Rakudo home. # Determine Rakudo home.
#?if jvm
# TODO could be replaced by nqp::execname() after the next bootstrap for
JVM
my $execname := nqp::atkey(nqp::jvmgetproperties,'perl6.execname') // ''
;
#?endif
#?if !jvm
my $execname := nqp::execname(); my $execname := nqp::execname();
#?endif
my $install-dir := $execname eq '' my $install-dir := $execname eq ''
?? %!rakudo-build-config<prefix> ?? %!rakudo-build-config<prefix>
!! nqp::substr($execname, 0, nqp::rindex($execname, self.path-sep, n qp::rindex($execname, self.path-sep) - 1)); !! nqp::substr($execname, 0, nqp::rindex($execname, self.path-sep, n qp::rindex($execname, self.path-sep) - 1));
$!rakudo-home := nqp::getenvhash()<RAKUDO_HOME> $!rakudo-home := nqp::getenvhash()<RAKUDO_HOME>
// nqp::getenvhash()<PERL6_HOME> // nqp::getenvhash()<PERL6_HOME>
// %!rakudo-build-config<static-rakudo-home> // %!rakudo-build-config<static-rakudo-home>
|| $install-dir ~ '/share/perl6'; || $install-dir ~ '/share/perl6';
if nqp::substr($!rakudo-home, nqp::chars($!rakudo-home) - 1) eq self.pat h-sep { if nqp::substr($!rakudo-home, nqp::chars($!rakudo-home) - 1) eq self.pat h-sep {
$!rakudo-home := nqp::substr($!rakudo-home, 0, nqp::chars($!rakudo-h ome) - 1); $!rakudo-home := nqp::substr($!rakudo-home, 0, nqp::chars($!rakudo-h ome) - 1);
 End of changes. 3 change blocks. 
10 lines changed or deleted 10 lines changed or added

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