1
2
3
4
5
6
7
8
9
10
|
# -*- tclsh -*-
# FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
# LAST MODIFICATION: "Mon Sep 27 00:09:06 1999 (joze)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999 Johannes Zellner
#
|
|
|
1
2
3
4
5
6
7
8
9
10
|
# -*- tclsh -*-
# FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
# LAST MODIFICATION: "Tue Sep 28 23:04:09 1999 (joze)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999 Johannes Zellner
#
|
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
|
}
# --- END OF TCLREADLINE PACKAGE ---
proc complete(tell) {text start end line pos mod} {
switch -- ${pos} {
1 { return [ChannelId ${text}] }
}
return ""
}
proc complete(time) {text start end line pos mod} {
switch -- ${pos} {
1 { return [BraceOrCommand \
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
|
}
# --- END OF TCLREADLINE PACKAGE ---
proc complete(tell) {text start end line pos mod} {
switch -- ${pos} {
1 { return [ChannelId ${text}] }
}
return ""
}
proc complete(testthread) {text start end line pos mod} {
set cmd [Lindex ${line} 1]
switch -- ${pos} {
1 {
return [CompleteFromList ${text} {
-async create errorproc exit id names send wait
}]
}
2 {
switch -- [PreviousWord ${start} ${line}] {
create {
return [BraceOrCommand \
${text} ${start} ${end} ${line} ${pos} ${mod}]
}
-async {
return [CompleteFromList ${text} send]
}
send {
return [CompleteFromList ${text} [testthread names]]
}
default {}
}
}
3 {
if {"send" == [PreviousWord ${start} ${line}]} {
return [CompleteFromList ${text} [testthread names]]
} elseif {"send" == ${cmd}} {
return [BraceOrCommand \
${text} ${start} ${end} ${line} ${pos} ${mod}]
}
}
4 {
if {"send" == [Lindex ${line} 2]} {
return [BraceOrCommand \
${text} ${start} ${end} ${line} ${pos} ${mod}]
}
}
}
return ""
}
proc complete(time) {text start end line pos mod} {
switch -- ${pos} {
1 { return [BraceOrCommand \
|