[arch-commits] Commit in synce-mcfs/repos/community-any (4 files)

Sergej Pupykin spupykin at nymeria.archlinux.org
Tue Jul 1 15:42:40 UTC 2014


    Date: Tuesday, July 1, 2014 @ 17:42:39
  Author: spupykin
Revision: 114410

archrelease: copy trunk to community-any

Added:
  synce-mcfs/repos/community-any/PKGBUILD
    (from rev 114409, synce-mcfs/trunk/PKGBUILD)
  synce-mcfs/repos/community-any/synce
    (from rev 114409, synce-mcfs/trunk/synce)
Deleted:
  synce-mcfs/repos/community-any/PKGBUILD
  synce-mcfs/repos/community-any/synce

----------+
 PKGBUILD |   43 +++++-------
 synce    |  218 ++++++++++++++++++++++++++++++-------------------------------
 2 files changed, 130 insertions(+), 131 deletions(-)

Deleted: PKGBUILD
===================================================================
--- PKGBUILD	2014-07-01 15:42:28 UTC (rev 114409)
+++ PKGBUILD	2014-07-01 15:42:39 UTC (rev 114410)
@@ -1,22 +0,0 @@
-# $Id$
-# Maintainer: Sergej Pupykin <pupykin.s+arch at gmail.com>
-# Contributor: Berkus <berkus at madfire.net>
-
-pkgname=synce-mcfs
-pkgver=0.1.1
-pkgrel=7
-pkgdesc="Midnight Commander VFS for SynCE"
-arch=(any)
-url="http://synce.sourceforge.net/"
-license=("GPL")
-depends=('synce-librapi' 'perl')
-#source=(http://downloads.sourceforge.net/sourceforge/synce/$pkgname.tar.gz)
-source=(synce)
-md5sums=('4837a8a0093713509bc6769089c1c402')
-
-build() {
-  cd $srcdir
-  mkdir -p $pkgdir/usr/lib/mc/extfs.d || true
-#  cp src/{synce,synceroot} $pkgdir/usr/share/mc/extfs
-  cp $srcdir/synce $pkgdir/usr/lib/mc/extfs.d
-}

Copied: synce-mcfs/repos/community-any/PKGBUILD (from rev 114409, synce-mcfs/trunk/PKGBUILD)
===================================================================
--- PKGBUILD	                        (rev 0)
+++ PKGBUILD	2014-07-01 15:42:39 UTC (rev 114410)
@@ -0,0 +1,21 @@
+# $Id$
+# Maintainer: Sergej Pupykin <pupykin.s+arch at gmail.com>
+# Contributor: Berkus <berkus at madfire.net>
+
+pkgname=synce-mcfs
+pkgver=0.1.1
+pkgrel=8
+pkgdesc="Midnight Commander VFS for SynCE"
+arch=(any)
+url="http://synce.sourceforge.net/"
+license=("GPL")
+depends=('synce-librapi' 'perl')
+#source=(http://downloads.sourceforge.net/sourceforge/synce/$pkgname.tar.gz)
+source=(synce)
+md5sums=('4837a8a0093713509bc6769089c1c402')
+
+package() {
+  cd $srcdir
+  mkdir -p $pkgdir/usr/lib/mc/extfs.d || true
+  cp $srcdir/synce $pkgdir/usr/lib/mc/extfs.d
+}

