tools/dev/pmcrenumber.pl

   1 #! perl
   2 # Copyright (C) 2009, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7
   8 my $pmc_num_file = $ARGV[0];
   9
  10 my $pmc_order = 0;
  11 my $pmc_num_contents;
  12
  13 open my $pmc_num_fh, '<', $pmc_num_file;
  14
  15 for (<$pmc_num_fh>) {
  16     if (/^([\w]+)\.pmc\s+\d+$/) {
  17         $pmc_num_contents .= "$1.pmc    $pmc_order\n";
  18         $pmc_order++;
  19     }
  20     else {
  21         $pmc_num_contents .= $_;
  22     }
  23 }
  24
  25 close $pmc_num_fh;
  26 open  $pmc_num_fh, '>', $pmc_num_file;
  27 print $pmc_num_fh $pmc_num_contents;
  28 close $pmc_num_fh;
  29
  30
  31 ################### DOCUMENTATION ####################
  32
  33 =head1 NAME
  34
  35 tools/dev/pmcrenumber.pl - Renumber F<src/pmc/pmc.num>.
  36
  37 =head1 SYNOPSIS
  38
  39     $ perl tools/dev/pmcrenumber.pl pmc.num
  40
  41 =head1 DESCRIPTION
  42
  43 This program should be used when adding PMCs. Note that it does not remove
  44 numbers assigned to PMCs that have been removed; this happens very rarely.
  45
  46 =head1 SEE ALSO
  47
  48 =over 4
  49
  50 =item F<lib/Parrot/OpsRenumber.pm>.
  51
  52 =back
  53
  54 =head1 AUTHOR
  55
  56 Christoph Otto
  57
  58 =cut
  59
  60 # Local Variables:
  61 #   mode: cperl
  62 #   cperl-indent-level: 4
  63 #   fill-column: 100
  64 # End:
  65 # vim: expandtab shiftwidth=4: