home *** CD-ROM | disk | FTP | other *** search
/ tusportal.tus.k12.pa.us / tusportal.tus.k12.pa.us.tar / tusportal.tus.k12.pa.us / Wyse / latest-image.raw / 0.img / etc / profile.d / csh.utf8 < prev    next >
Text File  |  2004-09-17  |  1KB  |  57 lines
  1. #
  2. # Try to autodetect UTF-8 capable terminal line
  3. #
  4. where testutf8 > /dev/null
  5. if ( $? == 0 ) then
  6.     testutf8
  7.     set ret="$?"
  8.     if ( ${?LANG} ) then
  9.     if      ( $ret == 2 ) then
  10.         switch ($LANG)
  11.         case POSIX:
  12.         case *.UTF-8:
  13.         breaksw
  14.         default:
  15.         setenv LANG `echo ${LANG}|sed 's/[\.@].*//'`.UTF-8
  16.         breaksw
  17.         endsw
  18.     else if ( $ret == 1 ) then
  19.         switch ($LANG)
  20.         case *.UTF-8:
  21.         setenv LANG `echo ${LANG}|sed 's/[\.@].*//'`
  22.         breaksw
  23.         default:
  24.         breaksw
  25.         endsw
  26.     endif
  27.     endif
  28.     foreach lc (LC_CTYPE LC_NUMERIC LC_TIME LC_COLLATE        \
  29.         LC_MONETARY LC_MESSAGES LC_PAPER LC_NAME    \
  30.         LC_ADDRESS LC_TELEPHONE LC_MEASUREMENT        \
  31.         LC_IDENTIFICATION LC_ALL)
  32.     eval set val=\${\?$lc}
  33.     if ( $val == 0 ) continue
  34.     eval set val=\$$lc
  35.     if      ( $ret == 2 ) then
  36.         switch ($val)
  37.         case POSIX:
  38.         case *.UTF-8:
  39.         breaksw
  40.         default:
  41.         eval setenv \$lc `echo ${val}|sed 's/[\.@].*//'`.UTF-8
  42.         breaksw
  43.         endsw
  44.     else if ( $ret == 1 ) then
  45.         switch ($val)
  46.         case *.UTF-8:
  47.         eval setenv \$lc `echo ${val}|sed 's/[\.@].*//'`
  48.         breaksw
  49.         default:
  50.         breaksw
  51.         endsw
  52.     endif
  53.     end
  54.     unset ret lc val
  55.     setenv LANG $LANG
  56. endif
  57.