filter-LLVM-ir-print.pl

#!/usr/bin/env perl
while(<>) {
  if (/^\*\*\* IR Dump/../^\*\*\* END OF \*\*\* IR Dump/) {
    if (/^\*\*\* IR Dump/) {
        print "#START\n";
        print "commit refs/heads/module-ir\n";
        print "committer Wasnt me <wasnt.me@here> now\n";
        print "data <<END_OF_COMMIT_MESSAGE\n";
        $name = s/^\*\*\* //r;

        print $name,"\n";
        print "IR automatically stored into git.\n";
        print "END_OF_COMMIT_MESSAGE\n";
        print "M 644 inline module-ir.ll\n";
        print "data <<END_OF_MODULE_IR\n";
        next;
    }
    if (/^\*\*\* END OF \*\*\* IR Dump/) {
        print "#END\n";
        print "END_OF_MODULE_IR\n";
        print "progress committed\n";
        next;
    }
    print
  }
}
print "done\n"