Overview
| Comment: | Tue Sep 28 23:19:25 CEST 1999 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3b8130f9699939179b94a72ddec54f81 |
| User & Date: | johannes@zellner.org on 1999-09-28 21:19:38 |
| Other Links: | manifest | tags |
Context
|
1999-09-29
| ||
| 18:24 | Wed Sep 29 20:24:01 MEST 1999 check-in: 79656128ef user: johannes@zellner.org tags: trunk | |
|
1999-09-28
| ||
| 21:19 | Tue Sep 28 23:19:25 CEST 1999 check-in: 3b8130f969 user: johannes@zellner.org tags: trunk | |
|
1999-09-27
| ||
| 07:50 | Mon Sep 27 09:51:14 CEST 1999 check-in: 1be14666f7 user: johannes@zellner.org tags: trunk | |
Changes
Modified configure.in from [7b831386c3] to [60c4ecbda9].
1 2 | 1 2 3 4 5 6 7 8 9 10 | - + | # -*- autoconf -*- # FILE: "/home/joze/src/tclreadline/configure.in" |
| ︙ | |||
34 35 36 37 38 39 40 | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | - + | AC_REVISION($Revision$) AC_INIT(tclreadline.c) AC_CONFIG_HEADER(config.h) TCLREADLINE_MAJOR_VERSION=1 TCLREADLINE_MINOR_VERSION=0 |
| ︙ |
Modified tclreadlineCompleter.tcl from [52758de401] to [6a77834ee1].
1 2 | 1 2 3 4 5 6 7 8 9 10 | - + | # -*- tclsh -*- # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl" |
| ︙ | |||
3517 3518 3519 3520 3521 3522 3523 3524 3525 3526 3527 3528 3529 3530 | 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 \
|
| ︙ |