1
2
3
4
5
6
7
8
9
10
|
#!/bin/sh
# FILE: "/home/joze/src/tclreadline/sample.tclshrc"
# LAST MODIFICATION: "Sat Aug 28 23:41:17 1999 (joze)"
# (C) 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# vim:set ft=tcl: \
exec tclsh "$0" "$@"
if {$tcl_interactive} {
|
|
|
|
1
2
3
4
5
6
7
8
9
10
|
#!/bin/sh
# FILE: "/diska/home/joze/src/tclreadline/sample.tclshrc"
# LAST MODIFICATION: "Wed Sep 8 18:10:30 1999 (joze)"
# (C) 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# vim:set ft=tcl: \
exec tclsh "$0" "$@"
if {$tcl_interactive} {
|
45
46
47
48
49
50
51
52
53
54
55
56
|
#
# namespace import tclreadline::Print
# store maximal this much lines in the history file
#
set tclreadline::historyLength 200
# go to tclrealdine's main loop.
#
tclreadline::Loop
}
|
>
>
>
>
|
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#
# namespace import tclreadline::Print
# store maximal this much lines in the history file
#
set tclreadline::historyLength 200
# disable tclreadline's script completer
#
::tclreadline::readline customcompleter ""
# go to tclrealdine's main loop.
#
tclreadline::Loop
}
|