Deleted: synce
===================================================================
--- synce	2014-07-01 15:42:28 UTC (rev 114409)
+++ synce	2014-07-01 15:42:39 UTC (rev 114410)
@@ -1,109 +0,0 @@
-#!/usr/bin/perl
-#
-# External filesystem for Windows CE, using SynCE, version 0.1.1,
-# patched for new 'pls' output and mc by Aleksey Korenkov <akorenkov at yahoo.com> March 2010
-# by Michael Lashkevich <lashkevi at landau.ac.ru> on 10.06.2003
-#
-# In contrast to #synce it opens the root ("\") directory and, therefore,
-# 'cd #synceroot' works slower than 'cd #synce'.
-# You have to establish SynCE connection before changin directory
-# to #synceroot.
-# 
-$ENV{LANG}="C";
-$ENV{LC_ALL}="C";
-
-# These mtools components must be in PATH for this to work
-$pls = "pls";
-$pcp = "pcp";
-$prm = "prm";
-$pmkdir = "pmkdir";
-$prmdir = "prmdir";
-
-SWITCH: for ( $ARGV[0] ) {
-  /list/ && do {
-    @dirs = get_dirs("");
-    while ($dir = shift(@dirs)) {
-      push @dirs, get_dirs("$dir");
-    } exit 0; };
-  /mkdir/ && do {
-    shift; shift;
-    exit 1 if scalar(@ARGV) != 1;
-    `echo \"$ARGV[0]\" >>/tmp/log.mc`;
-    system("$pmkdir \"/$ARGV[0]\" >/dev/null");
-    exit 0; };
-  /rmdir/ && do {
-    shift; shift;
-    exit 1 if scalar(@ARGV) != 1;
-    system("$prmdir \"/$ARGV[0]\" >/dev/null");
-    exit 0; };
-  /rm/ && do {
-    shift; shift;
-    exit 1 if scalar(@ARGV) != 1;
-    system("$prm \"/$ARGV[0]\" >/dev/null");
-    exit 0; };
-  /copyout/ && do {
-    shift; shift;
-    exit 1 if scalar(@ARGV) != 2;
-    ( $src, $dest ) = @ARGV;
-	system("rm -f $dest");
-    system("$pcp \":/$src\" $dest >/dev/null");
-    exit 0; };
-  /copyin/ && do {
-    shift; shift;
-    exit 1 if scalar(@ARGV) != 2;
-    ( $dest, $src ) = @ARGV;
-    system("$pcp $src \":/$dest\" >/dev/null");
-    exit 0; };
-  /.*/ && do {                               # an unfamiliar command
-    exit 1; };
-}
-
-sub get_dirs {
-  my ($path, $name, $pathname, $type0, $type2, $size, $datetime, @lst, @rv);
-
-  $path = shift(@_);
-  @rv = ();
-
-  open(FILE,"$pls -a \"/$path\" 2>/dev/null |");
-  while ( <FILE> ) {
-    chomp();
-    /^ / && next;                            # ignore `non-file' lines
-    /^$/ && next;                            # ignore empty lines
-    /^\.\.?/ && next;                        # ignore `.' and `..'
-
-    if  ( ! /^([^\s]+)[ ]+(\d*)-(\d*)-(\d*)[ ]*(\d*:\d*:\d*)*[ ]*(.*)$/ ){
-
-		if ( ! /^([^\s]+)[ ]+([\d]*)[ ]*(\d*)-(\d*)-(\d*)[ ]*(\d*:\d*:\d*)[ ]*(.*)/ ){
-			print "ERR: $_\n";
-			next;
-		}
-		$size=$2;
-		$year=$3;
-		$month=$4;
-		$day=$5;
-		$time=$6;
-		$fname=$7;
-
-		my $pathname = $path.$fname;
-    	print "-rw-r--r-- 1 root root $size\t $day/$month/$year $time $pathname\n";
-		next;
-    }
-
-	my $perm = $1;
-	$year=$2;
-	$month=$3;
-	$day=$4;
-	$time=$5;
-	$fname=$6;
-
-	my $pathname = $path.$fname;
-	if ($pathname =~ /\/\//){
-	    next;
-	}
-	
-    print "drwxr-xr-x 1 root root 0\t $day/$month/$year $time $pathname\n";
-    push @rv, $pathname;
-  }
-  close(FILE);
-  return @rv;
-};

