Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

32 lines (23 sloc) 0.561 kB
#!/usr/bin/perl
# Copyright (C) 2009, Patrick R. Michaud.
use strict;
use warnings;
foreach my $file (@ARGV) {
make_bootstrap($file);
}
0;
sub make_bootstrap {
my $filename = shift;
open my $fh, '<', $filename or die "Unable to read $filename\n";
while (<$fh>) {
if (m{^\.include '(src/[^']*)'}) {
print "### $_";
make_bootstrap($1);
}
elsif (m{^\.include '(gen/[^']*)'}) {
print "### $_";
make_bootstrap("src/stage2/$1");
}
else { print; }
}
}
Jump to Line
Something went wrong with that request. Please try again.