added c: option for jdk
[feisty_meow.git] / scripts / rev_control / cvs_fix.pl
1 #!/usr/bin/perl
2
3 ###############################################################################
4 #                                                                             #
5 #  Name   : cvs_fix                                                           #
6 #  Author : Chris Koeritz                                                     #
7 #  Rights : Copyright (C) 2001-$now by Author                                 #
8 #                                                                             #
9 #  Purpose:                                                                   #
10 #                                                                             #
11 #    Flips any win32 slashes into friendly forward slashes before running     #
12 #  the cvs binary.                                                            #
13 #                                                                             #
14 ###############################################################################
15 #  This program is free software; you can redistribute it and/or modify it    #
16 #  under the terms of the GNU General Public License as published by the Free #
17 #  Software Foundation; either version 2 of the License or (at your option)   #
18 #  any later version.  See: "http://www.gruntose.com/Info/GNU/GPL.html" for a #
19 #  version of the License.  Please send any updates to "fred@gruntose.com".   #
20 ###############################################################################
21
22 #require "filename_helper.pl";
23 #require "importenv.pl";
24
25 $new_cmd="cvs";
26
27 foreach $i (@ARGV) {
28 #  printf "$i\n";
29   $i =~ s/[\/\\]*$//;
30   $i =~ s/\\/\//g;
31 #  print " --> $i\n";
32   if ($i =~ /^co$/) {
33     # insert our modifiers here.
34     $new_cmd = $new_cmd . " " . $i . " -P -kb ";
35   } else {
36     # normal addition of next parameter.
37     $new_cmd = $new_cmd . " " . $i;
38   }
39 }
40
41 #printf "new command is: \"$new_cmd\"\n";
42 #printf "are the -P and -kb flags in there?\n";
43 system("$new_cmd");
44
45 1;
46