diff options
Diffstat (limited to 'Documentation/BK-usage/csets-to-patches')
-rwxr-xr-x | Documentation/BK-usage/csets-to-patches | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/Documentation/BK-usage/csets-to-patches b/Documentation/BK-usage/csets-to-patches deleted file mode 100755 index e2b81c35883f..000000000000 --- a/Documentation/BK-usage/csets-to-patches +++ /dev/null | |||
@@ -1,44 +0,0 @@ | |||
1 | #!/usr/bin/perl -w | ||
2 | |||
3 | use strict; | ||
4 | |||
5 | my ($lhs, $rev, $tmp, $rhs, $s); | ||
6 | my @cset_text = (); | ||
7 | my @pipe_text = (); | ||
8 | my $have_cset = 0; | ||
9 | |||
10 | while (<>) { | ||
11 | next if /^---/; | ||
12 | |||
13 | if (($lhs, $tmp, $rhs) = (/^(ChangeSet\@)([^,]+)(, .*)$/)) { | ||
14 | &cset_rev if ($have_cset); | ||
15 | |||
16 | $rev = $tmp; | ||
17 | $have_cset = 1; | ||
18 | |||
19 | push(@cset_text, $_); | ||
20 | } | ||
21 | |||
22 | elsif ($have_cset) { | ||
23 | push(@cset_text, $_); | ||
24 | } | ||
25 | } | ||
26 | &cset_rev if ($have_cset); | ||
27 | exit(0); | ||
28 | |||
29 | |||
30 | sub cset_rev { | ||
31 | my $empty_cset = 0; | ||
32 | |||
33 | system("bk export -tpatch -du -r $rev > /tmp/rev-$rev.patch"); | ||
34 | |||
35 | if (! $empty_cset) { | ||
36 | print @cset_text; | ||
37 | print @pipe_text; | ||
38 | print "\n\n"; | ||
39 | } | ||
40 | |||
41 | @pipe_text = (); | ||
42 | @cset_text = (); | ||
43 | } | ||
44 | |||