home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume39 / elfshell / part01 / .elven / csh / interface < prev    next >
Encoding:
Text File  |  1993-08-29  |  1.7 KB  |  69 lines
  1. #----------------------------------------------------------------------#
  2. #   File:     ~/.elven/interface
  3. #   Author:   Christoph. A. North-Keys (erlkonig@gnu.ai.mit.edu)
  4. #   Rev:      32,0 Donnerstag.d.22.August.1991
  5. #   Types:    [ SunView | X10, X11 | raw ]
  6. #----------------------------------------------------------------------#
  7. message 'interface '
  8.  
  9. if (! $?term) set term        # fall through to case default
  10. switch ("$term")
  11.     case |*:        # if pipe sign appears, form is `|commands...'
  12.         setenv GURU "`expr "$term" : '|\(.*\)'`"
  13.         set term=guru
  14.         eval "$GURU"
  15.     breaksw
  16. endsw
  17.  
  18. set esc = ''
  19. set bel = ''
  20.  
  21. switch ("$term")
  22.     case "xterm":
  23.         if ( ! $?XCONSOLE) then
  24.             alias title    'echon "$esc]2;\!*$bel"'
  25.             alias label    'echon "$esc]1;\!*$bel"'
  26.             alias icon    'echon "$esc]I;\!*$bel"'
  27.             alias say     'title \!*'
  28.             alias . 'title [-${HOSTNICK}- `cwd` ]; label ${HOSTNICK}: $cwd:t'
  29.         endif
  30.         if (! $?DISPLAY) setenv DISPLAY ${HOSTNICK}:0
  31.         echon $DISPLAY' '
  32.         breaksw
  33.     case "sun*":
  34.         if ($?WINDOW_PARENT) then
  35.             alias title        'echon "$esc]l\!*$esc\"'
  36.             alias label        'echon "$esc]L\!*$esc\"'
  37.             alias icon        'echon "$esc]I\!*$esc\"'
  38.             alias say         'title \!*'
  39.             alias .            'title [-${HOSTNICK}- `cwd` ]'
  40.         else
  41.             if ("`tty`" != "/dev/console") then
  42.                 set term = "`tset - -I -Q -r -m :\?$term`"
  43.             endif
  44.         endif
  45.         breaksw
  46.     default:
  47.         alias say 'echo \!*'
  48.         alias .   'cwd'
  49.         switch ("$term")
  50.             case "network":
  51.                 set term = `tset - -I -Q -r -m :\?xterm`
  52.                 breaksw
  53.             case unknown:
  54.             case dumb:
  55.             case su:
  56.                 set term = `tset - -I -Q -r -m :\?vt100`
  57.                 breaksw                
  58.             case "?*":
  59.                 message $term' '
  60.                 breaksw
  61.             default:
  62.                 set term = `tset - -I -Q -r -m :\?vt100`
  63.                 breaksw
  64.         endsw
  65.         breaksw
  66. endsw
  67.  
  68. #
  69.