filamentspool, Makefile: automatic toplevels

[reprap-play.git] / toplevel-find

diff --git a/toplevel-find b/toplevel-find
new file mode 100755 (executable)
index 0000000..227bb73
--- /dev/null
+++ b/toplevel-find
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -w
+use strict;
+@ARGV==1 or die;
+my $base = $ARGV[0];
+$base =~ m/^\-/ and die;
+open F, "$base.scad" or die $!;
+while (<F>) {
+      next unless m#^\s*module\s+(\w+)\b.*////toplevel\b#;
+      print "$base,$1\n" or die $!;
+}
+close F or die $!;
+close STDOUT or die $!;