chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
lock-inframe-bracket: from v1: thicker clip
[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 $!;