Ticket #4130: 4130_PAK_support.patch

misc/mc.ext.in

@@ -176 +176 @@
         Open=%cd %p/ulha://
         View=%view{ascii} @EXTHELPERSDIR@/archive.sh view lha
 
+# PAK
+type/^PAK\ .*archive
+        Open=%cd %p/unar://
+        View=%view{ascii} /usr/lib/mc/ext.d/archive.sh view pak
+
 # arj
 regex/i/\.a(rj|[0-9][0-9])$
         Open=%cd %p/uarj://

src/vfs/extfs/helpers/Makefile.am

@@ -32 +32 @@
         ulha.in                 \
         ulib.in                 \
         urar.in                 \
+        unar.in                 \
         uzip.in                 \
         uzoo.in
 
@@ -61 +62 @@
         ulha                    \
         ulib                    \
         urar                    \
+        unar                    \
         uzip                    \
         uzoo
 

src/vfs/extfs/helpers/README.extfs

@@ -73 +73 @@
 
 # Gputils lib archives.
 ulib
+
+# PAK Archive
+unar
+ No newline at end of file

new file src/vfs/extfs/helpers/unar.in

@@ +1 @@
+#! /bin/sh
+
+# Written by Ilia Maslakov <il.smind@gmail.com>
+#
+# (C) 2020 The Free Software Foundation.
+
+# Define awk
+AWK=@AWK@
+
+# Define which archiver you are using with appropriate options
+UNAR_LIST="lsar "
+UNAR_GET="unar "
+
+# The 'list' command executive
+
+mc_unar_fs_list()
+{
+   # List the contents of the archive and sort it out
+        $UNAR_LIST -l "$1" | $AWK -v uid=`id -nu` -v gid=`id -ng` '
+        BEGIN { flag=0 }
+        /^\(Flags/ {next}
+        /^\(Mode/ {next}
+        {
+            flag++;
+            if (flag < 4) next
+                pr="-r--r--r--"
+            if (index($2, "D") != 0)
+                    pr="dr-xr-xr-x"
+                split($6, a, "-")
+                split($7, b, ":")
+
+                printf "%s 1 %s %s %d %02d/%02d/%02d %02d:%02d  %s\n", pr, uid, gid, $3, a[3], a[2], a[1], b[1], b[2], $8
+
+        }'
+}
+
+
+
+# The 'copyout' command executive to copy displayed files to a destination
+
+mc_unar_fs_copyout ()
+{
+    TMPDIR=`mktemp -d "${MC_TMPDIR:-/tmp}/mctmpdir-uha.XXXXXX"` || exit 1
+
+    $UNAR_GET  "$1" "$2" -o "$TMPDIR" >/dev/null
+    we=`basename "$1" | sed -r 's|^(.*?)\.\w+$|\1|'`
+    cat "$TMPDIR/$we/$2" > "$3"
+    cd /
+    rm -rf "$TMPDIR"
+}
+
+# The main routine
+umask 077
+
+cmd="$1"
+shift
+
+case "$cmd" in
+   list)    mc_unar_fs_list    "$@" ;;
+   copyout) mc_unar_fs_copyout "$@" ;;
+   *)       exit 1 ;;
+esac
+
+exit 0