1#!/usr/bin/env perl
2#
3# Simple little Perl script that takes the cxx-sections.data file as
4# input and generates a directory structure that mimics the standard's
5# structure.
6use English;
7use warnings;
8
9$current_indent_level = -4;
10while ($line = <STDIN>) {
11  $line =~ /^\s*/;
12  $next_indent_level = length($MATCH);
13  if ($line =~ /\[([^\]]*)\]/) {
14    my $section = $1;
15    while ($next_indent_level < $current_indent_level) {
16      chdir("..");
17      $current_indent_level -= 4;
18    }
19
20    if ($next_indent_level == $current_indent_level) {
21      chdir("..");
22    } else {
23      $current_indent_level = $next_indent_level;
24    }
25    mkdir($section);
26    chdir($section);
27  }
28}
29