Overview
| Comment: | before initial relase |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8e3e39bef57006ce95b375f7a1da83f0 |
| User & Date: | johannes@zellner.org on 1999-05-10 11:10:32 |
| Other Links: | manifest | tags |
Context
|
1999-05-10
| ||
| 11:24 | *** empty log message *** check-in: 7b5b803056 user: johannes@zellner.org tags: trunk | |
| 11:10 | before initial relase check-in: 8e3e39bef5 user: johannes@zellner.org tags: trunk | |
|
1999-05-08
| ||
| 14:22 | changes for 8.1 check-in: dfae39d1f3 user: johannes@zellner.org tags: trunk | |
Changes
Modified Makefile.in from [52046d456f] to [2ce64798a5].
1 2 | # -*- make -*- # FILE: "/krispc6/home/joze/src/tclreadline/Makefile.in" | | | 1 2 3 4 5 6 7 8 9 10 | # -*- make -*- # FILE: "/krispc6/home/joze/src/tclreadline/Makefile.in" # LAST MODIFICATION: "Mon May 10 13:10:22 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
160 161 162 163 164 165 166 167 168 169 170 171 172 173 |
configure.in \
tclreadline.c \
tclreadline.h.in \
tclreadlineConfig.sh.in \
tclreadlineInit.tcl.in \
tclreadlineSetup.tcl.in \
tclreadline.n.in \
sample.tclshrc
AUXILIARY = \
aux/config.guess \
aux/config.sub \
aux/install-sh \
aux/mkinstalldirs \
| > | 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 |
configure.in \
tclreadline.c \
tclreadline.h.in \
tclreadlineConfig.sh.in \
tclreadlineInit.tcl.in \
tclreadlineSetup.tcl.in \
tclreadline.n.in \
pkgIndex.tcl \
sample.tclshrc
AUXILIARY = \
aux/config.guess \
aux/config.sub \
aux/install-sh \
aux/mkinstalldirs \
|
| ︙ | ︙ |
Added pkgIndex.tcl version [cd9e5665c0].
> > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 |
# Tcl package index file, version 1.1
# This file is generated by the "pkg_mkIndex" command
# and sourced either when an application starts up or
# by a "package unknown" script. It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands. When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
package ifneeded tclreadline 0.8 [list tclPkgSetup $dir tclreadline 0.8 {{tclreadlineInit.tcl source ::tclreadline::Init} {tclreadlineSetup.tcl source {::tclreadline::Glob ::tclreadline::InitCmds ::tclreadline::InitTclCmds ::tclreadline::InitTkCmds ::tclreadline::Loop ::tclreadline::Print ::tclreadline::Setup}}}]
|
Modified tclreadlineSetup.tcl.in from [e96ff9502d] to [e41a38f95b].
1 2 | #!/usr/local/bin/tclsh # FILE: "/krispc6/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" | | | 1 2 3 4 5 6 7 8 9 10 | #!/usr/local/bin/tclsh # FILE: "/krispc6/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" # LAST MODIFICATION: "Mon May 10 13:01:16 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
258 259 260 261 262 263 264 |
set replace [glob -nocomplain -- $name]
if {$replace == ""} {
lappend commandstring $name
} else {
lappend commandstring $replace
}
}
| | > > | 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 |
set replace [glob -nocomplain -- $name]
if {$replace == ""} {
lappend commandstring $name
} else {
lappend commandstring $replace
}
}
# return $commandstring
# Christian Krone <krischan@sql.de> proposed
return [eval concat $commandstring]
}
proc ::tclreadline::Loop {} {
::tclreadline::Setup
|
| ︙ | ︙ |