air-hockey-puck: wip

[reprap-play.git] / toplevel-find

diff --git a/toplevel-find b/toplevel-find
deleted file mode 100755 (executable)
index c9174c9..0000000
--- a/toplevel-find
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-use IO::File;
-
-@ARGV==1 or die;
-my $base = $ARGV[0];
-$base =~ m/^\-/ and die;
-
-sub read_file ($);
-sub read_file ($) {
-  my ($fn) = @_;
-  my $f = new IO::File "$fn", '<' or die "$fn $!";
-  while (<$f>) {
-    if (m#^//// toplevels-from:#) {
-      defined($_ = <$f>) or die $!;
-      m#^include\s+\<(\S+)>\s*$# or die;
-      read_file($1);
-      next;
-    }
-    next unless m#^\s*(?:////\s?)?module\s+(\w+)\b.*////toplevel\b#;
-    print "$base,$1\n" or die $!;
-  }
-  $f->error and die "$fn $!";
-}
-
-read_file("$base.scad");
-close STDOUT or die $!;
-