toplevel-make

   1 #!/usr/bin/perl -w
   2 use strict;
   3 die unless @ARGV==1;
   4 die unless $ARGV[0] =~ m/^(.+),(\w+)(?:\..*)?/;
   5 my ($base,$obj) = ($1,$2);
   6 print <<END or die $!;
   7 include <$base.scad>
   8 $obj();
   9 END
  10 close STDOUT or die $!;