root / trunk / code / projects / traffic_navigation / update_linefollow.pl @ 1962
History | View | Annotate | Download (384 Bytes)
1 | 1928 | josephle | #!/usr/bin/perl -W |
---|---|---|---|
2 | |||
3 | my $line; |
||
4 | 1962 | josephle | my $line2; |
5 | 1928 | josephle | |
6 | $line = `pwd`; |
||
7 | if($line =~ /linefollowing/igs) { |
||
8 | print "Cannot modify linefollow code from linefollow\n"; |
||
9 | 1929 | josephle | } else { |
10 | `rm lineFollow.*`; |
||
11 | 1934 | josephle | `rm lineDrive.*`; |
12 | 1929 | josephle | `cp ../linefollowing/lineFollow.* .`; |
13 | `cp ../linefollowing/lineDrive.* .`; |
||
14 | } |
||
15 | 1928 | josephle | |
16 | 1962 | josephle | if($line =~ /traffic_navigation/igs) { |
17 | while(</*>) { |
||
18 | if(/(.*?test)\.c/) { |
||
19 | `mv $1.c $1.bak`; |
||
20 | } |
||
21 | } |
||
22 | } |