home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / shell < prev    next >
Encoding:
Text File  |  1994-07-30  |  675 b   |  25 lines
  1. # This sets up a shell in an IRCII window.  
  2. # You start it by executing /SHELL.  If creates a window and 
  3. # runs the shell in it, all command from that window go to 
  4. # the shell.  Executing subsequent /SHELL commands makes
  5. # the shell window the current window.  
  6. #
  7. eval assign IRCFLUSH $LIBRARY_PATH/$ARCHITECTURE/flush
  8. assign shell_flag 0
  9. on ^exec_exit shell {
  10.     ^window refnum shell kill
  11.     ^assign shell_flag 0
  12. }
  13. on ^window_kill shell {
  14.     ^exec -kill %shell
  15.     ^assign shell_flag 0
  16. }
  17.  
  18. alias shell if (shell_flag) {^window show shell} {^call_shell}
  19. alias call_shell {
  20.     window new name shell
  21.     exec -name shell -window exec $ircflush $SHELL
  22.     ^query %shell
  23.     assign shell_flag 1
  24. }
  25.