Gecko [ dataharbor.africa ]

Name	Size	Permission
README	7.22 KB	-rw-r--r--
README.extfs	1.11 KB	-rw-r--r--
a+	3.13 KB	-rwxr-xr-x
apt+	9.5 KB	-rwxr-xr-x
audio	1.29 KB	-rwxr-xr-x
bpp	1.18 KB	-rwxr-xr-x
changesetfs	2.5 KB	-rwxr-xr-x
deb	5.34 KB	-rwxr-xr-x
deba	3 KB	-rwxr-xr-x
debd	10.26 KB	-rwxr-xr-x
dpkg+	8.79 KB	-rwxr-xr-x
gitfs+	776 B	-rwxr-xr-x
hp48+	2.57 KB	-rwxr-xr-x
iso9660	2.7 KB	-rwxr-xr-x
lslR	1.25 KB	-rwxr-xr-x
mailfs	5.35 KB	-rwxr-xr-x
patchfs	10.63 KB	-rwxr-xr-x
patchsetfs	2.26 KB	-rwxr-xr-x
rpm	9.79 KB	-rwxr-xr-x
rpms+	1.47 KB	-rwxr-xr-x
s3+	9.94 KB	-rwxr-xr-x
trpm	7.65 KB	-rwxr-xr-x
u7z	2.98 KB	-rwxr-xr-x
uace	1.23 KB	-rwxr-xr-x
ualz	1.25 KB	-rwxr-xr-x
uar	1.29 KB	-rwxr-xr-x
uarc	1.59 KB	-rwxr-xr-x
uarj	1.62 KB	-rwxr-xr-x
uc1541	19.24 KB	-rwxr-xr-x
ucab	734 B	-rwxr-xr-x
uha	969 B	-rwxr-xr-x
ulha	3.78 KB	-rwxr-xr-x
ulib	2.74 KB	-rwxr-xr-x
urar	2.41 KB	-rwxr-xr-x
uzip	14.37 KB	-rwxr-xr-x
uzoo	1.39 KB	-rwxr-xr-x

Code Editor : hp48+

#!/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=gawk
KERMIT="kermit -l /dev/ttyS1 -b 9600"

hp48_cmd()
{
$KERMIT -C "SET EXIT WARNING OFF,REMOTE $1,QUIT"
}

hp48_cd()
{
(echo SET EXIT WARNING OFF;echo REMOTE HOST HOME
for HP48_DIR in `echo "$1" | tr '/' ' '`;do
  if [ "x$HP48_DIR" != "x." ];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 -r INPUT
while [ "x$INPUT" != "xEOF" ]
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 -r 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

${this.title}

Code Editor : hp48+