Artifact e5056c982bea12d45a6978ff820173a67bb2745b:

• Executable file packages/dir/demo/scan — part of check-in [4a1843d80e] at 2018-12-16 15:07:16 on branch trunk — dir scan use a database instead of a file (user: pooryorick size: 229)

#! /bin/env tclsh

package require {ycl dir scan}

namespace eval main {
	coroutine main ::apply [list {argv0 argv} {
		yield
		[[yclprefix] dir scan .spawn scanner1] init {*}$argv
	} [namespace current]] $argv0 $argv

	main
}