3 # $Id: upd-kdoc-list.pl,v 1.9 2005/06/25 12:08:19 mdk Exp $
5 # Kernel Docs ¤Î¥Ð¡¼¥¸¥ç¥ó¾ðÊó¥ê¥¹¥È¤ò,
6 # ¥«¡¼¥Í¥ë¥Ñ¥Ã¥Á¤ò»È¤Ã¤Æ¹¹¿·¤¹¤ë¥¹¥¯¥ê¥×¥È
8 # ¥Ð¥°: ʸ½ñ¤¬¤Ê¤¯¤Ê¤Ã¤¿¾ì¹ç¤Ï̤Âбþ(^^;
12 # ¤Ò¤È¤Ä¤á¤Î°ú¿ô: Kernel Docs ¤Î¥Ð¡¼¥¸¥ç¥ó¾ðÊó¥ê¥¹¥È
13 # ¤Õ¤¿¤Ä¤á¤Î°ú¿ô: bzip2 ¤Ê¥«¡¼¥Í¥ë¥Ñ¥Ã¥Á¥Õ¥¡¥¤¥ë
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
20 # $ mv kdoc-2.6-version.list.new kdoc-2.6-version.list
25 if (@ARGV < 2) {die "$0 oldlist kernel-patch\n"};
30 $NEWKVER = basename($ARGV[1], '.bz2');
31 $NEWKVER =~ s/^patch-//;
33 unless (-f $OLDLIST) {die "$OLDLIST does not exist.\n"};
34 unless (-f $K_PATCH) {die "$K_PATCH does not exist.\n"};
36 unless ($NEWKVER =~ /^2\.([246])\.([1-9][0-9]?)/) {
37 die "illegal version number.\n";
45 if (/^# latest versions of kernel docs, as of (2\.([246])\.([0-9][0-9]?))/) {
49 unless ($OLDPATCHLEVEL == $NEWPATCHLEVEL &&
50 ++$OLDSUBLEBEL == $NEWSUBLEVEL) {
51 die "illegal version number.\n";
55 ($VER, $FILE) = split;
60 print STDERR "Current kdoc version is $OLDKVER\n";
61 print STDERR "updating kdoc to $NEWKVER...\n";
63 # ¤È¤ê¤¢¤¨¤º bzip2 ¤Ê¥Ñ¥Ã¥Á¥Õ¥¡¥¤¥ë¤Ë·è¤áÂǤÁ.
65 open KP, "bzip2 -dc $K_PATCH |";
67 next unless ((/^\+\+\+ b\/Documentation\/([^ \t\n]*)/) or
68 (/^\+\+\+ linux-$NEWKVER\/Documentation\/([^ \t]*)/) or
69 (/^\+\+\+ linux\/Documentation\/([^ \t]*)/));
70 print STDERR "$1 updated!\n";
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;