Return to dmdman CVS log

Up to [Research Unix] / researchv10dc / 630 / bin

Annotation of researchv10dc/630/bin/dmdman, revision 1.1.1.1

1.1       root        1: BASE=/usr/630/man
                      2: 
                      3: sec=\?
                      4: dir=
                      5: col=
                      6: cmd=
                      7: entries=
                      8: TTERM=
                      9: 
                     10: 
                     11: #  parse options
                     12: 
                     13: for i in $*
                     14: do case $i in
                     15: 
                     16:        [1-8])  sec=$i ;;
                     17:        -c)     col=col ;;
                     18:        -d)     dir=. ;;
                     19:        -w)     cmd=w ;;
                     20:        -T*)    TERM="`echo $i | sed 's/-T//'`" ;;
                     21:        -12)    TTERM=-12 ;;
                     22:        *)      entries="$entries $i" ;;
                     23:    esac
                     24: done
                     25: 
                     26: 
                     27: #  now find the named entries
                     28: 
                     29: for i in $entries
                     30: do
                     31:     if [ "$dir" = "." ]
                     32: 
                     33:        then if [ ! -r "$i" ]
                     34: 
                     35:                then  echo $0: $i not found >&2
                     36:                      exit 1
                     37: 
                     38:                else  all="$all $i"
                     39: 
                     40:             fi
                     41: 
                     42:        else
                     43:             cd $BASE
                     44:             fil="`find */man$sec/$i.* -print 2>/dev/null`"
                     45: 
                     46:             # DMD note change for sgs directory if this is later eliminated
                     47:             if [ ! "$fil" ]
                     48:             then
                     49:                     fil="`find sgs/$i.out -print 2>/dev/null`"
                     50:             fi
                     51:             # end of change
                     52: 
                     53:             if [ -n "$fil" ]
                     54: 
                     55:                then  all="$all $fil"
                     56:                else  echo $0: $i not found >&2
                     57:                      exit 1
                     58: 
                     59:             fi
                     60:     fi
                     61: done
                     62: 
                     63: 
                     64: # fix up the terminal type option (make sure to use col, etc.)
                     65: 
                     66: case "$TERM$TTERM" in
                     67: 
                     68:        300|300s|450|37|300-12|300s-12|450-12| \
                     69:                4000a|4000A|382|1620|1620-12)   post="greek -T$TERM$TTERM" ;;
                     70:        hp|2621|2645|2640)      col=col; post="greek -T$TERM$TTERM" ;;
                     71:        4014|tek)       post="greek -T$TERM$TTERM" ;;
                     72:        X97)            col=col; post=xerox ;;
                     73:        *)              col=col; post=cat ;;
                     74: esac
                     75: 
                     76: if [ "$col" != "" ]
                     77:    then post="$col | $post"
                     78: fi
                     79: 
                     80: 
                     81: # now print the pages
                     82: 
                     83: if [ "$cmd" = "w" ]
                     84: 
                     85:    then        echo $all
                     86:        exit 0
                     87: 
                     88:    else        for i in $all
                     89: 
                     90:        do case $i in
                     91: 
                     92:                *.z)    eval "pcat $i | $post" ;;
                     93:                *)      eval "cat $i | $post" ;;
                     94: 
                     95:           esac
                     96:        done
                     97: 
                     98: fi

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.