+#---------- licence and source code ----------
+
+sub dump_licence ($$$) {
+
+ my ($c,$r, $fh) = @_;
+ foreach my $incdir ($r->_ch('getsource_includedirs')) {
+
+ }
+}
+
+sub source_dump_get_path ($$$) {
+ my ($c,$r, $thing) = @_;
+ die if $thing =~ m/\W/;
+ my $pat = $r->{S}('source_dump_path_pat');
+ my $leaf = sprintf $pat, $thing;
+ return $r->_absify_path($leaf);
+}
+
+sub source_dump_thing ($$$) {
+ my ($c,$r, $thing, $outfn) = @_;
+ my $path = $r->_ch('source_dump_get_path', $thing);
+ copy($path, $utfn
+