https://github.com/epiqc/ScaffCC
Revision 067cc59bd7a234226b81962ea78260b95061620b authored by ah744 on 01 February 2017, 21:14:46 UTC, committed by ah744 on 01 February 2017, 21:14:46 UTC
1 parent 801b6f9
Tip revision: 067cc59bd7a234226b81962ea78260b95061620b authored by ah744 on 01 February 2017, 21:14:46 UTC
Afree() Implemetation Complete
Afree() Implemetation Complete
Tip revision: 067cc59
make_test_dirs.pl
#!/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);
}
}
Computing file changes ...
