DataMuseum.dk

top - download

    Length: 1678 (0x68e)
    Types: TextFile
    Names: »checkfonts«

└─⟦6c4f54b10⟧ Bits:30000747 8mm tape, Rational 1000, ACCESS 0_8_0 INTERNAL RELEASE
    └─ ⟦5d1d5404f⟧ »DATA« 
        └─⟦17d28fd8c⟧ 
            └─⟦eb623852f⟧ 
                └─ ⟦this⟧ »bin/checkfonts« 

TextFile

#! /bin/csh -f 

set path=( /bin /usr/ucb $path )

#
getpath1:
if (`which xset | awk '{print $1}'` == "no") then
    echo "Unable to find xset, please provide the path for xset."
    echo -n "xset path:"
    set ANSWER=$<
    set path=( $ANSWER $path )
    goto getpath1
endif
#
getpath2:
if (`which xlsfonts | awk '{print $1}'` == "no") then
    echo "Unable to find xlsfonts, please provide the path for xlsfonts."
    echo -n "xlsfonts path:"
    set ANSWER=$<
    set path=( $ANSWER $path )
    goto getpath2
endif

if ( `uname` == "SunOS" ) then
    set origfont = `xset -q | awk 'BEGIN {enable = 0} enable == 1 {last = $0; enable = 0} $1 == "Font" { enable = 1 } END {print last}' | sed 's/^ *//g'`
else if ( `uname` == "AIX" ) then
    set origfont = `xset -q | awk '$1 == "Font" { last = $3 };END {print last}'`
     else  
        echo "Unsupported configuration."
        exit
     endif
endif

if (`xlsfonts | grep 'fixed-screen' | wc -l` != "0") then
    echo "You do have visibility to Rational Access fonts."
    xset fp default
    if (`xlsfonts | grep 'fixed-screen' | wc -l` != "0") then
       echo "Fonts is also visible by everybody"
    else
       echo "Fonts are not installed in default location. So not everybody"
       echo "has visibility to it, unless they execute xset command."
    endif
    xset fp= $origfont
else
    xset fp default
    if (`xlsfonts | grep 'fixed-screen' | wc -l` != "0") then
       echo "You do not have visibility to Rational Access fonts, but they"
       echo "can be made visible using the 'xset fp default' command."
    else
       echo "Rational Access Fonts are not installed"
    endif
    xset fp= $origfont
endif