+++ /dev/null
-#!/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 $!;
-