Check-in [66eb0d332d]
Not logged in
Overview
Comment: tclreadlineSetup.tcl.in
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 66eb0d332d30d1429170f7f827f9d00e162eb323
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
2
3
4
5
6
7
8
9
10
#!/usr/local/bin/tclsh
# FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
# LAST MODIFICATION: "Sun Aug 22 23:54:09 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: "/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
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
                }
                # NOTREACHED
            }
        }

    }



    global pi
    set pi 3.1415926535897931
    set tcl_precision 17



    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]







<
<
<
<
<
<
<
<


<







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]