# # i.(k)sh - initialize (k)sh for *.sh routines # # Usage: . a2z/bin/i.(k)sh* !!! from top level of disc !!! # (or) . A2Z/BIN/I.(K)SH* !!! from top level of disc !!! # # Written by Rich Morin, CFCL, 9201 # Revised by Rich Morin, CFCL, 9205, 9301 # # Public Domain - all uses allowed # Check initial conditions. if [ ! -d [Aa]2[Zz] ]; then echo "Invoke this script from the base of the PTF sub-tree!" exit 1 fi # Set up pager. PTF_BASE=`pwd` PTF_PAGE=${PTF_PAGE-more} # Create and invoke a setenv command, using the 0.doc file as a sample. eval `echo 0.[Dd][Oo][Cc]* | awk ' /^0.doc/ { printf "PTF_CASE=lower; " } /^0.DOC/ { printf "PTF_CASE=UPPER; " } /;1$/ { ver = ";1" } END { print "PTF_VER=" "\"" ver "\";" } '` # set up functions for PTF commands. if [ $PTF_CASE = lower ]; then PTF_DOC="0.doc$PTF_VER" all() { sh $PTF_BASE/a2z/bin/all.sh$PTF_VER $*; } ask() { sh $PTF_BASE/a2z/bin/ask.sh$PTF_VER $*; } aget() { sh $PTF_BASE/a2z/bin/aget.sh$PTF_VER $*; } get() { sh $PTF_BASE/a2z/bin/get.sh$PTF_VER $*; } key() { sh $PTF_BASE/a2z/bin/key.sh$PTF_VER $*; } keys() { sh $PTF_BASE/a2z/bin/keys.sh$PTF_VER $*; } else PTF_DOC="0.DOC$PTF_VER" all() { sh $PTF_BASE/A2Z/BIN/ALL.SH$PTF_VER $*; } ask() { sh $PTF_BASE/A2Z/BIN/ASK.SH$PTF_VER $*; } aget() { sh $PTF_BASE/A2Z/BIN/AGET.SH$PTF_VER $*; } get() { sh $PTF_BASE/A2Z/BIN/GET.SH$PTF_VER $*; } key() { sh $PTF_BASE/A2Z/BIN/KEY.SH$PTF_VER $*; } keys() { sh $PTF_BASE/A2Z/BIN/KEYS.SH$PTF_VER $*; } fi export PTF_BASE PTF_CASE PTF_DOC PTF_PAGE PTF_VER