Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>When using the svn2cc script, you'll end up with a playall.bat.</p> <p>If you run the following script, then it'll label between revisions so that they are easier to access later on.</p> <p>A bit excessive perhaps, but some may find it useful. I make no apologies for the quality of the code :)</p> <pre><code># File Name ......................... revision_labeller.pl # Written By ........................ Stuart Davidson # Date .............................. 21/07/2009 # # Description : # Adds the auto-generation and application of labels to an SVN import. # # Usage : # revision_labeller.pl -label SVN-IMPORT-MYPROJECT -playall playall.bat use strict; use warnings; use Getopt::Long; use vars qw($label $playall_path); GetOptions( 'label=s' =&gt; \$label, 'playall=s' =&gt; \$playall_path, ) or exit 2; my $revisions = 0; my $output = ""; # Count how many chout_x there are. open(PLAY, "&lt;$playall_path"); while(&lt;PLAY&gt;) { if($_ =~ /^call chout_\d{1,3}.bat/) { $revisions++; } $output .= $_; } close(PLAY); # Add the ability to make labels. $output =~ s/call chin_(\d{1,3}).bat/call chin_$1.bat\ncleartool mklabel -recurse ($label)_$1 ./g; $output =~ s/\($label\)/$label/g; # For each revision, at the start, create the label my $create_labels = ""; for(my $i = 1; $i &lt;= $revisions; $i++) { $create_labels .= "cleartool mklbtype -cfile \"comments_" . $i . ".txt\" " . $label . "_" . $i . "\n"; } $output = $create_labels . $output; # For each revision, at the end, lock the label my $lock_labels = ""; for(my $i = 1; $i &lt;= $revisions; $i++) { $lock_labels .= "cleartool lock lbtype:" . $label . "_" . $i . "\n"; } $output = $output . $lock_labels; print $output; </code></pre>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload