#!perl -lw
# create symlink .old first
print "set -e";
print "ln -s gcc cc"
die unless defined($suffix=shift@ARGV);
for(<.old/*>){
    next if /-\d+\.\d+\.\d+(\.real)?$/;
    #print;
    if(/(.*)\.real$/){
        die unless ($part)=m,^.old/(.*)\.real$,;
        print "ln -s $_ $part-$suffix.real"
        #print;
    } else {
        die unless ($part)=m,^.old/(.*),;
        print "ln -s $_ $part-$suffix";
    }
}