Check-in [8e3e39bef5]
Not logged in
Overview
Comment:before initial relase
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8e3e39bef57006ce95b375f7a1da83f096d4b54a
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
3
4
5
6
7
8
9
10
# -*- make -*-
# FILE: "/krispc6/home/joze/src/tclreadline/Makefile.in"
# LAST MODIFICATION: "Sat May  8 15:10:15 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
# -*- 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
3
4
5
6
7
8
9
10
#!/usr/local/bin/tclsh
# FILE: "/krispc6/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
# LAST MODIFICATION: "Sat May  8 14:03:47 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
#!/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
265


266
267
268
269
270
271
272
        set replace [glob -nocomplain -- $name]
        if {$replace == ""} {
            lappend commandstring $name
        } else {
            lappend commandstring $replace
        }
    }
    return $commandstring


}



proc ::tclreadline::Loop {} {

    ::tclreadline::Setup







|
>
>







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