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