# This file contains a collection of tests for generic/tclMain.c.

if {[catch {package require tcltest 2.0.2}]} {
    puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
    return
}

namespace eval ::tcl::test::main {
    namespace import ::tcltest::*

    # Is [exec] defined?
    testConstraint exec [llength [info commands exec]]

    # Is the Tcltest package loaded?
    #	- that is, the special C-coded testing commands in tclTest.c
    #   - tests use testing commands introduced in Tcltest 8.4
    testConstraint Tcltest [expr {
	[llength [package provide Tcltest]]
	&& [package vsatisfies [package provide Tcltest] 8.4]}]

    # Procedure to simulate interactive typing of commands, line by line
    proc type {chan script} {
	foreach line [split $script \n] {
	    if {[catch {
	        puts $chan $line
	        flush $chan
	    }]} {
		return
	    }
	    # Grrr... Behavior depends on this value.
	    after 1000
	}
    }

    cd [temporaryDirectory]
    # Tests Tcl_Main-1.*: variable initializations

    test Tcl_Main-1.1 {
	Tcl_Main: startup script - normal
    } -constraints {
	stdio
    } -setup {
	makeFile {puts [list $argv0 $argv $tcl_interactive]} script
	catch {set f [open "|[list [interpreter] script]" r]}
    } -body {
	read $f
    } -cleanup {
	close $f
	removeFile script
    } -result [list script {} 0]\n

    test Tcl_Main-1.2 {
	Tcl_Main: startup script - can't begin with '-'
    } -constraints {
	stdio
    } -setup {
	makeFile {puts [list $argv0 $argv $tcl_interactive]} -script
	catch {set f [open "|[list [interpreter] -script]" w+]}
    } -body {
	puts $f {puts [list $argv0 $argv $tcl_interactive]; exit}
	flush $f
	read $f
    } -cleanup {
	close $f
	removeFile -script
    } -result [list [interpreter] -script 0]\n

    test Tcl_Main-1.3 {
    } -constraints {
	stdio
    } -setup {
	makeFile {puts [list $argv0 $argv $tcl_interactive]} script
	catch {set f [open "|[list [interpreter] script \u00c0]" r]}
    } -body {
	read $f
    } -cleanup {
	close $f
	removeFile script
    } -result [list script [list [encoding convertfrom [encoding system] \
	[encoding convertto [encoding system] \u00c0]]] 0]\n

    test Tcl_Main-1.4 {
    } -constraints {
	stdio
    } -setup {
	makeFile {puts [list $argv0 $argv $tcl_interactive]} script
	catch {set f [open "|[list [interpreter] script \u20ac]" r]}
    } -body {
	read $f
    } -cleanup {
	close $f
	removeFile script
    } -result [list script [list [encoding convertfrom [encoding system] \
	[encoding convertto [encoding system] \u20ac]]] 0]\n

    test Tcl_Main-1.5 {
    } -constraints {
	stdio
    } -setup {
	makeFile {puts [list $argv0 $argv $tcl_interactive]} \u00c0
	catch {set f [open "|[list [interpreter] \u00c0]" r]}
    } -body {
	read $f
    } -cleanup {
	close $f
	removeFile \u00c0
    } -result [list [list [encoding convertfrom [encoding system] \
	[encoding convertto [encoding system] \u00c0]]] {} 0]\n

    test Tcl_Main-1.6 {
    } -constraints {
	stdio
    } -setup {
	makeFile {puts [list $argv0 $argv $tcl_interactive]} \u20ac
	catch {set f [open "|[list [interpreter] \u20ac]" r]}
    } -body {
	read $f
    } -cleanup {
	close $f
	removeFile \u20ac
    } -result [list [list [encoding convertfrom [encoding system] \
	[encoding convertto [encoding system] \u20ac]]] {} 0]\n

