Artifact 1db3d7157f7e2c20157b28a5e9ed3e50214947e63e32789d9f75446ea1bbe8e3:

• Executable file examples/generate-work/generate-work — part of check-in [3aeba5d8ef] at 2018-07-06 14:53:22 on branch trunk — Updated work nomenclature to be more clear (user: rkeene, size: 356) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

lappend auto_path ../../build/work
package require nano

if {[llength $argv] == 0} {
	puts stderr "Usage: generate-work <hash>..."

	exit 1
}

foreach arg $argv {
	if {[catch {
		set work [::nano::work::fromWorkData $arg]
	} err]} {
		puts stderr "Error generating work for \"$arg\": $err"
	} else {
		puts "WORK($arg) = $work"
	}
}