Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (20 sloc) 539 Bytes
use DumbGenerator;
use GPClass;
use Config::Simple
module OOGenerator {
my $config;
sub ooc-config($conff) {
$config = Config::Simple.read($conff, :f('ini'));
}
sub ooc-generate {
my %funcs = dg-generate-functions();
my %struct = dg-generate-structs();
say %struct{$config<OOC><ctypename>};
say "class P6FakeObject \{";
say "has Pointer[{$config<OOC><ctypename>}] "~ ' $!internal-pointer;';
for %funcs.kv -> $n, $f {
if $n ~~ /$config<OOC><methodpattern>/ {
}
}
}
}