Overview
| Comment: | tclreadlineSetup.tcl.in |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
66eb0d332d30d1429170f7f827f9d00e |
| User & Date: | johannes@zellner.org on 1999-08-22 22:34:27 |
| Other Links: | manifest | tags |
Context
|
1999-08-22
| ||
| 23:09 | Modified Files: .tclshrc src/tclreadline/sample.tclshrc src/tclreadline/tclreadlineSetup.tcl.in Added Files: src/tclreadline/Makefile.in src/tclreadline/tclreadline.c src/tclreadline/tclreadlineConfig.sh.in src/tclreadline/tclreadlineInit.tcl.in check-in: 32bab3b327 user: johannes@zellner.org tags: trunk | |
| 22:34 | tclreadlineSetup.tcl.in check-in: 66eb0d332d user: johannes@zellner.org tags: trunk | |
| 22:28 | Modified Files: README sample.tclshrc tclreadline.n.in tclreadlineSetup.tcl.in Added Files: Makefile.in tclreadline.c tclreadlineConfig.sh.in tclreadlineInit.tcl.in check-in: 12f1ef0408 user: johannes@zellner.org tags: trunk | |
Changes
Modified tclreadlineSetup.tcl.in from [65d3fcdc8e] to [ed5f78e2d8].
1 | #!/usr/local/bin/tclsh | | | | 1 2 3 4 5 6 7 8 9 10 | #!/usr/local/bin/tclsh # FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" # LAST MODIFICATION: "Mon Aug 23 00:34:14 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
303 304 305 306 307 308 309 |
}
# NOTREACHED
}
}
}
| < < < < < < < < < | 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 |
}
# NOTREACHED
}
}
}
global env
variable historyfile
if [info exists env(HOME)] {
set historyfile $env(HOME)/.tclsh-history
} else {
set historyfile .tclsh-history
}
set msg [::tclreadline::readline initialize $historyfile]
|
| ︙ | ︙ |