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