7 $base =~ m/^\-/ and die;
12 my $f = new IO::File "$fn", '<' or die "$fn $!";
14 if (m#^//// toplevels-from:#) {
15 defined($_ = <$f>) or die $!;
16 m#^include\s+\<(\S+)>\s*$# or die;
20 next unless m#^\s*(?:////\s?)?module\s+(\w+)\b.*////toplevel\b#;
21 print "$base,$1\n" or die $!;
23 $f->error and die "$fn $!";
26 read_file("$base.scad");
27 close STDOUT or die $!;