Initial slang.
Change-Id: I4f84a741e5fbc440cd4c251406d2b611a237f713
diff --git a/test/make_test_dirs.pl b/test/make_test_dirs.pl
new file mode 100755
index 0000000..3a524d2
--- /dev/null
+++ b/test/make_test_dirs.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl -w
+#
+# Simple little Perl script that takes the cxx-sections.data file as
+# input and generates a directory structure that mimics the standard's
+# structure.
+use English;
+
+$current_indent_level = -4;
+while ($line = <STDIN>) {
+ $line =~ /^\s*/;
+ $next_indent_level = length($MATCH);
+ if ($line =~ /\[([^\]]*)\]/) {
+ my $section = $1;
+ while ($next_indent_level < $current_indent_level) {
+ chdir("..");
+ $current_indent_level -= 4;
+ }
+
+ if ($next_indent_level == $current_indent_level) {
+ chdir("..");
+ } else {
+ $current_indent_level = $next_indent_level;
+ }
+ mkdir($section);
+ chdir($section);
+ }
+}