mirror of
https://github.com/MidnightCommander/mc
synced 2024-12-23 12:56:51 +03:00
98 lines
2.5 KiB
Bash
98 lines
2.5 KiB
Bash
#!/bin/sh
|
|
#
|
|
# Written by Christofer Edvardsen <ce@earthling.net>, Feb 1998
|
|
#
|
|
# This script makes it possible to view and copy files to/from a hp48
|
|
# (tested with a HP48G and the emulator x48)
|
|
#
|
|
# To use the hp48 external filesystem:
|
|
# - read the relevant parts of your HP48 manual
|
|
# - install kermit
|
|
# - connect the HP48 to your computer or start x48
|
|
# - below change the line which reflects the serial device you use
|
|
# - configure your HP48 (<left shift> - i/o - iopar):
|
|
# port: wire
|
|
# baud: 9600
|
|
# transfer format: binary (fast transfers) or
|
|
# ascii (editable on the pc)
|
|
# - start the server on the HP48: <left shift> - i/o - srvr - serve
|
|
# or the shortcut <right shift> - <right arrow>
|
|
# - on MC's commandline enter "cd hp48:"
|
|
#
|
|
# Make sure you have kermit installed and that it's using the right serial
|
|
# device by changing /dev/ttyXX on the next line
|
|
AWK=awk
|
|
KERMIT="kermit -l /dev/ttyS1 -b 9600"
|
|
|
|
hp48_cmd()
|
|
{
|
|
$KERMIT -C "SET EXIT WARNING OFF,REMOTE $*,QUIT"
|
|
}
|
|
|
|
hp48_cd()
|
|
{
|
|
(echo SET EXIT WARNING OFF;echo REMOTE HOST HOME
|
|
for HP48_DIR in `echo $*|tr '/' ' '`;do
|
|
if [ "$HP48_DIR" != "." ];then echo REMOTE HOST $HP48_DIR;fi
|
|
done
|
|
echo QUIT)| $KERMIT -B >/dev/null
|
|
}
|
|
|
|
hp48_retdir()
|
|
{
|
|
echo $1
|
|
}
|
|
|
|
hp48_retsize()
|
|
{
|
|
printf "%d" $2 2>/dev/null
|
|
}
|
|
|
|
hp48_parser()
|
|
{
|
|
HP48_DIRS=
|
|
read INPUT
|
|
while [ "$INPUT" != "EOF" ]
|
|
do
|
|
case `echo $INPUT | @AWK@ '{if (int($2)) if ($3=="Directory") print "dir";else print "file"}'` in
|
|
dir) HP48_DIRS="$HP48_DIRS `hp48_retdir $INPUT`"
|
|
printf "drwxr-xr-x 1 %-8d %-8d %8d %s %s\n" 0 0 `hp48_retsize $INPUT` "`date +\"%b %d %Y %k:%M"`" "$HP48_CDIR/`hp48_retdir $INPUT`";;
|
|
file) printf "-rw-r--r-- 1 %-8d %-8d %8d %s %s\n" 0 0 `hp48_retsize $INPUT` "`date +"%b %d %Y %k:%M"`" "$HP48_CDIR/`hp48_retdir $INPUT`";;
|
|
esac
|
|
read INPUT
|
|
done
|
|
for HP48_DIR in $HP48_DIRS;do
|
|
HP48_PDIR=$HP48_CDIR
|
|
HP48_CDIR=$HP48_CDIR/$HP48_DIR; hp48_cmd HOST $HP48_DIR >/dev/null
|
|
hp48_list
|
|
HP48_CDIR=$HP48_PDIR; hp48_cmd HOST UPDIR >/dev/null
|
|
done
|
|
}
|
|
|
|
hp48_list()
|
|
{
|
|
(hp48_cmd DIRECTORY;echo;echo EOF)|hp48_parser
|
|
}
|
|
|
|
# override any locale for dates
|
|
LC_ALL=C
|
|
export LC_ALL
|
|
|
|
case $1 in
|
|
list) HP48_CDIR=
|
|
hp48_cmd HOST HOME >/dev/null
|
|
hp48_list
|
|
exit 0;;
|
|
copyout)
|
|
cd `dirname $4`
|
|
hp48_cd `dirname $3`
|
|
$KERMIT -B -g `basename $3` -a $4 >/dev/null
|
|
exit 0;;
|
|
copyin)
|
|
cd `dirname $4`
|
|
hp48_cd `dirname $3`
|
|
$KERMIT -B -s $4 -a `basename $3` >/dev/null
|
|
exit 0;;
|
|
esac
|
|
exit 1
|