Statistics
| Revision:

root / trunk / code / projects / traffic_navigation / update_linefollow.pl @ 1962

History | View | Annotate | Download (384 Bytes)

1
#!/usr/bin/perl -W
2

    
3
my $line;
4
my $line2;
5

    
6
$line = `pwd`;
7
if($line =~ /linefollowing/igs) {
8
	print "Cannot modify linefollow code from linefollow\n";
9
} else {
10
	`rm lineFollow.*`;
11
	`rm lineDrive.*`;
12
	`cp ../linefollowing/lineFollow.* .`;
13
	`cp ../linefollowing/lineDrive.* .`;
14
}
15

    
16
if($line =~ /traffic_navigation/igs) {
17
	while(</*>) {
18
		if(/(.*?test)\.c/) {
19
			`mv $1.c $1.bak`;
20
		}
21
	}
22
}