factor/misc/bash/cdfactor.sh

16 lines
392 B
Bash
Raw Normal View History

#!/bin/bash
2009-06-01 14:20:49 -04:00
# change directories to a factor module
function cdfactor {
code=$(printf "USING: io io.backend vocabs vocabs.loader ; "
printf "\"%s\" <vocab> vocab-source-path normalize-path print" $1)
fn=$(factor -e="$code")
2009-06-01 14:20:49 -04:00
dn=$(dirname $fn)
echo $dn
if [ -z "$dn" ]; then
echo "Warning: directory '$1' not found" 1>&2
else
cd $dn
fi
}