Copied: synce-mcfs/repos/community-any/synce (from rev 114409, synce-mcfs/trunk/synce)
===================================================================
--- synce	                        (rev 0)
+++ synce	2014-07-01 15:42:39 UTC (rev 114410)
@@ -0,0 +1,109 @@
+#!/usr/bin/perl
+#
+# External filesystem for Windows CE, using SynCE, version 0.1.1,
+# patched for new 'pls' output and mc by Aleksey Korenkov <akorenkov at yahoo.com> March 2010
+# by Michael Lashkevich <lashkevi at landau.ac.ru> on 10.06.2003
+#
+# In contrast to #synce it opens the root ("\") directory and, therefore,
+# 'cd #synceroot' works slower than 'cd #synce'.
+# You have to establish SynCE connection before changin directory
+# to #synceroot.
+# 
+$ENV{LANG}="C";
+$ENV{LC_ALL}="C";
+
+# These mtools components must be in PATH for this to work
+$pls = "pls";
+$pcp = "pcp";
+$prm = "prm";
+$pmkdir = "pmkdir";
+$prmdir = "prmdir";
+
+SWITCH: for ( $ARGV[0] ) {
+  /list/ && do {
+    @dirs = get_dirs("");
+    while ($dir = shift(@dirs)) {
+      push @dirs, get_dirs("$dir");
+    } exit 0; };
+  /mkdir/ && do {
+    shift; shift;
+    exit 1 if scalar(@ARGV) != 1;
+    `echo \"$ARGV[0]\" >>/tmp/log.mc`;
+    system("$pmkdir \"/$ARGV[0]\" >/dev/null");
+    exit 0; };
+  /rmdir/ && do {
+    shift; shift;
+    exit 1 if scalar(@ARGV) != 1;
+    system("$prmdir \"/$ARGV[0]\" >/dev/null");
+    exit 0; };
+  /rm/ && do {
+    shift; shift;
+    exit 1 if scalar(@ARGV) != 1;
+    system("$prm \"/$ARGV[0]\" >/dev/null");
+    exit 0; };
+  /copyout/ && do {
+    shift; shift;
+    exit 1 if scalar(@ARGV) != 2;
+    ( $src, $dest ) = @ARGV;
+	system("rm -f $dest");
+    system("$pcp \":/$src\" $dest >/dev/null");
+    exit 0; };
+  /copyin/ && do {
+    shift; shift;
+    exit 1 if scalar(@ARGV) != 2;
+    ( $dest, $src ) = @ARGV;
+    system("$pcp $src \":/$dest\" >/dev/null");
+    exit 0; };
+  /.*/ && do {                               # an unfamiliar command
+    exit 1; };
+}
+
+sub get_dirs {
+  my ($path, $name, $pathname, $type0, $type2, $size, $datetime, @lst, @rv);
+
+  $path = shift(@_);
+  @rv = ();
+
+  open(FILE,"$pls -a \"/$path\" 2>/dev/null |");
+  while ( <FILE> ) {
+    chomp();
+    /^ / && next;                            # ignore `non-file' lines
+    /^$/ && next;                            # ignore empty lines
+    /^\.\.?/ && next;                        # ignore `.' and `..'
+
+    if  ( ! /^([^\s]+)[ ]+(\d*)-(\d*)-(\d*)[ ]*(\d*:\d*:\d*)*[ ]*(.*)$/ ){
+
+		if ( ! /^([^\s]+)[ ]+([\d]*)[ ]*(\d*)-(\d*)-(\d*)[ ]*(\d*:\d*:\d*)[ ]*(.*)/ ){
+			print "ERR: $_\n";
+			next;
+		}
+		$size=$2;
+		$year=$3;
+		$month=$4;
+		$day=$5;
+		$time=$6;
+		$fname=$7;
+
+		my $pathname = $path.$fname;
+    	print "-rw-r--r-- 1 root root $size\t $day/$month/$year $time $pathname\n";
+		next;
+    }
+
+	my $perm = $1;
+	$year=$2;
+	$month=$3;
+	$day=$4;
+	$time=$5;
+	$fname=$6;
+
+	my $pathname = $path.$fname;
+	if ($pathname =~ /\/\//){
+	    next;
+	}
+	
+    print "drwxr-xr-x 1 root root 0\t $day/$month/$year $time $pathname\n";
+    push @rv, $pathname;
+  }
+  close(FILE);
+  return @rv;
+};




More information about the arch-commits mailing list