Skip to content

Instantly share code, notes, and snippets.

View jnthn's full-sized avatar

Jonathan Worthington jnthn

View GitHub Profile
diff --git a/config_lib.pir b/config_lib.pir
index 146bfa8..67e86d1 100644
--- a/config_lib.pir
+++ b/config_lib.pir
@@ -49,9 +49,9 @@ no_arg:
set $P0["ccwarn"], "-wd4127 -wd4054 -wd4310 "
set $P0["chmod"], "$(PERL) -MExtUtils::Command -e chmod"
set $P0["clock_best"], " "
- set $P0["configdate"], "Mon Jan 23 17:08:39 2012 GMT"
+ set $P0["configdate"], "Mon Jan 23 17:21:25 2012 GMT"

Hands-On DDD and CQRS (with .Net or Java)

What is Domain Driven Design really about? How might Command Query Responsibility Segregation help us to build better software? Are they complicated concepts, or can they be harnessed by everyday developers?

DDD and CQRS are gaining in popularity because they attack genuine challenges in software development. This course balances explaining important underlying theory with both design- and code-focused exercises, giving students both understanding and new practical development skills. Rather than teaching a framework, the course

Over the last year, the Rakudo Perl 6 compiler has gained significant new
meta-programming capabilities. After a brief introduction to the topic of
meta-programming, I'll illustrate a range of these features through a set
of working examples. Along the way I'll also pick out some of the common
patterns and approaches, which can be used to solve a whole range of
different problems.
diff --git a/src/6model/reprs/CPointer.c b/src/6model/reprs/CPointer.c
index 35d036f..ff4c526 100644
--- a/src/6model/reprs/CPointer.c
+++ b/src/6model/reprs/CPointer.c
@@ -60,9 +60,9 @@ static void gc_free(PARROT_INTERP, PMC *obj) {
/* Gets the storage specification for this representation. */
static storage_spec get_storage_spec(PARROT_INTERP, STable *st) {
storage_spec spec;
- spec.inlineable = STORAGE_SPEC_INLINED;
- spec.bits = sizeof(CPointerBody) * 8;
t/panda/installer.t ..
1..6
creating dir: C:\consulting\perl6\panda/removeme/lib
copying blib/lib/foo.pir
creating dir: C:\consulting\perl6\panda/removeme/lib
copying blib/lib/foo.pm
ok 1 -
not ok 2 - module installed
not ok 3 - pir installed
not ok 4 - bin installed
t/panda/builder.t ....
1..3
ok 1 -
not ok 2 - module compiled
not ok 3 - module copied to blib
'rm' is not recognized as an internal or external command,
operable program or batch file.
# Looks like you failed 2 tests of 3
Failed 2/3 subtests
t/panda/ecosystem.t ..
my role CachedRoutine[$orig] {
has %!cache;
method postcircumfix:<( )>($c) {
my $key := $c.gist;
%!cache.exists($key) ??
%!cache{$key} !!
(%!cache{$key} = $orig(|$c))
}
}
diff --git a/src/Perl6/SymbolTable.pm b/src/Perl6/SymbolTable.pm
index 13a50f6..09ca5bc 100644
--- a/src/Perl6/SymbolTable.pm
+++ b/src/Perl6/SymbolTable.pm
@@ -1610,7 +1610,7 @@ class Perl6::SymbolTable is HLL::Compiler::SerializationContextBuilder {
if +@name > 1 {
my @restname := pir::clone(@name);
@restname.shift;
- return self.already_declared($scope, $first_sym, PAST::Block.new(), @restname);
+ return self.already_declared('our', $first_sym, PAST::Block.new(), @restname);
my class LSM {
has Cool $!source is readonly;
has @!substitutions;
has Int $!index = 0;
has Int $!next_match;
has $!next_substitution;
has $!substitution_length;
has Str $.unsubstituted_text;
@jnthn
jnthn / foo.c
Created November 24, 2011 23:14
#include <stdio.h>
#include <stdlib.h>
__declspec(dllexport) void Argless()
{
printf ("Hello from argless function!\n");
}
__declspec(dllexport) void GotValues(int x, float y, char *z1)
{