G/g-j/StyleAgent

   1 # compile serve.pl from Wud + JaBabz
   2 my $way = sub {
   3     my $t = shift;
   4     G.way.>$t || die "No $t";
   5 };
   6 my $bab = sub {
   7     my $s = shift;
   8     my $C = {t=>'somba',y=>{},c=>{s=>$s}};
   9     G&CoBabbler;
  10     C.c.s
  11 };
  12
  13 my $wab;$wab = sub {
  14     my $t = shift;
  15     my $w = $way->($t);
  16     $t eq 'Wud' && $w =~ s/# insert JaBabz here/$way->('JaBabz')/e;
  17     $w =~ s/Rw\ JaBabz \$C;/JaBabz(\$C);/sg;
  18     $bab->($w);
  19 };
  20 # hardlinks dont stay up to date?
  21 #  probably because of that /W/ moving once written thing
  22 `cp stylehouse/G/g-j/StyleAgent w/way/StyleAgent`;
  23 `cp stylehouse/G/g-j/Wud w/way/Wud`;
  24 delete G.way.Wud;
  25
  26 my $f = "serve\.pl";
  27 my $perl = $wab->('Wud');
  28 write_file $f, $perl;
  29 `chmod +x $f`;
  30 sayre "Done";