"Fossies" - the Fresh Open Source Software Archive  

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

About: Rakudo is a compiler for the Raku Pogramming Language (formerly known as Perl 6).

Compiler.nqp  (rakudo-2020.09)	:	Compiler.nqp  (rakudo-2020.10)
skipping to change at line 22		skipping to change at line 22
method config() {		method config() {
nqp::gethllsym('default', 'SysConfig').rakudo-build-config();		nqp::gethllsym('default', 'SysConfig').rakudo-build-config();
}		}
method compilation-id() {		method compilation-id() {
my class IDHolder { }		my class IDHolder { }
BEGIN { (IDHolder.WHO)<$ID> := $*W.handle }		BEGIN { (IDHolder.WHO)<$ID> := $*W.handle }
$IDHolder::ID		$IDHolder::ID
}		}
		method version() {
		nqp::say(self.version_string);
		nqp::exit(0);
		}
		method version_string(:$shorten-versions) {
		my $config-version := self.config()<version>;
		my $backend-version := nqp::getattr(self,HLL::Compiler,'$!backend').vers
		ion_string;
		if $shorten-versions {
		my $index := nqp::index($config-version,"-");
		$config-version := nqp::substr($config-version,0,$index)
		unless $index == -1;
		$index := nqp::index($backend-version,"-");
		$backend-version := nqp::substr($backend-version,0,$index)
		unless $index == -1;
		}
		"Welcome to 𝐑𝐚𝐤𝐮𝐝𝐨™ v"
		~ $config-version
		~ ".\nImplementing the 𝐑𝐚𝐤𝐮™ programming language v"
		~ self.language_version()
		~ ".\nBuilt on "
		~ $backend-version
		~ "."
		}
method implementation() { self.config<implementation> }		method implementation() { self.config<implementation> }
method language_name() { 'Raku' }		method language_name() { 'Raku' }
method reset_language_version() {		method reset_language_version() {
$!language_version := NQPMu;		$!language_version := NQPMu;
$!language_modifier := NQPMu;		$!language_modifier := NQPMu;
}		}
method set_language_version($version) {		method set_language_version($version) {
$!language_version := $version;		$!language_version := $version;
}		}
method set_language_modifier($modifier) {		method set_language_modifier($modifier) {
End of changes. 1 change blocks.
0 lines changed or deleted		29 lines changed or added

---