Blame view
drivers/md/unroll.pl
492 Bytes
1da177e4c Linux-2.6.12-rc2 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
#!/usr/bin/perl # # Take a piece of C code and for each line which contains the sequence $$ # repeat n times with $ replaced by 0...n-1; the sequence $# is replaced # by the unrolling factor, and $* with a single $ # ($n) = @ARGV; $n += 0; while ( defined($line = <STDIN>) ) { if ( $line =~ /\$\$/ ) { $rep = $n; } else { $rep = 1; } for ( $i = 0 ; $i < $rep ; $i++ ) { $tmp = $line; $tmp =~ s/\$\$/$i/g; $tmp =~ s/\$\#/$n/g; $tmp =~ s/\$\*/\$/g; print $tmp; } } |