Tcl Source Code

Check-in [5c5e78c14f]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:(io-61.1): create file in binary mode for x-plat
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-4-7 | core-8-4-branch
Files: files | file ages | folders
SHA1: 5c5e78c14f79c9fbf7101e2643187229e689364f
User & Date: hobbs 2004-07-26 21:39:40
Context
2004-07-28
16:28
* generic/tclMain.c (Tcl_Main, StdinProc): Append newline only * tests/basic.te...
check-in: f78f682cf1 user: dgp tags: core-8-4-branch
2004-07-26
21:39
(io-61.1): create file in binary mode for x-plat check-in: 5c5e78c14f user: hobbs tags: core-8-4-7, core-8-4-branch
19:14
note 8.4.7 tag date check-in: 4d359a79b7 user: hobbs tags: core-8-4-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

1
2
3


4
5
6
7
8
9
10
2004-07-26  Jeff Hobbs  <[email protected]>

	*** 8.4.7 TAGGED FOR RELEASE ***



2004-07-25  Pat Thoyts  <[email protected]>

	* generic/tclThreadAlloc.c: Moved the tclInt.h include to provide
	Tcl_Panic which is now required for non-threaded build.

2004-07-22  Don Porter  <[email protected]>


>
>







1
2
3
4
5
6
7
8
9
10
11
12
2004-07-26  Jeff Hobbs  <[email protected]>

	*** 8.4.7 TAGGED FOR RELEASE ***

	* tests/io.test (io-61.1): create file in binary mode for x-plat.

2004-07-25  Pat Thoyts  <[email protected]>

	* generic/tclThreadAlloc.c: Moved the tclInt.h include to provide
	Tcl_Panic which is now required for non-threaded build.

2004-07-22  Don Porter  <[email protected]>

Changes to tests/io.test.

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
....
7107
7108
7109
7110
7111
7112
7113

7114
7115
7116
7117
7118
7119
7120
# Copyright (c) 1991-1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: io.test,v 1.40.2.5 2004/07/23 16:00:58 dgp Exp $

if {[catch {package require tcltest 2}]} {
    puts stderr "Skipping tests in [info script].  tcltest 2 required."
    return
}
namespace eval ::tcl::test::io {

................................................................................
    set result [lreplace $result 3 3 [lindex [split [lindex $result 3] \n] 0]]
    list $x $result
} {1 {gets {} catch {error writing "stdout": invalid argument}}}

test io-61.1 {Reset eof state after changing the eof char} -setup {
    set datafile [makeFile {} eofchar]
    set f [open $datafile w]

    puts -nonewline $f [string repeat "Ho hum\n" 11]
    puts $f =
    set line [string repeat "Ge gla " 4]
    puts -nonewline $f [string repeat [string trimright $line]\n 834]
    close $f
} -body {
    set f [open $datafile r]






|







 







>







8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
....
7107
7108
7109
7110
7111
7112
7113
7114
7115
7116
7117
7118
7119
7120
7121
# Copyright (c) 1991-1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: io.test,v 1.40.2.6 2004/07/26 21:39:42 hobbs Exp $

if {[catch {package require tcltest 2}]} {
    puts stderr "Skipping tests in [info script].  tcltest 2 required."
    return
}
namespace eval ::tcl::test::io {

................................................................................
    set result [lreplace $result 3 3 [lindex [split [lindex $result 3] \n] 0]]
    list $x $result
} {1 {gets {} catch {error writing "stdout": invalid argument}}}

test io-61.1 {Reset eof state after changing the eof char} -setup {
    set datafile [makeFile {} eofchar]
    set f [open $datafile w]
    fconfigure $f -translation binary
    puts -nonewline $f [string repeat "Ho hum\n" 11]
    puts $f =
    set line [string repeat "Ge gla " 4]
    puts -nonewline $f [string repeat [string trimright $line]\n 834]
    close $f
} -body {
    set f [open $datafile r]