ycl

Artifact [1fcbe951fb]
Login

Artifact [1fcbe951fb]

Artifact 1fcbe951fb5f6c964e9a00105425e691c8a5743a:


#! /bin/env tclsh

package require ycl::iter
package require {ycl proc}
namespace import [yclprefix]::chan::prototype
package require ycl::vso
namespace import [yclprefix]::route

rename [namespace current] {}
[yclprefix] proc alias [namespace current] [[yclprefix] vso eval {namespace which universe}]

[namespace current] class chan {}
[namespace current] class chan iter 

apply [list {} {
	foreach name {write more iter} {
		#namespace import [yclprefix]::chan::prototype::$name
		[namespace current] route $name chan [namespace current]::$name
	}
} [namespace current]]

prototype new [namespace current]