dtool.alias 1.8 KB

123456789101112131415161718192021222324252627282930313233343536
  1. #!/bin/csh -f
  2. setenv OS `uname`
  3. setenv USER `whoami`
  4. if ( -e $DTOOL/bin/neartool ) setenv HAVE_NEARTOOL "yes"
  5. if ( ! $?HAVE_NEARTOOL ) setenv HAVE_NEARTOOL "no"
  6. if ( ! $?HAVE_ATRIA ) setenv HAVE_ATRIA "no"
  7. set host=$HOST
  8. if ( $TERM == "iris-ansi" || $TERM == "iris-ansi-net" ) then
  9. alias ctshowprojs 'echo -n "\033P1.y"$USER"@"$host" -- "$CTPROJS"\033\\"; echo -n "\033P3.y"`echo $CTPROJS | cut -f1 -d:`\($host\)"\033\\"'
  10. else if ( $TERM == "xterm" || $TERM == "color-xterm" || $TERM == "cygwin" ) then
  11. alias ctshowprojs 'echo -n "\033]2;"$USER"@"$host" -- "$CTPROJS"\007"; echo -n "\033]1;"`echo $CTPROJS | cut -f1 -d:`\($host\)"\007"'
  12. else
  13. alias ctshowprojs 'echo $CTPROJS'
  14. endif
  15. alias ctattach 'source `ctattach.drv \!*`; ctshowprojs'
  16. alias cta 'ctattach'
  17. alias cta-ship 'setenv CTSAVE $CTDEFAULT_FLAV ; setenv CTDEFAULT_FLAV ship ; ctattach \!* ; setenv CTDEFAULT_FLAV $CTSAVE ; unsetenv CTSAVE'
  18. alias cta-release 'setenv CTSAVE $CTDEFAULT_FLAV ; setenv CTDEFAULT_FLAV release ; ctattach \!* ; setenv CTDEFAULT_FLAV $CTSAVE ; unsetenv CTSAVE'
  19. alias cta-install 'setenv CTSAVE $CTDEFAULT_FLAV ; setenv CTDEFAULT_FLAV install ; ctattach \!* ; setenv CTDEFAULT_FLAV $CTSAVE ; unsetenv CTSAVE'
  20. alias ctunattach 'source `ctunattach.drv \!*`; ctshowprojs'
  21. alias ctuna 'ctunattach'
  22. #Modifications to emacs alias by Jason
  23. #To allow for NTEmacs to run like emacs on unix boxes
  24. if (($OS == "CYGWIN_NT-4.0") || ($OS == "CYGWIN_NT-5.0" )) then
  25. alias emacs 'emacs -T "`logname`@`uname -n` $CTPROJS" -xrm "Emacs*iconName: `echo $CTPROJS | cut -f1 -d:`(`uname -n`)" -bg #002040 -fg #00C0FF -cr yellow -ms yellow -l `cygpath -w ~/.emacs` $CTEMACS_OPTS'
  26. else
  27. alias emacs 'emacs -T "`logname`@`uname -n` $CTPROJS" -xrm "Emacs*iconName: `echo $CTPROJS | cut -f1 -d:`(`uname -n`)" $CTEMACS_OPTS'
  28. endif
  29. alias rlogin 'rlogin \!*; ctshowprojs'
  30. alias telnet 'telnet \!*; ctshowprojs'