Date: Tuesday, December 22, 2015 @ 10:33:50 Author: spupykin Revision: 154154
archrelease: copy trunk to community-any Added: synce-mcfs/repos/community-any/PKGBUILD (from rev 154153, synce-mcfs/trunk/PKGBUILD) synce-mcfs/repos/community-any/synce (from rev 154153, synce-mcfs/trunk/synce) Deleted: synce-mcfs/repos/community-any/PKGBUILD synce-mcfs/repos/community-any/synce ----------+ PKGBUILD | 42 +++++------ synce | 218 ++++++++++++++++++++++++++++++------------------------------- 2 files changed, 130 insertions(+), 130 deletions(-) Deleted: PKGBUILD =================================================================== --- PKGBUILD 2015-12-22 09:33:42 UTC (rev 154153) +++ PKGBUILD 2015-12-22 09:33:50 UTC (rev 154154) @@ -1,21 +0,0 @@ -# $Id$ -# Maintainer: Sergej Pupykin <pupykin.s+a...@gmail.com> -# Contributor: Berkus <ber...@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 -} Copied: synce-mcfs/repos/community-any/PKGBUILD (from rev 154153, synce-mcfs/trunk/PKGBUILD) =================================================================== --- PKGBUILD (rev 0) +++ PKGBUILD 2015-12-22 09:33:50 UTC (rev 154154) @@ -0,0 +1,21 @@ +# $Id$ +# Maintainer: Sergej Pupykin <pupykin.s+a...@gmail.com> +# Contributor: Berkus <ber...@madfire.net> + +pkgname=synce-mcfs +pkgver=0.1.1 +pkgrel=9 +pkgdesc="Midnight Commander VFS for SynCE" +arch=(any) +url="http://synce.sourceforge.net/" +license=("GPL") +depends=('synce-core' '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 2015-12-22 09:33:42 UTC (rev 154153) +++ synce 2015-12-22 09:33:50 UTC (rev 154154) @@ -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 <akoren...@yahoo.com> March 2010 -# by Michael Lashkevich <lashk...@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 154153, synce-mcfs/trunk/synce) =================================================================== --- synce (rev 0) +++ synce 2015-12-22 09:33:50 UTC (rev 154154) @@ -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 <akoren...@yahoo.com> March 2010 +# by Michael Lashkevich <lashk...@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; +};