Differences From Artifact [8c36976f30]:

• Executable file tests/keytest1.tcl — part of check-in [61fb454f56] at 2024-02-20 16:22:56 on branch bohagan — Merge trunk (user: jan.nijtmans, size: 751) [annotate] [blame] [check-ins using] [more...]

To Artifact [bd5cb9f857]:

• File tests/keytest1.tcl — part of check-in [899a950204] at 2023-03-04 20:19:45 on branch trunk — Added key and PEM output to variables and updated keytest1 test script. Source: https://www.androwish.org/home/info/80b11e9594532414 and https://www.androwish.org/home/info/56087b886c6c105f and https://core.tcl-lang.org/tcltls/tktview/04d6bb909b ids: [80b11e9594] and [56087b886c] (user: bohagan, size: 682) [annotate] [blame] [check-ins using] [more...]

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

|
<
<

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