home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / edit < prev    next >
Text File  |  1994-07-30  |  988b  |  38 lines
  1. # Blame this on Mycroft!mycroft@gnu.ai.mit.edu (Charles Hannum).
  2. # 4-20-93
  3.  
  4. eval if (V < 19930420)
  5. {
  6.     alias xtype {
  7.         if (rmatch($0 -lit*) > 0) { type $^\^^1- } { type $^\^^* }
  8.     }
  9.     echo *** edit: WARNING an XTYPE alias has been made. Use at your own
  10.     echo *** edit: risk. Upgrade your client to ircII2.2.2 ASAP
  11. }
  12.  
  13.  
  14. alias edit {
  15.   @ edit.name = toupper($0)
  16.   @ edit.doer = [echo *** Unknown alias: $edit.name]
  17.   ^on ^window "% % *" {
  18.     if (mid(0 1 $2) == [    ]) {
  19.       @ edit.n = index(     $mid(1 -1 $2-))
  20.       @ edit.s = mid(1 $edit.n $2-)
  21.       # Note:  This should be in $edit.doer, but a bug in ircII prevents it.
  22.       type ^U
  23.       @ edit.doer = [xtype -literal /alias $^\edit.s $^\mid(${(edit.n+2)} -1 $2-)]
  24.       if (edit.name == edit.s) {
  25.         ^on ^window "% % *"
  26.       } {
  27.         ^on ^window "% % *" @ edit.doer = [echo *** Ambiguous alias: $edit.name]
  28.       }
  29.     }
  30.   }
  31.   ^on ^window *
  32.   alias $edit.name
  33.   ^on window -"% % *"
  34.   ^on window -"*"
  35.   $edit.doer
  36.   ^purge edit
  37. }
  38.