bin/upd-kdoc-list.pl

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