chiark / gitweb /
anke-gps-bracket: NestleCube: add NestleCubeBaseTest
[reprap-play.git] / 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 $!;