peschwa’s gists

peschwa / gist:7c0e8e12e6a02e2fbc31f70ca185b6cd

Created August 24, 2025 07:29

	use v6;
	unit module Math::Hessification;

	#\| why else do we have -0..?
	my &sign = -> Numeric $x {
	$x >= 0 ?? 1 !! -1
	}

	#\| equally tempered
	my $TOLERANCE = (2*(1/12))/100e0;

peschwa / gist:837f82061c9d22033bcd8c12374805ce

Created September 20, 2016 19:01

	$ ./perl6-jdb-server -e'my @a = 1, 1, * + * ... * < 20; use java::lang::System:from<JavaRuntime>; System.get_out.println(@a)'
	Listening for transport dt_socket at address: 8000
	Listening for transport dt_socket at address: 8000
	java.lang.RuntimeException: This type does not support positional operations
	in block <unit> at -e line 1

	# Okay, great, let's debug this!

	main[4] list
	4,242

peschwa / simple MOP example

Created July 23, 2016 07:09

peschwa / gist:41db187968dba5841e6ba7c9acf06bac

Last active July 19, 2016 17:06 — forked from zoffixznet/gist:b0c00840ea52a15fdbefda892fc2b1ee

	use nqp;
	use QRegex:from<NQP>;

	BEGIN {
	nqp::bindkey(
	%LANG, "MAIN", %LANG<MAIN>.HOW.mixin(%*LANG<MAIN>, role {
	token quote:sym<emote> {
	"✌" ~ "✌"
	{
	my $shared := nqp::getattr(nqp::decont($/.CURSOR), Cursor, '$!shared');

peschwa / not-working-nqp-j-guts-code

Last active July 11, 2016 10:18

	$ ./perl6-j -e'use lib q[java#/home/psch/rakudo/javatests/]; use Foo:from<Java>'
	path: file:/home/psch/rakudo/javatests/
	name: Foo
	urls in urlcl: file:/home/psch/rakudo/javatests/
	===SORRY!===
	java.lang.RuntimeException: java.lang.ClassNotFoundException: Foo

peschwa / gist:9f3236e85041550a5bacda6bc4752cab

Created July 10, 2016 12:23

	class CompUnit::Repository::Java does CompUnit::Repository does CompUnit::Repository::Locally {
	has $!interop;

	method need(
	CompUnit::DependencySpecification $spec,
	CompUnit::PrecompilationRepository $precomp = self.precomp-repository(),
	)
	returns CompUnit:D
	{
	if $spec.from eq 'Java' {

peschwa / gist:c25caca2ae3b946aa9d85e3da677f1ca

Created July 10, 2016 07:56

	$ ./perl6-j -e'use lib q[java#/home/psch/rakudo/rakudo/install/bin]; .say for $*REPO.repo-chain'
	CompUnit::Repository::Java.new(next-repo => CompUnit::Repository::FileSystem.new("/home/psch/rakudo/rakudo/install/bin"))
	file#/home/psch/rakudo/rakudo/install/bin
	file#/home/psch/rakudo/rakudo/install/share/perl6/runtime
	file#/home/psch/rakudo/rakudo/install/share/perl6/lib
	file#/home/psch/rakudo/rakudo/install/share/nqp/lib
	inst#/home/psch/.perl6
	inst#/home/psch/rakudo/rakudo/install/share/perl6/site
	inst#/home/psch/rakudo/rakudo/install/share/perl6/vendor
	inst#/home/psch/rakudo/rakudo/install/share/perl6

peschwa / gist:f0b3c39e9c63112fda51e60e237a9b2d

Created July 8, 2016 08:26

	main[1] catch uncaught org.perl6.nqp.runtime.UnwindException
	Deferring uncaught org.perl6.nqp.runtime.UnwindException.
	It will be set after the class is loaded.
	main[1] run
	> Set deferred uncaught org.perl6.nqp.runtime.UnwindException

	Exception occurred: org.perl6.nqp.runtime.UnwindException (uncaught)
	Exception occurred: org.perl6.nqp.runtime.UnwindException (uncaught)"thread=main", org.perl6.nqp.runtime.Ops.invokeDirect(), line=2,374 bci=150
	2,374 throw e;

peschwa / gist:b23c2882ff470676544845c23fc42216

Created July 7, 2016 07:57

	$ ./perl6-j -e'return'
	Unhandled exception; category = 65536
	in return (gen/jvm/CORE.setting:632)
	in <unit> (-e:1)
	in <unit-outer> (-e:1)
	in eval (gen/jvm/stage2/NQPHLL.nqp:1198)
	in (gen/jvm/stage2/NQPHLL.nqp:1288)
	in command_eval (gen/jvm/stage2/NQPHLL.nqp:1285)
	in command_eval (src/Perl6/Compiler.nqp:27)
	in command_line (gen/jvm/stage2/NQPHLL.nqp:1269)

peschwa / gist:1e6a9f84a4c9e67638ff93e5b79f86d9

Created July 6, 2016 17:24