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