/usr/share/creduce/perl/pass_includes.pm is in creduce 2.5~20160420-0ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | ## -*- mode: Perl -*-
##
## Copyright (c) 2012, 2013, 2015 The University of Utah
## All rights reserved.
##
## This file is distributed under the University of Illinois Open Source
## License. See the file COPYING for details.
###############################################################################
package pass_includes;
use strict;
use warnings;
use File::Copy;
use creduce_utils;
sub check_prereqs () {
return 1;
}
sub new ($$) {
my $index = 1;
return \$index;
}
sub advance ($$$) {
(my $cfile, my $arg, my $state) = @_;
my $index = ${$state};
$index++;
return \$index;
}
sub advance_on_success ($$$) {
(my $cfile, my $arg, my $state) = @_;
return $state;
}
sub do_transform($$) {
my ($cfile, $index) = @_;
open INF, "<$cfile" or die;
my $tmpfile = File::Temp::tmpnam();
open OUTF, ">$tmpfile" or die;
my $includes = 0;
my $matched;
while (my $line = <INF>) {
if ($line =~ m/^\s*#\s*include/) {
$includes++;
if ($includes == $index) {
$matched = 1;
next;
}
}
print OUTF $line;
}
close INF;
close OUTF;
if ($matched) {
File::Copy::move($tmpfile, $cfile);
} else {
unlink $tmpfile;
}
return $matched;
}
sub transform ($$$) {
(my $cfile, my $arg, my $state) = @_;
my $index = ${$state};
my $success;
$success = do_transform($cfile, $index);
return ($success ? $OK : $STOP, \$index);
}
1;
|