DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T f

⟦a10c068b6⟧ TextFile

    Length: 654 (0x28e)
    Types: TextFile
    Names: »filexp«

Derivation

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./tex82/TeXpatches/patch/filexp« 
└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
    └─⟦91a96b8ca⟧ »EurOpenD3/utils/patch.tar.Z« 
        └─⟦17c387d66⟧ 
            └─⟦this⟧ »filexp« 
└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
    └─⟦3658e588a⟧ »EurOpenD3/mail/mh/mh-6.7.tar.Z« 
        └─⟦c75e36ecb⟧ 
            └─⟦this⟧ »mh-6.7/miscellany/patch-2.0.12/filexp« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦e0344c422⟧ »unix3.0/patch.tar.Z« 
        └─⟦da0377df4⟧ 
            └─⟦this⟧ »patch/filexp« 

TextFile

#!/bin/sh
: expand filename
case "$1" in
~/*|~)
    /bin/echo $1 | /bin/sed "s|~|${HOME-$LOGDIR}|"
    ;;
~*)
    if /bin/test -f /bin/csh; then
	/bin/csh -f -c "glob $1"
	/bin/echo ""
    else
	name=`/bin/expr x$1 : '..\([^/]*\)'`
	dir=`/bin/sed </etc/passwd -n -e "/^${name}:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\).*"'$'"/\1/" -e p -e q -e '}'`
	if /bin/test ! -d "$dir"; then
	    me=`basename $0`
	    /bin/echo "$me: can't locate home directory for: $name" >&2
	    exit 1
	fi
	case "$1" in
	*/*)
	    /bin/echo $dir/`/bin/expr x$1 : '..[^/]*/\(.*\)'`
	    ;;
	*)
	    /bin/echo $dir
	    ;;
	esac
    fi
    ;;
*)
    /bin/echo $1
    ;;
esac