#!/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; } }