bin/upd-kdoc-list.pl

   1 #!/usr/bin/perl
   2 #
   3 # Kernel Docs ¤Î¥Ð¡¼¥¸¥ç¥ó¾ðÊó¥ê¥¹¥È¤ò,
   4 # ¥«¡¼¥Í¥ë¥Ñ¥Ã¥Á¤ò»È¤Ã¤Æ¹¹¿·¤¹¤ë¥¹¥¯¥ê¥×¥È
   5 #
   6 # ¥Ð¥°: Ê¸½ñ¤¬¤Ê¤¯¤Ê¤Ã¤¿¾ì¹ç¤ÏÌ¤ÂÐ±þ(^^;
   7 #
   8 # [»È¤¤Êý]
   9 #
  10 # ¤Ò¤È¤Ä¤á¤Î°ú¿ô: Kernel Docs ¤Î¥Ð¡¼¥¸¥ç¥ó¾ðÊó¥ê¥¹¥È
  11 # ¤Õ¤¿¤Ä¤á¤Î°ú¿ô: bzip2 ¤Ê¥«¡¼¥Í¥ë¥Ñ¥Ã¥Á¥Õ¥¡¥¤¥ë
  12 #
  13 # [»ÈÍÑÎã]
  14 #
  15 # $ ./upd-kdoc-list.pl ../lists/kdoc-2.6-version.list \
  16 # ~/src/patch-3.1.bz2 >../lists/kdoc-2.6-version.list.new
  17 # $ cd ../lists
  18 # $ mv kdoc-2.6-version.list.new kdoc-2.6-version.list
  19 #
  20
  21 use File::Basename;
  22
  23 if (@ARGV < 2) {die "$0 oldlist kernel-patch\n"};
  24
  25 $OLDLIST = $ARGV[0];
  26 $K_PATCH = $ARGV[1];
  27
  28 $NEWKVER = basename($ARGV[1], '.bz2');
  29 $NEWKVER =~ s/^patch-//;
  30
  31 unless (-f $OLDLIST) {die "$OLDLIST does not exist.\n"};
  32 unless (-f $K_PATCH) {die "$K_PATCH does not exist.\n"};
  33
  34 unless ($NEWKVER =~ /^3\.([0-9]+)/) {
  35     die "illegal version number.\n";
  36 }
  37 $NEWPATCHLEVEL = $1;
  38
  39 open OL, $OLDLIST;
  40 while (<OL>) {
  41     chomp;
  42     if (/^# latest versions of kernel docs, as of (3\.([0-9]+))/) {
  43         $OLDKVER       = $1;
  44         $OLDPATCHLEVEL = $2;
  45         unless (++$OLDPATCHLEVEL == $NEWPATCHLEVEL) {
  46             die "illegal version number.\n";
  47         }
  48         next;
  49     }
  50     ($VER, $FILE) = split;
  51     $FVER{$FILE} = $VER;
  52 }
  53 close OL;
  54
  55 print STDERR "Current kdoc version is $OLDKVER\n";
  56 print STDERR "updating kdoc to $NEWKVER...\n";
  57
  58 # ¤È¤ê¤¢¤¨¤º bzip2 ¤Ê¥Ñ¥Ã¥Á¥Õ¥¡¥¤¥ë¤Ë·è¤áÂÇ¤Á.
  59 #
  60 open KP, "bzip2 -dc $K_PATCH |";
  61 while (<KP>){
  62     next unless ((/^\+\+\+ b\/Documentation\/([^ \t\n]*)/) or
  63                  (/^\+\+\+ linux-$NEWKVER\/Documentation\/([^ \t]*)/) or
  64                  (/^\+\+\+ linux\/Documentation\/([^ \t]*)/));
  65     print STDERR "$1 updated!\n";
  66     $FVER{$1} = $NEWKVER;
  67 }
  68
  69 print "# latest versions of kernel docs, as of $NEWKVER\n";
  70 foreach $k (sort keys %FVER){
  71     printf "%-7s%s\n", $FVER{$k}, $k;
  72 }