Artifact dad84c19fb7a25953ad451275122651691c3f13e8727467055761a7c7d116e38:
- Executable file examples/generate-work/generate-work — part of check-in [5c0fe18b67] at 2018-07-05 14:56:33 on branch trunk — Added high-level work interfaces (user: rkeene, size: 322) [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::fromBlockhash $arg] } err]} { puts stderr "Error generating work for \"$arg\": $err" } else { puts "WORK($arg) = $work" } }