eval.tk

#!/usr/bin/env wish9
# Copyright © 2025 Mark Summerfield. All rights reserved.

if {![catch {file readlink [info script]} name]} {
    const APPPATH [file dirname $name]
} else {
    const APPPATH [file normalize [file dirname [info script]]]
}
tcl::tm::path add $APPPATH

package require app
package require units

const HAS_TLS [expr {![catch { package require tls 2} ]}]
if {$::HAS_TLS} {
    package require http 2
    ::http::register https 443 ::tls::socket
    const DICT_URL https://api.dictionaryapi.dev/api/v2/entries/en
}
const ASPELL [auto_execok aspell]
set WORDFILE /usr/share/dict/words
if {![file exists $::WORDFILE]} { set WORDFILE "" }

const VERSION 1.5.0
units::new stone 14lb
units::new point 0.013888888888888888in
units::new pt 1point

set app [App new]
$app show