mc/vfs/extfs/uha.in

#!/bin/sh
#
# It is the uhafs Valery Kornienkov vlk@st.simbirsk.su 2:5051/30@fidonet
# ver 0.1 Thu Apr  6 12:05:08 2000

HA=ha # for HA 0.999 Copyright (c) 1995 Harri Hirvola
      # Source: ftp://sunsite.unc.edu/pub/Linux/compress/ha0999p-linux.tar.gz

mchafs_list ()
{
 eval $HA lf $1 2>/dev/null |@AWK@ -v uid=${UID-0} '
{ date="JanFebMarAprMayJunJulAugSepOctNovDec" }
/^===========/ {next}
{
 if ($5="%" && $8~/DIR|ASC|HSC|CPY/) {
   split($6, a, "-")
   split($7, t, ":")
   filename=$1
   filesize=$2
   getline
   if ($2=="(none)") $2=""
   path=$2
   getline
   if ($1~/^d.*/) next
   printf "%s %s %-8d %-8d %8d %3s %2d %4d %s:%s %s%s \n",\
   $1,1,0,0,filesize, substr(date,(a[2]-1)*3+1,3),a[3],a[1],t[1],t[2],\
   path,filename
  }
}' 2>/dev/null
}

mchafs_copyout ()
{
    cd /tmp
    eval $HA xy $1 $2 >/dev/null 2>&1
    mv -f $2 $3
}

case "$1" in
  list) shift; mchafs_list $1; exit 0;;
  copyout) shift; mchafs_copyout $1 $2 $3; exit 0;;
esac
exit 1
Just forget to add.... Handling of .ha files. 1999-03-23 22:55:36 +03:00			`#!/bin/sh`
			`#`
			`# It is the uhafs Valery Kornienkov vlk@st.simbirsk.su 2:5051/30@fidonet`
2000-05-04 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> * src/user.c: Add macro %k it is block file name Add macro %e it is error file name Add macro %i it is cursor column indent of spaces, only for edit Add macro %y, it is syntax of current file in editor, only for edit Add condition y , it is syntax pattern of current file in edit Add macro %x it is extension of current file Add macro %m it is current menu filename 2000-05-04 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> * gtkedit/editcmd.c: Modify External Formatter (was C indent formatter) . Autocreate a scripts in home, from templates /usr/lib/mc/edit.indent.rc, edit.ispell.rc, etc. Remove leading and trailing spaces into _(""), (the message of David H. Martin <dmartina@usa.net>) 2000-05-05 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> * src/user.c: Add condition (x filename) into mc.menu . for "Open next a free console" and like. 2000-05-04 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> src/user.c: fix segfault in chunk_alloc of glibc, when into condition of .mnu we have quoted space. (~.mc/menu: + f \.\ test$). 2000-05-04 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> * gtkedit/edit.c: Add ability user edit menus: system: /usr/lib/mc/cedit.menu, * gtkedit/editmenu.c: home: ~/.cedit.menu, local: .cedit.menu Marked block is access now from an user edit menu Access ~/.cedit/cooledit.block for insert to cursor place from user edit menu. Created system cedit.menu 2000-05-04 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> * gtkedit/editdraw.c: Improved a status string of cool editor for best understand, and to add char,hex view. 2000-05-04 Richard Hestilow <hestgray@ionet.net> * gnome/gdesktop.c: Fixes snap to grid. 2000-05-09 05:18:27 +04:00			`# ver 0.1 Thu Apr 6 12:05:08 2000`
Just forget to add.... Handling of .ha files. 1999-03-23 22:55:36 +03:00
			`HA=ha # for HA 0.999 Copyright (c) 1995 Harri Hirvola`
			`# Source: ftp://sunsite.unc.edu/pub/Linux/compress/ha0999p-linux.tar.gz`

			`mchafs_list ()`
			`{`
			`eval $HA lf $1 2>/dev/null \|@AWK@ -v uid=${UID-0} '`
			`{ date="JanFebMarAprMayJunJulAugSepOctNovDec" }`
			`/^===========/ {next}`
			`{`
2000-05-04 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> * src/user.c: Add macro %k it is block file name Add macro %e it is error file name Add macro %i it is cursor column indent of spaces, only for edit Add macro %y, it is syntax of current file in editor, only for edit Add condition y , it is syntax pattern of current file in edit Add macro %x it is extension of current file Add macro %m it is current menu filename 2000-05-04 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> * gtkedit/editcmd.c: Modify External Formatter (was C indent formatter) . Autocreate a scripts in home, from templates /usr/lib/mc/edit.indent.rc, edit.ispell.rc, etc. Remove leading and trailing spaces into _(""), (the message of David H. Martin <dmartina@usa.net>) 2000-05-05 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> * src/user.c: Add condition (x filename) into mc.menu . for "Open next a free console" and like. 2000-05-04 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> src/user.c: fix segfault in chunk_alloc of glibc, when into condition of .mnu we have quoted space. (~.mc/menu: + f \.\ test$). 2000-05-04 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> * gtkedit/edit.c: Add ability user edit menus: system: /usr/lib/mc/cedit.menu, * gtkedit/editmenu.c: home: ~/.cedit.menu, local: .cedit.menu Marked block is access now from an user edit menu Access ~/.cedit/cooledit.block for insert to cursor place from user edit menu. Created system cedit.menu 2000-05-04 Valery Kornienkov <vlk@dimavb.st.simbirsk.su> * gtkedit/editdraw.c: Improved a status string of cool editor for best understand, and to add char,hex view. 2000-05-04 Richard Hestilow <hestgray@ionet.net> * gnome/gdesktop.c: Fixes snap to grid. 2000-05-09 05:18:27 +04:00			`if ($5="%" && $8~/DIR\|ASC\|HSC\|CPY/) {`
Just forget to add.... Handling of .ha files. 1999-03-23 22:55:36 +03:00			`split($6, a, "-")`
			`split($7, t, ":")`
			`filename=$1`
			`filesize=$2`
			`getline`
			`if ($2=="(none)") $2=""`
			`path=$2`
			`getline`
			`if ($1~/^d.*/) next`
			`printf "%s %s %-8d %-8d %8d %3s %2d %4d %s:%s %s%s \n",\`
			`$1,1,0,0,filesize, substr(date,(a[2]-1)*3+1,3),a[3],a[1],t[1],t[2],\`
			`path,filename`
			`}`
			`}' 2>/dev/null`
			`}`

			`mchafs_copyout ()`
			`{`
			`cd /tmp`
			`eval $HA xy $1 $2 >/dev/null 2>&1`
			`mv -f $2 $3`
			`}`

			`case "$1" in`
			`list) shift; mchafs_list $1; exit 0;;`
			`copyout) shift; mchafs_copyout $1 $2 $3; exit 0;;`
			`esac`
			`exit 1`