TclTLS
Check-in [61fb454f56]
Login
HomeTimelineDownloadBrowse SourceBranchesTagsTicketsWiki
Overview
Comment:Merge trunk
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bohagan
Files: files | file ages | folders
SHA3-256: 61fb454f56cf8e0250a66a8e83f2c2ef08876d387cb72e0324eee80eb2ff6e5b
User & Date: jan.nijtmans on 2024-02-20 16:22:56
Other Links: branch diff | manifest | tags
Context
2024-02-20
22:09
Merge trunk check-in: 6853760139 user: jan.nijtmans tags: bohagan
16:22
Merge trunk check-in: 61fb454f56 user: jan.nijtmans tags: bohagan
16:18
Don't depend on Tcl 8.3 ..... check-in: c4ff285b07 user: jan.nijtmans tags: trunk, main
16:11
Merge trunk check-in: daa14243cf user: jan.nijtmans tags: bohagan
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified tests/keytest1.tcl from [bd5cb9f857] to [8c36976f30]. 

1


2
3
4
5
6
7
8

#!/usr/bin/env tclsh



set auto_path [linsert $auto_path 0 [file normalize [file join [file dirname [info script]] ..]]]
package require tls

proc creadable {s} {
    puts "LINE=[gets $s]"
    after 2000

|
>
>








1
2
3
4
5
6
7
8
9
10

#!/bin/sh
# The next line is executed by /bin/sh, but not tcl \
exec tclsh "$0" ${1+"$@"}

set auto_path [linsert $auto_path 0 [file normalize [file join [file dirname [info script]] ..]]]
package require tls

proc creadable {s} {
    puts "LINE=[gets $s]"
    after 2000
︙︙

Modified tests/keytest2.tcl from [9ae291a22a] to [b3210d97a2]. 

1


2
3
4
5
6
7
8

#! /usr/bin/env tclsh



set auto_path [linsert $auto_path 0 [file normalize [file join [file dirname [info script]] ..]]]
package require tls

set s [tls::socket 127.0.0.1 12300]
puts $s "A line"
flush $s

|
>
>








1
2
3
4
5
6
7
8
9
10

#!/bin/sh
# The next line is executed by /bin/sh, but not tcl \
exec tclsh "$0" ${1+"$@"}

set auto_path [linsert $auto_path 0 [file normalize [file join [file dirname [info script]] ..]]]
package require tls

set s [tls::socket 127.0.0.1 12300]
puts $s "A line"
flush $s
︙︙

Modified tests/simpleClient.tcl from [38bd23a6f6] to [4d694417ae]. 

1


2
3
4
5
6
7
8

#!/usr/bin/env tclsh



package require tls

set dir			[file join [file dirname [info script]] ../tests/certs]
set OPTS(-cafile)	[file join $dir ca.pem]
set OPTS(-cert)		[file join $dir client.pem]
set OPTS(-key)		[file join $dir client.key]

|
>
>








1
2
3
4
5
6
7
8
9
10

#!/bin/sh
# The next line is executed by /bin/sh, but not tcl \
exec tclsh "$0" ${1+"$@"}

package require tls

set dir			[file join [file dirname [info script]] ../tests/certs]
set OPTS(-cafile)	[file join $dir ca.pem]
set OPTS(-cert)		[file join $dir client.pem]
set OPTS(-key)		[file join $dir client.key]
︙︙

Modified tests/simpleServer.tcl from [0490845ed9] to [0be01a94d0]. 

1


2
3
4
5
6
7
8

#!/usr/bin/env tclsh



package require tls

set dir			[file join [file dirname [info script]] ../tests/certs]
set OPTS(-cafile)	[file join $dir ca.pem]
set OPTS(-cert)		[file join $dir server.pem]
set OPTS(-key)		[file join $dir server.key]

|
>
>








1
2
3
4
5
6
7
8
9
10

#!/bin/sh
# The next line is executed by /bin/sh, but not tcl \
exec tclsh "$0" ${1+"$@"}

package require tls

set dir			[file join [file dirname [info script]] ../tests/certs]
set OPTS(-cafile)	[file join $dir ca.pem]
set OPTS(-cert)		[file join $dir server.pem]
set OPTS(-key)		[file join $dir server.key]
︙︙

Powered by Fossil · RSS