* extfs/patchfs: Rewritten is Perl. File size is now displayed

properly.

vfs/ChangeLog

@@ -1,3 +1,8 @@
+2002-12-09  Adam Byrtek  <alpha@debian.org>
+
+	* extfs/patchfs: Rewritten is Perl.  File size is now displayed
+	properly.
+
 2002-12-09  Pavel Roskin  <proski@gnu.org>
 
 	* extfs/ftplist.in: Remove, it's obsoleted by the hotlist.

vfs/extfs/patchfs

@@ -1,80 +1,151 @@
-#! /bin/sh
+#! /usr/bin/perl -w
+#
+# Written by Adam Byrtek <alpha@debian.org>, 2002
+# 
+# extfs to handle patches in unified diff format
 
-# Peter Daum <gator@cs.tu-berlin.de> (Jan 1998, mc-4.1.22)
+use bytes;
+use strict;
+use POSIX;
 
-# override any locale for dates. But LANG override LC_TIME (at least in glibc)
+# standard binaries
-# unset LC_ALL
+my $bzcat = "bzip2 -dc";
-# LC_TIME=C
+my $gzcat = "zcat";
-# export LC_TIME
+my $file = "file";
-LC_ALL=C
-export LC_ALL
 
-# paths to used programs:
+# date parsing requires Date::Parse from TimeDate module
-ncat=cat                  # regular cat
+my $parsedates = eval "require Date::Parse";
-zcat=zcat                 # gunzip to stdout
-bzcat="bzip2 -dc"         # bunzip2 to stdout
-file=file                 # "file" command
-sed=sed
 
-filelist=FILELIST         # names for "special" files
+sub timef
-
-patchfs_list ()
 {
-    date=`date +"%b %d %H:%M"`
+    # format unix time
-    perm="-r--r--r--"
+    my @time=localtime($_[0]);
-    uid=00000000
+    return sprintf "%02d-%02d-%02d %02d:%02d", $time[4]+1, $time[3], $time[5]%100, $time[2], $time[1];
-    gid=00000000
-    size=00000000
-    nlink="  1"
-
-    echo "$perm $nlink $uid $gid $size $date $filelist"
-    $cat $1 | 
-    $sed -n "/^diff /{
-	s|^.* \([^ ]*\)$|$perm $nlink $uid $gid $size $date \1|gp
-    }"
 }
 
-patchfs_copyout ()
+sub datetime
 {
-    if [ "$2" = "$filelist" ]; then  # list of all affected files
+    # in case of problems fall back to 0 in unix time
-	$cat $1 | 
+    # note: str2time interprets some wrong values (eg. " ") as 'today'
-	$sed -n "/^diff /{
+    if ($parsedates && defined (my $t=str2time($_[0]))) {
-	    s|^.* \([^ ]*\)$|\1|gp
+	return timef($t);
-	}" > $3
-	exit 0
-     fi
-    
-    fn=`echo $2|$sed 's|/|\\\/|g'`   # escape '/' in filename
-    $cat $1 | 
-    $sed -n "/^diff .*$fn/,/^diff /{
-	/^diff ./{
-	    /$fn/p
-	    d
     }
-	p
+    return timef(0);
-    }" > $3
 }
 
-patchfs_run ()
+sub list
 {
-    exit 0
+    my ($f,$d,$state,$pos,$npos);
+    my ($uid,$gid)=(`id -nu` || "0",`id -ng` || "0");
+    chomp ($uid, $gid);
+
+    import Date::Parse if ($parsedates);
+    
+    # state==1 means diff contents, state==0 mens comments
+    $state=1;
+    $f="";
+    while (<I>) {
+	if (/^--- /) {
+	    # start of a new file
+	    if ($state==1) {
+		$npos=tell(I)-length;
+		printf "-rw-r--r-- 1 %s %s %d %s %s\n", $uid, $gid, $npos-$pos, datetime($d), $f
+		  if $f;
+		$pos=$npos;
+	    }
+	    $state=1;
+	    s/^--- ([^\s]+).*$/$1/;
+	    chomp;
+	    $f=$_;
+	    $d="";
+	} elsif (/^\+\+\+ /) {
+	    # take date from the +++ field
+	    s/^\+\+\+ ([^\s]+)\s*//;
+	    s/^([^\t]+).*$/$1/;
+	    chomp;
+	    $d=$_;
+	} elsif ($state==1 && !/^([+\- ]|@@)/) {
+	    # start of comments, end of diff contents
+	    $npos=tell(I)-length;
+	    printf "-rw-r--r-- 1 %s %s %d %s %s\n", $uid, $gid, $npos-$pos, datetime($d), $f
+	      if $f;
+	    $pos=$npos;
+	    $state=0;
+	}
+    }
+    $npos=tell(I);
+    printf "-rw-r--r-- 1 %s %s %d %s %s\n", $uid, $gid, $npos-$pos, datetime($d), $f
+      if $f && $state!=0;
+
+    close I;
 }
 
-type=`$file $2`
+sub copyout
-case $type in
+{
-    *bzip*) cat=$bzcat ;;
+    my ($file,$out)=@_;
-    *gzip*) cat=$zcat ;;
+    my ($f,$state,$pos);
-    *text*) cat=$ncat ;;
-    *) exit 1
-esac
 
-umask 077
+    open O, "> $out";
-case "$1" in
+    $state=1;
-    list) patchfs_list $2; exit 0;;
+    $f="";
-    copyout) patchfs_copyout $2 $3 $4; exit 0;;
+    while (<I>) {
-    run) patchfs_run; exit 0;;
+	if (/^--- /) {
-esac
+	    # start of a new file
+	    if ($state==1) {
+		if ($f eq $file) {
+		    seek(I,-length,1);
+		    last;
+		}
+		$pos=tell(I)-length;
+	    }
+	    $state=1;
+	    s/^--- ([^\s]+).*$/$1/;
+	    chomp;
+	    $f=$_;
+	} elsif ($state==1 && !/^([+\- ]|@@)/) {
+	    # start of comments, end of diff contents
+	    if ($f eq $file) {
+		seek(I,-length,1);
+		last;
+	    }
+	    $pos=tell(I)-length;
+	    $state=0;
+	}
+    }
+    if ($f eq $file) {
+	my $here=tell(I);
+	seek(I,$pos,0);
+	read(I,my $buf,$here-$pos);
+	print O $buf;
+    }
 
-exit 1
+    close O;
+}
 
 
+my $tmp;
+$_=`$file $ARGV[1]`;
+if (/bzip/) {
+    $tmp=tmpnam();
+    system "$bzcat $ARGV[1] > $tmp";
+    open I, "< $tmp";
+} elsif (/gzip/) {
+    $tmp=tmpnam();
+    system "$gzcat $ARGV[1] > $tmp";
+    open I, "< $tmp";
+} else {
+    open I, "< $ARGV[1]";
+}
+
+if ($ARGV[0] eq "list") {
+    list;
+    exit(0);
+} if ($ARGV[0] eq "copyout") {
+    copyout ($ARGV[2], $ARGV[3]);
+    exit(0);
+}
+exit(1);
+
+END {
+    system "rm $tmp" if ($tmp);
+}