Skip to content

Commit

Permalink
adding testx files
Browse files Browse the repository at this point in the history
  • Loading branch information
Detlef Groth committed Sep 30, 2023
1 parent 5e14689 commit 1ecf8b7
Show file tree
Hide file tree
Showing 2 changed files with 18 additions and 0 deletions.
3 changes: 3 additions & 0 deletions examples/pkgIndex.tcl
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
if {![package vsatisfies [package provide Tcl] 8.6]} {return}

package ifneeded testx 0.0.1 [list source [file join $dir testx.tcl]]
15 changes: 15 additions & 0 deletions examples/testx.tcl
Original file line number Diff line number Diff line change
@@ -0,0 +1,15 @@
package provide testx 0.0.1

namespace eval testx { }

proc testx::hello {name} {
puts "Hello ${name}!"
}

proc testx::main {{argv {}}} {
if {[llength $argv] != 1} {
puts "Usage: tclmain -m testx NAME"
} else {
testx::hello [lindex $argv 0]
}
}

0 comments on commit 1ecf8b7

Please sign in to comment.