Artifact 5558c50503ddcbba91d40f5bc438bc044774da77390812bf182004f1c00cb7f7:

• Executable file examples/generate-work/generate-work — part of check-in [dc7dc994d9] at 2018-09-25 01:09:51 on branch trunk — Cleaned up extraneous auto_path (user: rkeene, size: 321) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

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"
	}
}