Trying to fiddle suffex rule

[Axel Hecht]

Hi all,
I am trying to create a new suffix rule, and so far I got down to 
creating a package whackit in my Construct file, and registring that.
So far, I am fine, I just don't get what exactly the functions of 
build::command are supposed to do. That makes it quite tough to get them 
to actually do something.
The final worker code is going to be perl, so getting around without a 
fork or exec would be cool.
(Task: transform and stage a website, all .src files get .html files 
with slight modifications)

The find function gets called, but I don't get beyond

cons: don't know how to construct "/tmp/ah/site/links.src"
@files is an ARRAY of .src files.

Any tips? That would be cool, I'm out of debug-unknown-code-fu for now.

I was looking for a solution to be somewhat more flexible than the one 
in the FAQ.

Axel

In my Construct:

$env = new cons();
$env->{SUFMAP}{".src"} = "whackit";
$env->{SUFOBJ} = ".html";

Default(@files);
Objects $env @files;

package whackit;

use vars qw( @ISA );

BEGIN { @ISA = qw(build::command) }
sub find {
  print "whackit::find is called\n";
  "whackit::dostuff %< %>";
}

sub dostuff{
  print "whackit::dostuff is called\n";
}


sub includes {
  my($self, $tgt) = @_;
  print "whackit::includes is called\n";
}