diff options
author | Zancanaro; Carlo <czan8762@plang3.cs.usyd.edu.au> | 2012-09-24 09:58:17 +1000 |
---|---|---|
committer | Zancanaro; Carlo <czan8762@plang3.cs.usyd.edu.au> | 2012-09-24 09:58:17 +1000 |
commit | 222e2a7620e6520ffaf4fc4e69d79c18da31542e (patch) | |
tree | 7bfbc05bfa3b41c8f9d2e56d53a0bc3e310df239 /clang/test/make_test_dirs.pl | |
parent | 3d206f03985b50beacae843d880bccdc91a9f424 (diff) |
Add the clang library to the repo (with some of my changes, too).
Diffstat (limited to 'clang/test/make_test_dirs.pl')
-rwxr-xr-x | clang/test/make_test_dirs.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/clang/test/make_test_dirs.pl b/clang/test/make_test_dirs.pl new file mode 100755 index 0000000..3a524d2 --- /dev/null +++ b/clang/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); + } +} |