Artifact b7471cb6ff8d5372764554e31e6c80d737f0664f:

• File packages/struct/lib/tree/shell.tcl — part of check-in [f09fe93ea5] at 2020-08-23 12:19:17 on branch trunk — struct tree shell

  node instead of path

  (user: pooryorick size: 842)

#! /usr/bin/env tclsh

namespace eval system {
	package require {ycl struct tree tree}

	package require {ycl proc}
	[yclprefix] proc alias aliases [yclprefix] proc aliases

	aliases  {
		{ycl proc} {
			imports
		}
	}


	proc new {filename args} {
		if {[file exists $filename]} {
			error [list {file already exists} $filename]
		}

		set tree [info cmdcount]_tree

		[yclprefix] struct tree tree .new $tree
		try {
			set res [$tree .init dbname $filename dbcreate 1]
		} finally {
			rename $tree {}
		}
		puts $res
	}


	proc node {filename node cmd args} {
		set tree [info cmdcount]_tree
		[yclprefix] struct tree tree .new $tree
		$tree .init dbname $filename
		try {
			set res [$tree node $cmd $node {*}$args]
		} finally {
			rename $tree {}
		}
		puts $res
	}

	imports [namespace parent] [namespace current] {
		new
		node
	}
}