chiark / gitweb /
Revert "wardrobe-hook: frontbackly version: wip assing()ish, before revert"
[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 $!;