    test Tcl_Main-1.7 {
	Tcl_Main: startup script - -encoding option
    } -constraints {
	stdio
    } -setup {
	set script [makeFile {} script]
	file delete $script
	set f [open $script w]
	fconfigure $f -encoding utf-8
	puts $f {puts [list $argv0 $argv $tcl_interactive]}
	puts -nonewline $f {puts [string equal \u20ac }
	puts $f "\u20ac]"
	close $f
	catch {set f [open "|[list [interpreter] -encoding utf-8 script]" r]}
    } -body {
	read $f
    } -cleanup {
	close $f
	removeFile script
    } -result [list script {} 0]\n1\n

    test Tcl_Main-1.8 {
	Tcl_Main: startup script - -encoding option - mismatched encodings
    } -constraints {
	stdio
    } -setup {
	set script [makeFile {} script]
	file delete $script
	set f [open $script w]
	fconfigure $f -encoding utf-8
	puts $f {puts [list $argv0 $argv $tcl_interactive]}
	puts -nonewline $f {puts [string equal \u20ac }
	puts $f "\u20ac]"
	close $f
	catch {set f [open "|[list [interpreter] -encoding ascii script]" r]}
    } -body {
	read $f
    } -cleanup {
	close $f
	removeFile script
    } -result [list script {} 0]\n0\n

    test Tcl_Main-1.9 {
	Tcl_Main: startup script - -encoding option - no abbrevation
    } -constraints {
	stdio
    } -setup {
	set script [makeFile {} script]
	file delete $script
	set f [open $script w]
	fconfigure $f -encoding utf-8
	puts $f {puts [list $argv0 $argv $tcl_interactive]}
	puts -nonewline $f {puts [string equal \u20ac }
	puts $f "\u20ac]"
	close $f
	catch {set f [open "|[list [interpreter] -enc utf-8 script]" r+]}
    } -body {
	type $f {
	    puts $argv
	}
	list [catch {gets $f} line] $line
    } -cleanup {
	close $f
	removeFile script
    } -result {0 {-enc utf-8 script}}

    # Tests Tcl_Main-2.*: application-initialization procedure

    test Tcl_Main-2.1 {
	Tcl_Main: appInitProc returns error
    } -constraints {
	exec Tcltest
    } -setup {
	makeFile {puts "In script"} script
    } -body {
	exec [interpreter] script -appinitprocerror >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile script
    } -result "application-specific initialization failed: \nIn script\n"

    test Tcl_Main-2.2 {
	Tcl_Main: appInitProc returns error
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {puts "In script"} -appinitprocerror >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "application-specific initialization failed: \nIn script\n"

    test Tcl_Main-2.3 {
	Tcl_Main: appInitProc deletes interp
    } -constraints {
	exec Tcltest
    } -setup {
	makeFile {puts "In script"} script
    } -body {
	exec [interpreter] script -appinitprocdeleteinterp >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile script
    } -result "application-specific initialization failed: \n"

    test Tcl_Main-2.4 {
	Tcl_Main: appInitProc deletes interp
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {puts "In script"} \
		-appinitprocdeleteinterp >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "application-specific initialization failed: \n"

    test Tcl_Main-2.5 {
	Tcl_Main: appInitProc closes stderr
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {puts "In script"} \
		-appinitprocclosestderr >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "In script\n"

    # Tests Tcl_Main-3.*: startup script evaluation

    test Tcl_Main-3.1 {
	Tcl_Main: startup script does not exist
    } -constraints {
	exec
    } -setup {
	if {[file exists no-such-file]} {
	    error "Can't run test Tcl_Main-3.1\
		    where a file named \"no-such-file\" exists"
	}
    } -body {
	set code [catch {exec [interpreter] no-such-file >& result} result]
	set f [open result]
	list $code $result [read $f]
    } -cleanup {
	close $f
	file delete result
    } -match glob -result [list 1 {child process exited abnormally} \
	{couldn't read file "no-such-file":*}]

    test Tcl_Main-3.2 {
	Tcl_Main: startup script raises error
    } -constraints {
	exec
    } -setup {
	makeFile {error ERROR} script
    } -body {
	set code [catch {exec [interpreter] script >& result} result]
	set f [open result]
	list $code $result [read $f]
    } -cleanup {
	close $f
	file delete result
	removeFile script
    } -match glob -result [list 1 {child process exited abnormally} \
	"ERROR\n    while executing*"]

    test Tcl_Main-3.3 {
	Tcl_Main: startup script closes stderr
    } -constraints {
	exec
    } -setup {
	makeFile {close stderr; error ERROR} script
    } -body {
	set code [catch {exec [interpreter] script >& result} result]
	set f [open result]
	list $code $result [read $f]
    } -cleanup {
	close $f
	file delete result
	removeFile script
    } -result [list 1 {child process exited abnormally} {}]

    test Tcl_Main-3.4 {
	Tcl_Main: startup script holds incomplete script
    } -constraints {
	exec
    } -setup {
	makeFile "if 1 \{" script
    } -body {
	set code [catch {exec [interpreter] script >& result} result]
	set f [open result]
	join [list $code $result [read $f]] \n
    } -cleanup {
	close $f
	file delete result
	removeFile script
    } -match glob -result [join [list 1 {child process exited abnormally}\
	"missing close-brace\n    while executing*"] \n]

    test Tcl_Main-3.5 {
	Tcl_Main: startup script sets main loop
    } -constraints {
	exec Tcltest
    } -setup {
	makeFile {
		rename exit _exit
		proc exit {code} {
		    puts "In exit"
		    _exit $code
		}
		after 0 {
			puts event
			testexitmainloop
		}
		testexithandler create 0
		testsetmainloop
	} script
    } -body {
	exec [interpreter] script >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile script
    } -result "event\nExit MainLoop\nIn exit\neven 0\n"

    test Tcl_Main-3.6 {
	Tcl_Main: startup script sets main loop and closes stdin
    } -constraints {
	exec Tcltest
    } -setup {
	makeFile {
		close stdin
		testsetmainloop
		rename exit _exit
		proc exit {code} {
		    puts "In exit"
		    _exit $code
		}
		after 0 {
			puts event
			testexitmainloop
		}
		testexithandler create 0
	} script
    } -body {
	exec [interpreter] script >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile script
    } -result "event\nExit MainLoop\nIn exit\neven 0\n"

    test Tcl_Main-3.7 {
	Tcl_Main: startup script deletes interp
    } -constraints {
	exec Tcltest
    } -setup {
	makeFile {
		rename exit _exit
		proc exit {code} {
		    puts "In exit"
		    _exit $code
		}
		testexithandler create 0
		testinterpdelete {}
	} script
    } -body {
	exec [interpreter] script >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile script
    } -result "even 0\n"

    test Tcl_Main-3.8 {
	Tcl_Main: startup script deletes interp and sets mainloop
    } -constraints {
	exec Tcltest
    } -setup {
	makeFile {
		testsetmainloop
		rename exit _exit
		proc exit {code} {
		    puts "In exit"
		    _exit $code
		}
		testexitmainloop
		testexithandler create 0
		testinterpdelete {}
	} script
    } -body {
	exec [interpreter] script >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile script
    } -result "Exit MainLoop\neven 0\n"

    test Tcl_Main-3.9 {
	Tcl_Main: startup script can set tcl_interactive without limit
    } -constraints {
	exec
    } -setup {
	makeFile {set tcl_interactive foo} script
    } -body {
	exec [interpreter] script >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile script
    } -result {}

    # Tests Tcl_Main-4.*: rc file evaluation

    test Tcl_Main-4.1 {
	Tcl_Main: rcFile evaluation deletes interp
    } -constraints {
	exec Tcltest
    } -setup {
	set rc [makeFile {testinterpdelete {}} rc]
    } -body {
	exec [interpreter] << {puts "In script"} \
		-appinitprocsetrcfile $rc >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile rc
    } -result "application-specific initialization failed: \n"

    test Tcl_Main-4.2 {
	Tcl_Main: rcFile evaluation closes stdin
    } -constraints {
	exec Tcltest
    } -setup {
	set rc [makeFile {close stdin} rc]
    } -body {
	exec [interpreter] << {puts "In script"} \
		-appinitprocsetrcfile $rc >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile rc
    } -result "application-specific initialization failed: \n"

    test Tcl_Main-4.3 {
	Tcl_Main: rcFile evaluation closes stdin and sets main loop
    } -constraints {
	exec Tcltest
    } -setup {
	set rc [makeFile {
		close stdin
		testsetmainloop
		after 0 testexitmainloop
		testexithandler create 0
		rename exit _exit
		proc exit code {
		    puts "In exit"
		    _exit $code
		}
	} rc]
    } -body {
	exec [interpreter] << {puts "In script"} \
		-appinitprocsetrcfile $rc >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile rc
    } -result "application-specific initialization failed:\
	\nExit MainLoop\nIn exit\neven 0\n"

    test Tcl_Main-4.4 {
	Tcl_Main: rcFile evaluation sets main loop
    } -constraints {
	exec Tcltest
    } -setup {
	set rc [makeFile {
		testsetmainloop
		after 0 testexitmainloop
		testexithandler create 0
		rename exit _exit
		proc exit code {
		    puts "In exit"
		    _exit $code
		}
	} rc]
    } -body {
	exec [interpreter] << {} \
		-appinitprocsetrcfile $rc >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
	removeFile rc
    } -result "application-specific initialization failed:\
	\nExit MainLoop\nIn exit\neven 0\n"

    test Tcl_Main-4.5 {
        Tcl_Main: Bug 1481986
    } -constraints {
        exec Tcltest
    } -setup {
        set rc [makeFile {
                testsetmainloop
                after 0 {puts "Event callback"}
        } rc]
    } -body {
        set f [open "|[list [interpreter] -appinitprocsetrcfile $rc]" w+]
        after 1000
        type $f {puts {Interactive output}
            exit
        }
        read $f
    } -cleanup {
        catch {close $f}
        removeFile rc
    } -result "Event callback\nInteractive output\n"

    # Tests Tcl_Main-5.*: interactive operations

    test Tcl_Main-5.1 {
	Tcl_Main: tcl_interactive must be boolean
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {set tcl_interactive foo} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "can't set \"tcl_interactive\":\
	     variable must have boolean value\n"

    test Tcl_Main-5.2 {
	Tcl_Main able to handle non-blocking stdin
    } -constraints {
	exec
    } -setup {
	catch {set f [open "|[list [interpreter]]" w+]}
    } -body {
	type $f {
	    fconfigure stdin -blocking 0
	    puts SUCCESS
	}
	list [catch {gets $f} line] $line
    } -cleanup {
	close $f
    } -result [list 0 SUCCESS]

    test Tcl_Main-5.3 {
	Tcl_Main handles stdin EOF in mid-command
    } -constraints {
	exec
    } -setup {
	catch {set f [open "|[list [interpreter]]" w+]}
	catch {fconfigure $f -blocking 0}
    } -body {
	type $f "fconfigure stdin -eofchar \\032
	    if 1 \{\n\032"
	variable wait
	fileevent $f readable \
		[list set [namespace which -variable wait] "child exit"]
	set id [after 2000 [list set [namespace which -variable wait] timeout]]
	vwait [namespace which -variable wait]
	after cancel $id
	set wait
    } -cleanup {
	if {[string equal timeout $wait] && [testConstraint unix]} {
	    exec kill [pid $f]
	}
	close $f
    } -result {child exit}

    test Tcl_Main-5.4 {
	Tcl_Main handles stdin EOF in mid-command
    } -constraints {
	exec
    } -setup {
	set cmd {makeFile "if 1 \{" script}
	catch {set f [open "|[list [interpreter]] < [list [eval $cmd]]" r]}
	catch {fconfigure $f -blocking 0}
    } -body {
	variable wait
	fileevent $f readable \
		[list set [namespace which -variable wait] "child exit"]
	set id [after 2000 [list set [namespace which -variable wait] timeout]]
	vwait [namespace which -variable wait]
	after cancel $id
	set wait
    } -cleanup {
	if {[string equal timeout $wait] && [testConstraint unix]} {
	    exec kill [pid $f]
	}
	close $f
	removeFile script
    } -result {child exit}

    test Tcl_Main-5.5 {
	Tcl_Main: error raised in interactive mode
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {error foo} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "foo\n"

    test Tcl_Main-5.6 {
	Tcl_Main: interactive mode: errors don't stop command loop
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {
		error foo
		puts bar
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "foo\nbar\n"

    test Tcl_Main-5.7 {
	Tcl_Main: interactive mode: closed stderr
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {
		close stderr
		error foo
		puts bar
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "bar\n"

    test Tcl_Main-5.8 {
	Tcl_Main: interactive mode: close stdin
		-> main loop & [exit] & exit handlers
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		rename exit _exit
		proc exit code {
		    puts "In exit"
		    _exit $code
		}
		testsetmainloop
		testexitmainloop
		testexithandler create 0
		close stdin
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "Exit MainLoop\nIn exit\neven 0\n"

    test Tcl_Main-5.9 {
	Tcl_Main: interactive mode: delete interp 
		-> main loop & exit handlers, but no [exit]
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		rename exit _exit
		proc exit code {
		    puts "In exit"
		    _exit $code
		}
		testsetmainloop
		testexitmainloop
		testexithandler create 0
		testinterpdelete {}
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "Exit MainLoop\neven 0\n"

    test Tcl_Main-5.10 {
	Tcl_Main: exit main loop in mid-interactive command
    } -constraints {
	exec Tcltest
    } -setup {
	catch {set f [open "|[list [interpreter]]" w+]}
	catch {fconfigure $f -blocking 0}
    } -body {
	type $f "testsetmainloop
	         after 2000 testexitmainloop
	         puts \{1 2"
	after 4000
	type $f "3 4\}"
	set code1 [catch {gets $f} line1]
	set code2 [catch {gets $f} line2]
	set code3 [catch {gets $f} line3]
	list $code1 $line1 $code2 $line2 $code3 $line3
    } -cleanup {
	close $f
    } -result [list 0 {Exit MainLoop} 0 {1 2} 0 {3 4}]

    test Tcl_Main-5.11 {
	Tcl_Main: EOF in interactive main loop
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		rename exit _exit
		proc exit code {
		    puts "In exit"
		    _exit $code
		}
		testexithandler create 0
		after 0 testexitmainloop
		testsetmainloop
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "Exit MainLoop\nIn exit\neven 0\n"

    test Tcl_Main-5.12 {
	Tcl_Main: close stdin in interactive main loop
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		rename exit _exit
		proc exit code {
		    puts "In exit"
		    _exit $code
		}
		testexithandler create 0
		after 100 testexitmainloop
		testsetmainloop
		close stdin
		puts "don't reach this"
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "Exit MainLoop\nIn exit\neven 0\n"

    test Tcl_Main-5.13 {
	Bug 1775878
    } -constraints {
	exec
    } -setup {
	catch {set f [open "|[list [interpreter]]" w+]}
    } -body {
	type $f "puts \\"
	type $f return
	list [catch {gets $f} line] $line
    } -cleanup {
	close $f
    } -result [list 0 return]

    # Tests Tcl_Main-6.*: interactive operations with prompts

    test Tcl_Main-6.1 {
	Tcl_Main: enable prompts with tcl_interactive
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {set tcl_interactive 1} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n% "

    test Tcl_Main-6.2 {
	Tcl_Main: prompt deletes interp
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		set tcl_prompt1 {testinterpdelete {}}
		set tcl_interactive 1
		puts "not reached"
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n"

    test Tcl_Main-6.3 {
	Tcl_Main: prompt closes stdin
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {
		set tcl_prompt1 {close stdin}
		set tcl_interactive 1
		puts "not reached"
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n"

    test Tcl_Main-6.4 {
	Tcl_Main: interactive output, closed stdout
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {
		set tcl_interactive 1
		close stdout
		set a NO
		puts stderr YES
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n% YES\n"

    test Tcl_Main-6.5 {
	Tcl_Main: interactive entry to main loop
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		set tcl_interactive 1
		testsetmainloop
		testexitmainloop} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n% % % Exit MainLoop\n"

    test Tcl_Main-6.6 {
	Tcl_Main: number of prompts during stdin close exit
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {
		set tcl_interactive 1
		close stdin} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n% "

    test Tcl_Main-6.7 {
	[unknown]: interactive auto-completion.
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {
		proc foo\{ x {}
		set ::auto_noexec xxx
		set tcl_interactive 1
		foo y} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n% % "

    # Tests Tcl_Main-7.*: exiting

    test Tcl_Main-7.1 {
	Tcl_Main: [exit] defined as no-op -> still have exithandlers
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		proc exit args {}
		testexithandler create 0
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "even 0\n"

    test Tcl_Main-7.2 {
	Tcl_Main: [exit] defined as no-op -> still have exithandlers
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		proc exit args {}
		testexithandler create 0
		after 0 testexitmainloop
		testsetmainloop
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "Exit MainLoop\neven 0\n"

    # Tests Tcl_Main-8.*: StdinProc operations

    test Tcl_Main-8.1 {
	StdinProc: handles non-blocking stdin
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		fconfigure stdin -blocking 0
		testexitmainloop
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "Exit MainLoop\n"

    test Tcl_Main-8.2 {
	StdinProc: handles stdin EOF
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		testexithandler create 0
		rename exit _exit
		proc exit code {
		    puts "In exit"
		    _exit $code
		}
		after 100 testexitmainloop
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "Exit MainLoop\nIn exit\neven 0\n"

    test Tcl_Main-8.3 {
	StdinProc: handles interactive stdin EOF
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		testexithandler create 0
		rename exit _exit
		proc exit code {
		    puts "In exit"
		    _exit $code
		}
		set tcl_interactive 1} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n% even 0\n"

    test Tcl_Main-8.4 {
	StdinProc: handles stdin close
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		rename exit _exit
		proc exit code {
		    puts "In exit"
		    _exit $code
		}
		after 100 testexitmainloop
		after 0 puts 1
		close stdin
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\nExit MainLoop\nIn exit\n"

    test Tcl_Main-8.5 {
	StdinProc: handles interactive stdin close
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		set tcl_interactive 1
		rename exit _exit
		proc exit code {
		    puts "In exit"
		    _exit $code
		}
		after 100 testexitmainloop
		after 0 puts 1
		close stdin
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n% % % after#0\n% after#1\n% 1\nExit MainLoop\nIn exit\n"

    test Tcl_Main-8.6 {
	StdinProc: handles event loop re-entry
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		after 100 {puts 1; set delay 1}
		vwait delay
		puts 2
		testexitmainloop
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n2\nExit MainLoop\n"

    test Tcl_Main-8.7 {
	StdinProc: handling of errors
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		error foo
		testexitmainloop
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "foo\nExit MainLoop\n"

    test Tcl_Main-8.8 {
	StdinProc: handling of errors, closed stderr
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		close stderr
		error foo
		testexitmainloop
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "Exit MainLoop\n"

    test Tcl_Main-8.9 {
	StdinProc: interactive output
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		set tcl_interactive 1
		testexitmainloop} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n% % Exit MainLoop\n"

    test Tcl_Main-8.10 {
	StdinProc: interactive output, closed stdout
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		close stdout
		set tcl_interactive 1
		testexitmainloop
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result {}

    test Tcl_Main-8.11 {
	StdinProc: prompt deletes interp
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		set tcl_prompt1 {testinterpdelete {}}
		set tcl_interactive 1} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n"

    test Tcl_Main-8.12 {
	StdinProc: prompt closes stdin
    } -constraints {
	exec Tcltest
    } -body {
	exec [interpreter] << {
		testsetmainloop
		set tcl_prompt1 {close stdin}
		after 100 testexitmainloop
		set tcl_interactive 1
		puts "not reached"
	} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\nExit MainLoop\n"

    test Tcl_Main-8.13 {
	Bug 1775878
    } -constraints {
	exec Tcltest
    } -setup {
	catch {set f [open "|[list [interpreter]]" w+]}
    } -body {
	exec [interpreter] << "testsetmainloop\nputs \\\npwd\ntestexitmainloop" >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "pwd\nExit MainLoop\n"

    # Tests Tcl_Main-9.*: Prompt operations

    test Tcl_Main-9.1 {
	Prompt: custom prompt variables
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {
		set tcl_prompt1 {puts -nonewline stdout "one "}
		set tcl_prompt2 {puts -nonewline stdout "two "}
		set tcl_interactive 1
		puts {This is
		a test}} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\none two This is\n\t\ta test\none "

    test Tcl_Main-9.2 {
	Prompt: error in custom prompt variables
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {
		set tcl_prompt1 {error foo}
		set tcl_interactive 1
		set errorInfo} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\nfoo\n% foo\n    while executing\n\"error foo\"\n    (script\
	that generates prompt)\nfoo\n% "

    test Tcl_Main-9.3 {
	Prompt: error in custom prompt variables, closed stderr
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {
		set tcl_prompt1 {close stderr; error foo}
		set tcl_interactive 1} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\n% "

    test Tcl_Main-9.4 {
	Prompt: error in custom prompt variables, closed stdout
    } -constraints {
	exec
    } -body {
	exec [interpreter] << {
		set tcl_prompt1 {close stdout; error foo}
		set tcl_interactive 1} >& result
	set f [open result]
	read $f
    } -cleanup {
	close $f
	file delete result
    } -result "1\nfoo\n"

    cd [workingDirectory]

    cleanupTests
}

namespace delete ::tcl::test::main
return
novem_numbers_eias</option>
<option value='novem_purge_literals'>novem_purge_literals</option>
<option value='novem_reduced_bytecodes'>novem_reduced_bytecodes</option>
<option value='novem_reduced_symbol_export'>novem_reduced_symbol_export</option>
<option value='novem_remove_string_result'>novem_remove_string_result</option>
<option value='novem_remove_va'>novem_remove_va</option>
<option value='novem_rename_memory_API'>novem_rename_memory_API</option>
<option value='novem_review'>novem_review</option>
<option value='novem_saveresult_as_macro'>novem_saveresult_as_macro</option>
<option value='novem_support'>novem_support</option>
<option value='novem_two_layer_list'>novem_two_layer_list</option>
<option value='novem_unversioned_stub'>novem_unversioned_stub</option>
<option value='off_8_4_branch'>off_8_4_branch</option>
<option value='off_trunk'>off_trunk</option>
<option value='on_hold_84'>on_hold_84</option>
<option value='on_hold_85'>on_hold_85</option>
<option value='on_hold_trunk'>on_hold_trunk</option>
<option value='oo_copy_ns'>oo_copy_ns</option>
<option value='other_64bit_candidates'>other_64bit_candidates</option>
<option value='package_files'>package_files</option>
<option value='panic_noreturn'>panic_noreturn</option>
<option value='prevent_inline'>prevent_inline</option>
<option value='private'>private</option>
<option value='pseudotrunk_2011_03_08'>pseudotrunk_2011_03_08</option>
<option value='pyk_emptystring'>pyk_emptystring</option>
<option value='pyk_expr_numeric'>pyk_expr_numeric</option>
<option value='pyk_listdictstringrep'>pyk_listdictstringrep</option>
<option value='pyk_pkgrequirenre'>pyk_pkgrequirenre</option>
<option value='pyk_trunk'>pyk_trunk</option>
<option value='remove_pathappend_intrep'>remove_pathappend_intrep</option>
<option value='remove_trim_header'>remove_trim_header</option>
<option value='revert_3396731'>revert_3396731</option>
<option value='rfe_1711975'>rfe_1711975</option>
<option value='rfe_3216010'>rfe_3216010</option>
<option value='rfe_3389978'>rfe_3389978</option>
<option value='rfe_3432962'>rfe_3432962</option>
<option value='rfe_3464401'>rfe_3464401</option>
<option value='rfe_3473670'>rfe_3473670</option>
<option value='rfe_6c0d7aec67'>rfe_6c0d7aec67</option>
<option value='rfe_854941'>rfe_854941</option>
<option value='rfe_b42b208ba4'>rfe_b42b208ba4</option>
<option value='rfe_dfc08326e3'>rfe_dfc08326e3</option>
<option value='rfe_notifier_fork'>rfe_notifier_fork</option>
<option value='rmax_ipv6_branch'>rmax_ipv6_branch</option>
<option value='rmax_ipv6_merge_synthetic'>rmax_ipv6_merge_synthetic</option>
<option value='robust_async_connect_tests'>robust_async_connect_tests</option>
<option value='scriptics_sc_1_0_branch'>scriptics_sc_1_0_branch</option>
<option value='scriptics_sc_1_1_branch'>scriptics_sc_1_1_branch</option>
<option value='scriptics_sc_2_0_b2_synthetic'>scriptics_sc_2_0_b2_synthetic</option>
<option value='scriptics_sc_2_0_b5_synthetic'>scriptics_sc_2_0_b5_synthetic</option>
<option value='scriptics_sc_2_0_fixed_synthetic'>scriptics_sc_2_0_fixed_synthetic</option>
<option value='scriptics_tclpro_1_2'>scriptics_tclpro_1_2</option>
<option value='scriptics_tclpro_1_2_old'>scriptics_tclpro_1_2_old</option>
<option value='scriptics_tclpro_1_2_synthetic'>scriptics_tclpro_1_2_synthetic</option>
<option value='scriptics_tclpro_1_3_b2_branch'>scriptics_tclpro_1_3_b2_branch</option>
<option value='scriptics_tclpro_1_3_b3_synthetic'>scriptics_tclpro_1_3_b3_synthetic</option>
<option value='sebres_8_5_event_perf_branch'>sebres_8_5_event_perf_branch</option>
<option value='sebres_8_5_timerate'>sebres_8_5_timerate</option>
<option value='sebres_8_6_clock_speedup'>sebres_8_6_clock_speedup</option>
<option value='sebres_8_6_clock_speedup_cr1'>sebres_8_6_clock_speedup_cr1</option>
<option value='sebres_8_6_event_perf_branch'>sebres_8_6_event_perf_branch</option>
<option value='sebres_8_6_timerate'>sebres_8_6_timerate</option>
<option value='sebres_clean_core_8_5'>sebres_clean_core_8_5</option>
<option value='sebres_clock_speedup'>sebres_clock_speedup</option>
<option value='sebres_clock_tz_fix'>sebres_clock_tz_fix</option>
<option value='sebres_event_perf_fix_busy_wait'>sebres_event_perf_fix_busy_wait</option>
<option value='sebres_optimized_8_5'>sebres_optimized_8_5</option>
<option value='sebres_trunk_clock_speedup'>sebres_trunk_clock_speedup</option>
<option value='sebres_trunk_timerate'>sebres_trunk_timerate</option>
<option value='semver'>semver</option>
<option value='stwo_dev86'>stwo_dev86</option>
<option value='tclPlatformEngine'>tclPlatformEngine</option>
<option value='tcl_nosize'>tcl_nosize</option>
<option value='tclchan_assertions'>tclchan_assertions</option>
<option value='tclpro_1_5_0_synthetic'>tclpro_1_5_0_synthetic</option>
<option value='tcltest_verbose_desc'>tcltest_verbose_desc</option>
<option value='tgl_pg_re'>tgl_pg_re</option>
<option value='thread_leaks'>thread_leaks</option>
<option value='ticket_9b2e636361'>ticket_9b2e636361</option>
<option value='ticket_e770d92d6'>ticket_e770d92d6</option>
<option value='tip280_test_coverage'>tip280_test_coverage</option>
<option value='tip404_tcl8_5'>tip404_tcl8_5</option>
<option value='tip429_only_id'>tip429_only_id</option>
<option value='tip_106_impl'>tip_106_impl</option>
<option value='tip_162_branch'>tip_162_branch</option>
<option value='tip_257_implementation_branch'>tip_257_implementation_branch</option>
<option value='tip_257_implementation_branch_root_synthetic'>tip_257_implementation_branch_root_synthetic</option>
<option value='tip_257_merge1_branch_20061020T1300'>tip_257_merge1_branch_20061020T1300</option>
<option value='tip_278_branch'>tip_278_branch</option>
<option value='tip_282'>tip_282</option>
<option value='tip_302'>tip_302</option>
<option value='tip_312'>tip_312</option>
<option value='tip_318_update'>tip_318_update</option>
<option value='tip_388_impl'>tip_388_impl</option>
<option value='tip_389_impl'>tip_389_impl</option>
<option value='tip_395_with_alt_name'>tip_395_with_alt_name</option>
<option value='tip_398_impl'>tip_398_impl</option>
<option value='tip_400_impl'>tip_400_impl</option>
<option value='tip_401'>tip_401</option>
<option value='tip_404'>tip_404</option>
<option value='tip_405_impl_td'>tip_405_impl_td</option>
<option value='tip_427'>tip_427</option>
<option value='tip_428'>tip_428</option>
<option value='tip_429'>tip_429</option>
<option value='tip_436'>tip_436</option>
<option value='tip_440_alt'>tip_440_alt</option>
<option value='tip_440_backport'>tip_440_backport</option>
<option value='tip_444'>tip_444</option>
<option value='tip_445'>tip_445</option>
<option value='tip_445_fork'>tip_445_fork</option>
<option value='tip_445_reject'>tip_445_reject</option>
<option value='tip_452'>tip_452</option>
<option value='tip_456'>tip_456</option>
<option value='tip_456_fork'>tip_456_fork</option>
<option value='tip_457'>tip_457</option>
<option value='tip_458'>tip_458</option>
<option value='tip_458_experiment'>tip_458_experiment</option>
<option value='tip_463'>tip_463</option>
<option value='tip_465'>tip_465</option>
<option value='tip_468'>tip_468</option>
<option value='tip_468_bis'>tip_468_bis</option>
<option value='tip_469'>tip_469</option>
<option value='tip_470'>tip_470</option>
<option value='tip_473'>tip_473</option>
<option value='tip_59_implementation'>tip_59_implementation</option>
<option value='tip_improve_exec'>tip_improve_exec</option>
<option value='tk_bug_9eb55debc5'>tk_bug_9eb55debc5</option>
<option value='tkt3328635_posix_monotonic_clock'>tkt3328635_posix_monotonic_clock</option>
<option value='tkt_04e26c02c0'>tkt_04e26c02c0</option>
<option value='tkt_414d10346b'>tkt_414d10346b</option>
<option value='tkt_4d5ae7d88a'>tkt_4d5ae7d88a</option>
<option value='unbreak_tclcompiler'>unbreak_tclcompiler</option>
<option value='unknown_rewrite'>unknown_rewrite</option>
<option value='unproven'>unproven</option>
<option value='unsetThreadData'>unsetThreadData</option>
<option value='unwanted'>unwanted</option>
<option value='updateextended'>updateextended</option>
<option value='vc_reform'>vc_reform</option>
<option value='vs_ide_compile'>vs_ide_compile</option>
<option value='werner_utf_max_6'>werner_utf_max_6</option>
<option value='win32_arm'>win32_arm</option>
<option value='winFixes'>winFixes</option>
<option value='win_console_panic'>win_console_panic</option>
<option value='win_sock_async_connect_race_fix'>win_sock_async_connect_race_fix</option>
<option value='z_modifier'>z_modifier</option>
<option value='zipfs'>zipfs</option>
<option value='zippy_fifo'>zippy_fifo</option>
<option value='zlib_1_2_6'>zlib_1_2_6</option>
</select> <input type='submit' name='' value='switch'/></form></td></tr>
<tr><td class='sub'>Tcl is a high-level, general-purpose, interpreted, dynamic programming language. It was designed with the goal of being very simple but powerful.</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/oss-git/tcl.git/?h=bug_510001'>summary</a><a href='/oss-git/tcl.git/refs/?h=bug_510001'>refs</a><a class='active' href='/oss-git/tcl.git/log/?h=bug_510001&amp;showmsg=1'>log</a><a href='/oss-git/tcl.git/tree/?h=bug_510001'>tree</a><a href='/oss-git/tcl.git/commit/?h=bug_510001'>commit</a><a href='/oss-git/tcl.git/diff/?h=bug_510001'>diff</a><a href='/oss-git/tcl.git/stats/?h=bug_510001'>stats</a></td><td class='form'><form class='right' method='get' action='/oss-git/tcl.git/log/'>
<input type='hidden' name='h' value='bug_510001'/><input type='hidden' name='showmsg' value='1'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='text' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='content'><table class='list nowrap'><tr class='nohover'><th></th><th class='left'>Commit message (<a href='/oss-git/tcl.git/log/?h=bug_510001&amp;ofs=3400'>Collapse</a>)</th><th class='left'>Author</th><th class='left'>Age</th><th class='left'>Files</th><th class='left'>Lines</th></tr>
<tr class='nohover'><td class='commitgraph'>...     </td><td colspan='6' /></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=5153262cb382cf320355160b48b661e92058973c'>        * doc/CrtSlave.3 (Tcl_MakeSafe):  Removed warning about possible</a><span class='decoration'></span></td><td>dgp</td><td><span title='2003-07-18 15:20:50 (GMT)'>2003-07-18</span></td><td>4</td><td>-12/+16</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
deprecation (no TIP on that).


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=6ad56e7d131d1c69896ded85ef8f69fcf6c446a5'>	* macosx/Makefile: added var to allow overriding of tclsh used</a><span class='decoration'></span></td><td>das</td><td><span title='2003-07-18 01:06:15 (GMT)'>2003-07-18</span></td><td>2</td><td>-2/+8</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
during html help building (Landon Fuller).


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=fd3cca0fed42222f341474fe7ecb9843dc8fb15b'>2003-07-16  Mumit Khan  &lt;khan@nanotech.wisc.edu&gt;</a><span class='decoration'></span></td><td>hobbs</td><td><span title='2003-07-17 00:16:03 (GMT)'>2003-07-17</span></td><td>4</td><td>-42/+60</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
* generic/tclIOUtil.c (SetFsPathFromAny): Add Cygwin specific
	code to convert POSIX filename to native format.
	* generic/tclFileName.c (Tcl_TranslateFileName): And remove from here.
	(TclDoGlob): Adjust for cygwin and append / for dirs instead of \
	* win/tclWinFile.c (TclpObjChdir): Use chdir on Cygwin.


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=3389435994d42db2b637d34fbae876f1e36e4520'>	* library/safe.tcl (FileInAccessPath): normalize paths before</a><span class='decoration'></span></td><td>hobbs</td><td><span title='2003-07-16 22:49:31 (GMT)'>2003-07-16</span></td><td>2</td><td>-2/+13</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
comparison. [Bug 759607] (myers)


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=ff41d718087fa54c34bc52d7bb818a6ab93f2471'>	* unix/tclUnixNotfy.c (NotifierThreadProc): correct size of found</a><span class='decoration'></span></td><td>hobbs</td><td><span title='2003-07-16 22:09:47 (GMT)'>2003-07-16</span></td><td>2</td><td>-2/+8</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
and word vars from int to long. [Bug 767578] (hgo)


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=81bbc0ba267fefbb15f6d0f7003126b1bf401ffe'>	* generic/tcl.h:       add recognition of -DTCL_UTF_MAX=6 on the</a><span class='decoration'></span></td><td>hobbs</td><td><span title='2003-07-16 22:06:03 (GMT)'>2003-07-16</span></td><td>3</td><td>-4/+30</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
* generic/regcustom.h: make line to support UCS-4 mode.  No config
	arg at this time, as it is not the recommended build mode.


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=a192f58aa339e34d092729d90602e2513f1634ac'>Tcl_MakeSafe is a nasty function; document it as such. [Bug 655300]</a><span class='decoration'></span></td><td>dkf</td><td><span title='2003-07-16 21:31:50 (GMT)'>2003-07-16</span></td><td>2</td><td>-5/+17</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=8950d01535cc68e18a799015b5bd31af5c9562c3'>	* generic/tclPreserve.c: In Result and Preserve'd routines, do not</a><span class='decoration'></span></td><td>hobbs</td><td><span title='2003-07-16 21:25:07 (GMT)'>2003-07-16</span></td><td>4</td><td>-32/+29</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
* generic/tclUtil.c:     assume that ckfree == free, as that is not
	* generic/tclResult.c:   always true. [Bug 756791] (fuller)


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=807f03b48dcdb08f9acb0493b804a5b41d5bf7a0'>	* win/Makefile.in: Don't define TCL_DBGX</a><span class='decoration'></span></td><td>mdejong</td><td><span title='2003-07-16 19:34:14 (GMT)'>2003-07-16</span></td><td>4</td><td>-11/+28</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
symbol for every compile. Instead, define
	TCL_PIPE_DLL only when compiling tclWinPipe.c.
	This will break other build systems, so
	they will need to remove the TCL_DBGX define
	and replace it with a define for TCL_PIPE_DLL.
	* win/makefile.vc: Ditto.
	* win/tclWinPipe.c (TclpCreateProcess):
	Remove PREFIX_IDENT and DEBUG_IDENT from
	top of file. Use TCL_PIPE_DLL passed in
	from build env instead of trying to construct
	the dll name from already defined symbols.
	This approach is more flexible and better
	in the long run.


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=edcb9d3655e60d05d4774eef38d89620d0a0e6a1'>        * generic/tclFileName.c (Tcl_GlobObjCmd):       [Bug 771840]</a><span class='decoration'></span></td><td>dgp</td><td><span title='2003-07-16 15:28:29 (GMT)'>2003-07-16</span></td><td>4</td><td>-24/+8</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
* generic/tclIOUtil.c (Tcl_FSConvertToPathType):[Bug 771947]
        * unix/tclUnixFCmd.c (GetModeFromPermString):   [Bug 771949]
        Silence compiler warnings about unreached lines.


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=3bf05e9189615ea7d195ecd15f452092916d278d'>        * library/tcltest/tcltest.tcl (ProcessFlags):   Corrected broken call</a><span class='decoration'></span></td><td>dgp</td><td><span title='2003-07-16 14:31:35 (GMT)'>2003-07-16</span></td><td>3</td><td>-4/+10</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
* library/tcltest/pkgIndex.tcl:                 to [lrange].  Bumped
        to version 2.2.4. [Bug 772333]


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=935c14cb00b479bcbc41fc40394c159f2785efbd'>Removed trivially-unreachable line [Bug 771939]</a><span class='decoration'></span></td><td>dkf</td><td><span title='2003-07-16 08:24:20 (GMT)'>2003-07-16</span></td><td>1</td><td>-2/+1</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=b8352637c0e463fcf79278998107835658c6efdb'>        * doc/http.n:  Updated SYNOPSIS to match actual syntax of</a><span class='decoration'></span></td><td>dgp</td><td><span title='2003-07-16 04:15:06 (GMT)'>2003-07-16</span></td><td>2</td><td>-3/+6</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
commands.  [Bug 756112]


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=060934f2a4132b50c68ef38c64a34a3a6ed9e82d'>	* unix/dltest/pkga.c (Pkga_EqObjCmd): Fix typo</a><span class='decoration'></span></td><td>mdejong</td><td><span title='2003-07-16 02:16:13 (GMT)'>2003-07-16</span></td><td>2</td><td>-2/+7</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
that was causing a crash in load.test.


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=43bad74f48d8aae962fb0a46444b3982729b24d2'>        * unix/dltest/pkga.c:   Updated to not use Tcl_UtfNcmp and counted</a><span class='decoration'></span></td><td>dgp</td><td><span title='2003-07-15 23:54:52 (GMT)'>2003-07-15</span></td><td>2</td><td>-2/+14</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
strings instead of strcmp (not defined in any #include'd header)
        and presumed NULL-terminated strings.


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=570add27c459885795802baac3c2e466a4989705'>        * README:               Bumped patch level to 8.4.4 in anticipation</a><span class='decoration'></span></td><td>dgp</td><td><span title='2003-07-15 22:25:32 (GMT)'>2003-07-15</span></td><td>10</td><td>-16/+27</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
* generic/tcl.h:        of another patch release.
        * tools/tcl.wse.in:
        * unix/configure.in:
        * unix/tcl.spec:
        * win/README.binary:
        * win/configure.in:

        * unix/configure:       autoconf (2.13)
        * win/configure:


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=964320bcbce04f90f2fb64d5b5683bd62a58922a'>Missed a bit off the last checkin!  &lt;:^)</a><span class='decoration'></span></td><td>dkf</td><td><span title='2003-07-15 22:18:02 (GMT)'>2003-07-15</span></td><td>1</td><td>-2/+2</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=4aa5d2c8459ece48ce92e83dedfd7a5c992aa7fa'>Added examples from David Welton [Patch 763312]</a><span class='decoration'></span></td><td>dkf</td><td><span title='2003-07-15 22:07:36 (GMT)'>2003-07-15</span></td><td>2</td><td>-1/+58</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=15a36c2b44761be8ef9d533a938f41d2c7748ad5'>        * generic/tclCompCmds.c (TclCompileIfCmd):  Prior fix of Bug 711371</a><span class='decoration'></span></td><td>dgp</td><td><span title='2003-07-15 20:51:48 (GMT)'>2003-07-15</span></td><td>2</td><td>-3/+11</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> 
<span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
on 2003-04-07 introduced a buffer overflow.  Corrected.  [Bug 771613]


</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=8dd3ddd4e2847e9b1e950a02bc5edcd5313dc76a'>Fixed confusing error message. [Bug 771539]</a><span class='decoration'></span></td><td>dkf</td><td><span title='2003-07-15 15:44:51 (GMT)'>2003-07-15</span></td><td>3</td><td>-4/+9</td></tr>
<tr class='nohover'><td class='commitgraph'><span class='column2'>|</span> <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td>
<td colspan='5' class='logmsg'>
</td></tr>
<tr class='logheader'><td class='commitgraph'>* <span class='column1'>|</span> <span class='column4'>|</span> <span class='column2'>|</span> </td><td class='logsubject'><a href='/oss-git/tcl.git/commit/?h=bug_510001&amp;id=202e286a36ddafaead632892950c3e18b3f3038b'>	* macosx/Makefile: Rewrote buildsystem for Mac OS X framework build</a><span class='decoration'></span></td><td>das</td><td><span title='2003-07-15 01:15:50 (GMT)'>2003-07-15</span>