1#!/usr/bin/perl -w 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; 7 8$current_indent_level = -4; 9while ($line = <STDIN>) { 10 $line =~ /^\s*/; 11 $next_indent_level = length($MATCH); 12 if ($line =~ /\[([^\]]*)\]/) { 13 my $section = $1; 14 while ($next_indent_level < $current_indent_level) { 15 chdir(".."); 16 $current_indent_level -= 4; 17 } 18 19 if ($next_indent_level == $current_indent_level) { 20 chdir(".."); 21 } else { 22 $current_indent_level = $next_indent_level; 23 } 24 mkdir($section); 25 chdir($section); 26 } 27} 28