Move a lot of files into the utils tree

[reprap-play.git] / toplevel-find

diff --git a/toplevel-find b/toplevel-find
deleted file mode 100755 (executable)
index 72a2de39c50e0c2c624b28d4ea957646b84d072a..0000000000000000000000000000000000000000
--- a/toplevel-find
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-@ARGV==1 or die;
-my $base = $ARGV[0];
-$base =~ m/^\-/ and die;
-open F, "$base.scad" or die "$base.scad $!";
-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 $!;

diff --git a/toplevel-find b/toplevel-find
new file mode 120000 (symlink)
index 0000000000000000000000000000000000000000..eacdaff1231af0fab09e00b4009c3b59c8f81a04
--- /dev/null
+++ b/toplevel-find
@@ -0,0 +1 @@
+diziet-utils/toplevel-find
\ No newline at end of file